منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
عرض جميع منافذ الـ usb - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : عرض جميع منافذ الـ usb (/showthread.php?tid=9773)

الصفحات: 1 2 3

عرض جميع منافذ الـ usb - Mido9 - 24-07-13

السلام عليكم ورحمة الله وبركاتة


اخواني الافاضل انا اريد الان ان استعرض جميع منافذ الـ usb الموجوده عندي

و التحكم بها حيث اريد غلق اليو اس بي رقم 1 و هكذا

وشكرا لكم

عرض جميع منافذ الـ usb - الشاكي لله - 24-07-13

كيف تغلق الusb

قصدك توقف ال5 Volt مثلا

عرض جميع منافذ الـ usb - Mido9 - 24-07-13

بالظبط أخي الفاضل هذا ما اريده

انا الان اقوم بتشغيل لمبه led صغيره اريد اطفائها من خلال البرنامج ، بمعنى استعرض المنافذ الخاصه بالusb و اغلاق ما اريده

وشكرا لك

عرض جميع منافذ الـ usb - Mido9 - 24-07-13

شباب انا وجدت هذا الشرح ولكن للاسف ضعيف فى الانجليزيه ولم استطع تطبيقه

ياريت لو تدلوني على الطريقة او تعطوني مثال

وشكرا لكم

http://www.lvr.com/serial_ports_dotnet.htm

عرض جميع منافذ الـ usb - kslawy - 25-07-13

هذا الكود لعرض المنافذ الموجودة بالحاسوب

أضف أولاً المرجع 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]

والله المستعان

****
***
**
*

عرض جميع منافذ الـ usb - Mido9 - 25-07-13

جزاك الله خيرا اخي الفاضل على المساعده ،، بارك الله فيك ..
ولكن للاسف ظهر لي الخطأ التالي

عرض جميع منافذ الـ usb - الشاكي لله - 25-07-13

Mido9 كتب :بالظبط أخي الفاضل هذا ما اريده

انا الان اقوم بتشغيل لمبه led صغيره اريد اطفائها من خلال البرنامج ، بمعنى استعرض المنافذ الخاصه بالusb و اغلاق ما اريده

وشكرا لك

انا اعرف طريقة ولكنها للأسف تتطلب ريستارت

اعتقد انه ليست هناك طريقة لفعل ذلك دون عمل ريستارات للجهاز اولا

--

استعمل الparallel port او قم ببرمجة microcontroller ثم صمم دائرتك

انا حاولت منزمان اني اسوي مثلك عشان افتح خط آخر لنقل البيانات باستعمال قفل الطاقة وارجاعها فذلك يؤدي الى صنع حالتي ال1 وال 0 اي (signal) لكي اقوم بتشغيل المكيف من خلال

الsignal الي من اليو اس بي ثم الى relay والى المكيف ولكن للأسف المحاولة بائت بالفشل وقمت باستعمال الparallel وهو اريح طبعا ولكنه غير متوفر في الابتوبات الجديدة

عرض جميع منافذ الـ usb - الشاكي لله - 25-07-13

Mido9 كتب :بالظبط أخي الفاضل هذا ما اريده

انا الان اقوم بتشغيل لمبه led صغيره اريد اطفائها من خلال البرنامج ، بمعنى استعرض المنافذ الخاصه بالusb و اغلاق ما اريده

وشكرا لك

انا اعرف طريقة ولكنها للأسف تتطلب ريستارت

اعتقد انه ليست هناك طريقة لفعل ذلك دون عمل ريستارات للجهاز اولا

--

استعمل الparallel port او قم ببرمجة microcontroller ثم صمم دائرتك

انا حاولت منزمان اني اسوي مثلك عشان افتح خط آخر لنقل البيانات باستعمال قفل الطاقة وارجاعها فذلك يؤدي الى صنع حالتي ال1 وال 0 اي (signal) لكي اقوم بتشغيل المكيف من خلال

الsignal الي من اليو اس بي ثم الى relay والى المكيف ولكن للأسف المحاولة بائت بالفشل وقمت باستعمال الparallel وهو اريح طبعا ولكنه غير متوفر في الابتوبات الجديدة

عرض جميع منافذ الـ usb - kslawy - 25-07-13

أخي في البداية قلت لك
أضف أولاً المرجع System.Management من المصادر ثم استورده أعلى الفورم :
كود :
[FONT=Verdana]Imports [/FONT][color=#333333][FONT=Verdana]System.Management[/FONT][/color]



عرض جميع منافذ الـ usb - Mido9 - 25-07-13

الشاكي لله كتب :انا اعرف طريقة ولكنها للأسف تتطلب ريستارت

اعتقد انه ليست هناك طريقة لفعل ذلك دون عمل ريستارات للجهاز اولا

--

استعمل الparallel port او قم ببرمجة microcontroller ثم صمم دائرتك

انا حاولت منزمان اني اسوي مثلك عشان افتح خط آخر لنقل البيانات باستعمال قفل الطاقة وارجاعها فذلك يؤدي الى صنع حالتي ال1 وال 0 اي (signal) لكي اقوم بتشغيل المكيف من خلال

الsignal الي من اليو اس بي ثم الى relay والى المكيف ولكن للأسف المحاولة بائت بالفشل وقمت باستعمال الparallel وهو اريح طبعا ولكنه غير متوفر في الابتوبات الجديدة

جزاك الله خيرا اخي الفاضل بارك الله فيك ،، فعلاً مشكلة لم اجد لها حل حتى الان
+ بالنسبه للـ parallel هل تملك الطريقة لإيقافه ؟

وشكرا لك