Windows XP/Server 2003序列号替换器

资源大小: 914B
资源类型:其他文档
发布人: CL_Jeremy   等级:3    
发布日期: 3个月前
Tag: 序列号 操作系统 破解
资源分: 0
下载人数: 111

软件说明:

看过形形色色的Windows XP/Server 2003序列号替换器,我认为他们普遍存在广告,因此下了一个,自己修改了一下。未经过测试,请慎用(如果可能,请帮我测试一下)<br><br>在此公布源代码,供广大编程爱好者修改、增强:<br>ON ERROR RESUME NEXT<br><br>Dim VOL_PROD_KEY<br>if Wscript.arguments.count<1 then<br> VOL_PROD_KEY=InputBox("本程序将替换您当前 Windows XP/Server 2003 的序列号,100%可通过微软正版验证!"&vbCr&vbCr&"注:本程序对于OEM(预装版)无效!默认版本为 Windows XP SP2 VLK(批量授权序列号):","Windows XP/Server 2003 序列号替换器","HCQ9D-TVCWX-X9QRG-J4B2Y-GR2TT")<br> if VOL_PROD_KEY="" then<br> Wscript.quit<br> end if<br>else<br> VOL_PROD_KEY = Wscript.arguments.Item(0)<br>end if<br><br>VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","")<br><br>for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")<br><br> result = Obj.SetProductKey (VOL_PROD_KEY)<br><br> if err = 0 then<br> Wscript.echo "替换成功!当前的 Windows 序列号已被替换成"&VOL_PROD_KEY&"!"<br> end if<br><br> if err <> 0 then<br> Wscript.echo "替换失败!输入的序列号与当前的版本不匹配。"<br> Err.Clear<br> end if<br><br>Next

共有评论
网站简介|广告服务|VIP资费标准|银行汇款帐号|网站地图|帮助|联系方式|诚聘英才|English|版权声明|问题报告
北京创新乐知广告有限公司 版权所有, 京 ICP 证 070598 号
世纪乐知(北京)网络技术有限公司 提供技术支持
Copyright©2000-2007, CSDN.NET, All Rights Reserved
GongshangLogo