一招教你破解微軟正版驗(yàn)證,超簡(jiǎn)單,有需要的記得要頂我哦

srb66 · 發(fā)表于 2009-3-27 12:56:40

最近微軟的那個(gè)正版驗(yàn)證的補(bǔ)丁可害苦了不少人,開機(jī)就會(huì)出現(xiàn)那個(gè)煩人的提示框,說(shuō)你是盜版軟件的受害者什么的!
下面教大家一招破解驗(yàn)證的絕招,呵呵~!也是在其他論壇看到的,覺得實(shí)用就弄來(lái)給大家也共享下!方法真的超級(jí)簡(jiǎn)單!快來(lái)頂我哦

首先，新建個(gè)文本文件，輸入下面這些：（直接復(fù)制到記事本就行）

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&" 本程序?qū)⒆詣?dòng)替換你當(dāng)前 Windows 的序列號(hào),通過(guò)微軟驗(yàn)證完全正版。"&vbCr&vbCr&"序列號(hào)(OEM版無(wú)效,默認(rèn)版本為 XP VLK)：","Windows XP序列號(hào)自動(dòng)更換器","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！去微軟驗(yàn)證吧！"
end if

if err <> 0 then
Wscript.echo "替換失??！輸入的 CD-KEY 與當(dāng)前的版本不匹配。"
Err.Clear
end if

Next

然后將以上文本保存為key.vbs 雙擊執(zhí)行即可通過(guò)XP驗(yàn)證