[其它工具]

安装media player11通过验证另一个方法 [复制链接]

（注：本人验证好后，可升级系统，现在还没见出现五角星） {a[&#Uv  
|e~u!V\m  
把下面这段代码复制到记事本里，保存为key.vbs,双击打开就可以了  @Ap@m6K?q  
ON ERROR RESUME NEXT  vY4WQbz(  
o.p+j  
Dim VOL_PROD_KEY  eB)UXOu1  
if Wscript.arguments.count<1 then  Y"r3i]  
VOL_PROD_KEY=InputBox("Powered By www.cnbeta.com"&vbCr&vbCr&" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK)：","Windows XP序列号自动更换器","MRX3F-47B9T-2487J-KWKMF-RPWBY")  \o0z@Ntq  
if VOL_PROD_KEY="" then  PY[Sz=[  
Wscript.quit  |G[
{{qZM5  
end if  q]2}UuM|U  
else  u?F7L8q]  
VOL_PROD_KEY = Wscript.arguments.Item(0)  C~3@M<X  
end if  n
C-c8
y  
Fcu
Eeca  
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any  =e"H1^Ml  
+OV%B .  
for each Obj in GetObject("winmgmts:{impers}").InstancesOf ("win32_WindowsProductActivation")  D4YT33$tC  
Enq6K1@%G  
result = Obj.SetProductKey (VOL_PROD_KEY)  5$(b3]  
Z&?+&q r^  
if err = 0 then  ')Dp%"\?  
Wscript.echo "OK！去微软验证吧！"  )'/nS$\E:  
end if  3Vb=6-|  
\N-|
i
q  
if err <> 0 then  2l\D~ y  
Wscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。"  (}/.4xE  
Err.Clear  5kRwSOG%'  
end if  >yPFL'  
QTrlQH&p  
Next n'0$>Q  

我喜欢vitas的歌！！！！

有用没

i不知是不是真的

好东西 支持

安装他干嘛？ d5q4'6o,