查看完整版本: 对付微软黑屏

对付微软黑屏

首先复制2楼的内容到记事本里- -别说你不知道.就是txt那个.  
注意不要复制多了，只局限2L的内容.然后保存.  
改后更改后缀.将txt更改为vbs.  
例如保存文档为key.txt 就改成key.vbs

ON ERROR RESUME NEXT  

Dim VOL_PROD_KEY  
if Wscript.arguments.count<1 then  
VOL_PROD_KEY=InputBox("Powered By ba.rplw.cn"&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

更改后的图标为：[img]http://hiphotos.baidu.com/v%C7%EF%C4%EFv/pic/item/4f0915b3d8746dbcd9335aa0.jpg[/img]

运行Key 点确定 [img]http://hiphotos.baidu.com/v%C7%EF%C4%EFv/pic/item/67a548661d46263fab184ca0.jpg[/img]

然后去微软网站验证吧  
验证地址  
[url]http://www.microsoft.com/genuine/downloads/Validate.aspx[/url]
[img]http://hiphotos.baidu.com/v%C7%EF%C4%EFv/pic/item/6241f1c45a156cb28226aca1.jpg[/img]

感谢您完成验证过程和使用正版 Microsoft 软件

使用正版 Microsoft 软件可以确保您获得最新功能、安全和支持，这样有助于提高您的工作效率和扩展计算机的功能。  

您还将可以获得只有正版 Microsoft 软件客户才可以使用的新创新和产品/服务。

百度的图防盗链，而且居然用VB脚本。。。不安全的说

居然防D了。。。卧槽，不过图片不是很重要。。。

VB脚本？

VB脚本是最有用的了。

明显没有OEM版有用