XP盗版改正版

游子.

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

& u( {, n9 C3 o% c6 K% K有个让人讨厌的正版验证补丁（俗称五角星） 。
6 z/ B8 u- z9 ~% y1 Y今天，我就叫大家怎样通过他的验证。
首先，在桌面上创建一个txt文档（好像这玩意啥也能干啊！）
3 ]8 A& ?3 o; r$ I: m打开，在里面输入：
ON ERROR RESUME NEXT
6 E; Q$ F" @! q) P  k9 e# h
Dim VOL_PROD_KEY
% W! C% ?& K4 t3 p" Z$ d3 jif 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")
$ `4 w8 w' [" o: A+ b+ ?if VOL_PROD_KEY="" then
Wscript.quit
end if
3 u, w. Y+ O$ b5 w: F# m6 Yelse
  J$ I$ l1 v: a2 S" _. p9 gVOL_PROD_KEY = Wscript.arguments.Item(0)
end if

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

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

result = Obj.SetProductKey (VOL_PROD_KEY)

if err = 0 then
7 K' a$ D& Q( r4 l0 A% \8 vWscript.echo "恭喜您，xp是正版的了@pple！"
end if

- e5 Y1 U  S- O$ J. ^& xif err <> 0 then
. Q0 s$ X( M- h/ o# R2 W8 I! T& cWscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。"
Err.Clear
end if
) E4 |3 D0 K3 [4 N. l+ y
Next

$ Q& n3 u6 v7 [8 m保存，关闭(包括next啊）
0 s! N8 Y: e4 e3 U) [1 A! c% u把文件名替换成key.vbs
如果变成这样：
就算成功了，等等，有些同志问了，为什么我改变名字会出现双后缀情况呢？(自己解决）
$ H1 ]$ G% v& a; ~8 Q9 p- A回到正题，创建好文件双击，确定。
. Y6 h4 L+ B! d5 v3 n) ^7 P好了，赶快去验证吧！
5 R6 u. H; x  A* H% f1 q* n# a: \# R验证地址:http://www.microsoft.com/genuine/default.aspx?displaylang=zh-cn
5 \# r& Y5 P; \
不会搞的也可以直接下载附件，解压后双击就可以了。

木棉花

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