XP盗版改正版

游子.

盗版XP变正版的方法(网上转贴)
8 `6 B6 K7 W' `9 v; s+ c过几天微软公司就要正式 进行打击盗版的活动了，在这里，介绍一个方法让大家躲开，并且盗版变正版，保证可行。

9 w4 \2 s3 o. s) V- z有个让人讨厌的正版验证补丁（俗称五角星） 。
+ Q" J) [4 \& p- S* j今天，我就叫大家怎样通过他的验证。
首先，在桌面上创建一个txt文档（好像这玩意啥也能干啊！）
打开，在里面输入：
ON ERROR RESUME NEXT

Dim VOL_PROD_KEY
* {! I4 s* g9 l  I; xif Wscript.arguments.count<1 then
5 i/ C( I( `. I- q- L. ^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
9 g2 e" |) t( T, n% f+ R0 V. I  PWscript.quit
4 g; a) T; v9 \8 Y7 Tend if
, ~7 O" }+ k% X9 X& x2 Belse
* b5 [% \) s6 U" H' yVOL_PROD_KEY = Wscript.arguments.Item(0)
* @- T/ v' m/ j4 tend if
9 k7 X0 S  N4 [; W4 K7 w8 H
6 m; K4 Z9 h/ w/ M6 C$ lVOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any

8 J* s  a0 B+ |for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")

# @8 d4 Z9 y: j% y6 H* Presult = Obj.SetProductKey (VOL_PROD_KEY)

- T" M2 I8 [( Hif err = 0 then
Wscript.echo "恭喜您，xp是正版的了@pple！"
end if
' N( i- l6 q+ p5 s) u6 s
: s" ]3 ^  R# s% N' Bif err <> 0 then
9 m: R6 B, v! ]% nWscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。"
# l/ K& Z6 I" |6 k3 L) l) y: @" FErr.Clear
) I- |4 ?. Z& a0 v, {' send if

Next
; g3 x: D5 A7 [: R/ @
6 F2 q7 l, b& T5 H$ g! o4 B' z保存，关闭(包括next啊）
6 ^* q$ X$ e5 ~. E! E把文件名替换成key.vbs
+ \7 G3 S5 B6 _8 x1 `8 t/ i如果变成这样：
2 y0 R% P& X0 q' W* s9 P就算成功了，等等，有些同志问了，为什么我改变名字会出现双后缀情况呢？(自己解决）
回到正题，创建好文件双击，确定。
好了，赶快去验证吧！
验证地址:http://www.microsoft.com/genuine/default.aspx?displaylang=zh-cn
4 f; M( q8 m  W, l$ f
不会搞的也可以直接下载附件，解压后双击就可以了。

木棉花

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