XP盗版改正版

游子.

盗版XP变正版的方法(网上转贴)
' a1 [9 `* {3 j3 ?8 X& r过几天微软公司就要正式 进行打击盗版的活动了，在这里，介绍一个方法让大家躲开，并且盗版变正版，保证可行。

# Z2 l, n3 F$ Y; e+ t# M+ X有个让人讨厌的正版验证补丁（俗称五角星） 。
) m+ ^5 l2 [( D2 N+ V今天，我就叫大家怎样通过他的验证。
* Y: n( W; C; _! j9 s4 q+ B首先，在桌面上创建一个txt文档（好像这玩意啥也能干啊！）
# [* Y0 b( N5 n3 o8 O打开，在里面输入：
4 I; s) B* ~' q7 n; `: @4 GON ERROR RESUME NEXT
+ U& ?* H; C, V; x
Dim VOL_PROD_KEY
2 @4 y' X: p7 Hif Wscript.arguments.count<1 then
2 V* `* e( @( @8 n1 E' H7 G8 o: {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
8 }, R5 a" ?9 I( I5 x5 ]0 fWscript.quit
end if
else
VOL_PROD_KEY = Wscript.arguments.Item(0)
+ V3 N: n+ k4 l# d. j3 nend if
0 w; H: Z7 V$ V* a- p# u
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
6 s( G3 ~0 }' u6 l7 C
( M4 P& {" l( o0 K' C0 T' dfor each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")

result = Obj.SetProductKey (VOL_PROD_KEY)
- E$ j% U  ~, m' M) [. `
if err = 0 then
Wscript.echo "恭喜您，xp是正版的了@pple！"
end if
; v7 |4 \* \9 e8 M$ l, n4 i
if err <> 0 then
8 n$ Z0 _6 C8 X3 c2 ZWscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。"
8 r  O8 v6 w) W; e) e/ `Err.Clear
end if

Next
' e9 Q' i' f# t* O7 S4 j' ^
, x! G5 `, p* h保存，关闭(包括next啊）
把文件名替换成key.vbs
如果变成这样：
  t: {* S9 N9 n就算成功了，等等，有些同志问了，为什么我改变名字会出现双后缀情况呢？(自己解决）
回到正题，创建好文件双击，确定。
, P) X. _3 `* }/ C) N好了，赶快去验证吧！
验证地址:http://www.microsoft.com/genuine/default.aspx?displaylang=zh-cn
5 @5 B+ c! b. U9 a3 L8 ^0 B
不会搞的也可以直接下载附件，解压后双击就可以了。

木棉花

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