首先引入命名空间
Imports Microsoft.Win32
- Function ReadFromRegitry(ByVal sRegistryKey As String, ByVal Name As String) As String
- Dim RegisKeyPath As String = sRegistryKey
- Dim reg As RegistryKey = Registry.LocalMachine.OpenSubKey(RegisKeyPath)
- Return reg.GetValue(Name)
- End Function
sRegistryKey 为注册表路径, Name为里边的键值...
Registry.LocalMachine.OpenSubKey 看一下 LocalMachine 打开的是 LocalMachine 部分的注册表
调用例如 : ReadFromRegitry("SOFTWARE/**/**/**", "**")
** 为具体的路径和键值。 不方便贴出。