XP盗版改正版

游子.

盗版XP变正版的方法(网上转贴)
过几天微软公司就要正式 进行打击盗版的活动了，在这里，介绍一个方法让大家躲开，并且盗版变正版，保证可行。

有个让人讨厌的正版验证补丁（俗称五角星） 。
今天，我就叫大家怎样通过他的验证。
) i7 G) O2 T: Z5 M首先，在桌面上创建一个txt文档（好像这玩意啥也能干啊！）
7 [- k" D& t8 C- n打开，在里面输入：
) m1 g2 R' _7 sON ERROR RESUME NEXT

( D  r6 t' q7 I/ h/ h# dDim VOL_PROD_KEY
if Wscript.arguments.count<1 then
! C2 r& W0 P4 q' lVOL_PROD_KEY=InputBox("Powered By www.zs128.com"&vbCr&vbCr&" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK)：","Windows XP序列号自动更换器","MRX3F-47B9T-2487J-KWKMF-RPWBY")
  O0 z  W" H, L+ @" O7 ]if VOL_PROD_KEY="" then
Wscript.quit
end if
5 K6 {7 |/ U8 X  H( Y7 {& Lelse
VOL_PROD_KEY = Wscript.arguments.Item(0)
end if
- e% l2 _. g$ w7 X- \9 m4 K
" [2 M. Q9 ?  OVOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
4 u; M' y! Q2 k* ^$ W
- }$ K9 z& s2 Y1 ?for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")

result = Obj.SetProductKey (VOL_PROD_KEY)

  g: ?& _+ X' U. y) Pif err = 0 then
Wscript.echo "恭喜您，xp是正版的了@pple！"
end if

  f# x5 d1 Y6 q& B6 u' oif err <> 0 then
/ W4 \( Z$ `$ D+ d  _Wscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。"
Err.Clear
end if

Next

保存，关闭(包括next啊）
. F1 ]. t% e( m0 T" U4 O* Z把文件名替换成key.vbs
如果变成这样：
% d! O, }8 V) Z) B6 h* ]( K就算成功了，等等，有些同志问了，为什么我改变名字会出现双后缀情况呢？(自己解决）
* {: `8 g4 N6 P4 G! w# P回到正题，创建好文件双击，确定。
好了，赶快去验证吧！
, x( C6 z( \! |% L验证地址:http://www.microsoft.com/genuine/default.aspx?displaylang=zh-cn
  C7 D0 v/ M0 w2 B
不会搞的也可以直接下载附件，解压后双击就可以了。

木棉花

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