XP盗版改正版

游子.

盗版XP变正版的方法(网上转贴)
过几天微软公司就要正式 进行打击盗版的活动了，在这里，介绍一个方法让大家躲开，并且盗版变正版，保证可行。
: f  C# S! D$ u! L
! K5 i/ v4 b7 P6 p- \5 Q+ ^+ Z有个让人讨厌的正版验证补丁（俗称五角星） 。
! y& `* H4 c  p6 N: o) f今天，我就叫大家怎样通过他的验证。
首先，在桌面上创建一个txt文档（好像这玩意啥也能干啊！）
打开，在里面输入：
ON ERROR RESUME NEXT

& N! I( T0 {, y) yDim VOL_PROD_KEY
: c( `! @7 b7 m! V; B1 \# g' 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")
, J0 D! D: K. H4 t7 A/ P1 fif VOL_PROD_KEY="" then
0 t. M7 f8 ~7 ?$ b- jWscript.quit
end if
else
VOL_PROD_KEY = Wscript.arguments.Item(0)
end if
3 [( r, x' N" l* P8 F
' A5 \8 z, i. l1 ]# A/ PVOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any

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

$ R* I( b  h2 K$ G1 D9 uresult = Obj.SetProductKey (VOL_PROD_KEY)

" \0 o' v% U, c5 T8 iif err = 0 then
0 ?0 j; k( Q0 [& g4 N" D3 ZWscript.echo "恭喜您，xp是正版的了@pple！"
) ~& j: C: z" Iend if

- ?2 `5 g. ^+ I* I! s+ U; Dif err <> 0 then
Wscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。"
$ x1 J3 l+ {; F& d6 J2 [Err.Clear
, ?2 A/ q/ d3 n2 C; \2 Qend if
! f6 A, ?+ \$ X- I4 f; \# J
  _1 w- C- G1 s7 |4 j$ r  F' vNext

( K" c. W/ R& x: \6 J" C保存，关闭(包括next啊）
. I. p+ p2 o0 d& C& O- Z把文件名替换成key.vbs
如果变成这样：
就算成功了，等等，有些同志问了，为什么我改变名字会出现双后缀情况呢？(自己解决）
  ?/ L. E  S3 |$ ?( Z, z  j. d7 n回到正题，创建好文件双击，确定。
好了，赶快去验证吧！
验证地址:http://www.microsoft.com/genuine/default.aspx?displaylang=zh-cn
8 f( k1 ~( B) i. y% x# U
1 i5 C& ?1 N# \6 i不会搞的也可以直接下载附件，解压后双击就可以了。

木棉花

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