|
|
使用下面的压缩包里的key.vbs文件，运行一下即可解决“盗版”问题
谢谢 鲈鱼的提示——不过，鲈鱼的“文字”好像有些“误差”，不能实现。
下面的“文字”是另外搜索到的——已经实践，解决了“问题”！
****************************************************
ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("Powered By www.cnbeta.com"&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
********************************************************************
[ 本帖最后由 wxfhw 于 2007-12-12 21:57 编辑 ] |
本帖子中包含更多资源
您需要 登录 才可以下载或查看，没有账号？注 册
x
|
IP卡
狗仔卡
显身卡
要求17号之前到达 但是这次在济南机场已经被扣下 再发航空件肯定不中 发货运又怕时间不够 
先是电池说3个小时10分谁知只能用1个半小时左右，（别说本子的磕痕掉漆一大片），接着换电池加无线网卡，从8号发到今天13号，又被别人扣下！
