许多网友都很苦恼一件事情，那就是自己已经激活好的系统，觉得这个系统不太好用便想着重装系统，但是重装系统完之后系统激活秘钥却丢失了，需要再次进行激活便觉得很是麻烦。那么我们能不能将win10激活备份呢?其实是可以的，下面小编就来教大家如何将win10激活备份1)首先，在桌面新建一个文本，然后将下方的代码复制粘贴到文本中Option ExplicitDim objshell,path,DigitalID, ResultSet objshell = CreateObject(“Wscript.Shell”)‘Set registry key pathPath = “HKLMSOFTWAREMicrosoftWindows NTCurrentVersion”‘Registry key valueDigitalID = objshell.RegRead(Path & “DigitalProductId”)Dim ProductName,ProductID,ProductKey,ProductData‘Get ProductName, ProductID, ProductKeyProductName = “系统名称：” & objshell.RegRead(Path & “ProductName”)ProductID = “产品ID：” & objshell.RegRead(Path & “ProductID”)ProductKey = “已安装密钥：” & ConvertToKey(DigitalID)ProductData = ProductName & vbnewline & ProductID & vbnewline & ProductKey‘Show messbox if save to a fileIf vbYes = MsgBox(ProductData & vblf & vblf & “要将密钥保存到文件吗?”, vbYesNo + vbQuestion, “软媒魔方备份Windows密钥信息”) thenSave ProductDataEnd If‘Convert binary to charsFunction ConvertToKey(Key)Const KeyOffset = 52Dim isWin10, Maps, i, j, Current, KeyOutput, Last, keypart1, insert‘Check if OS is Windows 10isWin10 = (Key(66) 6) And 1Key(66) = (Key(66) And &HF7) Or ((isWin10 And 2) * 4)i = 24Maps = “BCDFGHJKMPQRTVWXY2346789”DoCurrent= 0j = 14DoCurrent = Current* 256Current = Key(j + KeyOffset) + CurrentKey(j + KeyOffset) = (Current 24)Current=Current Mod 24j = j -1Loop While j >= 0i = i -1KeyOutput = Mid(Maps,Current+ 1, 1) & KeyOutputLast = CurrentLoop While i >= 0If (isWin10 = 1) Thenkeypart1 = Mid(KeyOutput, 2, Last)insert = “N”KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)If Last = 0 Then KeyOutput = insert & KeyOutputEnd IfConvertToKey = Mid(KeyOutput, 1, 5) & “-” & Mid(KeyOutput, 6, 5) & “-” & Mid(KeyOutput, 11, 5) & “-” & Mid(KeyOutput, 16, 5) & “-” & Mid(KeyOutput, 21, 5)End Function‘Save data to a fileFunction Save(Data)Dim fso, fName, txt,objshell,UserNameSet objshell = CreateObject(“wscript.shell”)‘Get current user nameUserName = objshell.ExpandEnvironmentStrings(“%UserName%”)‘Create a text file on desktopfName = “C:Users” & UserName & “DesktopWindows密钥备份.txt”Set fso = CreateObject(“scripting.FileSystemObject”)Set txt = fso.CreateTextFile(fName)txt.Writeline Datatxt.CloseEnd Function2)粘贴完成之后我们点击“文件”，然后再来点击“另存为”3)此时我们选择保存的路径为桌面，然后在下方的命名处将其文本命名为“密钥查询和备份.vbs”，然后点击确定4)此时我们双击刚刚新建的那个文本，此时会弹出一个窗口，我们点击“是”即可备份激活信息5)点击“是”之后桌面会出现一个新的文本，我们点击进去即可查看到我们的系统激活信息，也就是秘钥以上便是win10激活备份的简单操作方法啦
图片声明：本站部分配图来自人工智能系统AI生成,觅知网授权图片,PxHere摄影无版权图库。本站只作为美观性配图使用,无任何非法侵犯第三方意图,一切解释权归图片著作权方,本站不承担任何责任。如有恶意碰瓷者,必当奉陪到底严惩不贷!
内容声明：本文中引用的各种信息及资料（包括但不限于文字、数据、图表及超链接等）均来源于该信息及资料的相关主体（包括但不限于公司、媒体、协会等机构）的官方网站或公开发表的信息。部分内容参考包括:(百度百科,百度知道,头条百科,中国民法典,刑法,牛津词典,新华词典,汉语词典,国家院校,科普平台)等数据,内容仅供参考使用,不准确地方联系删除处理！本站为非盈利性质站点,发布内容不收取任何费用也不接任何广告!
免责声明：我们致力于保护作者版权，注重分享，被刊用文章因无法核实真实出处，未能及时与作者取得联系，或有版权异议的，请联系管理员，我们会立即处理，本文部分文字与图片资源来自于网络，部分文章是来自自研大数据AI进行生成,内容摘自(百度百科,百度知道,头条百科,中国民法典,刑法,牛津词典,新华词典,汉语词典,国家院校,科普平台)等数据,内容仅供学习参考,不准确地方联系删除处理!的,若有来源标注错误或侵犯了您的合法权益，请立即通知我们，情况属实，我们会第一时间予以删除，并同时向您表示歉意,谢谢!
