[VB.NET] การแสดงรายชื่อแอพพลิเคชั่น โปรแกรมต่างๆที่ติดตั้งเอาไว้ใน Windows

thongkorn

จัดให้ตามคำขอ การแสดงรายชื่อ Software หรือ Application ต่างๆที่ติดตั้งอยู่ในระบบปฏิบัติการ Windows โดยอาศัยหลักการอ่านข้อมูลที่อยู่ภายใน Registry ในส่วนของ Uninstall แถมโค้ดในการแสดงรายชื่อเครื่องพิมพ์ และการตรวจสอบขนาดจำนวนบิทของ Windows ซึ่งอย่างหลังนี่ใช้การอ่านข้อมูลด้วย WMI แทนครับผม


Registry ในส่วนของการ Uninstall ...



มาดูโค้ดฉบับเต็มกันเถอะ ...

1. Imports Microsoft.Win32
   
2. Imports System.Runtime.InteropServices
   
3. 
   
4. Public Class frmListSoftware
   
5. 
   
6.     Private Sub frmListSoftware_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
7.         Call ListSoftwareFromRegistry()
   
8.         Call ListPrinter()
   
9.     End Sub
   
10. 
    
11.     '// ตรวจสอบ Windows ขนาดกี่บิท
    
12.     '// http://msdn.microsoft.com/En-US/library/aa394239.aspx
    
13.     Function CheckWinOSBit() As String
    
14.         Dim osClass As System.Management.ManagementClass = Nothing
    
15.         Dim result As String = "32-bit" ' Default to 32-bit for OSes which don't support the OSArchitecture property of the Win32_OperatingSystem WMI class.
    
16.         Try
    
17.             ' Get the singleton Win32_OperatingSystem WMI class so we can access properties about the OS.
    
18.             osClass = New System.Management.ManagementClass("Win32_OperatingSystem")
    
19.             ' Loop thru all properties of the single instance of the Win32_OperatingSystem class and look for the property which will tell us if
    
20.             ' the OS is 32-bit or 64-bit.  If the property is not found, the OS is assumed to be 32-bit.
    
21.             For Each mgo As System.Management.ManagementObject In osClass.GetInstances
    
22.                 For Each prop As System.Management.PropertyData In mgo.Properties
    
23.                     If prop.Name = "OSArchitecture" Then
    
24.                         result = prop.Value.ToString
    
25.                         Exit For
    
26.                     End If
    
27.                 Next
    
28.             Next
    
29.         Catch ex As Exception
    
30.             result = String.Empty
    
31.         Finally
    
32.             ' Clean up
    
33.             If osClass IsNot Nothing Then osClass.Dispose()
    
34.         End Try
    
35.         Return result
    
36.     End Function
    
37. 
    
38.     '// Listing Software.
    
39.     Private Sub ListSoftwareFromRegistry()
    
40.         '// Initialize ListView Control
    
41.         With ListView1
    
42.             .View = View.Details
    
43.             .GridLines = True
    
44.             .FullRowSelect = True
    
45.             .HideSelection = False
    
46.             .MultiSelect = False
    
47.             .Columns.Add("Program Name", ListView1.Width \ 2 + 200)
    
48.             .Columns.Add("Version", 150)
    
49.         End With
    
50.         Dim LV As ListViewItem
    
51.         '// Registry path which has information of all the softwares installed on machine.
    
52.         Dim UninstallKey As String
    
53.         '// Check Windows 32/64 bit.
    
54.         If Microsoft.VisualBasic.Left(CheckWinOSBit, 2) = "64" Then
    
55.             '// For 64 bit.
    
56.             UninstallKey = "Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall"
    
57.             Label1.Text = "Listing Application Software on Windows 64 bit."
    
58.         Else
    
59.             '// For 32 bit.
    
60.             UninstallKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
    
61.             Label1.Text = "Listing Application Software on Windows 32 bit."
    
62.         End If
    
63.         '// ลูปตาม SubKey
    
64.         Using RegKey As RegistryKey = Registry.LocalMachine.OpenSubKey(UninstallKey)
    
65.             For Each skName As String In RegKey.GetSubKeyNames()
    
66.                 Using sk As RegistryKey = RegKey.OpenSubKey(skName)
    
67.                     If Not IsNothing(sk.GetValue("DisplayName")) Then
    
68.                         ' we have many attributes other than these which are useful.
    
69.                         LV = ListView1.Items.Add(CStr(sk.GetValue("DisplayName")))
    
70.                         LV.SubItems.Add(CStr(sk.GetValue("DisplayVersion")))
    
71.                     End If
    
72.                 End Using
    
73.             Next
    
74.         End Using
    
75.     End Sub
    
76. 
    
77.     '// Listing Printers.
    
78.     Sub ListPrinter()
    
79.         Dim sPrinters As String = ""
    
80.         ' Populate to the ListBox.
    
81.         For Each sPrinters In System.Drawing.Printing.PrinterSettings.InstalledPrinters
    
82.             ListBox1.Items.Add(sPrinters)
    
83.         Next
    
84.     End Sub
    
85. 
    
86.     Private Sub frmListSoftware_Resize(sender As Object, e As System.EventArgs) Handles Me.Resize
    
87.         ' Resize ListView Control.
    
88.         If ListView1.Columns.Count > 0 Then
    
89.             With ListView1
    
90.                 .Columns(0).Width = ListView1.Width \ 2 + 200
    
91.                 .Columns(1).Width = 150
    
92.             End With
    
93.         End If
    
94.     End Sub
    
95. 
    
96.     Private Sub frmListSoftware_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
97.         Me.Dispose()
    
98.         GC.SuppressFinalize(Me)
    
99.         Application.Exit()
    
100.     End Sub
     
101. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010) ได้ที่นี่ ...

g2gsoftuser

ขอบคุณครับ