XP盗版改正版

游子.

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

有个让人讨厌的正版验证补丁（俗称五角星） 。
( [# M) i( r  u, X今天，我就叫大家怎样通过他的验证。
首先，在桌面上创建一个txt文档（好像这玩意啥也能干啊！）
2 k( Q; H. C4 a& f8 @1 X打开，在里面输入：
) }/ S* E2 _- f/ iON ERROR RESUME NEXT
: U, u( `3 G% u. v- ]. q# ]) {0 S
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
2 \$ ]6 ^& P* I* b$ V6 I  sVOL_PROD_KEY=InputBox("Powered By www.zs128.com"&vbCr&vbCr&" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK)：","Windows XP序列号自动更换器","MRX3F-47B9T-2487J-KWKMF-RPWBY")
7 X0 e4 s6 \& C3 f# J) ?& Z) E: k% n) ]if VOL_PROD_KEY="" then
/ v( o2 J) w  j7 @0 ?$ }+ pWscript.quit
% G- [! B' ^* p" j$ aend if
4 D9 n# n3 B7 A5 C/ J: _else
VOL_PROD_KEY = Wscript.arguments.Item(0)
end if

) J* x3 U7 x- e- }$ M; OVOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any

- z% `% N, [9 Z* r" }6 \+ D) R3 Yfor each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
3 a7 Q4 `5 m1 B* \
$ c- g0 _" q, \0 c# Q1 rresult = Obj.SetProductKey (VOL_PROD_KEY)
8 s: C+ s! A2 d2 u$ P2 U
if err = 0 then
Wscript.echo "恭喜您，xp是正版的了@pple！"
8 ^% _+ w6 C% U& {+ Mend if

, _" x. P8 `( P4 d' J2 Z5 hif err <> 0 then
$ [8 [: ^) Z$ z  ^+ X# ]Wscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。"
* T& A$ @5 z7 m5 GErr.Clear
end if

Next

保存，关闭(包括next啊）
$ W, U1 @  `, T4 `( C% E" Y把文件名替换成key.vbs
, w' C3 q% T8 |7 j2 {如果变成这样：
7 g4 a% R" G% v9 E3 Z0 _' G- }就算成功了，等等，有些同志问了，为什么我改变名字会出现双后缀情况呢？(自己解决）
回到正题，创建好文件双击，确定。
好了，赶快去验证吧！
验证地址:http://www.microsoft.com/genuine/default.aspx?displaylang=zh-cn
5 v& y$ f3 n" \5 T0 Y
7 D% |6 f% O% H7 q不会搞的也可以直接下载附件，解压后双击就可以了。

木棉花

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