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 )
只看楼主 我来说两句<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
回复 举报