盗版XP变正版的方法(网上转贴) * W) J/ A# F( R9 f7 `过几天微软公司就要正式 进行打击盗版的活动了，在这里，介绍一个方法让大家躲开，并且盗版变正版，保证可行。 : W g9 W. w8 w/ } { i9 s4 B 6 Z4 e& X) ^$ q* P/ [ ?# E有个让人讨厌的正版验证补丁（俗称五角星） 。 0 U$ q; T- h3 O" x
今天，我就叫大家怎样通过他的验证。 ! Y% E$ T6 H* `0 ?6 n' k
首先，在桌面上创建一个txt文档（好像这玩意啥也能干啊！） ( y$ F" P# j7 Z( x打开，在里面输入： + K% j9 z: r- zON ERROR RESUME NEXT ; K! x0 x* L$ f5 m+ w$ m8 p
0 a6 O3 H0 _$ E9 H* m
Dim VOL_PROD_KEY 5 Z$ s" ?& L2 i/ pif Wscript.arguments.count<1 then 4 g- z P/ ]: X; ~. g
VOL_PROD_KEY=InputBox("Powered By www.zs128.com"&vbCr&vbCr&" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK)：","Windows XP序列号自动更换器","MRX3F-47B9T-2487J-KWKMF-RPWBY") / r' W5 [1 O! y6 z% t( C, d& pif VOL_PROD_KEY="" then 7 W7 p' q3 e8 w; P. D5 g! DWscript.quit 5 w+ Z" q ?0 s$ h j5 w
end if - g; ~# k6 ?+ j ]- n( J7 o- qelse 3 y; f" v% \# G* f, H1 W a ]5 FVOL_PROD_KEY = Wscript.arguments.Item(0) : O) J# m$ W$ n3 g% I# n8 c8 K
end if / \2 r" g! W0 q2 u% [, G
$ J9 d: i( b' f- s3 D8 b8 x0 T5 u. lVOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any ! x; ?$ p$ v/ N- I6 j8 G
/ @. X( L7 Q- Q3 S: X2 R* D
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation") # \; N( B! {2 r2 y/ }8 T
6 \/ ?, G! G7 f6 h4 ~# dresult = Obj.SetProductKey (VOL_PROD_KEY) $ F' z* n$ q8 z+ ]" g
8 I5 M% f2 H/ ~5 Z' jif err = 0 then 8 H( S2 N& Z9 u& H
Wscript.echo "恭喜您，xp是正版的了@pple！" # d. F' z/ k: [, \
end if ) a# V, ^& B8 J' v; g' v4 _! d/ d1 R( `7 n
if err <> 0 then + H0 W. }7 N# ~5 c: DWscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。" / C1 K B$ [- f Z7 u" [% D3 B% @$ P
Err.Clear 5 y, v0 S T3 fend if # z2 l, F. n z+ n. _5 Y3 P0 z N : ^. v% C. A+ bNext % ^* `0 M( P" h$ {8 M+ m