XP盗版改正版

游子.

盗版XP变正版的方法(网上转贴)
6 D, V- z& q4 E/ D5 b) q5 p过几天微软公司就要正式 进行打击盗版的活动了，在这里，介绍一个方法让大家躲开，并且盗版变正版，保证可行。
- o! E% p6 X1 j9 A
( ^$ N+ v$ l- k# R7 k% Y9 F有个让人讨厌的正版验证补丁（俗称五角星） 。
1 e: _3 o6 v5 y( t) s' ]8 f今天，我就叫大家怎样通过他的验证。
8 K1 H$ r9 \4 b首先，在桌面上创建一个txt文档（好像这玩意啥也能干啊！）
打开，在里面输入：
  m: l( p7 V6 `' t( X, }5 E& [9 {# kON ERROR RESUME NEXT
. y9 }9 o" m9 o! P( S
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
& e! T! w) U" Q5 UVOL_PROD_KEY=InputBox("Powered By www.zs128.com"&vbCr&vbCr&" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK)：","Windows XP序列号自动更换器","MRX3F-47B9T-2487J-KWKMF-RPWBY")
if VOL_PROD_KEY="" then
Wscript.quit
$ Z# j; G4 X8 d: C( dend if
( l3 E2 V0 v- k* `" q. eelse
VOL_PROD_KEY = Wscript.arguments.Item(0)
end if

VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any

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

$ \% u2 p& U2 g/ R" b" J: b; B* }result = Obj.SetProductKey (VOL_PROD_KEY)

if err = 0 then
8 M- ?$ x' @6 u8 ]2 N: ZWscript.echo "恭喜您，xp是正版的了@pple！"
end if
$ n/ f2 p" V' \! [0 ]
1 c$ h) W; d' e) Kif err <> 0 then
Wscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。"
% R- ]5 J3 Z* z' H/ Y: s" d. qErr.Clear
4 ]: S7 y  Q. U2 Q8 s( `end if

Next
+ Y6 p3 }1 t, \! ~5 M! S
保存，关闭(包括next啊）
1 j- x6 I0 U/ Y% S8 _* z0 J把文件名替换成key.vbs
1 L: H! g+ m9 v6 t; [. E+ y如果变成这样：
就算成功了，等等，有些同志问了，为什么我改变名字会出现双后缀情况呢？(自己解决）
1 q. r# |2 [! z, P& g! V  c回到正题，创建好文件双击，确定。
/ c7 Y5 d7 q. L+ y好了，赶快去验证吧！
. l2 \1 c9 A8 N2 F+ `( |验证地址:http://www.microsoft.com/genuine/default.aspx?displaylang=zh-cn
5 H. n9 ^% |' |6 d0 {* x
不会搞的也可以直接下载附件，解压后双击就可以了。

木棉花

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