输入正版序列号让你的系统成为正版

bigmanbig

把此段代码保存为*.vbs，运行后输入正版序列号，可过任何微软验证，很简单
7 I6 z5 }& B0 M$ _5 \# X9 X'
' WMI Script - ChangeVLKey.vbs
, u% ?- b, G( ], r4 s3 U6 X7 |'
' This script changes the product key on the computer (XP SP1 SP2 2003)
0 v5 p" ~9 r2 O) p. g' E* t'
) [5 v, n2 q& }# N! o8 O' Made by ythggyth.
'***************************************************************************

+ F2 v$ f0 T" l. xON ERROR RESUME NEXT

Dim VOL_PROD_KEY
! }$ @% M0 w% ~; f" gif Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("使用说明(OEM版无效)："&vbCr&vbCr&" 本脚本程序将修改当前 Windows 的序列号。请选择一个微软授权正版Windows 的序列号，复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK)：","Windows序列号更换工具","在此输入序列号")
4 A1 X/ f. H/ Mif VOL_PROD_KEY="" then
Wscript.quit
end if
else
VOL_PROD_KEY = Wscript.arguments.Item(0)
" I7 K0 T* T6 send if
4 ~1 F+ b4 }) H% D) Y1 R8 n2 t
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
1 H; v3 E& t4 l  Z6 O% T7 C/ O7 w
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
+ @( i: `* n6 \5 N# s
result = Obj.SetProductKey (VOL_PROD_KEY)

$ H! Z  r7 a' Y8 u% i! G1 Uif err = 0 then
Wscript.echo "序列号改完啦！。看一下系统属性。"
# W4 b0 a6 r& C# p: z! A: h) hend if
! P% B: H& t2 h- T
  t& @/ c2 u6 k3 s1 wif err <> 0 then
Wscript.echo "不对！你把序列号弄错了。"
Err.Clear
2 ^4 N, j3 b# Z, Z" P% K7 bend if

! d' [0 q2 i# a: }& T' G; L  y  XNext

5 h  v- j3 I( w: \$ WWindows XP Pro SP2 VLK 微软授权正版序列号
HH7VV-6P3G9-82TWK-QKJJ3-MXR96 640
  Q2 |% k8 N0 I+ H6 W2 HF4297-RCWJP-P482C-YY23Y-XH8W3 640
MRX3F-47B9T-2487J-KWKMF-RPWBY 640
8 }7 I/ v3 A" p+ r# C0 Y% LQC986-27D34-6M3TY-JJXP9-TBGMD 640

hjp686

还是不懂,说清楚点啊.

宇宙星空

看不懂呀,楼主,解释清楚一点吧

shangguan

原帖由 宇宙星空 于 2008-3-12 19:52 发表
2 A4 ~) x, R2 I; G! H5 B看不懂呀,楼主,解释清楚一点吧

::70::

小P的妈妈

直接下个序列号更改器比这个方便

司徒寒

我看不懂啊，我是说是盗版的还真是郁闷啊

zygzwu

有没有用，顶一下吧。

hawkboy

试验过了，不灵啊，

manlove

真是不明白，你这个vbs脚本用什么运行啊？