中国网管论坛 » 综合信息提问版 » WINDOS xp SP2 激活破解

dayan304 发表于 2008-5-10 11:36

WINDOS xp SP2 激活破解

电脑现在无法正常进入，求激活破解方法

dayan304 发表于 2008-5-10 11:37

ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("Start change CD-KEY..."&vbCr&vbCr&"(without OEM, only for XP VLK)：","Windows XP","MRX3F-47B9T-2487J-KWKMF-RPWBY")
if VOL_PROD_KEY="" then
Wscript.quit
end if
else
VOL_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
Wscript.echo "Successful!"
end if
if err <> 0 then
Wscript.echo "Sorry, something is wrong."
Err.Clear
end if
Next


这段代码是否可行？

liuyang2046 发表于 2008-5-11 17:39

ON ERROR RESUME NEXT

Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("Powered By [url]www.cnbeta.com[/url]"&vbCr&vbCr&" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK)：","Windows XP序列号自动更换器","MRX3F-47B9T-2487J-KWKMF-RPWBY")
if VOL_PROD_KEY="" then
Wscript.quit
end if
else
VOL_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
Wscript.echo "OK！去微软验证吧！"
end if

if err <> 0 then
Wscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。"
Err.Clear
end if

Next
把上面的代码保存为.VBS文件，在安全模式下面运行。

03zhangfang 发表于 2008-5-12 08:14

我估计现在楼主的电脑根本不能进系统，也就是说不能执行你们写的。

dayan304 发表于 2008-5-12 09:25

电脑在用户登陆界面就开始询问是否去激活。但是还是可以进入系统，你点击网络激活，在IE中输入C:/就可以进入C盘，但是我问的那段代码确不能激活。
我想了解一下，这个问题和微软最近搞的那个正版验证有没有什么直接的关系可？

552yunshug 发表于 2008-5-12 09:43

[color=black]个人认为从网上找几个可用的序列号应该最简单吧.而且还方便[/color]

03zhangfang 发表于 2008-5-12 09:59

我以前找过，从网上找了10多个序列号都不能用

angel198305 发表于 2008-5-12 11:17

序列号一大堆啊  看清楚自己的版本号
然后搜下  很多的

leader971 发表于 2008-5-12 13:45

用pe系统吧
替换哪个正版验证的文件

yleio 发表于 2008-5-15 16:43

aaaaaaaaaaa

aaaaaaaaaaaaaaaaaaaaaaa

yleio 发表于 2008-5-15 16:44

rgewgbwegbv

gewgwegw

yleio 发表于 2008-5-15 16:44

fawgfawg

fafqwag

yleio 发表于 2008-5-15 16:45

gaw

geaghawg

yleio 发表于 2008-5-15 16:45

gwagwag

gawaggawgaw

查看完整版本: WINDOS xp SP2 激活破解