简单一步让XP盗版变正版

青云 · 发表于 2007-12-27 12:18

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

将以上文本保存为key.vbs，双击执行或右击按安装即可通过XP验证。

einsteinaibill · 发表于 2008-1-1 10:46

了不起呀。佩服。

einsteinaibill · 发表于 2008-1-1 10:52

我试过了，太棒了。

benmandy · 发表于 2008-1-8 10:18

呵呵!!您太有才了```

chenth3 · 发表于 2008-1-9 16:57

有没有vista的盗版盘啊?虽然坚决反对盗版,但金钱问题啊:lol :lol :lol ,
有没有能使盗版vista变正版的方法?谢了.

benmandy · 发表于 2008-1-9 17:05

这基本上已经是不可能了`VISTA是个开放代码源的系统!
验证拥护和XP不同`基本上用盗版的就别想弄成正版的```

中原 · 发表于 2008-1-9 17:07

VISTA是个开放代码源的系统?

既然开源了怎么会防住盗版。。。

貌似现在随便买的盘也是写着已激活

benmandy · 发表于 2008-1-9 17:19

我的意思是说!!用VISTA是很难把盗版变正版的!!不是说防不主盗版!!!

左手 · 发表于 2008-1-9 19:58

是不是点完确定就可以了。。。为什么它提示可以去微软验证了....什么意思..不太懂

benmandy · 发表于 2008-1-9 20:02

微软需要验证过序列号后才确定你这个拥护才可以给你提供服务``
可以到微软的官方网验证!

花未眠 · 发表于 2008-1-26 19:54

说真的~本人索电脑盲~青云说的我完全没有看懂~~

中原 · 发表于 2008-1-26 20:26

查自己的xp是否激活可以用
开始-运行 oobe/msoobe /a

我本自由 · 发表于 2008-1-27 21:56

老实说我的电脑就是用了这招才 ......可以这么说......变成正版的..

有一段时间被微软确定为盗版,气死人了.又不能更新,什么都不可以,..

阿酷浪子 · 发表于 2008-1-28 16:41

太感谢楼主啦。
好人哪，谢谢哦！
<&108 <&108

stfl · 发表于 2008-2-5 11:27

不好意思，正版与盗版有什么区别？

by the way,这是什么原理啊？
微软就被蒙过去了？

benmandy · 发表于 2008-2-5 13:00

盗版与正版最大的区别就是服务不一样````

chenth3 · 发表于 2008-2-5 13:18

有什么服务？好像这么久都感受不到微软的服务，是不是搞升级之类的东西?

青云 · 发表于 2008-2-5 17:36

我新装的系统，上午还不微软来了个我用的是非正版的提示，郁闷，直接干掉它了，在运行这个就行啦

账号		自动登录	找回密码
密码			立即注册

简单一步让XP盗版变正版

本帖子中包含更多资源