主题
最后登录1970-1-1
回帖0
精华
积分766
威望
RP
金钱 柯币
人气 ℃
注册时间2005-10-14
|
[CENTER] [/CENTER]
以下各CD-KEY均己通过微软2006年3月15日的正版验证
为了更好的为大家服务,请不要大肆传播序列号
以上序列号均可用。(感谢中天论坛的追梦人2006)
CM3HY-26VYW-6JRYC-X66GX-JVY2D
DP7CM-PD6MC-6BKXT-M8JJ6-RPXGJ
F4297-RCWJP-P482C-YY23Y-XH8W3
HH7VV-6P3G9-82TWK-QKJJ3-MXR96
HCQ9D-TVCWX-X9QRG-J4B2Y-GR2TT
QC986-27D34-6M3TY-JJXP9-TBGMD
MRX3F-47B9T-2487J-KWKMF-RPWBY
[LEFT]另附原创的软件:VLK序列号更换器[/LEFT]
下载地址:
分流点1
相关于上面那个更换器
采用VBS脚本编辑
需要VBS脚本编辑器
下面是原代码
刚刚学习的VBS,如有不足,请多指教。
------------------------------
ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("银色海豚制作&" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK):","海豚工作室----银色海豚 WinXP序列号自动更换器","输入您所需更换的序列号")
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~,请找微软试试WGA吧!"
end if
if err <> 0 then
Wscript.echo "替换失败!输入的 CD-KEY 与当前的版本不匹配。"
Err.Clear
end if
Next
------------------------------
如果有需要自己制作,只需要用记事本保存上面代码为VBS即可,代码中的文字可自己替换
[LEFT]
[/LEFT] |
|