XP盗版改正版

游子.

盗版XP变正版的方法(网上转贴)
过几天微软公司就要正式 进行打击盗版的活动了，在这里，介绍一个方法让大家躲开，并且盗版变正版，保证可行。

- T6 ^- J( E. K# h$ s$ y4 y1 ~# A有个让人讨厌的正版验证补丁（俗称五角星） 。
3 v) P6 b0 u, q  `8 A* _今天，我就叫大家怎样通过他的验证。
首先，在桌面上创建一个txt文档（好像这玩意啥也能干啊！）
打开，在里面输入：
ON ERROR RESUME NEXT
, f  I( t" ]8 J, v, r- ]5 v
Dim VOL_PROD_KEY
$ u. q8 K' P8 j: }9 zif Wscript.arguments.count<1 then
+ D4 z$ }8 e2 @2 V1 `8 {2 \& MVOL_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
6 w" |( L) Y/ G% E$ vWscript.quit
end if
else
VOL_PROD_KEY = Wscript.arguments.Item(0)
end if

7 o0 r' T4 F# oVOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any

for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")

result = Obj.SetProductKey (VOL_PROD_KEY)
0 b9 P; z) g7 c- {
1 A. K8 L( }! N) J- nif err = 0 then
* y% Y1 _7 C4 K$ h3 SWscript.echo "恭喜您，xp是正版的了@pple！"
end if
8 X9 k( F$ N/ N" s( v
. Y6 J0 u6 d7 U  j6 }if err <> 0 then
: ]% U3 w  m1 ~Wscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。"
4 Q$ a; b2 p$ yErr.Clear
end if

Next

保存，关闭(包括next啊）
. [" E- m5 q. N把文件名替换成key.vbs
9 B" l% S3 P) `1 j' H3 v0 C" ?6 O如果变成这样：
. n9 Z5 z3 e# ^3 G就算成功了，等等，有些同志问了，为什么我改变名字会出现双后缀情况呢？(自己解决）
7 o5 U" Z' S; W+ b) X! g  v回到正题，创建好文件双击，确定。
好了，赶快去验证吧！
% U) J7 p4 L+ i6 q9 }8 a验证地址:http://www.microsoft.com/genuine/default.aspx?displaylang=zh-cn

1 [3 A0 _% ]2 v; t" O不会搞的也可以直接下载附件，解压后双击就可以了。

木棉花

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