【高州情】高州人深圳站

标题: XP盗版改正版 [打印本页]

---

作者: 游子.    时间: 2008-10-17 17:54:15     标题: XP盗版改正版

盗版XP变正版的方法(网上转贴)
" _% E$ z5 @9 L8 a) n" g6 c过几天微软公司就要正式 进行打击盗版的活动了，在这里，介绍一个方法让大家躲开，并且盗版变正版，保证可行。

有个让人讨厌的正版验证补丁（俗称五角星） 。
, F+ E* B" Q" O5 ^( b今天，我就叫大家怎样通过他的验证。
首先，在桌面上创建一个txt文档（好像这玩意啥也能干啊！）
7 @2 E8 F# I! @: n打开，在里面输入：
1 Y" u- O) G5 E7 cON ERROR RESUME NEXT

Dim VOL_PROD_KEY
! S' [7 C- g  r. j& |if Wscript.arguments.count<1 then
& W: d$ T, M* p$ m& P3 i' `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
4 b6 z3 K" x+ \/ @4 B; K7 uend if
. z3 W8 L. @' B9 ^7 `3 `/ Belse
% D* M8 j* t6 j7 }0 W4 jVOL_PROD_KEY = Wscript.arguments.Item(0)
end if

VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
+ [; o2 H4 o. J. ?1 v8 a
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
1 |9 X0 f  \' i/ y' w" ~  o% y- I
result = Obj.SetProductKey (VOL_PROD_KEY)

if err = 0 then
( c* Q' v1 P# q/ @' f$ l3 WWscript.echo "恭喜您，xp是正版的了@pple！"
end if

& {/ M  s% @' r3 Oif err <> 0 then
Wscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。"
- r) {8 T. a' c9 y& bErr.Clear
! i! x7 m# M0 x0 ^; r" I+ Cend if

Next

* S( j2 g1 N% a" O: r* X: u保存，关闭(包括next啊）
把文件名替换成key.vbs
如果变成这样：
3 a# R) u  R5 w) _就算成功了，等等，有些同志问了，为什么我改变名字会出现双后缀情况呢？(自己解决）
' M  {0 c, N* J) |: m; `  D) i* h0 L回到正题，创建好文件双击，确定。
好了，赶快去验证吧！
* W- r6 _# _1 [% E- p验证地址:http://www.microsoft.com/genuine/default.aspx?displaylang=zh-cn

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

---

作者: 木棉花    时间: 2008-10-18 03:18:27

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

---

欢迎光临 【高州情】高州人深圳站 (https://0668qq.cn/)

Powered by Discuz! X2