Dim VOL_PROD_KEY
if Wscri pt.arguments.count<1 then
VOL_PROD_KEY=InputBox("使用说明(OEM版无效)："&vbCr&vbCr&" 本脚本程序将修改当前 Windows 的序列号。请选择一个微软授权正版Windows 的序列号，复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK)：","Windows XP SP1/SP2/2003 序列号更换工具","MRX3F-47B9T-2487J-KWKMF-RPWBY")
if VOL_PROD_KEY="" then
Wscri pt.quit
end if
else
VOL_PROD_KEY = Wscri pt.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
Wscri pt.echo "OK,青松祝贺你序列号更换成功!去微软验证吧。"
end if
if err <> 0 then
Wscri pt.echo "修改失败！请检查输入的 CD-KEY 是否与当前 Windows 版本相匹配。"
Err.Clear
end if
全部回复（5 ）
只看楼主 我来说两句-
feng12366sdgf
沙发
教大家自制"验证XP是否正版"批处理,打开(开始-所有程序-附件-记事本)把如下代码（红色部分）复制到记事本,之后另存为文件名为"验证XP是否为正版.hta",保存类型选择"所有文件"即可.（后缀一定要为.hta）点我直接下载.
2008-06-02 17:40:02
赞同0
-
feng12366sdgf
板凳
2008-06-02 17:39:02
赞同0
加载更多<html>
<head>
<title>验证XP是否为正版</title>
<meta name="robot" content="noindex, nofollow">
<scri pt language="javascri pt" src="/genuine/static/js/CommonFunctions.js"></scri pt>
<HTA:APPLICATION ID="oLegitCheck"
APPLICATIONNAME="LegitCheck"
BORDER="dialog"
CAPTION="yes"
NAVIGABLE="yes"
SHOWINTASKBAR="yes"
SINGLEINSTANCE="yes"
SYSMENU="yes"
WINDOWSTATE="normal" VERSION="1.0" SCROLL="no"/>
<scri pt language="javascri pt">
var nextPage = ’validate’;
var appWidth = 650;
var appHeight = 500;
var appLeft = window.screen.availWidth/8;
var appTop = window.screen.availHeight/8;
window.resizeTo(appWidth,appHeight);
window.moveTo(appLeft,appTop);
function AssignURL()
{
if (nextPage == "order")
{
if (2 == "1")
{
iframeHTA.location = "https://catalog.microsoft.com/genuine/purchase/ComponentCheck.aspx?displaylang=zh-cn&sGuid=ad63b6b9-a496-4438-97ef-f27bed97ee8a&nav=hta";
}
else
{
iframeHTA.location = "https://catalog.microsoft.com/genuine/purchase/ComponentCheck.aspx?displaylang=zh-cn&sGuid=ad63b6b9-a496-4438-97ef-f27bed97ee8a&nav=hta";
}
}
else if (nextPage == "purchaseInfo")
{
iframeHTA.location = "https://catalog.microsoft.com/genuine/purchase/ComponentCheck.aspx?displaylang=zh-cn&sGuid=ad63b6b9-a496-4438-97ef-f27bed97ee8a&nav=hta";
}
else if (nextPage == "validate")
{
iframeHTA.location = "http://www.microsoft.com/genuine/downloads/validate.aspx?displaylang=zh-cn&sGuid=ad63b6b9-a496-4438-97ef-f27bed97ee8a&nav=hta";
}
else
{
iframeHTA.location = "http://www.microsoft.com/genuine/downloads/OEMValidate.aspx?displaylang=zh-cn&sGuid=ad63b6b9-a496-4438-97ef-f27bed97ee8a&nav=hta";
}
}
</scri pt>
</head>
<body "AssignURL()" leftmargin="0" topmargin="0" rightmargin="0" bottommargin="0">
<iframe id="iframeHTA" name="iframeHTA" width="100%" height="100%" APPLICATION="yes" src="/genuine/static/images/clear.gif"></iframe>
</body>
</html>
回复 举报
教大家两种手动解除微软盗版锁定(出现了蓝色五角星的)方法:
手动解除星号锁定方法一：
(1)：关闭内存中的wgatray.exe进程。（打开进程列表方法：开始-运行-taskmgr）
(2)：到C:\WINDOWS\system32目录下把wgatray.exe改名为wgatray1.exe；把wgalogon.dll改名为wgalogon1.dll，重起电脑就不会有那个提示了!(注：可以用搜索功能查找相就文件)
手动解除星号锁定方法二：
打开注册表(开始----运行----输入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，删除它（和第一次的操作相同），至此问题解决!
还是删不了的请继续看：
（首先重启你的计算机，进入安全模式，登陆管理员帐号－保证你拥有进入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。）
微软正版认证离线包说明:
已经顺得通过微软正版验证(如上图)
附:教大家自制"XP_VLK序列号更换器",打开(开始-所有程序-附件-记事本)把如下代码（红色部分）复制到记事本,之后另存为文件名为"XP_VLK序列号更换器.vbs"保存类型选择"所有文件"即可.（后缀一定要为.vbs）
ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscri pt.arguments.count<1 then
VOL_PROD_KEY=InputBox("使用说明(OEM版无效)："&vbCr&vbCr&" 本脚本程序将修改当前 Windows 的序列号。请选择一个微软授权正版Windows 的序列号，复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK)：","Windows XP SP1/SP2/2003 序列号更换工具","MRX3F-47B9T-2487J-KWKMF-RPWBY")
if VOL_PROD_KEY="" then
Wscri pt.quit
end if
else
VOL_PROD_KEY = Wscri pt.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
Wscri pt.echo "OK,青松祝贺你序列号更换成功!去微软验证吧。"
end if
if err <> 0 then
Wscri pt.echo "修改失败！请检查输入的 CD-KEY 是否与当前 Windows 版本相匹配。"
Err.Clear
end if
Next
回复 举报