【发布时间】:2011-11-17 10:15:07
【问题描述】:
我无法获得以下代码来检查我的 regestrykey 是否存在,这可以提供帮助。我们的想法是检查它是否存在,如果不创建则什么都不做,以及它的价值......
完整的密钥是 HKEY_LOCAL_MACHINE\SOFTWARE\VTS\Advanced Offset 2\Admin\Access
> If Dir$("HKEY_LOCAL_MACHINE\SOFTWARE\VTS\Advanced Offset 2\Admin", vbDirectory) <> "" Then Else MsgBox(".NET Framework 2.0") End If
更新代码:
Dim l_subKeyPath As String = "SOFTWARE\VTS\Advanced Offset 2\Admin\Access" Dim l_regKey As RegistryKey = My.Computer.Registry.LocalMachine.OpenSubKey(l_subKeyPath, False) If (l_regKey Is Nothing) Then 'if nothing then key doesn't exists 'Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\VTS\Advanced Offset 2\Admin", "ACCESS", "PASSWbORD") MsgBox("yess") Else 'key exists MsgBox("no") End If
【问题讨论】: