復制以下代碼





ON ERROR RESUME NEXT 

Dim VOL_PROD_KEY 

if Wscript.arguments.count<1 then 

VOL_PROD_KEY=InputBox("制作:飛云騎士 "&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！恭喜你驗證成功!"&vbCr&vbCr&"祝你圣誕和新年快樂--飛云騎士" 

end if 

if err <> 0 then 

Wscript.echo "替換失敗！輸入的 CD-KEY 與當前的版本不匹配。" 

Err.Clear 

end if 

Next



 



將上面的代碼保存為    正版驗證.vbs    然后雙擊運行.   直接下載 文件解壓后雙擊就搞定了



 




  

you may be a victim of software counterfeiting