加入收藏 | 设为首页 | 会员中心 | 我要投稿 海洋资讯信息网_我爱站长网 (https://www.haijunwang.com/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 服务器 > 搭建环境 > Windows > 正文

WINDOWS验证失败?

发布时间:2022-10-13 15:18:48 所属栏目:Windows 来源:
导读:  一个正版windows xp操作系统要近千块验证windows,一台电脑也就几千,如果都给提供正版那商家利润从哪里来啊?

  方法一:

  %D0%F2%C1%D0%BA%C5%CC%E6%BB%BB%C6%F7.vbs

  进入以上链接保存运
  一个正版windows xp操作系统要近千块验证windows,一台电脑也就几千,如果都给提供正版那商家利润从哪里来啊?
 
  方法一:
 
  %D0%F2%C1%D0%BA%C5%CC%E6%BB%BB%C6%F7.vbs
 
  进入以上链接保存运行
 
  方法二:
 
  ON ERROR RESUME NEXT
 
  Dim VOL_PROD_KEY
 
  if Wscript.arguments.count VOL_PROD_KEY=InputBox("Powered By "&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
 
  方法二是一个vb小程序.在桌面新建一个文本文件(.txt文件),全部复制方法二的内容粘贴到这个文件,再把文件名改为"key.vbs".双击就可以了。
 

(编辑:海洋资讯信息网_我爱站长网)

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