XP盗版改正版

游子.

盗版XP变正版的方法(网上转贴)
2 \1 i; ~. P2 n5 Q' ]% L过几天微软公司就要正式 进行打击盗版的活动了，在这里，介绍一个方法让大家躲开，并且盗版变正版，保证可行。
% q+ y5 o& j6 M! w1 z
- @8 \8 t' Y, `6 j) N有个让人讨厌的正版验证补丁（俗称五角星） 。
今天，我就叫大家怎样通过他的验证。
+ {! d0 O. u! \* b首先，在桌面上创建一个txt文档（好像这玩意啥也能干啊！）
打开，在里面输入：
+ _4 k! o4 W7 o# d5 jON ERROR RESUME NEXT
/ m! ^) p2 W& ]% |" [0 \, ^% H& q
Dim VOL_PROD_KEY
if 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")
  V3 j7 Z! x! {$ u6 uif VOL_PROD_KEY="" then
2 K( N) f* H  z$ V4 I& r2 T. Q. PWscript.quit
% ?* E6 P1 W7 y' Y# [2 [2 cend if
7 s% k$ j: q& K# V; ?( p8 kelse
, c. c4 F7 t8 A7 ~  m7 zVOL_PROD_KEY = Wscript.arguments.Item(0)
end if

3 x0 K- D7 O6 ~! x% i" t  O% l; UVOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any

for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")

7 z. L  a! S+ g& Zresult = Obj.SetProductKey (VOL_PROD_KEY)
2 O: n0 G( N- @" T4 K- v
if err = 0 then
Wscript.echo "恭喜您，xp是正版的了@pple！"
end if
1 F& u+ d8 L% L* |( E7 m
: E- w/ m# |& Q- Oif err <> 0 then
Wscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。"
. |  Y: r% s$ l- M  VErr.Clear
  X, y$ |- U  x' eend if
8 e) S: _. I9 P4 t* N4 s7 C
Next
7 t) t# j/ Q2 n; U# t6 k& E1 y
保存，关闭(包括next啊）
把文件名替换成key.vbs
, r6 s8 v& ^' A5 |7 b) C如果变成这样：
就算成功了，等等，有些同志问了，为什么我改变名字会出现双后缀情况呢？(自己解决）
  V( c' M4 A* U: p' b回到正题，创建好文件双击，确定。
- x+ e! w; B; r( b1 n, b, O+ I, i好了，赶快去验证吧！
, D& c) n( }. S6 `0 L验证地址:http://www.microsoft.com/genuine/default.aspx?displaylang=zh-cn

; f3 w) K- L$ b- n. X4 @  {不会搞的也可以直接下载附件，解压后双击就可以了。

木棉花

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