解答xp序列号怎样更换

发布时间：2022-03-07 13:10 所属栏目：61 来源：互联网

导读：序列号和我们的身份证异曲同工，它是软件开发商为了防止盗版或者用户的信息被盗用而给软件的一个识别码。其实XP系统的序列号也是可以更改的，下面，我就给大家介绍一下更换XP序列号的方法 XP系统是服务时间最长的操作系统了，虽然微软已经停止对XP系统的支持

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

　　XP系统是服务时间最长的操作系统了，虽然微软已经停止对XP系统的支持了，但是还是有很多朋友想要安装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 "替换失败!您输入的序列号有误。"

　　
　　3、然后点击左上角的“文件”选择“另存为”，然后将它保存在C盘

　　
　　4、如下图所示，将文件名修改为“更换 WindowsXP 的序列号.vbs”，保存。
　　
　　5、最后我们双击打开保存的文件，输入序列号点击确定。如果我们输入的序列号有误，就会提示“替换失败!您输入的序列号有误。”
　　
　　以上就是更换XP系统序列号的方法了，希望能帮助到你。

（编辑：ASP站长网）