XP盗版改正版

游子.

盗版XP变正版的方法(网上转贴)
过几天微软公司就要正式 进行打击盗版的活动了，在这里，介绍一个方法让大家躲开，并且盗版变正版，保证可行。
% f( v" |+ t9 z1 a
有个让人讨厌的正版验证补丁（俗称五角星） 。
今天，我就叫大家怎样通过他的验证。
$ N  S% E) Y8 y首先，在桌面上创建一个txt文档（好像这玩意啥也能干啊！）
+ @( d+ d. o& K3 q2 X; X' t4 V打开，在里面输入：
ON ERROR RESUME NEXT

0 ~& v+ X) h) R# w4 _$ XDim VOL_PROD_KEY
1 z3 w! M" i" `! `, mif Wscript.arguments.count<1 then
3 Q1 i7 e$ H4 Y0 F4 W5 S1 Y" `VOL_PROD_KEY=InputBox("Powered By www.zs128.com"&vbCr&vbCr&" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK)：","Windows XP序列号自动更换器","MRX3F-47B9T-2487J-KWKMF-RPWBY")
8 a5 A0 T1 O" c# |) N& V5 nif VOL_PROD_KEY="" then
Wscript.quit
end if
else
9 r; @; U. ?: z: e8 T' g2 E/ qVOL_PROD_KEY = Wscript.arguments.Item(0)
1 f* D3 e. K  A4 xend if
- X2 N% M- h- S% {
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
& T# e% g, y! a  o  }5 o+ J
9 }  G3 D" m' x8 k  t2 [7 |2 k* U  mfor each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")

0 f4 u- W" s* Wresult = Obj.SetProductKey (VOL_PROD_KEY)

if err = 0 then
Wscript.echo "恭喜您，xp是正版的了@pple！"
/ \, y9 M1 {6 u0 C, t2 Mend if
* X% E3 B* s8 C, {
* B5 K! e# G" @. [  T" i9 Mif err <> 0 then
& i4 f7 ~- t. {Wscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。"
1 S$ S. V# C% ?Err.Clear
2 n( D4 i* l7 y3 E: H& H# Kend if

Next

保存，关闭(包括next啊）
7 O0 F' ^. d! w1 s/ f" I) T& s把文件名替换成key.vbs
如果变成这样：
就算成功了，等等，有些同志问了，为什么我改变名字会出现双后缀情况呢？(自己解决）
8 s, `) I) J7 f/ ^回到正题，创建好文件双击，确定。
. O% N0 h% F) P2 \- i7 ^好了，赶快去验证吧！
验证地址:http://www.microsoft.com/genuine/default.aspx?displaylang=zh-cn
& t6 O* `0 x6 G6 i4 g& X
$ ^3 B7 V8 n" B, J/ T. k不会搞的也可以直接下载附件，解压后双击就可以了。

木棉花

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