找回密码
 加入华同
搜索
黄金广告位联系EMAIL:[email protected] 黄金广告[email protected]
查看: 1613|回复: 8

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

[复制链接]
发表于 2008-3-8 14:34:58 | 显示全部楼层 |阅读模式
把此段代码保存为*.vbs,运行后输入正版序列号,可过任何微软验证,很简单; l+ z  v$ M$ v9 h3 E. N" A. h3 y
' 1 V" M2 D/ }4 h5 q$ I
' WMI Script - ChangeVLKey.vbs
+ h# ]3 X. V8 B7 U' r! F. r'  H; B. ]- K7 L8 y
' This script changes the product key on the computer (XP SP1 SP2 2003)* s" d* n6 ]9 z! O4 `* J9 n4 `3 t
'
/ M- n# i5 V) x0 ~' Made by ythggyth.
4 ?4 i9 D, k  m9 J. h2 K8 J'***************************************************************************
, Q3 B4 L/ p0 l8 t( ]
* K! @8 k9 [4 E. x, @" Q; Q0 uON ERROR RESUME NEXT
) M( _# m) E  {& H7 w& ~* Q9 b$ g& Q
Dim VOL_PROD_KEY
, Z5 q. Y5 v" F, W! x- \$ f: Vif Wscript.arguments.count<1 then
* J7 u% }0 h# c! K, }* ^6 S: T+ {VOL_PROD_KEY=InputBox("使用说明(OEM版无效):"&vbCr&vbCr&" 本脚本程序将修改当前 Windows 的序列号。请选择一个微软授权正版Windows 的序列号,复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK):","Windows序列号更换工具","在此输入序列号"): ]6 e' T  W1 @% c
if VOL_PROD_KEY="" then
7 q' s' b- V  R; f" YWscript.quit
. Q7 U$ u5 O: v) Vend if) d. Y: R! A, [
else+ ]1 u* d4 P9 V" J7 C
VOL_PROD_KEY = Wscript.arguments.Item(0); [9 G) |& W1 _! t/ q
end if
  p. L% m$ o- o/ k6 D# O, [4 Q5 x6 R$ q+ w* x- h
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any$ n8 M8 h) d. @- ~  j4 v2 b

$ D2 B0 z3 z7 w0 A8 b: ifor each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")0 u8 j6 ?0 H: X9 }
( ]- }  S7 o" @: A: N; t
result = Obj.SetProductKey (VOL_PROD_KEY)
$ q( X" p# C0 h! S1 r2 P- H
* r2 v0 N4 G. |. D' Z+ hif err = 0 then
& X4 m! R9 ^- AWscript.echo "序列号改完啦!。看一下系统属性。"3 \+ N* C* f# A) Z. w1 j- c5 W
end if% f. W& `+ p4 O) r9 o! F: b

3 p2 @7 H! y( C* vif err <> 0 then5 m- u9 a, ?. x  n) L
Wscript.echo "不对!你把序列号弄错了。"
, K% E# Q7 d3 \3 A! Y) HErr.Clear
. z% d6 \* f3 |end if; e  j4 W. r- S: G6 q9 V0 b; g

. h" |  S; ^* A( nNext
$ O3 L3 _: Q; m8 w  }0 V" J' w+ e/ w$ }( z" }2 B; N2 y5 j9 v
Windows XP Pro SP2 VLK 微软授权正版序列号
. ]# i0 l! N3 [$ m" [HH7VV-6P3G9-82TWK-QKJJ3-MXR96 640
# t6 y( f2 {5 @F4297-RCWJP-P482C-YY23Y-XH8W3 640) C& `+ s  s/ B
MRX3F-47B9T-2487J-KWKMF-RPWBY 640
: M! w1 e( |% H% w5 i. AQC986-27D34-6M3TY-JJXP9-TBGMD 640
发表于 2008-3-9 06:12:48 | 显示全部楼层
还是不懂,说清楚点啊.
回复

使用道具 举报

发表于 2008-3-12 19:52:28 | 显示全部楼层
看不懂呀,楼主,解释清楚一点吧
回复

使用道具 举报

发表于 2008-3-13 16:08:39 | 显示全部楼层
原帖由 宇宙星空 于 2008-3-12 19:52 发表 8 h9 B3 L/ C# v( P
看不懂呀,楼主,解释清楚一点吧

6 C0 b! U: P$ j3 y::70::
回复

使用道具 举报

发表于 2008-3-15 19:53:32 | 显示全部楼层
直接下个序列号更改器比这个方便
回复

使用道具 举报

发表于 2008-3-20 23:19:18 | 显示全部楼层
我看不懂啊,我是说是盗版的还真是郁闷啊
回复

使用道具 举报

发表于 2008-4-7 10:09:56 | 显示全部楼层
有没有用,顶一下吧。
回复

使用道具 举报

发表于 2008-4-7 20:42:29 | 显示全部楼层
试验过了,不灵啊,
回复

使用道具 举报

发表于 2008-5-29 02:16:54 | 显示全部楼层
真是不明白,你这个vbs脚本用什么运行啊?
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 加入华同

本版积分规则

Archiver|手机版|小黑屋|华人同志

GMT+8, 2024-12-28 05:48 , Processed in 0.070780 second(s), 5 queries , Redis On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表