- 威望
- 33
- 在线时间
- 14 小时
- 金币
- 41
- 贡献
- 0
- 存款
- 0
- 最后登录
- 2009-10-23
- 注册时间
- 2008-4-24
- 帖子
- 35
- 精华
- 0
- 积分
- 86
- 阅读权限
- 10
- UID
- 784

- 金币
- 41
- 贡献
- 0
- 威望
- 33
- 最后登录
- 2009-10-23
- 帖子
- 35
- 积分
- 86
- UID
- 784
|
盗版XP变正版的方法(网上转贴)
* A8 }2 F3 m- O0 u# s v8 k过几天微软公司就要正式 进行打击盗版的活动了,在这里,介绍一个方法让大家躲开,并且盗版变正版,保证可行。
/ j% k7 x5 _8 F& b& t' T* C; r- Q( J, y4 a1 p
有个让人讨厌的正版验证补丁(俗称五角星) 。
. r# K2 t1 R1 x# q r今天,我就叫大家怎样通过他的验证。
* \1 D; t3 u% D* K; m1 n首先,在桌面上创建一个txt文档(好像这玩意啥也能干啊!) 4 R2 P1 A8 u5 s @8 N7 V. _
打开,在里面输入: 7 {0 I6 c8 u9 @% U3 s
ON ERROR RESUME NEXT
h$ [' e" w0 B7 C. y% D
" x+ I/ U9 t" Z4 b B6 s5 q5 ?0 `% }Dim VOL_PROD_KEY . U7 ]( r% ] P$ v& n6 q
if Wscript.arguments.count<1 then
6 ~2 {: k! K/ B& j& l% IVOL_PROD_KEY=InputBox("Powered By www.zs128.com"&vbCr&vbCr&" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK):","Windows XP序列号自动更换器","MRX3F-47B9T-2487J-KWKMF-RPWBY") & J$ }7 v) u2 @( b0 [: F* X
if VOL_PROD_KEY="" then ! b# w4 v: }+ r( F8 F
Wscript.quit
- p. G! H Z G: r2 {+ d) B2 nend if
2 s8 z) l: E8 r7 @3 telse * U* u* g5 a- T2 o( N) v7 U! Z
VOL_PROD_KEY = Wscript.arguments.Item(0) , D# P9 g' P$ n L$ }2 o+ @
end if 3 K8 q! x3 w) q( E7 C8 I$ s% C
) Q- A/ S! b* a" N8 A) l0 XVOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any 6 C' M- W9 y/ T: y ]
' Z" P5 F% H9 E" v5 Y" R& o- u: N
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
3 O v! G5 b1 B& j
1 R! T% p" w" s% Hresult = Obj.SetProductKey (VOL_PROD_KEY)
3 M F% U/ |, z- [2 ]! e x# V2 E: y! O7 t$ F: E( O8 W: ]
if err = 0 then $ Q( D& P8 T- J) O
Wscript.echo "恭喜您,xp是正版的了@pple!"
) p. i0 k6 @. L% B( w4 c6 W8 Wend if
4 e( a. K4 m% P% O6 e" W+ n
- E/ I9 V; t6 I- o8 ?if err <> 0 then 7 J0 d5 P# A: V& q, l
Wscript.echo "替换失败!输入的 CD-KEY 与当前的版本不匹配。" " Y% j0 ~: `1 D* e% \2 c% X5 @
Err.Clear
: F9 {' Z+ Y0 n: xend if 7 e* f1 r! w3 C, l
) \8 M; g3 W. D! fNext
# J1 V" ~4 B W8 k& P- |6 X+ h. B( ]! w5 I; Q
保存,关闭(包括next啊)
5 L- H- U8 J3 q8 p4 I把文件名替换成key.vbs
0 T9 v- r' M+ i: W如果变成这样:
1 ?( q6 Q1 m# J# o3 Z就算成功了,等等,有些同志问了,为什么我改变名字会出现双后缀情况呢?(自己解决) , j! E% D. R6 L' e: |, e* s0 j/ S
回到正题,创建好文件双击,确定。
, m( `0 S# F5 w% O好了,赶快去验证吧! ; d( G5 c, r6 q5 [
验证地址:http://www.microsoft.com/genuine/default.aspx?displaylang=zh-cn 7 n/ l# O" w' i" R) k) L0 D6 o
1 `5 w0 G5 b# @不会搞的也可以直接下载附件,解压后双击就可以了。 |
|