25-07-13, 12:05 AM
هذا الكود لعرض المنافذ الموجودة بالحاسوب
أضف أولاً المرجع System.Management ثم استورده أعلى الفورم
الكود أعلاه سيأتي بأسماء الـ usb المحاطة باللون الأحمر في الصورة أدناه :
[ATTACH=CONFIG]3464[/ATTACH]
للحصول علي أسماء الـ usb المحاطة باللون الأخضر فقط غير جملة الاتصال من :
إلي :
والله المستعان
****
***
**
*
أضف أولاً المرجع System.Management ثم استورده أعلى الفورم
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim con As ConnectionOptions = New ConnectionOptions
Dim mach As String = System.Environment.MachineName
Dim mss As ManagementScope = New ManagementScope("\\" & mach & "\root\cimv2", con)
Dim ob As ObjectQuery = New ObjectQuery("SELECT * FROM Win32_USBController")
Dim moss As ManagementObjectSearcher = New ManagementObjectSearcher(mss, ob)
Dim qc As ManagementObjectCollection = moss.Get
For Each queryObj As ManagementObject In qc
MsgBox(queryObj("Name").ToString)
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Subالكود أعلاه سيأتي بأسماء الـ usb المحاطة باللون الأحمر في الصورة أدناه :
[ATTACH=CONFIG]3464[/ATTACH]
للحصول علي أسماء الـ usb المحاطة باللون الأخضر فقط غير جملة الاتصال من :
كود :
[color=#b22222]"SELECT * FROM Win32_USBController"[/color]كود :
[color=#b22222]"SELECT * FROM Win32_USBHub"[/color]والله المستعان
****
***
**
*

