IT家园 » 软件使用交流 » XP盗版变正版

lgc8760 发表于 2007-9-8 18:33

XP盗版变正版

首先，新建个文本文件，输入下面这些：

ON ERROR RESUME NEXT

Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("Powered By [url]www.cnbeta.com[/url]"&vbCr&vbCr&" 本程序将自动替换你当前 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

然后将以上文本保存为key.vbs 双击执行即可 通过XP验证

呵呵，你就可以体验你的正版XP了！！！

pjxzl 发表于 2007-9-10 09:11

:) :) :L :L 这样也行？

暗花 发表于 2007-9-10 11:35

没试过,以前帮人弄都是手工整的.

dieryan 发表于 2007-9-10 16:12

真的假的:( :D

liuxj 发表于 2007-9-12 07:41

现在流行的各大论坛的系统盘都是已经破解了，可以通过正版验证在线更新的。

choupi 发表于 2007-9-13 11:25

:) :) :o :o :o

mfkwgij 发表于 2007-9-13 11:38

这样就行了吗！~

wangwenjie 发表于 2007-9-14 15:16

:( :( :( :( :(

liuxy 发表于 2007-9-14 17:05

有空试试！:victory:

saoliaoliao 发表于 2007-9-14 21:15

天天都有好东西，爽

wlison123456 发表于 2008-1-1 14:48

试试:L :L :L

疯子 发表于 2008-1-2 10:11

:D 这也行啊，厉害！！！！

guixiong 发表于 2008-5-2 22:21

哇，这个也行了呀，试一下哈，

guixiong 发表于 2008-5-2 22:23

哇，这个也行了呀，试一下哈，

查看完整版本: XP盗版变正版