如何用VB.net读出注册表

[lomey]

如何使用vb.net读取 HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager
"BootExecute" 的值，类型为 REG_MULTI_SZ
怎样用 listView 控件显示出来 "BootExecute" 的值

[hsx49949046]

Dim reg As RegistryKey = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Control\Session Manager\")
Dim gettxt As String()
Dim name As String() = reg.GetValue("BootExecute")
gettxt = name

Me.ListView1.Columns.Add("值")
Dim lvItem As New ListViewItem()
lvItem.Text = (gettxt(0)).ToString()
ListView1.Columns(0).Width = 180
ListView1.Items.Add(lvItem)
lvItem = New ListViewItem()

[Forrest23]

 '遍历注册表的HKEY_LOCAL_MACHINE_SOFTWARE_Windows_CurrentVersion_App Paths_Path 找到应用程序的路径
        Dim key, subkey, no1, no2, no3, no4, sitekey As Microsoft.Win32.RegistryKey
        Dim site, valuename As String
        valuename = "Path"
        key = Microsoft.Win32.Registry.LocalMachine
        subkey = key.OpenSubKey("SOFTWARE")
        no1 = subkey.OpenSubKey("Microsoft")
        no2 = no1.OpenSubKey("Windows")
        no3 = no2.OpenSubKey("CurrentVersion")
        no4 = no3.OpenSubKey("App Paths")
        For Each site In no4.GetSubKeyNames()
            ' Me.ListBox1.Items.Add(site)
            sitekey = no4.OpenSubKey(site)
            For Each valuename In sitekey.GetValueNames()
                If InStrRev(sitekey.GetValue(valuename).ToString, ".") > 0 And sitekey.GetValue(valuename).ToString.Length > 4 Then
                    Me.ListLj.Items.Add(sitekey.GetValue(valuename))
                End If
            Next
        Next'给你参考一下

[Forrest23]

 Dim reg As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Control\Session Manager\")
        Dim name As String() = reg.GetValue("BootExecute")
        For i As Integer = 0 To name.Length - 1
            Me.ListView1.Items.Add(name(i))
        Next
'这个可以实现你想要的

[wuyq11]

DeleteSetting
删除注册表中应用程序中的某项或键值
GetSetting
返回注册表中应用程序入口点的键值
GetAllSettings
返回注册表中程序入口点的一列键值
SaveSetting
在注册表中创建或保存程序的设置