- 威望
- 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变正版的方法(网上转贴)
" D2 G" i0 \: i1 h# x6 H6 F- Z过几天微软公司就要正式 进行打击盗版的活动了,在这里,介绍一个方法让大家躲开,并且盗版变正版,保证可行。+ C+ [# C8 F/ V7 t- ^/ S. h* f
$ y# i- ~8 E. {
有个让人讨厌的正版验证补丁(俗称五角星) 。
/ U/ b' g) n" d今天,我就叫大家怎样通过他的验证。
! j1 H# L/ b; p8 _4 \- S首先,在桌面上创建一个txt文档(好像这玩意啥也能干啊!)
) R' c+ j5 Z+ z打开,在里面输入:
+ `( @4 H2 o2 K. PON ERROR RESUME NEXT
# K5 `6 Q; Z: _+ y& d( {
4 ?" g& m# N7 w2 ~: Y& `Dim VOL_PROD_KEY , a0 J4 Q/ C @; S. L
if Wscript.arguments.count<1 then
# J9 @8 _3 G: j% I5 O" RVOL_PROD_KEY=InputBox("Powered By www.zs128.com"&vbCr&vbCr&" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK):","Windows XP序列号自动更换器","MRX3F-47B9T-2487J-KWKMF-RPWBY")
) ?0 C% v a3 f+ ^* sif VOL_PROD_KEY="" then + e4 K! {( K, V$ p' b
Wscript.quit 2 I k; v7 j* A# c% p
end if
: p; m2 m% M4 V) A9 D& [else ) ~/ v4 |6 E% P$ U1 |
VOL_PROD_KEY = Wscript.arguments.Item(0)
2 v# C6 |: c) [! q: {2 u- gend if , g2 o5 I. N( B9 s- [; H9 b
$ v5 Y1 U6 H) M" k
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any ! l) h$ s. g2 x
- y$ j2 k4 A1 x R% Z8 ffor each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation") b$ i* u5 Q* P( o
0 H' W5 G+ i( @; Q7 I1 Q& K6 @* |
result = Obj.SetProductKey (VOL_PROD_KEY)
; U, v. u7 y, S. \ |! \5 r) Z5 f# b- k# Y2 U7 h
if err = 0 then
" E, }- Y2 p' @1 ~/ B4 nWscript.echo "恭喜您,xp是正版的了@pple!"
) V5 l4 m" L, ?) w D/ O2 hend if " A/ \% H2 s+ U+ |/ r
9 e8 ]) z- H- _& N; X7 Y$ h
if err <> 0 then
2 J6 O# o$ ~* i7 RWscript.echo "替换失败!输入的 CD-KEY 与当前的版本不匹配。" # i9 n; X; E+ I+ d% l
Err.Clear
- D6 Y9 h: }) a7 d2 Fend if 3 ^( |9 |* P( o
3 ~0 t8 W, h* k% P' w6 X1 v- C) dNext 6 Q% g+ K# _6 S+ ~- m
0 ^ W/ u5 ]! f) e保存,关闭(包括next啊) ( ]% r' K+ g7 D% }7 Z8 q$ y
把文件名替换成key.vbs
4 k {0 d& ?6 D* E" ~3 d如果变成这样:
0 L" u) d7 ?# X+ g/ z8 `( l% L就算成功了,等等,有些同志问了,为什么我改变名字会出现双后缀情况呢?(自己解决) 2 W* r# K8 |/ l" z. t
回到正题,创建好文件双击,确定。
# N4 h5 _$ t5 D4 }) \6 o) m好了,赶快去验证吧! 1 y& ~( j( y0 |, S" a
验证地址:http://www.microsoft.com/genuine/default.aspx?displaylang=zh-cn 8 g0 p& D+ d! e" S/ X* f( K
- } U/ t9 d0 y5 @. `/ |不会搞的也可以直接下载附件,解压后双击就可以了。 |
|