获取注册表信息-HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Cryptography的MachineGuid的值

最新推荐文章于 2024-04-28 16:33:19 发布

东篱的小代码

最新推荐文章于 2024-04-28 16:33:19 发布

阅读量4k

点赞数

分类专栏： VB.NET

本文链接：https://blog.csdn.net/dongli5012/article/details/105630558

版权

VB.NET 专栏收录该内容

4 篇文章

订阅专栏

本文介绍了如何使用Visual Basic .NET代码从Windows注册表中读取MachineGuid，通过打开32位和64位的注册表键，获取Microsoft Cryptography子键下的MachineGuid值。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

因为可能是32位或者64位，所以两层都写，按需要使用

Dim keyBaseX64 = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Registry64)       
Dim keyX64 = keyBaseX64.OpenSubKey("SOFTWARE\Microsoft\Cryptography", RegistryKeyPermissionCheck.ReadSubTree)
Dim resultObjX64 As String = keyX64.GetValue("MachineGuid", "").ToString
keyX64.Close()
keyBaseX64.Close()
keyX64.Dispose()
keyBaseX64.Dispose()

Dim keyBaseX86 = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Registry32)
Dim keyX86 = keyBaseX86.OpenSubKey("SOFTWARE\Microsoft\Cryptography", RegistryKeyPermissionCheck.ReadSubTree)
Dim resultObjX86 As String = keyX86.GetValue("MachineGuid", "").ToString
keyX86.Close()
keyBaseX86.Close()
keyX86.Dispose()
keyBaseX86.Dispose()

If resultObjX64 <> "" Then
    strRegValue = resultObjX64
Else
    strRegValue = resultObjX86
End If