教大家自制"XP_VLK序列号更换器
教大家自制"XP_VLK序列号更换器教大家自制"XP_VLK序列号更换器",打开(开始-所有程序-附件-记事本)把如下代码复制到记事本,之后另存为文件名为"XP_VLK序列号更换器.vbs"保存类型选择"所有文件"即可.（后缀一定要为.vbs） 复制内容到剪贴板 代码:ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscript.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
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 是否与当前 Windows 版本相匹配。"
Err.Clear
end if
Next
教大家自制"验证XP是否正版"批处理,打开(开始-所有程序-附件-记事本)把如下代码复制到记事本,之后另存为文件名为"验证XP是否为正版.hta",保存类型选择"所有文件"即可.（后缀一定要为.hta） 复制内容到剪贴板 代码:<html>
<head>
<title>验证XP是否为正版</title>
<meta name="robot" c>
<script language="javascript" src="/genuine/static/js/CommonFunctions.js"></script>
<HTA:APPLICATION ID="oLegitCheck"
APPLICATI
BORDER="dialog"
CAPTION="yes"
NAVIGABLE="yes"
SHOWINTASKBAR="yes"
SINGLEINSTANCE="yes"
SYSMENU="yes"
WINDOWSTATE="normal" VERSION="1.0" SCROLL="no"/>
<script language="javascript">
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";
}
}
</script>
</head>
<body 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>
教大家自制"XP_VLK序列号更换器",打开(开始-所有程序-附件-记事本)把如下代码复制到记事本,之后另存为文件名为"XP_VLK序列号更换器.vbs"保存类型选择"所有文件"即可.（后缀一定要为.vbs） 复制内容到剪贴板 代码:ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscript.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
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 是否与当前 Windows 版本相匹配。"
Err.Clear
end if
Next
教大家自制"验证XP是否正版"批处理,打开(开始-所有程序-附件-记事本)把如下代码复制到记事本,之后另存为文件名为"验证XP是否为正版.hta",保存类型选择"所有文件"即可.（后缀一定要为.hta） 复制内容到剪贴板 代码:<html>
<head>
<title>验证XP是否为正版</title>
<meta name="robot" c>
<script language="javascript" src="/genuine/static/js/CommonFunctions.js"></script>
<HTA:APPLICATION ID="oLegitCheck"
APPLICATI
BORDER="dialog"
CAPTION="yes"
NAVIGABLE="yes"
SHOWINTASKBAR="yes"
SINGLEINSTANCE="yes"
SYSMENU="yes"
WINDOWSTATE="normal" VERSION="1.0" SCROLL="no"/>
<script language="javascript">
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";
}
}
</script>
</head>
<body 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>
转载狂人论坛
