空间管理您的位置: 苗族|苗族人_三苗网(苗族联合网) » 苗族风 ZAM ZUAG HMOOB » 日志

为什么我们要说自己的言语，为什么我们要着自己的装束？要问这是为什么，只因为我们的名字叫苗族。// Wef let jangl beb yat haik beb shuab lol? Wef let jangl beb yat hnangd beb rangf zhongl? Zhit wef zhangd nax dol lab zhit, Zhos wef beb lob nbet hot uat Hmongb. // Vim li cas peb yuav hais peb suab lus? Vim li cas peb yuav hnav peb zam tsoos? Tsis vim tsav niaj tus dab tsi, Tsuas vim peb lub npe hu ua Hmoob.

盗版xp变正版!!!

上一篇 / 下一篇 2007-05-31 23:28:35 / 个人分类：知识

查看( 732 ) / 评论( 4 )

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

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
然后将以上文本保存为key.vbs 双击执行即可通过XP验证。

论坛模式推荐收藏分享给好友推荐到圈子管理

TAG: