今日陽光普照.............我遲左兩個鐘返工.....
返到去..冇乜野搞....拉多條LAN線去ANNIE個位...方便做實驗......
之後食晏........之後上七樓搬野落地鋪.......下次嗌成記貨VAN..指定唔要337...又冇禮貌....
又唔俾放野響中間座位度.......佢自己又有架四轆鐵車左住晒個車尾箱...
....叫人載乜呀......
搬左好多野.......好累....
之後.....支粒子砲個鏡頭送左貨黎.......開始研究........
未正式開壇...做心臟移植手術.......
我繼續研究KODICOM遲來的春天..兩張8變16.......雖然暫時冇乜研究價值....但絕對有用武之地...
今次裝ME黎試.......一反傳統....但暫時失敗.....
之後收工.......返左舊居拆門....搬野........
跟住返屋企......再之後........同TOMMY食宵夜.....
真好.......終於有XP破解.....可能係我太遲先知道.....
以下係VBScript Script File既CODE....自己COPY佢....開個記事簿抄起佢...再SAVE做 .VBS 檔尾....執下....搞掂...
ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("本程式將自動替換你當前 Windows XP 的序號,通過微軟驗證。"&vbCr&vbCr&" 本程式所附序號(VLK)以更新過能
夠通過驗證 (OEM 版無效)：","Windows XP 序號更新","KJQJH-48B24-HG6VG-YQWTV-P6R2Y")
if VOL_PROD_KEY="" then
Wscript.quit
end if
else
VOL_PROD_KEY = Wscript.arguments.Item(0)
end if
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
result = Obj.SetProductKey (VOL_PROD_KEY)
if err = 0 then
Wscript.echo "更新完成!快去微軟驗證吧"
end if
if err <> 0 then
Wscript.echo "跟新失敗!輸入 CD-KEY 與版本不符合。"
Err.Clear
end if
Next
