- 威望
- 33
- 在线时间
- 14 小时
- 金币
- 41
- 贡献
- 0
- 存款
- 0
- 最后登录
- 2009-10-23
- 注册时间
- 2008-4-24
- 帖子
- 35
- 精华
- 0
- 积分
- 57
- 阅读权限
- 20
- UID
- 784
- 威望
- 33
- 在线时间
- 14 小时
- 金币
- 41
- 贡献
- 0
- 存款
- 0
- 最后登录
- 2009-10-23
- 注册时间
- 2008-4-24
- 帖子
- 35
- 精华
- 0
- 积分
- 57
- 阅读权限
- 20
- UID
- 784
|
盗版XP变正版的方法(网上转贴)
5 I( q( @* b g q过几天微软公司就要正式 进行打击盗版的活动了，在这里，介绍一个方法让大家躲开，并且盗版变正版，保证可行。1 c3 E, A% }1 I) e
/ Z: M" c) }" \5 V& R. X有个让人讨厌的正版验证补丁（俗称五角星） 。 - a, W1 k* U# y+ s2 \
今天，我就叫大家怎样通过他的验证。
; u& g/ B; t! y2 I8 o- m首先，在桌面上创建一个txt文档（好像这玩意啥也能干啊！）
`& R9 t' h8 D6 u打开，在里面输入： q& F- B- X( O* [: Q
ON ERROR RESUME NEXT
$ v" H9 J4 U" D
- B& X* `% `& s# }' X( \Dim VOL_PROD_KEY + b' d" Z4 P, g9 `5 F$ M3 r
if Wscript.arguments.count<1 then
2 G( ` K7 e( n/ o( TVOL_PROD_KEY=InputBox("Powered By www.zs128.com"&vbCr&vbCr&" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK)：","Windows XP序列号自动更换器","MRX3F-47B9T-2487J-KWKMF-RPWBY")
; i/ \/ z: f0 g3 x4 fif VOL_PROD_KEY="" then # t% x$ T! _9 x; c/ r
Wscript.quit 7 d9 \/ O% m# C% a
end if
% D. N* ~3 I/ _9 i% welse 2 l7 h0 ?1 M, I1 E3 i6 L1 I
VOL_PROD_KEY = Wscript.arguments.Item(0)
/ ^& U$ I4 e: k _' U( J; g$ Nend if p( Z7 k. j8 W5 U% s9 E
- V4 {1 _3 n: I6 T8 a
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
+ R+ e: R7 d: c, q( }! O6 z' x# J; B2 F
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation") - O: T- ~/ M2 w, t7 Y' G2 Q3 }
$ H! U5 b$ L: i8 }
result = Obj.SetProductKey (VOL_PROD_KEY) 7 I- ~+ X4 f0 H$ U N7 Y
. K2 T" \0 H" J; D1 Z
if err = 0 then $ n% C4 P" Z8 c* u2 \+ ~
Wscript.echo "恭喜您，xp是正版的了@pple！" 9 c. A: N: Y- }) @! s1 S A' l. [0 q
end if # {! v9 [# s& r; o' o, O& H! _
5 n( e$ t6 P0 W* ^/ C
if err <> 0 then 8 c' y3 I( s, h) A3 U
Wscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。"
9 g- l; l4 w; @9 K6 f( X. SErr.Clear
( a/ x" b1 Z, J L/ A6 q6 }end if
( j9 w. M: F( t% q, }9 B4 O6 e9 }- m, N, e$ n! x; U! |! i! M
Next & h4 e8 z5 @' D/ p/ _$ o# }- k
) O& a3 \# I1 K- M# {0 p
保存，关闭(包括next啊） ! [/ D" m' i [ Y% A
把文件名替换成key.vbs
7 U( }. \0 o& a0 Q# r' f如果变成这样： " G6 \) Q% A) P
就算成功了，等等，有些同志问了，为什么我改变名字会出现双后缀情况呢？(自己解决）
X* T" m. I5 V% }/ i; P$ K回到正题，创建好文件双击，确定。
0 Y ?' I& D1 B% \/ Z9 s3 d好了，赶快去验证吧！ + e" s7 w- x z! ]. n7 D- E
验证地址:http://www.microsoft.com/genuine/default.aspx?displaylang=zh-cn 7 G" F* s: T' }5 S6 G$ t# S: W9 q
' c8 ]$ K- |; w, o0 Y
不会搞的也可以直接下载附件，解压后双击就可以了。 |
|
发表于 2008-10-17 17:54:15
分享
收藏
发表于 2008-10-18 03:18:27