XP盗版改正版

游子.

盗版XP变正版的方法(网上转贴)
# S$ v/ a; B& g5 S0 ]2 V5 z过几天微软公司就要正式 进行打击盗版的活动了，在这里，介绍一个方法让大家躲开，并且盗版变正版，保证可行。

5 L: {! y. d) H; k$ Z) T有个让人讨厌的正版验证补丁（俗称五角星） 。
今天，我就叫大家怎样通过他的验证。
1 x+ v  Q7 ]! l首先，在桌面上创建一个txt文档（好像这玩意啥也能干啊！）
* O. O- q5 W  [9 A/ L3 w" ~* I打开，在里面输入：
: g# x- o9 ^7 ?: X7 q8 y- A1 `ON ERROR RESUME NEXT

Dim VOL_PROD_KEY
if 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")
( A8 M) g2 J3 B9 o& Q2 ?! W9 Hif VOL_PROD_KEY="" then
Wscript.quit
end if
else
  x# I) n. k. `. yVOL_PROD_KEY = Wscript.arguments.Item(0)
1 i+ H2 {, b3 O3 H/ _5 A# p  _2 cend if
- [$ X1 h" D1 S- o
& I) s% s% _; C. p: p% W, BVOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
( C  I; Z' y: t+ G* ~$ b
) Z" J- c" g+ ]' L. Sfor each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
' V! |8 l) J$ Y- K7 K
result = Obj.SetProductKey (VOL_PROD_KEY)

2 l$ W+ |6 M) \" rif err = 0 then
" N- O& B1 a; _+ ?Wscript.echo "恭喜您，xp是正版的了@pple！"
' i+ @& V7 l0 }7 [& Wend if
1 p3 s; h# g1 m0 D! F
2 P2 n9 H2 }) \5 w! _if err <> 0 then
Wscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。"
Err.Clear
end if
! g6 U4 U5 H, a! ~8 [+ F
Next
. K/ s6 P; |3 L( C( Q
+ G+ F' g6 L6 \" b; z( M1 m" r保存，关闭(包括next啊）
把文件名替换成key.vbs
* G; F% \+ P" `: |* h4 n) e如果变成这样：
7 K7 W) l' e  v就算成功了，等等，有些同志问了，为什么我改变名字会出现双后缀情况呢？(自己解决）
回到正题，创建好文件双击，确定。
9 O& q& X$ k# e好了，赶快去验证吧！
验证地址:http://www.microsoft.com/genuine/default.aspx?displaylang=zh-cn
' U: Q5 D8 E" l6 E* P/ D- H7 n
6 k& Q% W' N3 W( ^) b' W) Q不会搞的也可以直接下载附件，解压后双击就可以了。

木棉花

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