[fouadhdfouad]

(22-07-19, 11:07 PM)السندبااد كتب :

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

لدي أربعة لوحات مفاتيح

ثلاثة منها متصلة بالكمبيوتر USB وواحدة منها أيضاً USB ولكن لاسلكية
وهذه صور للوحات المفاتيح:

أريد جلب معلومات عن هذه اللوحات؛ مثلاً أريد الرقم التسلسلي لكل منها، أو اسمها، أو أي شيء آخر، المهم أن يكون شيئاً ما يميزها عن بعضها
هل يمكن ذلك عن طريق Management من خلال الاستعلام التالي:

كود :

[color=#3333ff]"SELECT * FROM Win32_Keyboard"[/color]

أريد طريقة عملية ومضمونة، ولكم مني جزيل الشكر

---

الغاية من السؤال هي:
لدي أربعة لوحات مفاتيح، ثلاثة منها متصلة بالكمبيوتر USB وواحدة منها أيضاً USB ولكن لاسلكية
وعندي فورم عادي فيه أربعة مربعات نصوص
والمطلوب النقر على الأرقام (1 2 3 4)
في المربع الأول أريد أن يسجل الرقم الذي تم نقره من لوحة المفاتيح الأولى
في المربع الثاني أريد أن يسجل الرقم الذي تم نقره من لوحة المفاتيح الثانية
في المربع الثالث أريد أن يسجل الرقم الذي تم نقره من لوحة المفاتيح الثالثة
في المربع الرابع أريد أن يسجل الرقم الذي تم نقره من لوحة المفاتيح الرابعة

هل هذا ممكن برمجياً؟

تفضل اخي الغالي قم بتطوير الكود على مزاجك

PHP كود :

Imports System.Management
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim str As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM WIN32_Processor")
        Dim strt As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM WIN32_VideoController")
        For Each Processor As ManagementObject In str.Get
            For Each Video As ManagementObject In strt.Get
                TextBox1.Text = Processor("Name")
                TextBox2.Text = Processor("NumberofCores")
                TextBox3.Text = Video("Name")
            Next
        Next
    End Sub
End Class 


---

هذا كود اخر لجلب قوائم اجهزة المودم المتصلة بالجهاز تستطيع تطويره كما تشاء

PHP كود :

Imports System.Management
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim mngSearch As New ManagementObjectSearcher("Select * From Win32_POTSModem")
            Dim mngColl As ManagementObjectCollection = mngSearch.Get
            Dim mngObj As ManagementObject
            For Each mngObj In mngColl
                ListBox1.Items.Add(CType(mngObj.Item("AttachedTo"), String) &
                                   " - " & CType(mngObj.Item("Name"), String))
            Next
            ListBox1.SelectedIndex = 0
        Catch ex As Exception
        End Try
    End Sub
End Class