[adsss]

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

بالتوفيق

بارك الله بك أخي الكريم sooriaty03 ,وعلى ردك المبدع وأنت قد اجبتني على سؤالي بخصوص الاتصال عن طريق المودم في موضوع سابق ... ولم أحب أن احرجك في هذا السؤال أيضاً فشكراً على رحابت صدرك
وزادك من علمه
وأخي الكريم الكود قد عمل معي بشكل ناجح جداً ولكن إن أمكن أن تشرح لي الكود الذي ارفقته حضرتك في المشاركة الأولى ( كود كشف المنفذ ) إن أمكن


وشيئ اخير بشأن كود كشف الرقم , فقد عمل لدي وظهرة كلمة ( RING ) فقط عند ورود اتصال فهل هذا يعني أن المودم لا يدعم كشف الأرقام مثلما فهمت من كلامك السابق ......؟

وســــــــــــــــلــــــــــــــمت يــــــــداكــــــــــــــــ