受害者必修课!XP系统验证无法通过自己破解

对于很多的网友来说自动更新了微软的补丁后,老是会提示系统为盗版,烦啊,烦的要死,其实解决方法很简单,只须换个序列号即可,<OEM除外>,大多网友都是去别的地方下载其实,自己动手就可以搞定,下面我就把这段代码告诉大家,并副带一个序列号,这个号到现在仍未被封,喜欢的就用吧,不喜欢的可以到网上在搜下序列号,换个其他的<OEM版的不可以用>,废话少说,下面为代码在注意匡内,不要把注意也复制了哦,方法,把代码复制后,新建一记事本,打开保存代码,然后重命名改文本,命名为MicrosoftXpkey.vbs一定不要把后缀弄错保存后会有提示,确定即可,然后双机打开,点确定即可,希望能对大家有所帮助,下面为代码,只须复制注意以内的内容,不要把注意也复制了哦!

注意 注意 注意 注意
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,"-","") '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
注意 注意 注意 注意

关键词：

【推荐给好友】【关闭】

最新五条评论

查看全部评论

评论总数 0 条

您的评论

用户名： （新注册） 密　码： 匿名：

·用户发表意见仅代表其个人意见，并且承担一切因发表内容引起的纠纷和责任
·本站管理人员有权在不通知用户的情况下删除不符合规定的评论信息或留做证据
·请客观的评价您所看到的资讯，提倡就事论事，杜绝漫骂和人身攻击等不文明行为

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有