Imports Microsoft.Win32
Module Module1
Sub Main()
Dim regPath As String = "某某系统\Seting"
Dim Key1 As Microsoft.Win32.RegistryKey = Registry.CurrentUser
Dim Key2 = Key1.OpenSubKey("某某系统")
Dim regkey1 As RegistryKey = Registry.CurrentUser.OpenSubKey(regPath, True)
regkey1.SetValue("OperatorPsw", "OperatorPsw")
regkey1.SetValue("EngineerPsw", "EngineerPsw")
regkey1.Close()
Dim regKey2 As RegistryKey = Registry.CurrentUser.OpenSubKey(regPath, RegistryKeyPermissionCheck.Default, System.Security.AccessControl.RegistryRights.ReadKey)
If Not regKey2 Is Nothing Then
Dim OperatorPsw = regKey2.GetValue("OperatorPsw")
Dim EngineerPsw = regKey2.GetValue("EngineerPsw")
regKey2.Close()
Console.WriteLine(OperatorPsw)
Console.WriteLine(EngineerPsw)
Else
Console.WriteLine("未获取数据")
End If
End Sub
End Module