微星Win10 家庭版预装的产品密钥怎么看到，这产品密钥怎么看着那么少

发布网友发布时间：2022-04-24 03:21

我来回答

共4个回答

热心网友时间：2023-10-24 14:01

Set WshShell = CreateObject("WScript.Shell")

regKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"

DigitalProctId = WshShell.RegRead(regKey & "DigitalProctId")

WinProctName = "Windows 产品名称: " & WshShell.RegRead(regKey & "ProctName") & vbNewLine

WinProctID = "Windows 产品 ID: " & WshShell.RegRead(regKey & "ProctID") & vbNewLine

WinProctKey = ConvertToKey(DigitalProctId)

strProctKey = "Windows 产品密钥: " & WinProctKey

WinProctID = WinProctName & WinProctID & strProctKey

'MsgBox(WinProctKey)

MsgBox(WinProctID)

Function ConvertToKey(regKey)

Const KeyOffset = 52

isWin = (regKey(66) \ 6) And 1

regKey(66) = (regKey(66) And &HF7) Or ((isWin And 2) * 4)

j = 24

Chars = "BCDFGHJKMPQRTVWXY2346789"

Cur = 0

y = 14

Cur = Cur * 256

Cur = regKey(y + KeyOffset) + Cur

regKey(y + KeyOffset) = (Cur \ 24)

Cur = Cur Mod 24

y = y -1

Loop While y >= 0

j = j -1

winKeyOutput = Mid(Chars, Cur + 1, 1) & winKeyOutput

Last = Cur

Loop While j >= 0

If (isWin = 1) Then

keypart1 = Mid(winKeyOutput, 2, Last)

insert = "N"

winKeyOutput = Replace(winKeyOutput, keypart1, keypart1 & insert, 2, 1, 0)

If Last = 0 Then winKeyOutput = insert & winKeyOutput

End If

a = Mid(winKeyOutput, 1, 5)

b = Mid(winKeyOutput, 6, 5)

c = Mid(winKeyOutput, 11, 5)

d = Mid(winKeyOutput, 16, 5)

e = Mid(winKeyOutput, 21, 5)

ConvertToKey = a & "-" & b & "-" & c & "-" & d & "-" & e

End Function

把上面的内容写进一个空的文本文件里面，然后另存为后缀名为vbs的文件，之后双击运行这个vbs文件，即可获取的当前系统中的密钥。

如下图运行后的效果：

追问谢谢

热心网友时间：2023-10-24 14:01

可通过注册表查询，具体操作步骤：

1、搜索regedit打开注册表，
依次定位：HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows NT/CurrentVersion/SoftwareProtectionPlatform。

2、选择右侧的“BackupProctKeyDefault”键值，后面的25位字符就是Win10激活密钥。

热心网友时间：2023-10-24 14:02

您好，参考下 http://m.baidu.com/，现在很多直接和主板绑定，无需密匙直接激活的

热心网友时间：2023-10-24 14:02

百度工具
Proct Key或AIDA64

热心网友时间：2023-10-24 14:01

Set WshShell = CreateObject("WScript.Shell")

regKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"

DigitalProctId = WshShell.RegRead(regKey & "DigitalProctId")

WinProctName = "Windows 产品名称: " & WshShell.RegRead(regKey & "ProctName") & vbNewLine

WinProctID = "Windows 产品 ID: " & WshShell.RegRead(regKey & "ProctID") & vbNewLine

WinProctKey = ConvertToKey(DigitalProctId)

strProctKey = "Windows 产品密钥: " & WinProctKey

WinProctID = WinProctName & WinProctID & strProctKey

'MsgBox(WinProctKey)

MsgBox(WinProctID)

Function ConvertToKey(regKey)

Const KeyOffset = 52

isWin = (regKey(66) \ 6) And 1

regKey(66) = (regKey(66) And &HF7) Or ((isWin And 2) * 4)

j = 24

Chars = "BCDFGHJKMPQRTVWXY2346789"

Cur = 0

y = 14

Cur = Cur * 256

Cur = regKey(y + KeyOffset) + Cur

regKey(y + KeyOffset) = (Cur \ 24)

Cur = Cur Mod 24

y = y -1

Loop While y >= 0

j = j -1

winKeyOutput = Mid(Chars, Cur + 1, 1) & winKeyOutput

Last = Cur

Loop While j >= 0

If (isWin = 1) Then

keypart1 = Mid(winKeyOutput, 2, Last)

insert = "N"

winKeyOutput = Replace(winKeyOutput, keypart1, keypart1 & insert, 2, 1, 0)

If Last = 0 Then winKeyOutput = insert & winKeyOutput

End If

a = Mid(winKeyOutput, 1, 5)

b = Mid(winKeyOutput, 6, 5)

c = Mid(winKeyOutput, 11, 5)

d = Mid(winKeyOutput, 16, 5)

e = Mid(winKeyOutput, 21, 5)

ConvertToKey = a & "-" & b & "-" & c & "-" & d & "-" & e

End Function

把上面的内容写进一个空的文本文件里面，然后另存为后缀名为vbs的文件，之后双击运行这个vbs文件，即可获取的当前系统中的密钥。

如下图运行后的效果：

追问谢谢

热心网友时间：2023-10-24 14:01

热心网友时间：2023-10-24 14:02

您好，参考下 http://m.baidu.com/，现在很多直接和主板绑定，无需密匙直接激活的

热心网友时间：2023-10-24 14:02

百度工具
Proct Key或AIDA64

热心网友时间：2023-10-24 14:01

Set WshShell = CreateObject("WScript.Shell")

regKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"

DigitalProctId = WshShell.RegRead(regKey & "DigitalProctId")

WinProctName = "Windows 产品名称: " & WshShell.RegRead(regKey & "ProctName") & vbNewLine

WinProctID = "Windows 产品 ID: " & WshShell.RegRead(regKey & "ProctID") & vbNewLine

WinProctKey = ConvertToKey(DigitalProctId)

strProctKey = "Windows 产品密钥: " & WinProctKey

WinProctID = WinProctName & WinProctID & strProctKey

'MsgBox(WinProctKey)

MsgBox(WinProctID)

Function ConvertToKey(regKey)

Const KeyOffset = 52

isWin = (regKey(66) \ 6) And 1

regKey(66) = (regKey(66) And &HF7) Or ((isWin And 2) * 4)

j = 24

Chars = "BCDFGHJKMPQRTVWXY2346789"

Cur = 0

y = 14

Cur = Cur * 256

Cur = regKey(y + KeyOffset) + Cur

regKey(y + KeyOffset) = (Cur \ 24)

Cur = Cur Mod 24

y = y -1

Loop While y >= 0

j = j -1

winKeyOutput = Mid(Chars, Cur + 1, 1) & winKeyOutput

Last = Cur

Loop While j >= 0

If (isWin = 1) Then

keypart1 = Mid(winKeyOutput, 2, Last)

insert = "N"

winKeyOutput = Replace(winKeyOutput, keypart1, keypart1 & insert, 2, 1, 0)

If Last = 0 Then winKeyOutput = insert & winKeyOutput

End If

a = Mid(winKeyOutput, 1, 5)

b = Mid(winKeyOutput, 6, 5)

c = Mid(winKeyOutput, 11, 5)

d = Mid(winKeyOutput, 16, 5)

e = Mid(winKeyOutput, 21, 5)

ConvertToKey = a & "-" & b & "-" & c & "-" & d & "-" & e

End Function

把上面的内容写进一个空的文本文件里面，然后另存为后缀名为vbs的文件，之后双击运行这个vbs文件，即可获取的当前系统中的密钥。

如下图运行后的效果：

追问谢谢

热心网友时间：2023-10-24 14:01

Set WshShell = CreateObject("WScript.Shell")

regKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"

DigitalProctId = WshShell.RegRead(regKey & "DigitalProctId")

WinProctName = "Windows 产品名称: " & WshShell.RegRead(regKey & "ProctName") & vbNewLine

WinProctID = "Windows 产品 ID: " & WshShell.RegRead(regKey & "ProctID") & vbNewLine

WinProctKey = ConvertToKey(DigitalProctId)

strProctKey = "Windows 产品密钥: " & WinProctKey

WinProctID = WinProctName & WinProctID & strProctKey

'MsgBox(WinProctKey)

MsgBox(WinProctID)

Function ConvertToKey(regKey)

Const KeyOffset = 52

isWin = (regKey(66) \ 6) And 1

regKey(66) = (regKey(66) And &HF7) Or ((isWin And 2) * 4)

j = 24

Chars = "BCDFGHJKMPQRTVWXY2346789"

Cur = 0

y = 14

Cur = Cur * 256

Cur = regKey(y + KeyOffset) + Cur

regKey(y + KeyOffset) = (Cur \ 24)

Cur = Cur Mod 24

y = y -1

Loop While y >= 0

j = j -1

winKeyOutput = Mid(Chars, Cur + 1, 1) & winKeyOutput

Last = Cur

Loop While j >= 0

If (isWin = 1) Then

keypart1 = Mid(winKeyOutput, 2, Last)

insert = "N"

winKeyOutput = Replace(winKeyOutput, keypart1, keypart1 & insert, 2, 1, 0)

If Last = 0 Then winKeyOutput = insert & winKeyOutput

End If

a = Mid(winKeyOutput, 1, 5)

b = Mid(winKeyOutput, 6, 5)

c = Mid(winKeyOutput, 11, 5)

d = Mid(winKeyOutput, 16, 5)

e = Mid(winKeyOutput, 21, 5)

ConvertToKey = a & "-" & b & "-" & c & "-" & d & "-" & e

End Function

把上面的内容写进一个空的文本文件里面，然后另存为后缀名为vbs的文件，之后双击运行这个vbs文件，即可获取的当前系统中的密钥。

如下图运行后的效果：

追问谢谢

热心网友时间：2023-10-24 14:01

热心网友时间：2023-10-24 14:02

您好，参考下 http://m.baidu.com/，现在很多直接和主板绑定，无需密匙直接激活的

热心网友时间：2023-10-24 14:02

百度工具
Proct Key或AIDA64

热心网友时间：2023-10-24 14:01

热心网友时间：2023-10-24 14:02

您好，参考下 http://m.baidu.com/，现在很多直接和主板绑定，无需密匙直接激活的

热心网友时间：2023-10-24 14:02

百度工具
Proct Key或AIDA64

msi微星GF638RD-006CN怎么装win10系统|msi微星GF638RD-006CN用u盘重装...

一、准备工作1、8G或更大容量空U盘2、制作pe启动盘：微pe工具箱怎么制作u盘启动盘(UEFILegacy双模式)3、win10系统下载：深度技术ghostwin1064位专业破解版v2019.07二、msi微星GF638RD-006CN笔记本装win10系统步骤如下1、制作好wepe启动盘之后，将win10系统iso镜像直接复制到U盘；2、在msi微星GF638...

哪里有好用的微星win10家庭版镜像下载

安装方法：一键装机方法：win10从硬盘重装系统方法uefi模式安装方法：怎么用wepe装win10系统(64位系统uefi安装，支持大于4G镜像)legacy模式安装方法：legacyMBR装win10怎么装(32位/64位均可legacy安装)下载地址一、雨林木风ghostwin1064位家庭稳定版v2020.05雨林木风ghostwin1064位家庭稳定版v2020.05系统自动...

win10系统的微星笔记本系统升级

1、在桌面的“此电脑”上右键点击，选择属性。2、在属性窗口“系统”中在右下部分找到“激活windows”，点击后弹出设置窗口，在窗口内点击“更改产品密钥”。3、输入购买的Win10专业版密钥。4、开始准备升级，准备完成电脑会自动重启。5、重启后请不要动计算机，计算机会自动配置更新。6、当桌面弹出“版...

微星官网原版win10下载

5. **GHOSTWIN10x86（32位）位免激活纯净版v2015.12 本系统基于微软官方win10正式版32位简体中文专业版制作。集成了常见硬件驱动，采用了智能识别+预解压技术，大多数硬件可以快速自动安装相应的驱动。系统提升了Win10系统的各个方面，无需输入密钥，解决了部分隐私设置选项未被恢复的问题，并解决了用户...

微星笔记本如何用u盘装win10系统【教程】-搜狗输入法

4、win10程序进行安装，安装过程等待就好了。安装完成后会再重启一次。5、接下来就是计算机常规设置，6、设置完成后您就可以尽情使用win10系统了，笔记本u盘装win10系统就完成了。微星笔记本u盘装win10系统教程就为大家分享到此。综上所述，搜狗输入法官网以其丰富的内容资源、便捷的下载通道和专业的用户...

win10怎么查自己电脑的型号?

主要有两种方式。操作方式如下：方法一：1，进入系统，按下键盘WIN+R打开运行，然后输入dxdiag命令确定。2，打开DirectX诊断工具，可以查看系统型号。方法二：1，右击此电脑图标，菜单中选择“个性化”项。2，在系统属性窗口中，可以查看到系统的型号。

微星官网原版win10下载

安装方法：一键装机方法：win10从硬盘重装系统方法uefi模式安装方法：怎么用wepe装win10系统(64位系统uefi安装，支持大于4G镜像)legacy模式安装方法：legacyMBR装win10怎么装(32位/64位均可legacy安装)下载地址一、中关村ghostwin1064位官方原版v2020.07中关村ghostwin1064位官方原版v2020.07系统是一款非常不...

微星win10笔记本电脑摔了一下开不了机怎么办?

1、小白一键重装工具 2、大于8G的U盘一个（建议先将U盘重要资料进行备份）3、正常上网的电脑一台小白u盘装系统详细步骤：1、U盘插入可以上网的电脑，打开小白一键重装系统软件 2、等待软件检测完成后点击左侧的制作系统 3、软件会自动识别U盘盘符，制作模式默认就好，点击开始制作 4、选择需要安装的系统，...

为什么我的win10安全中心是空白的啊?

TPM就是利用经过安全验证的加密密钥为设备带来更强的安全性，它也是许多安全应用的核心。目前TPM最新的版本是2.0版，也就是微软Windows 11运行所要求的版本。幻尘现在使用的主板是微星(MSI)MPG Z590 GAMING CARBON WiFi暗黑，这块主板不用说，肯定支持TPM 2.0的，毕竟它是一款主流主板了。而且这块主板...

为什么电脑配置提到最顶级了,win10也升到最新版本了,玩游戏和整个系

为什么电脑配置提到最顶级了,win10也升到最新版本了,玩游戏和整个系统还变卡?i77700k+m.2三星960evo+技嘉水之力1080ti+海盗船300016g+技嘉z270xgaming7主板... 为什么电脑配置提到最顶级了,win10也升到最新版本了,玩游戏和整个系统还变卡?i 7 7700k+m.2 三星960evo +技嘉水之力1080ti+海盗船3000 16g+...

win10家庭版升级专业版密钥 win10家庭版密钥2019 win10专业版怎么变成家庭版 win10密钥家庭版 win10激活密钥家庭版 win10家庭版密钥最新 win10家庭中文版激活密钥 win10家庭版可以装专业版吗 win7家庭版密钥