[VB.NET] การตรวจจับ USB Flash Drive แบบอัตโนมัติตามค่าเวลาที่ตั้งไว้ด้วย WMI

thongkorn

บทความนี้ก็จะคล้ายๆกับเรื่อง Device Watcher ที่แอดมินจะกล่าวถึงต่อไปในตอนหน้า คือเป็นการดักหรือตรวจสอบ USB Flash Drive ที่เสียบอยู่กับเครื่องคอมพิวเตอร์ เพื่อทำการอ่านค่า Drive Letter, Model และหมายเลข Serial Number ด้วยการตั้งค่าเวลาในการดักตรวจสอบระดับวินาที ...

อย่าลืม Add Reference System.Management ก่อนการใช้งาน WMI (Windows Management Instrumentation) ทุกครั้ง ...

มาดูโค้ด VB.NET กันเถอะ ...

1. ' / --------------------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / MORE: http://www.g2gnet.com/webboard
   
8. ' /
   
9. ' / Purpose: Detect USB Flash Drive with WMI (Windows Management Instrumental)
   
10. ' / Microsoft Visual Basic .NET (2010)
    
11. ' /
    
12. ' / This is open source code under @Copyleft by Thongkorn Tubtimkrob.
    
13. ' / You can modify and/or distribute without to inform the developer.
    
14. ' / --------------------------------------------------------------------------------
    
15. 
    
16. '// Don't forget add --> Reference --> System.Management
    
17. Imports System.Management
    
18. 
    
19. Public Class frmDetectUSBFlashDrive
    
20. 
    
21.     Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
22.         Timer1.Enabled = True
    
23.         For i As Byte = 0 To 60
    
24.             cmbTimer.Items.Add(i)
    
25.         Next
    
26.         cmbTimer.SelectedIndex = 5    ' 5 Second
    
27.         Timer1.Interval = Val(cmbTimer.Text) * 1000
    
28.         '// Start
    
29.         Call ReadUsbFlashSerialNo()
    
30.     End Sub
    
31. 
    
32.     ' / --------------------------------------------------------------------------------
    
33.     ' / Function to read Usb Flash Serial Number (Not Volume) and return value all drives.
    
34.     Sub ReadUsbFlashSerialNo()
    
35.         Dim strTemp As String = ""
    
36.         Dim strSerial As String = ""
    
37.         Dim strArr() As String
    
38.         Dim MaxLen As Byte = 0
    
39.         Dim idx As Byte = 0
    
40.         ' Initialize ListView Control
    
41.         With lvwData
    
42.             .View = View.Details
    
43.             .GridLines = True
    
44.             .FullRowSelect = True
    
45.             .HideSelection = False
    
46.             .MultiSelect = False
    
47.             .Columns.Add("Drive", lvwData.Width \ 3 - 130)
    
48.             .Columns.Add("Model", lvwData.Width \ 3 + 60)
    
49.             .Columns.Add("Physical Serial Number", lvwData.Width \ 3 + 40)
    
50.         End With
    
51.         Dim LV As ListViewItem
    
52.         Try
    
53.             ' Windows Query Language หรือ WQL "Win32_DiskDrive"
    
54.             Dim WmiQuery As String = "SELECT * FROM " & "Win32_DiskDrive"
    
55.             Dim WmiSearcher As New ManagementObjectSearcher(WmiQuery)
    
56.             For Each info As ManagementObject In WmiSearcher.Get()
    
57.                 If info("InterfaceType") = "USB" Then
    
58.                     Dim strModel As String = (String.Format("{0}", info("Model")))
    
59.                     strTemp = (String.Format("{0}", info("PnPDeviceID")))
    
60.                     '// หาเครื่องหมาย \ ตัวแรก แต่เป็นการนับมาจากทางขวาด้วยคำสั่ง InStrRev (InStr จะนับจากทางซ้ายมาขวา)
    
61.                     '// เช่น "USBSTOR\DISK&VEN_&PROD_&REV_1.00\7&15FF80F3&0&__&0" <-- เจอหน้าเลข 7
    
62.                     strTemp = Mid(strTemp, InStrRev(strTemp, "") + 1, Len(strTemp) - InStrRev(strTemp, "") + 1)
    
63.                     '// ก็จะได้ "7&15FF80F3&0&__&0"
    
64.                     '// แยกชุดข้อมูลออกจากกันด้วยเครื่องหมาย &
    
65.                     strArr = strTemp.Split("&")
    
66.                     '//
    
67.                     For Count As Byte = 0 To strArr.Length - 1
    
68.                         '// หาความยาวสูงสุด เพราะนั่นแหละคือ Serial Number
    
69.                         If MaxLen < Len(strArr(Count)) Then
    
70.                             '// เก็บค่า Index เป็นคำตอบ
    
71.                             idx = Count
    
72.                             '// นำค่าความยาวมากที่สุดกลับไปเปรียบเทียบใหม่
    
73.                             MaxLen = Len(strArr(Count))
    
74.                         End If
    
75.                     Next
    
76.                     '// Put them into ListView Control.
    
77.                     '// Drive Letter
    
78.                     LV = lvwData.Items.Add(GetDriveLetterFromDisk(String.Format("{0}", info("Name"))))
    
79.                     '// Model
    
80.                     LV.SubItems.Add(Trim(strModel))
    
81.                     '// Physical Serial Number
    
82.                     LV.SubItems.Add(Replace(Trim(strArr(idx)), Chr(0), ""))
    
83.                 End If
    
84.             Next
    
85.         Catch err As ManagementException
    
86.             MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
    
87.         End Try
    
88.     End Sub
    
89. 
    
90.     ' / --------------------------------------------------------------------------------
    
91.     ' / Function to read Usb Flash Drive Letter.
    
92.     Private Function GetDriveLetterFromDisk(ByVal Name As String) As String
    
93.         Dim qPart, qDisk As ObjectQuery
    
94.         Dim mPart, mDisk As ManagementObjectSearcher
    
95.         Dim objPart, objDisk As ManagementObject
    
96.         Dim DriveLetter As String = ""
    
97.         ' WMI queries use the "" as an escape charcter
    
98.         Name = Replace(Name, "", "\")
    
99.         ' First we map the Win32_DiskDrive instance with the association called
    
100.         ' Win32_DiskDriveToDiskPartition. Then we map the Win23_DiskPartion
     
101.         ' instance with the assocation called Win32_LogicalDiskToPartition
     
102.         qPart = New ObjectQuery("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & Name & """} WHERE AssocClass = Win32_DiskDriveToDiskPartition")
     
103.         mPart = New ManagementObjectSearcher(qPart)
     
104.         For Each objPart In mPart.Get()
     
105.             qDisk = New ObjectQuery("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & objPart("DeviceID").ToString & """} WHERE AssocClass = Win32_LogicalDiskToPartition")
     
106.             mDisk = New ManagementObjectSearcher(qDisk)
     
107.             For Each objDisk In mDisk.Get()
     
108.                 DriveLetter &= objDisk("Name").ToString
     
109.             Next
     
110.         Next
     
111.         Return DriveLetter
     
112.     End Function
     
113. 
     
114.     ' / --------------------------------------------------------------------------------
     
115.     ' / Timer for trigger.
     
116.     Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
     
117.         lvwData.Clear()
     
118.         ReadUsbFlashSerialNo()
     
119.     End Sub
     
120. 
     
121.     Private Sub cmbTimer_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbTimer.SelectedIndexChanged
     
122.         If Val(cmbTimer.Text) <> 0 Then
     
123.             Timer1.Enabled = True
     
124.             '// Multiply by 1000 ms.
     
125.             Timer1.Interval = Val(cmbTimer.Text) * 1000
     
126.         Else
     
127.             Timer1.Enabled = False
     
128.         End If
     
129.     End Sub
     
130. End Class

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

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