XP盗版改正版

游子.

盗版XP变正版的方法(网上转贴)
1 V6 w( ]6 G$ |; q, q过几天微软公司就要正式 进行打击盗版的活动了，在这里，介绍一个方法让大家躲开，并且盗版变正版，保证可行。
8 a. Z4 J! d. R
有个让人讨厌的正版验证补丁（俗称五角星） 。
今天，我就叫大家怎样通过他的验证。
首先，在桌面上创建一个txt文档（好像这玩意啥也能干啊！）
( }1 D, _, }1 J, U4 m打开，在里面输入：
ON ERROR RESUME NEXT

Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
$ P( @1 l% I# o( c* PVOL_PROD_KEY=InputBox("Powered By www.zs128.com"&vbCr&vbCr&" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK)：","Windows XP序列号自动更换器","MRX3F-47B9T-2487J-KWKMF-RPWBY")
9 t5 ~: B" B- s3 i3 D6 P4 nif VOL_PROD_KEY="" then
Wscript.quit
1 ?8 k2 x2 o+ v8 {) Zend if
: [$ |/ u+ r: V. Q2 f& Velse
VOL_PROD_KEY = Wscript.arguments.Item(0)
end if
  Z: e% d" J+ K
3 k, X# J, O9 C. @) i! UVOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
; q5 i; B# z. [; W
! [, T. {6 q+ [6 m9 k. mfor each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
5 Z: B! D7 B, Z8 S2 V
1 N3 k& _* @3 ^; }5 M# G9 Oresult = Obj.SetProductKey (VOL_PROD_KEY)

if err = 0 then
0 a! k9 k0 y2 y4 S% _Wscript.echo "恭喜您，xp是正版的了@pple！"
end if
6 e0 d5 k6 I' ?$ [1 v) |) x6 G  }
7 Z' x% N2 \' u/ p3 U! ^* z) Lif err <> 0 then
Wscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。"
Err.Clear
0 T( s* U( P9 N. g! c- @  j$ F& Send if

6 z1 U8 W. _% [' k, }% `Next

保存，关闭(包括next啊）
把文件名替换成key.vbs
如果变成这样：
就算成功了，等等，有些同志问了，为什么我改变名字会出现双后缀情况呢？(自己解决）
回到正题，创建好文件双击，确定。
好了，赶快去验证吧！
验证地址:http://www.microsoft.com/genuine/default.aspx?displaylang=zh-cn

不会搞的也可以直接下载附件，解压后双击就可以了。

木棉花

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