五千年(敝帚自珍)

主题:【求助】风云突变,盗版xp20日后会黑屏。SOS更新事宜 -- 陈郢客

共:💬107 🌺72
全看分页树展 · 主题 跟帖
家园 之前用过的一个工具,不知道这次有没有用

ON ERROR RESUME NEXT

Dim VOL_PROD_KEY

if Wscript.arguments.count<1 then

VOL_PROD_KEY=InputBox(本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,

默认版本为 XP VLK):","Windows XP序列号自动更换器","MRX3F-47B9T-2487J-KWKMF-RPWBY")

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 "OK!去微软验证吧!"

end if

if err <> 0 then

Wscript.echo "替换失败!输入的 CD-KEY 与当前的版本不匹配。"

Err.Clear

end if

Next

把上面的内容拷贝进记事本里,保存后把文件的扩展名由TXT改成VBS双击运行即可,注意对OEM版无效,

默认版本为 XP VLK,中间的那个序列号如果不行的话可以换成别的正版的,有的公司或者政府在正版化的过程中购买了微软的认证,这些序列号可以装到很多电脑上而被认为是正版的,把序列号换成他们的也可以。

另外这个不是我写的,只是想给大家提供个便利,所以请求大家不要到处发,免得让不才引火烧身


本帖一共被 1 帖 引用 (帖内工具实现)
全看分页树展 · 主题 跟帖


有趣有益,互惠互利;开阔视野,博采众长。
虚拟的网络,真实的人。天南地北客,相逢皆朋友

Copyright © cchere 西西河