[sooriaty03]

السلام عليكم ورحمة الله وبركاته
بالنسبة للطلب الأول
قم بإضافة المكتبة System.Management
من Project
ثم Add Reference
ثم ضع هذا الكود

كود :

Imports System.Management
Partial Public Class Form1
    Public Function ModemsConnected(Optional ByRef ListOfModems() As String = Nothing) As String
        Dim modems As String = ""
        Dim _ListOfModems As New List(Of String)
        Try
            Dim searcher As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_POTSModem")
            For Each queryObj As ManagementObject In searcher.Get()
                If queryObj("Status") = "OK" Then
                    modems = queryObj("AttachedTo") & " - " & queryObj("Description")
                    _ListOfModems.Add(modems)
                End If
            Next
        Catch err As ManagementException
            MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
            Return ""
        End Try
        ListOfModems = _ListOfModems.ToArray
        Return modems
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ListOfModems() As String = {}
        Label1.Text = ModemsConnected(ListOfModems)
        ComboBox1.Items.AddRange(ListOfModems)
    End Sub
End Class

بالتوفيق