XP盗版改正版

游子.

盗版XP变正版的方法(网上转贴)
! d2 `8 B4 c  `/ ?' A4 \! q4 P( z9 Z过几天微软公司就要正式 进行打击盗版的活动了，在这里，介绍一个方法让大家躲开，并且盗版变正版，保证可行。
, q3 D. B. T) p+ h4 R6 C7 W
4 J8 C5 u: q& j! q! O有个让人讨厌的正版验证补丁（俗称五角星） 。
# B$ |3 E3 ^$ K# o0 H$ ?- Z4 Q今天，我就叫大家怎样通过他的验证。
6 _' S1 y3 x; x/ m" ], H3 t首先，在桌面上创建一个txt文档（好像这玩意啥也能干啊！）
  F# k9 v" A7 k( D: U, v; N打开，在里面输入：
ON ERROR RESUME NEXT
6 b. V  h# w; b6 N- [
Dim VOL_PROD_KEY
3 n! F- M' n5 C( R3 q- xif Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("Powered By www.zs128.com"&vbCr&vbCr&" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK)：","Windows XP序列号自动更换器","MRX3F-47B9T-2487J-KWKMF-RPWBY")
4 H9 o* x& L$ x1 i4 Z9 E: ]$ wif VOL_PROD_KEY="" then
Wscript.quit
. t3 M* d: I. g6 h  a. ?  o. |( tend if
/ [2 q7 B6 l' a8 B7 aelse
' Y0 G3 k, @' h- o  iVOL_PROD_KEY = Wscript.arguments.Item(0)
) Y8 H" O  N' ?1 Xend if
4 ?. D5 F& |" Z, _  g6 D0 [. W
$ Q2 w: r8 V! p: m! ~* FVOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any

' _5 @; ?  }0 |( H: Nfor each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
* ]) n. P; U0 C4 M
4 U  V. z3 r6 R/ q% Presult = Obj.SetProductKey (VOL_PROD_KEY)
% a% H  _+ _% e0 v" m
7 ]2 y" N% W7 X3 _if err = 0 then
Wscript.echo "恭喜您，xp是正版的了@pple！"
end if
$ ^( a2 w& H, n5 ^" }
if err <> 0 then
Wscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。"
5 p# S5 e# x( G* J/ j' x5 F) E0 kErr.Clear
end if

Next
3 Y# O- y" ?3 P) I3 Y2 B
9 f6 p$ C7 \$ c+ v3 d' q保存，关闭(包括next啊）
" I! \- Y4 Y7 x把文件名替换成key.vbs
) V) @. t1 t* r6 D# d, l2 w如果变成这样：
就算成功了，等等，有些同志问了，为什么我改变名字会出现双后缀情况呢？(自己解决）
, x& r8 L) b% c1 C" q4 g回到正题，创建好文件双击，确定。
, N/ {4 [7 f* G- j好了，赶快去验证吧！
# o* `* c4 S2 m1 p" ]验证地址:http://www.microsoft.com/genuine/default.aspx?displaylang=zh-cn
% `4 X. n2 b' V0 O4 z) w
; ^- V  D0 q3 q0 E不会搞的也可以直接下载附件，解压后双击就可以了。

木棉花

你班归但，竟敢使盗版货讲，我几用几蚊纸就买回左正版的XP系统，已通过正版验证！！！:loveliness: