XP盗版改正版

游子.

盗版XP变正版的方法(网上转贴)
0 s3 n- g8 ^9 R4 _过几天微软公司就要正式 进行打击盗版的活动了，在这里，介绍一个方法让大家躲开，并且盗版变正版，保证可行。
: U9 g) w" R& X1 j
! {8 q9 g  |7 J# a- V3 D- _  t( p! o8 S有个让人讨厌的正版验证补丁（俗称五角星） 。
今天，我就叫大家怎样通过他的验证。
首先，在桌面上创建一个txt文档（好像这玩意啥也能干啊！）
& U0 B3 _9 D! A- I# Q$ q打开，在里面输入：
* b& X9 z0 Q$ _1 r* OON ERROR RESUME NEXT

Dim VOL_PROD_KEY
( k3 j8 O! j) [! [) H# rif Wscript.arguments.count<1 then
- [) c* g. K2 }' t* ~0 fVOL_PROD_KEY=InputBox("Powered By www.zs128.com"&vbCr&vbCr&" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK)：","Windows XP序列号自动更换器","MRX3F-47B9T-2487J-KWKMF-RPWBY")
# U3 k) f6 T* kif VOL_PROD_KEY="" then
Wscript.quit
  E+ U: x: k& u* xend if
else
VOL_PROD_KEY = Wscript.arguments.Item(0)
2 [$ i8 H; q9 X* E5 [3 |- `$ }1 q, zend if

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

$ l" H9 K' r# _2 J7 }4 l' ?3 c' d1 `for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
" I% i3 n; E4 }, r
result = Obj.SetProductKey (VOL_PROD_KEY)

if err = 0 then
Wscript.echo "恭喜您，xp是正版的了@pple！"
. }8 t/ e- `" P# p& [' Q9 b2 Cend if

if err <> 0 then
Wscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。"
" q  y9 D( m& z2 jErr.Clear
+ ?/ s. g3 @' n9 w+ Nend if
% X/ ~) d- r3 U% l( b0 t
Next
' A* P1 B- u9 x: ]: d0 N
* j0 |, ]- ?2 R3 _$ I$ z8 C保存，关闭(包括next啊）
) f- ?0 V: J* U% u把文件名替换成key.vbs
如果变成这样：
就算成功了，等等，有些同志问了，为什么我改变名字会出现双后缀情况呢？(自己解决）
/ i7 y1 m) \: R+ f' E, P回到正题，创建好文件双击，确定。
好了，赶快去验证吧！
验证地址:http://www.microsoft.com/genuine/default.aspx?displaylang=zh-cn
: l0 \% E+ E; G
不会搞的也可以直接下载附件，解压后双击就可以了。

木棉花

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