16,722
社区成员




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
'这个可以实现你想要的
'遍历注册表的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'给你参考一下