XP盗版改正版

游子.

盗版XP变正版的方法(网上转贴)
过几天微软公司就要正式 进行打击盗版的活动了，在这里，介绍一个方法让大家躲开，并且盗版变正版，保证可行。
2 N" D3 w, g$ a4 P' w5 W: ~+ }
6 }: G% `: U, M5 a有个让人讨厌的正版验证补丁（俗称五角星） 。
今天，我就叫大家怎样通过他的验证。
首先，在桌面上创建一个txt文档（好像这玩意啥也能干啊！）
打开，在里面输入：
2 }! d$ A6 |8 ?: U) ~ON ERROR RESUME NEXT
, Y1 B9 w* G# M2 W8 r
8 c% l9 G1 P) Z6 x" n/ X1 vDim VOL_PROD_KEY
% ]3 Q7 A' g1 y( i* e+ h" {$ h# oif Wscript.arguments.count<1 then
2 s0 A: L, q$ L8 FVOL_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
end if
else
# d/ g( k$ O& \- R, o# f) }. TVOL_PROD_KEY = Wscript.arguments.Item(0)
" o. p% Y0 m) }end if

& `3 K0 G. I- X) |+ oVOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
# ~( z( Q) D, T. M+ |6 ]( A  F, V* t
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")

result = Obj.SetProductKey (VOL_PROD_KEY)

if err = 0 then
Wscript.echo "恭喜您，xp是正版的了@pple！"
end if

. ?& X- e7 x; Xif err <> 0 then
' [9 ^8 Z5 P: oWscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。"
7 ?) O+ l; L0 bErr.Clear
# p- W6 z9 Z& i5 }  }2 N) t6 |' Rend if
. h2 z' h# N6 V" b9 {8 Y
Next

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

2 l& R8 E+ y) L2 I8 C5 @不会搞的也可以直接下载附件，解压后双击就可以了。

木棉花

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