加入收藏 | 设为首页 | 会员中心 | 我要投稿 核心网 (https://www.hxwgxz.com/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 教程 > 正文

解答xp序列号怎样更换

发布时间:2022-03-07 19:47:04 所属栏目:教程 来源:互联网
导读:序列号和我们的身份证异曲同工,它是软件开发商为了防止盗版或者用户的信息被盗用而给软件的一个识别码。其实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系统序列号的方法了,希望能帮助到你。

(编辑:核心网)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    热点阅读