- 威望
- 33
- 在线时间
- 14 小时
- 金币
- 41
- 贡献
- 0
- 存款
- 0
- 最后登录
- 2009-10-23
- 注册时间
- 2008-4-24
- 帖子
- 35
- 精华
- 0
- 积分
- 86
- 阅读权限
- 10
- UID
- 784

- 金币
- 41
- 贡献
- 0
- 威望
- 33
- 最后登录
- 2009-10-23
- 帖子
- 35
- 积分
- 86
- UID
- 784
|
盗版XP变正版的方法(网上转贴)- |1 o6 E8 u: ~& X; C7 \
过几天微软公司就要正式 进行打击盗版的活动了,在这里,介绍一个方法让大家躲开,并且盗版变正版,保证可行。
+ Q! l7 K, _5 l+ J% D7 M
; J \0 f; q% C8 J n% l* I, c有个让人讨厌的正版验证补丁(俗称五角星) 。 0 \' S2 K7 h( S$ ?: O
今天,我就叫大家怎样通过他的验证。 ( p/ C N4 a' \ u( K1 |& ]9 Z d) Q
首先,在桌面上创建一个txt文档(好像这玩意啥也能干啊!) * W/ q% {+ l0 w7 A7 b) A
打开,在里面输入:
, |$ T- X0 ~. V/ wON ERROR RESUME NEXT 0 W8 g( O' P O$ u
& d9 X* U. W/ n" z8 Q* y- VDim VOL_PROD_KEY 6 Z5 p2 R% u& U, }
if Wscript.arguments.count<1 then $ W0 O/ _! X( _8 H; H$ ?
VOL_PROD_KEY=InputBox("Powered By www.zs128.com"&vbCr&vbCr&" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK):","Windows XP序列号自动更换器","MRX3F-47B9T-2487J-KWKMF-RPWBY") 7 n: _9 C) Y, Q+ X* Z& p
if VOL_PROD_KEY="" then # q' i- I6 w& S. x' S
Wscript.quit
' I7 l l0 o/ d4 ]end if / w4 W: J4 ?: {$ N- j- ?7 i
else
+ ]7 J& P$ J; ?2 E" L+ w1 j v) QVOL_PROD_KEY = Wscript.arguments.Item(0) % U7 ~2 ?8 ^+ s6 C6 m9 l# }6 g) d
end if
. b8 I5 l. u" Z% u$ `) W v/ S+ e6 j/ C G! \( W* M ` ?4 W
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
: c1 e }& y. r6 K3 O: o8 x" v
! n Z5 A7 R- O0 g$ ufor each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
x% p, Y u8 R9 Y; ]
" m; [2 c0 a1 Yresult = Obj.SetProductKey (VOL_PROD_KEY)
+ K% E; |1 V0 V
9 J- q4 u( [ rif err = 0 then
' h$ Z3 C9 ?6 U. fWscript.echo "恭喜您,xp是正版的了@pple!"
4 j' @$ ?( O; u$ u3 E7 M: I, Iend if
+ N* ?; q% [) T8 D' b
0 |/ P8 h* x! k8 u8 P0 {! I! u5 tif err <> 0 then
6 [+ T0 l- t9 [; y% S% L# vWscript.echo "替换失败!输入的 CD-KEY 与当前的版本不匹配。" 3 n" ^% c8 K9 E0 U4 F
Err.Clear % C% z( F! U: B0 s" @7 _" M
end if : }0 U3 c9 j. f: t% V
, W. T1 f- |$ y( v2 Y! e1 x
Next 0 p& H7 n1 [ P# M. K5 N- O ^$ z1 {
9 `) L4 o% c: D4 q: ]' |保存,关闭(包括next啊)
: d g# h1 ]+ p$ Q5 b4 a2 c把文件名替换成key.vbs & f: Q: a G3 u" d W" Q0 m0 G
如果变成这样: ; E, p U& K3 k5 p+ ~7 J# V) J
就算成功了,等等,有些同志问了,为什么我改变名字会出现双后缀情况呢?(自己解决) / U8 T( n$ G* l
回到正题,创建好文件双击,确定。 2 A' e# f2 t' k# c5 n, h) N5 r
好了,赶快去验证吧! . Y. U8 G- s( q
验证地址:http://www.microsoft.com/genuine/default.aspx?displaylang=zh-cn
' @6 `) ^! e0 K7 ^; X6 K: o& c4 f# M' ? G- q* c- _
不会搞的也可以直接下载附件,解压后双击就可以了。 |
|