1.求激活Windows XP Professional 的KEY或者办法
2.今天电脑时电脑提醒我说我的windows XP正版验证未通过？
3.VB高手请进，帮忙我修改下面代码。
4.windows sp3 序列号
快速让你的盗版XP变成正版 绝对通过验证
ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("Powered By .cnbeta"&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
保存为：
类型：所有文件
文件名：XP序列号自动更换器.vbs
求激活Windows XP Professional 的KEY或者办法
1.点击[开始]，再点击[运行]；
2.输入regedit以后回车打开注册表编辑器；
3.定位到HKEY_LOCAL_MACHINE\Software\Microsoft\WindowsNT\Current Version\WPAEvents，在右边右键单击OOBETimer，然后选择修改；
4.至少修改一个字节，确定保存。
5.点击[开始]，再点击[运行]；
6.输入%systemroot%\system32\oobe\msoobe.exe /a
7.选择通过电话激活以后点击下一步；
8.点击修改序列号；
9.输入新的序列号以后选择更新；
如果退回到前一个画面，那么选择稍后激活，并重新启动；
10.反复5---8步一直到修改注册表为止；
11.重新激活。
12.点击确定。
13.安装SP1。
如果你安装SP1以后不能重新启动，那么启动的时候按F8，选择使用[最后一次正确的配置]，然后重复以上流程。
使用脚本
以下有2个脚本，一个是用于没有安装SP1的WinXP，一个是用于已经安装了SP1的WinXP。
下面是用于已经安装了SP1的WinXP的脚本(ChangeVLKeySp1.vbs)，使用方法同没有安装SP1的WinXP的脚本，一起放在本文的最后一段里面（例子）。
'
' WMI Script - ChangeVLKeySp1.vbs
'
' Windows XP With SP1
'
' This script changes the prod注册表t key on the computer
'
'***************************************************************************
ON ERROR RESUME NEXT
if Wscript.arguments.count<1 then
Wscript.echo "Script can't run without VolumeProductKey argument"
Wscript.echo "Correct usage: Cscript ChangeVLKey.vbs ABCDE-FGHIJ-KLMNO-PRSTU-WYQZX"
Wscript.quit
end if
Dim VOL_PROD_KEY
VOL_PROD_KEY = Wscript.arguments.Item(0)
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 Err.Description, "0x" & Hex(Err.Number)
Err.Clear
end if
Next
下面的脚本是用于没有安装SP1的WinXP(ChangeVLKey2600.vbs)。
' WMI Script - ChangeVLKey2600.vbs
'
' This script changes the product key on the computer
'
'***************************************************************************
ON ERROR RESUME NEXT
if Wscript.arguments.count<1 then
Wscript.echo "Script can't run without VolumeProductKey argument"
Wscript.echo "Correct usage: Cscript ChangeVLKey.vbs ABCDE-FGHIJ-KLMNO-PRSTU-WYQZX"
Wscript.quit
end if
Dim VOL_PROD_KEY
VOL_PROD_KEY = Wscript.arguments.Item(0)
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\WPAEvents\OOBETimer" 'delete OOBETimer registry value
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
result = Obj.SetProductKey (VOL_PROD_KEY)
if err <> 0 then
WScript.Echo Err.Description, "0x" & Hex(Err.Number)
Err.Clear
end if
Next
例子：脚本使用方法
以下的例子描述了在命令行里面如何使用VBS脚本程序。
1.点击[开始]，然后点击[运行]；
2.输入C:\ChangeVLKeySp1.vbs ABCDE-ABCDE-ABCDE-ABCDE-ABCDE-ABCDE
设 ChangeVLKeySp1.vbs 放在C:根目录下
ABCDE-ABCDE-ABCDE-ABCDE-ABCDE-ABCDE 是新的序列号
以上 ChangeVLKeySp1.vbs 适用于已经安装了SP1的WinXP，没有安装SP1的 ChangeVLKey2600.vbs 的使用方法同样是这样的。
3.然后点击[确定]即可。
今天电脑时电脑提醒我说我的windows XP正版验证未通过？
不用你看懂 直接复制保存运行就好
ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscript_.arguments.count<1 then
VOL_PROD_KEY=InputBox("Powered By .cnbeta"&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
讲上面代码保存为xp.vbs运行就可以了
VB高手请进，帮忙我修改下面代码。
第一种方案：用RemoveWGA软件清除补丁.
如果你使用的是 WindowsXP ，那么在最近的 Windoes Update 之后，系统里通常会被植入一个名为 WGA
（Windows Genuine Advantage Notifications）的正版检验程序吗？这个程序会在每次系统启动时，通
过网络回报讯息给微软的网站，实在是令人好不放心。现在，你可以由 RemoveWGA 来清除它了。
RemoveWGA 是一个专门用来清除 WGA 的小程序，使用者只要通过它，就可以阻止微软的 WGA 在系统每
次启动时企图连回微软网站的动作，且使用它并不需要担心微软的正版验证机制，你还是一样能够正常
的使用 Windows Update 的功能，两者之间并没有任何冲突。
下载
第二种方案：盗版xp变正版!!!绝对有效
首先新建个文本文件，输入下面这些：
ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then VOL_PROD_KEY=InputBox("Powered By .cnbeta"&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
然后将以上文本保存为key.vbs 双击执行即可 通过XP验证
第三种方案：
当你的电脑出现此 Windows 副本未通过正版验证或 Windows 验证过程无法完成。 您可能是软件盗版的
受害者。
微软宣布将在中国推出针对Windows XP的Windows正版增值通知(WGA Notifications).Windows正版
增值通知作为一种验证工具,可以帮助用户识别他们所运行的Windows 软件是否为正版,并帮助非正
版用户取适当的行动以保护其电脑系统免受使用冒软件所带来的危害和风险.
Windows正版增值通知于2007年2月20日开始在全球陆续推出,并于2007年3月27日起在中国实施
.届时用户可通过自动更新、Windows 更新及微软下载中心获得Windows正版增值通知并选择是否安
装进行验证.
本次发布的Windows正版增值通知与先前发布的版本相比,用了新的安装向导,置入并提供
更多关于此项的工作机理以及验证结果等信息,对用户进行指导并提供更多的信息.Windows正版增值
通知发布后,用户可自愿选择是否安装Windows正版增值通知.在验证过程中,微软将提示消费者
会收集包括Windows产品密钥、产品 ID或系统 ID、制造商、版本等信息来验证Windows 副本.
验证结果主要包括三种情况:一. 用户顺利通过验证;二. 无法通过验证,用户可能是冒伪劣软
件的受害者;三. 因为信息不足无法确定Windows副本是否为正版软件.
当用户通过验证时,系统不会出现任何异样,用户可继续享受正版微软软件所带来的价值.当用户无
法通过验证时,用户在之后登录 Windows XP 账户时会出现“您可能是软件盗版的受害者”的对话框,用
户可以根据对话框提示选择“立即解决”或“以后解决”;系统托盘也将会间歇性地弹出“通知”气球提
示用户,用户也可以选择关闭此项讯息提示.(会一直骚扰到你抓狂)如用户需要了解更信息,可以直接链接
到Windows 正版增值验证失败网页,获取更多关于正版Windows软件信息.由于收集信息不足无法确认
Windows 副本是否为正版软件时,微软将向用户提供出现此情况的详细信息及解决此问题的步骤.
解决方法如下：
第四种方案：删除wgatray气球通知
删除方法1：
(1)：关闭内存中的wgatray.exe进程
(2)：到system32目录下把wgatray.exe改名为wgatray1.exe；把wgalogon.dll改名为wgalogon1.dll，重
起电脑就不会有那个提示了
删除方法2:
网上流传在控制面板的添加删除程序中可以卸载，其实在这里根本不能卸载，在进程中也不能中止(进程
名是wgatray.exe)，在注册表中也搜不到相关wgatray.exe的项，但在仔细地搜索了注册表后，还是找到
了这个的可恶东西。HKEY_LOCAL_MACHINE\SOFTWARE\microsoft\Windows
NT\CurrentVersion\Winlogon\Notify\WgaLogon，删除它，重新启动(一定要重起要不然删不了C盘的文
件)，wgatray.exe就不会自动启动了，再把C:\windows\system 32中的wgatray.exe删除，再搜索一下，
在另外的文件夹下还有，统统删除，重起.然后再进HKEY_LOCAL_MACHINE\SOFTWARE\microsoft\Windows
NT\CurrentVersion\Winlogon\Notify\WgaLogon，删除它终于OK了。下次记得不要再更新了！
还是删不了的请继续看：
（首先重启你的计算机，进入安全模式，登陆管理员帐号－－保证你拥有进入Windows\system32以及
Windows\system32\dllcache路径的权限。在这两个路径下均有一个名为WGATray.EXE的文件。你必须将
两个路径下的WGATray.EXE均删除－－这将阻止Windows在启动时弹出“盗版XP”气球。
在删除Windows\system32下的WGATray.EXE可能需要一点技巧：
步奏一：WGATray.EXE图标-->右键-->删除-->出现删除确认框后先不要按‘确定’按钮
步奏二：Ctrl+Alt+Del-->打开进程管理器-->找到WGATray.EXE-->删除-->出现删除确认框后先不要按‘
确定’按钮
步奏三：先按打开进程管理器的删除确认键，然后用最快速度按步奏一的删除确认键。
步奏四：如果Windows\system32下的WGATray.EXE不会出现，代表操作成功。继续删除
Windows\system32\dllcache下的WGATray.EXE。）
第五种方案：用CD-key替换器。
下载地址：://.fzpchome/Soft/bbsoft/200703/208.html。软件介绍：CD-key替换器，让所
有用户用上ie7，wmp11，享受安全更新，D版用户福音
(首些找一个正版的CD-KEY：MRX3F-47B9T-2487J-KWKMF-RPWBY（这个我用过，可以的），花您五分钟加
重启。
点击 “开始”=>“运行”
在运行中输入“regedit”，完成后点击“确定”
进入注册表编辑器后，选择“编辑”=>“查找”
在“查找目标”中输入“OOBETimer”，完成后点击“查找下一个” （找不到？）
正在查找，请您稍等……
找到OOBETimer！
对着它点击右键选择“修改二进制数据”
在“数值数据”中，至少修改一个字节（即任意一个英文字母或数字），如把FF改为F2等。之后点击“
确定”
完成后退出注册表
单击开始 => 运行
输入%systemroot%\system32\oobe\msoobe.exe /a
选择通过电话激活以后点击下一步
点击“更改产品密钥”
输入新的产品密钥以后选择“更新”
然后选择以后提醒我
重启计算机
这样就完完全全的成为正版用户了。微软在线更新、正版增值等等，只有正版用户才能享受的待遇
windows sp3 序列号
On Error Resume Next
Dim VOL_PROD_KEY As String
If Len(Command) < 1 Then
VOL_PROD_KEY = InputBox("本程序能帮助您更换 WindowsXP 的序列号。" & vbCr & vbCr & "序列号由您自己寻找并输入。下面列出的不一定是您当前用的序列号，仅作格式参考。" & vbCr & vbCr & "请输入新的序列号：", "WindowsXP序列号更换器 by island", "MRX3F-47B9T-2487J-KWKMF-RPWBY")
If VOL_PROD_KEY = "" Then
End
End If
Else
VOL_PROD_KEY = Command
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
MsgBox "修改成功。请点击附带的网址到微软网站进行验证。祝您好运！"
End If
If Err <> 0 Then
MsgBox "替换失败！您输入的序列号有误。"
Err.Clear
End If
Next
vbs脚本文件+key激活
MRX3F-47B9T-2487J-KWKMF-RPWBY
HCQ9D-TVCWX-X9QRG-J4B2Y-GR2TT
DP7CM-PD6MC-6BKXT-M8JJ6-RPXGJ
MRX3F-47B9T-2487J-KWKMF-RPWBY
QC986-27D34-6M3TY-JJXP9-TBGMD
新建文本文件，然后把下面的拷贝进去，保存，把扩展名改成vbs 双击打开然后把激活码填进去，就可以了，ls给的几个是工商银行的还有台湾一些企业和学校的，流传的很广，一般情况下微软是不会被封的
ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("本程序能帮助您更换 WindowsXP 的序列号。"&vbCr&vbCr&"序列号由您自己寻找并输入。下面列出的不一定是您当前用的序列号，仅作格式参考。"&vbCr&vbCr&"请输入新的序列号：","WindowsXP序列号更换器 by donghai","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 "修改成功。请点击附带的网址到微软网站进行验证。祝您好运！"
end if
if err <> 0 then
Wscript.echo "替换失败！您输入的序列号有误。"
Err.Clear
end if
Next
