入门 认识硬件 基础术语 上网入门 故障 电脑死机 系统变慢 不能上网 网络 局域网络 无线网络 网络技术
教程 电脑操作 软件学习 路由设置 技巧 Word Excel QQ技巧 安全 木马查杀 黑客防御 安全资讯
系统 安装系统 系统技巧 系统设置 下载 装机必备 办公软件 实用工具 选购 选购指南 组装DIY 电脑配置

本月热词:

热门从零开始学电脑文章推荐

> 电脑入门 > 从零开始学电脑 > INTRODUCE

解答xp序列号如何更换

2018-12-18 10:23 作者:suan5.cn 来源:开机密码网 浏览: 我要评论 字号:

序列号和我们的身份证异曲同工,它是软件开发商为了防止盗版或者用户的信息被盗用而给软件的一个识别码。其实XP系统的序列号也是可以更改的,下面,我就给大家介绍一下更换XP序列号的方法

XP系统是服务时间最长的操作系统了,虽然微软已经停止对XP系统的支持了,但是还是有很多朋友想要安装XP系统。有些使用XP系统的朋友因为特殊原因需要更换序列号但是不知道方法。那么接下来,我就教大家如何更换序列号

1、我们首先新建一个文本文档。

xp

xp电脑图解1

2、然后再将下列代码复制粘贴到文本文档中。

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序列号

顶一下
(0)
0%
踩一下
(0)
0%
------分隔线----------------------------
◎最新评论
      谈谈您对该文章的看
      表  情:
      评论内容:
      点击我更换图片
      * 请注意用语文明且合法,谢谢合作 审核后才会显示! Ctrl+回车 可以直接发表