谢谢楼主！收藏了
这个厉害啊我挺你！！！
这个办法能用多久呢？？
学习了!!!!!!!!!!!!!!!!!!!!
请朋友们把具体步骤讲一下，我不知从何下手。这个问题进阶段一直困扰着不少的人。谢谢。
引用第13楼haipeiyi于2008-03-06 23:27发表的 :
请朋友们把具体步骤讲一下，我不知从何下手。这个问题进阶段一直困扰着不少的人。谢谢。
用鼠标左键选取从 2段的文字,使其成蓝色显示,然后在上面按鼠标右键,选择"复制",再到"开始"----"程序"---"附件",里打开"记事本",然后在记事本上面按鼠标右键选择"粘贴",再把记事本里"文件"菜单下"另存为" 这个文件名"key.vbs ",存在桌面比较直观,然后鼠标双击"key.vbs ",就可以了.
2(下面以ON开头的文字)
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
申精吧~
支持你申精华,
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&"
打开注册表(开始----运行----输入regedit)
然后依次打开
HKEY_LOCAL_MACHINE\SOFTWARE\microsoft\Windows NT\CurrentVersion\Winlogon\Notify\WgaLogon
删除它（WgaLogon），
再重新启动(一定要重起，要不然删不了C盘的文件)，wgatray.exe就不会自动启动了，
再把C:\windows\system 32中的wgaTray.exe删除，再搜索一下，
在另外的文件夹下还有，统统删除，（搜索的方法是开始---搜索--所有文件及文件夹---全部文件或部分文件名，写上"wgaTray.exe"后点搜索，搜索到后，点鼠标右键删除之），
然后再次重起.
然后再次进到注册表HKEY_LOCAL_MACHINE\SOFTWARE\microsoft\Windows NT\CurrentVersion\Winlogon\Notify\WgaLogon，删除它（和第一次的操作相同），至此问题解决了
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&" 是否需要输入的是这些文件呢？谢谢。
