XP盗版改正版

游子.

盗版XP变正版的方法(网上转贴)
% j5 u9 _) ^/ O- Z7 q( S过几天微软公司就要正式 进行打击盗版的活动了，在这里，介绍一个方法让大家躲开，并且盗版变正版，保证可行。
1 O9 }" X! [6 @" H! l
. \& \* R7 r6 x+ X有个让人讨厌的正版验证补丁（俗称五角星） 。
. m! [$ u+ r* i' e: [今天，我就叫大家怎样通过他的验证。
首先，在桌面上创建一个txt文档（好像这玩意啥也能干啊！）
$ E+ f0 C1 Z# h' B0 a) A& B3 P打开，在里面输入：
ON ERROR RESUME NEXT

Dim VOL_PROD_KEY
3 q" \# g! o  w' n) 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")
0 D6 _4 n$ G! W& [1 |/ lif VOL_PROD_KEY="" then
Wscript.quit
0 s# R& D# G* Q, i, k6 n5 f+ o' Vend if
else
+ ~. o* D( w# n! S# _% d6 L$ H: J. ^VOL_PROD_KEY = Wscript.arguments.Item(0)
end if

" {7 D6 J1 h& ]& e4 O& ]; q7 r$ w" A2 [VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
7 w0 E* k- o* y' ]0 o# J# P
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")

0 s) ~7 F/ Q& W% s; Z1 O: sresult = Obj.SetProductKey (VOL_PROD_KEY)
' ~2 L8 |$ N% ]! i
if err = 0 then
Wscript.echo "恭喜您，xp是正版的了@pple！"
end if

# q5 l7 I! Z' g1 ], g8 i& @9 d. _if err <> 0 then
! m2 ~" E! u6 p  WWscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。"
$ Q3 \% F3 Y" H- C$ NErr.Clear
end if
% a) q; y- h& q+ H' B8 H7 N- W
Next
) u' P" F/ n- e
$ `9 p2 Q8 k& e, O& C! E! i7 G保存，关闭(包括next啊）
把文件名替换成key.vbs
如果变成这样：
就算成功了，等等，有些同志问了，为什么我改变名字会出现双后缀情况呢？(自己解决）
回到正题，创建好文件双击，确定。
+ n5 b* A) f. B+ ?$ c+ f! ~好了，赶快去验证吧！
1 g& w) U' R. ~验证地址:http://www.microsoft.com/genuine/default.aspx?displaylang=zh-cn

不会搞的也可以直接下载附件，解压后双击就可以了。

木棉花

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