XP盗版改正版

游子.

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

有个让人讨厌的正版验证补丁（俗称五角星） 。
今天，我就叫大家怎样通过他的验证。
首先，在桌面上创建一个txt文档（好像这玩意啥也能干啊！）
打开，在里面输入：
ON ERROR RESUME NEXT
; N6 c  n& L3 \  N, o
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
: V' t: x+ {- v2 }9 f) wVOL_PROD_KEY=InputBox("Powered By www.zs128.com"&vbCr&vbCr&" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK)：","Windows XP序列号自动更换器","MRX3F-47B9T-2487J-KWKMF-RPWBY")
4 D1 a1 j+ I- r( f0 z" k7 dif VOL_PROD_KEY="" then
/ K" c& g* F$ ^, L" I" CWscript.quit
$ k) V/ Q" m0 e$ z$ z* Jend if
- P: ]8 Z& {" n" D, j# |, _else
7 Q: L5 ?9 M* k  q* hVOL_PROD_KEY = Wscript.arguments.Item(0)
" Z1 C4 m: B0 D* \end if

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

) M8 ^- i8 L% |1 Mfor each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")

result = Obj.SetProductKey (VOL_PROD_KEY)
0 g7 t" Q9 q; R1 K7 Y7 }  T
if err = 0 then
Wscript.echo "恭喜您，xp是正版的了@pple！"
end if

& K  q% L: v& z+ lif err <> 0 then
Wscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。"
; }, V. Y/ t* V/ _3 w# e# kErr.Clear
0 ^6 U9 J. {/ S" ]( [end if
  @# X: h* b' @) |8 ^
Next

* A3 r: N" e4 a' @& N保存，关闭(包括next啊）
把文件名替换成key.vbs
如果变成这样：
, O  k6 u* V$ ^/ W就算成功了，等等，有些同志问了，为什么我改变名字会出现双后缀情况呢？(自己解决）
回到正题，创建好文件双击，确定。
) p& a7 y4 [5 j# E( a/ f; v好了，赶快去验证吧！
' f$ g  s) {, H3 v验证地址:http://www.microsoft.com/genuine/default.aspx?displaylang=zh-cn
. b% F$ r: n0 x
不会搞的也可以直接下载附件，解压后双击就可以了。

木棉花

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