找回密码
 开放注册

QQ登录

只需一步,快速开始

微信登录

微信扫码,快速开始

搜索
查看: 1534|回复: 3

XP盗版变正版

[复制链接]

3

主题

31

回帖

46

牛毛

初生牛犊

积分
46
发表于 2008-1-16 16:23:11 | 显示全部楼层 来自 北京市海淀区
顶一下

10

主题

135

回帖

195

牛毛

一级牛人

桃花依旧笑春风...

积分
195
发表于 2008-1-16 22:44:25 | 显示全部楼层 来自 云南省玉溪市
真的有用吗?? [s:162] [s:162] [s:162] [s:162]

739

主题

468

回帖

4307

牛毛

论坛管理员

狼群

积分
4347
 楼主| 发表于 2008-1-19 01:52:28 | 显示全部楼层
你看看旧知道了

739

主题

468

回帖

4307

牛毛

论坛管理员

狼群

积分
4347
 楼主| 发表于 2008-1-16 01:09:23 | 显示全部楼层 |阅读模式
XP盗版变正版XP盗版变正版首先,新建个文本文件,输入下面这些:

ON ERROR RESUME NEXT

Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox(\"Powered By www.cnbeta.com\"&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,\"-\",\"\") &#39;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了!!!如果想装IE7,绝对没问题!
您需要登录后才可以回帖 登录 | 开放注册

本版积分规则

帮助|Archiver|小黑屋|通信管理局专项备案号:[2008]238号|NB5用户社区 ( 皖ICP备08004151号;皖公网安备34010402700514号 )

GMT+8, 2025-1-11 10:56 , Processed in 0.136755 second(s), 35 queries , Yac On.

Powered by Discuz! X3.5

快速回复 返回顶部 返回列表