أضف أولاً المرجع 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]
انا الان اقوم بتشغيل لمبه led صغيره اريد اطفائها من خلال البرنامج ، بمعنى استعرض المنافذ الخاصه بالusb و اغلاق ما اريده
وشكرا لك
انا اعرف طريقة ولكنها للأسف تتطلب ريستارت
اعتقد انه ليست هناك طريقة لفعل ذلك دون عمل ريستارات للجهاز اولا
--
استعمل الparallel port او قم ببرمجة microcontroller ثم صمم دائرتك
انا حاولت منزمان اني اسوي مثلك عشان افتح خط آخر لنقل البيانات باستعمال قفل الطاقة وارجاعها فذلك يؤدي الى صنع حالتي ال1 وال 0 اي (signal) لكي اقوم بتشغيل المكيف من خلال
الsignal الي من اليو اس بي ثم الى relay والى المكيف ولكن للأسف المحاولة بائت بالفشل وقمت باستعمال الparallel وهو اريح طبعا ولكنه غير متوفر في الابتوبات الجديدة
انا الان اقوم بتشغيل لمبه led صغيره اريد اطفائها من خلال البرنامج ، بمعنى استعرض المنافذ الخاصه بالusb و اغلاق ما اريده
وشكرا لك
انا اعرف طريقة ولكنها للأسف تتطلب ريستارت
اعتقد انه ليست هناك طريقة لفعل ذلك دون عمل ريستارات للجهاز اولا
--
استعمل الparallel port او قم ببرمجة microcontroller ثم صمم دائرتك
انا حاولت منزمان اني اسوي مثلك عشان افتح خط آخر لنقل البيانات باستعمال قفل الطاقة وارجاعها فذلك يؤدي الى صنع حالتي ال1 وال 0 اي (signal) لكي اقوم بتشغيل المكيف من خلال
الsignal الي من اليو اس بي ثم الى relay والى المكيف ولكن للأسف المحاولة بائت بالفشل وقمت باستعمال الparallel وهو اريح طبعا ولكنه غير متوفر في الابتوبات الجديدة
الشاكي لله كتب :انا اعرف طريقة ولكنها للأسف تتطلب ريستارت
اعتقد انه ليست هناك طريقة لفعل ذلك دون عمل ريستارات للجهاز اولا
--
استعمل الparallel port او قم ببرمجة microcontroller ثم صمم دائرتك
انا حاولت منزمان اني اسوي مثلك عشان افتح خط آخر لنقل البيانات باستعمال قفل الطاقة وارجاعها فذلك يؤدي الى صنع حالتي ال1 وال 0 اي (signal) لكي اقوم بتشغيل المكيف من خلال
الsignal الي من اليو اس بي ثم الى relay والى المكيف ولكن للأسف المحاولة بائت بالفشل وقمت باستعمال الparallel وهو اريح طبعا ولكنه غير متوفر في الابتوبات الجديدة
جزاك الله خيرا اخي الفاضل بارك الله فيك ،، فعلاً مشكلة لم اجد لها حل حتى الان
+ بالنسبه للـ parallel هل تملك الطريقة لإيقافه ؟