瑞星卡卡安全论坛

首页 » 技术交流区 » 反病毒/反流氓软件论坛 » 菜鸟学堂 » 教你对付微软黑屏【图解】
鬼鬼小猫咪 - 2009-6-1 17:37:00
首先复制2楼的内容到记事本里- -别说你不知道.就是txt那个.
注意不要复制多了,只局限2L的内容.然后保存.
改后更改后缀.将txt更改为vbs.
例如保存文档为key.txt 就改成key.vbs

用户系统信息:Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; .NET CLR 2.0.50727)
鬼鬼小猫咪 - 2009-6-1 17:38:00
ON ERROR RESUME NEXT 

Dim VOL_PROD_KEY 
if Wscript.arguments.count<1 then 
VOL_PROD_KEY=InputBox("Powered By http://hi.baidu.com/mignoncat"&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
鬼鬼小猫咪 - 2009-6-1 17:39:00
更改后的图标为:
鬼鬼小猫咪 - 2009-6-1 17:39:00
运行Key 点确定
鬼鬼小猫咪 - 2009-6-1 17:39:00
然后去微软网站验证吧
验证地址
http://www.microsoft.com/genuine/downloads/Validate.aspx
夲號ヱ被ジ盜 - 2009-6-1 18:34:00
:kaka6:
本来就是联想OEM
烟雨江南春 - 2009-6-13 11:09:00
至今没碰到过黑屏 不过学习了  谢谢分享
最硬的石头 - 2009-6-13 11:30:00
Powered By http://hi.baidu.com/mignoncat:kaka14:
热河书生 - 2009-6-24 12:43:00
谢谢大侠啊!哈哈,记住了!
1
查看完整版本: 教你对付微软黑屏【图解】