XP盗版改正版

游子.

盗版XP变正版的方法(网上转贴)
3 E# _" q- V' W4 ?0 }  A过几天微软公司就要正式 进行打击盗版的活动了，在这里，介绍一个方法让大家躲开，并且盗版变正版，保证可行。
* T4 D" P2 w5 c! ]2 z% t
有个让人讨厌的正版验证补丁（俗称五角星） 。
今天，我就叫大家怎样通过他的验证。
首先，在桌面上创建一个txt文档（好像这玩意啥也能干啊！）
打开，在里面输入：
ON ERROR RESUME NEXT
  A5 N. `( n3 O/ m3 z; y
. v& |- v0 H5 m  A2 o/ vDim VOL_PROD_KEY
if Wscript.arguments.count<1 then
$ r& m+ A( \' n6 \7 `, YVOL_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
+ U3 a- A2 `+ ~Wscript.quit
end if
' t  _1 x6 b: T0 r+ [% O2 [else
VOL_PROD_KEY = Wscript.arguments.Item(0)
' _8 ?1 S0 l1 r4 Nend if

VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
$ Z) M8 O/ E3 x! N1 c, {
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")

- L2 |3 K: }' O8 fresult = Obj.SetProductKey (VOL_PROD_KEY)
6 t8 d% y  m. l& n7 S
if err = 0 then
4 h3 U7 f: K1 ?9 ]: K* H/ N4 hWscript.echo "恭喜您，xp是正版的了@pple！"
end if

) T) c0 J$ L! _. h2 \if err <> 0 then
Wscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。"
, R( M( l% w/ n- @Err.Clear
end if
3 Z( ^6 {7 Z9 @6 }
7 I' P$ T. e2 c) V" ONext

保存，关闭(包括next啊）
& n9 u$ b, M7 t* f# D0 Z2 f把文件名替换成key.vbs
如果变成这样：
  @% p2 [6 `5 p: h* n就算成功了，等等，有些同志问了，为什么我改变名字会出现双后缀情况呢？(自己解决）
回到正题，创建好文件双击，确定。
+ H+ P  H7 Z1 r( T. R1 S6 \8 t好了，赶快去验证吧！
# Y; a  F+ U/ t8 p验证地址:http://www.microsoft.com/genuine/default.aspx?displaylang=zh-cn

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

木棉花

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