XP盗版改正版

游子.

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

有个让人讨厌的正版验证补丁（俗称五角星） 。
今天，我就叫大家怎样通过他的验证。
( y! r: |2 G6 @; L6 W/ G# _$ |$ h6 g8 G首先，在桌面上创建一个txt文档（好像这玩意啥也能干啊！）
打开，在里面输入：
. ^0 Z2 N' P8 g' }# m1 T5 GON ERROR RESUME NEXT
6 ]$ b: k0 v9 i6 v$ }
Dim VOL_PROD_KEY
: n' P( |* C  |8 |+ P! qif 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")
if VOL_PROD_KEY="" then
Wscript.quit
end if
/ y# D! \+ }. S, z# ?1 oelse
VOL_PROD_KEY = Wscript.arguments.Item(0)
end if

VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any

  U( D# v! w9 r  `! T' P1 m/ Sfor each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
0 P6 q, g0 B8 p/ m; i. M
result = Obj.SetProductKey (VOL_PROD_KEY)
' |- e- ]+ y+ ~8 o& ~) A
' p5 v, P7 h9 n/ Tif err = 0 then
Wscript.echo "恭喜您，xp是正版的了@pple！"
end if

if err <> 0 then
9 x+ Y1 z& t6 y8 n" \# k! mWscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。"
" ^$ F9 {4 Z  j' nErr.Clear
end if
2 L4 B9 [! E; |0 N
4 U) \1 f  f3 ~Next

保存，关闭(包括next啊）
! K8 z4 k. I6 O8 p6 r% ]4 K把文件名替换成key.vbs
如果变成这样：
4 Y6 x/ n! W4 i( L+ S) Z就算成功了，等等，有些同志问了，为什么我改变名字会出现双后缀情况呢？(自己解决）
: S, o' G- J" d. S2 T回到正题，创建好文件双击，确定。
' c) j5 W* X3 B好了，赶快去验证吧！
验证地址:http://www.microsoft.com/genuine/default.aspx?displaylang=zh-cn

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

木棉花

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