专业版win10激活密钥工具,win10 备份密钥

  专业版win10激活密钥工具,win10 备份密钥

  微软即将关闭Win7/Win8.1免费升级Win10系统的通道。此时,如果仍有用户想升级Windows S10但没有,可以尝试使用本文中的方法进行全新安装。新安装的优点是不会出现新旧系统连接不良的问题。虽然升级安装Win10后的体验没有一年前那么差,但这种本质上的区别是Windows系统升级安装的通病,很难避免。

  当然,免费升级可能更安全,因为一般来说,升级前的系统都是激活的。虽然条条大路通罗马,但是微软一般什么都不管,给的是激活状态的Win10。不过使用新安装再输入产品密钥的方法可能更适合正版用户,或者自己手里有合法密钥的用户(至少密钥没有被屏蔽)。如果你能确认你手中的钥匙没有问题,试试边肖的方法。操作很简单。您只需要将下面的代码保存在。vbs格式(自制文件名)使用记事本等。双击运行它。适用于Win7/Win8.1/Win10系统。

  图片说明:此图不代表企业版支持免费升级,而是本文的方法同样适用于企业版的密钥查询和备份。

  代码如下:

  选项显式

  Dim对象外壳,路径,数字,结果

  set objshell=CreateObject( WScript。外壳’)

  设置注册表项路径

  path= hklmsoftware Microsoft windows NTCurrentVersion

  注册表键值

  DigitalID=objshell。RegRead(路径“DigitalProductId”)

  Dim产品名称,产品ID,产品密钥,产品数据

  获取产品名称、产品ID、产品密钥

  ProductName=系统名称: objshell.regread(路径产品名称)

  ProductID=产品ID: objshell.regread(路径 ProductID )

  product key= installed key: convert tokey(DigitalID)

  product data=product name VB newline product id VB newline product key

  保存到文件时显示消息框

  if yes=msgbox(product data vblf vblf 是否要将密钥保存到文件中?,vbYesNo vbQuestion,软媒体魔方备份Windows关键信息)然后

  保存产品数据

  如果…就会结束

  将二进制转换为字符

  功能转换键

  常量键偏移量=52

  Dim isWin10,Maps,I,j,Current,KeyOutput,Last,keypart1,insert

  检查操作系统是否为Windows 10

  isWin10=(Key(66) 6)和1

  Key(66)=(Key(66)和HF7)或((isWin10和2) * 4)

  i=24

  Maps=BCDFGHJKMPQRTVWXY2346789

  做

  电流=0

  j=14

  做

  电流=电流* 256

  电流=Key(j KeyOffset)电流

  Key(j KeyOffset)=(当前24)

  电流=电流模式24

  j=j -1

  j=0时循环

  i=i -1

  KeyOutput=Mid(地图,当前1,1) KeyOutput

  上次=当前

  i=0时循环

  如果(isWin10=1)则

  keypart1=Mid(KeyOutput,2,Last)

  insert=N

  KeyOutput=Replace(KeyOutput,keypart1,keypart1 insert,2,1,0)

  如果Last=0,则KeyOutput=insert KeyOutput

  如果…就会结束

  ConvertToKey=Mid(KeyOutput,1,5) - Mid(KeyOutput,6,5) - Mid(KeyOutput,11,5) - Mid(KeyOutput,16,5) - Mid(KeyOutput,21,5)

  结束功能

  将数据保存到文件中

  功能保存(数据)

  Dim fso,fName,txt,objshell,用户名

  set objshell=CreateObject( wscript . shell )

  获取当前用户名

  用户名=objshell。ExpandEnvironmentStrings(“% UserName %”)

  在桌面上创建文本文件

  Fname= c: users 用户名 desktopwindows key backup.txt

  Set fso=CreateObject(脚本。file system object’)

  设置txt=fso。创建文本文件(fName)

  txt。写线数据

  txt。关闭

  结束功能

  -分界线-

  图片说明:代码粘贴到记事本后,另存为。vbs格式。

  图片说明:备份密钥会以文本文件的形式保存到桌面(。txt)的运行效果。

  图片说明:保存密钥文件的内容。

  当然,手动新建一个文件,复制粘贴代码,然后保存,比较麻烦,可以直接在下面下载现成的文件,然后直接运行。

  Windows产品密钥查询备份文件:网络磁盘下载(2KB)

郑重声明:本文由网友发布,不代表盛行IT的观点,版权归原作者所有,仅为传播更多信息之目的,如有侵权请联系,我们将第一时间修改或删除,多谢。

留言与评论(共有 条评论)
   
验证码: