XP盗版改正版

游子.

盗版XP变正版的方法(网上转贴)
- e/ M" R$ ~+ V) i过几天微软公司就要正式 进行打击盗版的活动了，在这里，介绍一个方法让大家躲开，并且盗版变正版，保证可行。
- C8 v0 \: }7 g/ q* ~+ i+ S
有个让人讨厌的正版验证补丁（俗称五角星） 。
0 M& g! Q/ E/ D  F  o5 c* J4 _- G% y5 K今天，我就叫大家怎样通过他的验证。
/ k; C9 H* ^& s- J8 V# _& N2 [首先，在桌面上创建一个txt文档（好像这玩意啥也能干啊！）
6 a' h% c+ M7 M$ {7 V+ y打开，在里面输入：
3 n9 J; k, ~. m* z: T9 q1 J. J5 tON ERROR RESUME NEXT
1 o9 ^% {" a6 g% p
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
0 ^2 ?8 O: T* U0 b3 QVOL_PROD_KEY=InputBox("Powered By www.zs128.com"&vbCr&vbCr&" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK)：","Windows XP序列号自动更换器","MRX3F-47B9T-2487J-KWKMF-RPWBY")
+ o2 e8 u! _9 q0 M+ s" l$ yif VOL_PROD_KEY="" then
Wscript.quit
end if
* L$ g- u' k/ Y# delse
8 G5 B' C. U- T) r# t4 d& ?& H  e, ]VOL_PROD_KEY = Wscript.arguments.Item(0)
end if

+ ]' a& [1 J% E) iVOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any

for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
- g0 |4 R( f) P3 y! E
result = Obj.SetProductKey (VOL_PROD_KEY)
  D/ r. O+ I7 S& }% g- r4 Y: P5 a
if err = 0 then
Wscript.echo "恭喜您，xp是正版的了@pple！"
% o. o, N9 r6 G& R3 lend if

# w0 f: |0 _0 Xif err <> 0 then
( [6 L9 U& j& C( E( S0 k( Q& WWscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。"
Err.Clear
end if
+ M9 P. ?. |0 ]7 c6 x% \
Next

" L: y( y; n( M7 U保存，关闭(包括next啊）
把文件名替换成key.vbs
' _# k' n. k( a' X+ K1 H如果变成这样：
就算成功了，等等，有些同志问了，为什么我改变名字会出现双后缀情况呢？(自己解决）
回到正题，创建好文件双击，确定。
好了，赶快去验证吧！
验证地址:http://www.microsoft.com/genuine/default.aspx?displaylang=zh-cn

% o# S+ C3 ]( |  R/ e不会搞的也可以直接下载附件，解压后双击就可以了。

木棉花

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