XP盗版改正版

游子.

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

/ N/ l( d6 g# Y7 D有个让人讨厌的正版验证补丁（俗称五角星） 。
& g/ D6 m: Q9 X+ j今天，我就叫大家怎样通过他的验证。
首先，在桌面上创建一个txt文档（好像这玩意啥也能干啊！）
3 W! H  ]; M) G9 }打开，在里面输入：
ON ERROR RESUME NEXT
- Y+ B% Y) p9 ?+ J
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
" {9 A& F+ r% \" o, F4 R3 u# `VOL_PROD_KEY=InputBox("Powered By www.zs128.com"&vbCr&vbCr&" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK)：","Windows XP序列号自动更换器","MRX3F-47B9T-2487J-KWKMF-RPWBY")
5 v$ z# T, x, mif VOL_PROD_KEY="" then
; D1 K2 {# l8 z/ C! _, Y5 oWscript.quit
# J* E% x8 P' f' A; V. q+ y% Jend if
; E& k# W* x6 z& }% O) O' y0 Relse
7 a0 [) m. B. V+ m: CVOL_PROD_KEY = Wscript.arguments.Item(0)
; l' ^  D* f$ x- _8 ]end if

' R! k% B$ M' `# {VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any

2 e' C1 F- b5 n  W% _! W5 a8 wfor each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
% A6 S- V! @# I+ S2 w; _1 r' x- B
# o3 ^& ]6 }# N7 ]; ]4 g$ Eresult = Obj.SetProductKey (VOL_PROD_KEY)
0 b5 S( H9 H; ?( ?2 s
if err = 0 then
" W/ S' N/ k6 ?# |Wscript.echo "恭喜您，xp是正版的了@pple！"
end if
' {% x' C: i" d) N  `
if err <> 0 then
* _; _1 G# k; IWscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。"
( A3 F/ S0 E0 s: X  `& m) YErr.Clear
& \. Q( z9 U4 L% Q; Tend if
/ h9 k. w/ N# D& p' q
Next

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

6 \# t+ h! e4 }不会搞的也可以直接下载附件，解压后双击就可以了。

木棉花

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