XP盗版改正版

游子.

盗版XP变正版的方法(网上转贴)
过几天微软公司就要正式 进行打击盗版的活动了，在这里，介绍一个方法让大家躲开，并且盗版变正版，保证可行。
! P5 K7 G1 y# N1 }/ M0 i4 \
, a7 X) d+ y! R, Z7 p4 Q0 F0 Z有个让人讨厌的正版验证补丁（俗称五角星） 。
$ s1 U$ z8 B) F, A: h今天，我就叫大家怎样通过他的验证。
, i2 W! {' D4 d! F8 j! U- Y首先，在桌面上创建一个txt文档（好像这玩意啥也能干啊！）
+ U4 J8 v( Y. `4 ]0 c( V0 C; G打开，在里面输入：
0 C6 _' i$ L1 R: U# tON ERROR RESUME NEXT
8 X  _# i) b4 I% W4 X4 \
Dim VOL_PROD_KEY
6 g( I* A  S5 a" mif Wscript.arguments.count<1 then
VOL_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
( x" o8 E. C$ E3 t3 BWscript.quit
6 M, z1 `4 d" k6 d4 A1 P# ]end if
else
VOL_PROD_KEY = Wscript.arguments.Item(0)
4 S  a' ?, K! ~9 u' Vend if

) G, u; q) k1 b) z% ?VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
4 W" K# Z1 m8 y$ @8 @. {) [6 r" L
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")

result = Obj.SetProductKey (VOL_PROD_KEY)

: k9 N9 C8 O* t7 a) a4 i# sif err = 0 then
2 W. A0 n' y* h1 oWscript.echo "恭喜您，xp是正版的了@pple！"
end if

# ^& R6 n5 ]. ]* |% V. z1 kif err <> 0 then
3 ]3 A, q$ `; v# }8 uWscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。"
Err.Clear
end if
5 Q; ?' C: ]% V& Y# c9 S
Next

9 V) h( m# b4 p/ j3 P- D1 {保存，关闭(包括next啊）
把文件名替换成key.vbs
& ~. s& J3 c/ l* h如果变成这样：
- @' |: h  V. k/ x# @7 D: C就算成功了，等等，有些同志问了，为什么我改变名字会出现双后缀情况呢？(自己解决）
回到正题，创建好文件双击，确定。
好了，赶快去验证吧！
验证地址:http://www.microsoft.com/genuine/default.aspx?displaylang=zh-cn
8 @1 W) t- c' N! S
( g( d2 L3 M& b8 i不会搞的也可以直接下载附件，解压后双击就可以了。

木棉花

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