电脑开机时出现一个“Windows产品激活”对话框怎么解决?
这是微软正版验证的流氓式安全更新PACK3造成的的么?D版xp系统安装该更新后就会出现这个问题?还是系统没有激活就是盗版的?...
这是微软正版验证的流氓式安全更新PACK3造成的的么?
D版xp系统安装该更新后就会出现这个问题?
还是系统没有激活就是盗版的? 展开
D版xp系统安装该更新后就会出现这个问题?
还是系统没有激活就是盗版的? 展开
展开全部
电脑右下角出现激活windows提示怎么办?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-05-22
展开全部
你安装的不是正版的XP系统,要激活才能用的。现在网上有很多系统都是免激活的,而且可以在微软官网上升级。你可以试试哈,推荐雨林木风GHOST
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐于2017-12-15
展开全部
ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("本程序能帮助您更换 WindowsXP 的序列号。"&vbCr&vbCr&"序列号由您自己寻找并输入。下面列出的不一定是您当前用的序列号,仅作格式参考。"&vbCr&vbCr&"请输入新的序列号:","WindowsXP序列号更换器","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 "修改成功。请点击附带的网址到微软网站进行验证。祝您好运!"
end if
if err <> 0 then
Wscript.echo "替换失败!您输入的序列号有误。"
Err.Clear
end if
Next
然后保存为 XP序列号替换器.vbs 运行就OK了
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("本程序能帮助您更换 WindowsXP 的序列号。"&vbCr&vbCr&"序列号由您自己寻找并输入。下面列出的不一定是您当前用的序列号,仅作格式参考。"&vbCr&vbCr&"请输入新的序列号:","WindowsXP序列号更换器","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 "修改成功。请点击附带的网址到微软网站进行验证。祝您好运!"
end if
if err <> 0 then
Wscript.echo "替换失败!您输入的序列号有误。"
Err.Clear
end if
Next
然后保存为 XP序列号替换器.vbs 运行就OK了
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |