Installierte Anwendungen aufliesten

    • VB.NET

      Installierte Anwendungen aufliesten

      VB.NET-Quellcode

      1. 'Beispiel: VB .Net - Registrierdatenbank - Installierte Software ermitteln
      2. '
      3. Option Explicit On
      4. Option Strict On
      6. Imports Microsoft.Win32
      7. Imports Microsoft.VisualBasic.ControlChars
      8. Imports System.Globalization
      10. Public Class Form1
      12. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
      13. Handles Button1.Click
      14. GetInstalledSoftware(My.Computer.Name)
      15. End Sub
      17. Private Sub GetInstalledSoftware(ByVal machineName As String)
      18. Dim hKey As RegistryKey
      19. Dim SubKey As RegistryKey
      20. Dim Path As String = "Software\Microsoft\Windows\CurrentVersion\Uninstall"
      21. Dim Items As String()
      22. Dim DisplayName As String
      23. Dim InstallSource As String
      24. Dim InstallDate As String
      26. Try
      27. hKey = RegistryKey.OpenRemoteBaseKey(RegistryHive.LocalMachine, machineName)
      28. SubKey = hKey.CreateSubKey(Path)
      29. Items = SubKey.GetSubKeyNames()
      30. For n As Integer = 0 To Items.Length - 1
      31. Dim rk As RegistryKey = SubKey.OpenSubKey(Items(n), False)
      32. Try
      33. DisplayName = (rk.GetValue("DisplayName").ToString())
      34. InstallDate = (rk.GetValue("InstallDate").ToString())
      35. InstallSource = (rk.GetValue("InstallSource").ToString())
      36. Me.ListBox1.Items.Add(DisplayName & Tab & Tab & ConvertStringToDate(InstallDate) & _
      37. Tab & Tab & InstallSource)
      38. Catch
      39. End Try
      40. Next
      41. hKey.Close()
      42. Catch ex As Exception
      43. End Try
      44. End Sub
      46. Private Function ConvertStringToDate(ByVal s As String) As String
      47. Try
      49. Dim k As Integer = s.IndexOf(".")
      50. Dim j As Integer = s.IndexOf("/")
      51. Dim i As Integer = s.IndexOf("\")
      52. Dim n As Integer = s.IndexOf(":")
      54. Const DateLength As Integer = 8
      56. If k > -1 Or j > -1 Or i > -1 Or n > -1 Then
      57. Return s
      58. Else
      59. If s.Length = DateLength Then
      60. Dim Result As String = s.Substring(0, 4) & "/" & s.Substring(4, 2) & "/" & _
      61. s.Substring(6, 2)
      62. Dim ci As CultureInfo = CultureInfo.InvariantCulture
      63. Dim dt As DateTime = DateTime.ParseExact(Result, "yyyy/MM/dd", _
      64. ci, DateTimeStyles.NoCurrentDateDefault)
      65. Return dt.ToShortDateString()
      66. Else
      67. End If
      68. End If
      70. Catch ex As Exception
      71. Return "-"
      72. End Try
      73. Return ""
      74. End Function
      76. Private Sub ListBoxInitTabStops(ByRef lb As System.Windows.Forms.ListBox)
      77. Try
      78. If (Not lb Is Nothing) Then
      79. Dim cntTabs() As Integer = {200, 210, 220}
      81. Call Win32Api.SendMessage(lb.Handle, Win32Api.LB_SETTABSTOPS, _
      82. cntTabs.Length, cntTabs(0))
      83. End If
      84. Catch ex As Exception
      85. MessageBox.Show(ex.Message.ToString(), "Info")
      86. End Try
      87. End Sub
      89. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
      90. Handles MyBase.Load
      91. Call ListBoxInitTabStops(ListBox1)
      92. End Sub
      94. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
      95. Handles Button2.Click
      96. GetInstalledSoftwareExeFiles(My.Computer.Name)
      97. End Sub
      99. Private Sub GetInstalledSoftwareExeFiles(ByVal machineName As String)
      100. Dim hKey As RegistryKey
      101. Dim SubKey As RegistryKey
      102. Dim Path As String = "Software\Microsoft\Windows\CurrentVersion\App Paths"
      103. Dim Items As String()
      104. Dim exePath As String
      106. Try
      107. hKey = RegistryKey.OpenRemoteBaseKey(RegistryHive.LocalMachine, machineName)
      108. SubKey = hKey.CreateSubKey(Path)
      109. Items = SubKey.GetSubKeyNames()
      110. For n As Integer = 0 To Items.Length - 1
      111. Dim rk As RegistryKey = SubKey.OpenSubKey(Items(n), False)
      112. Try
      113. exePath = (rk.GetValue("").ToString())
      114. If exePath.IndexOf(Quote) > -1 Then exePath = exePath.Replace(Quote, "")
      115. If exePath.LastIndexOf(Quote) > -1 Then exePath = exePath.Replace(Quote, "")
      116. Dim Root As String = IO.Path.GetPathRoot(exePath)
      118. If DirectoryExists(Root) = True Then
      119. If IO.File.Exists(exePath) Then
      120. Me.ListBox2.Items.Add(exePath.ToLower())
      121. Else
      122. Debug.WriteLine(exePath)
      123. End If
      124. Else
      125. Debug.WriteLine(exePath)
      126. End If
      128. Catch
      129. End Try
      130. Next
      131. hKey.Close()
      132. Catch ex As Exception
      133. End Try
      134. End Sub
      136. Private Function DirectoryExists(ByVal Root As String) As Boolean
      137. Try
      138. Dim files() As String = IO.Directory.GetFiles(Root, "*.*")
      139. If files.Length < 1 Then
      140. Return False
      141. Else
      142. Return True
      143. End If
      144. Catch
      145. Return False
      146. End Try
      147. End Function
      149. Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
      150. Handles ListBox2.SelectedIndexChanged
      151. Try
      152. Dim psi As New ProcessStartInfo()
      153. With psi
      154. .ErrorDialog = True
      155. .FileName = CStr(ListBox2.SelectedItem)
      156. .UseShellExecute = True
      157. End With
      158. Process.Start(psi)
      159. Catch
      160. End Try
      161. End Sub
      164. End Class
      166. Public Module Win32Api
      168. #Region "Required Windows Application Interface"
      170. <Runtime.InteropServices.DllImport("user32.dll")> _
      171. Public Sub SendMessage( _
      172. ByVal hWnd As IntPtr, _
      173. ByVal uMsg As Int32, _
      174. ByVal wParam As Int32, _
      175. ByRef lParam As Int32)
      176. End Sub
      178. #End Region
      180. #Region "Required Windows Constants"
      182. Public Const LB_SETTABSTOPS As Int32 = &H192
      184. #End Region
      186. End Module



      link zu Code


      Mfg Alex

    Facebook
    Telefonspende