تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة بخصوص موضوع بالمنتدى القديم , كشف رقم المتصل عن طريق فيجوال بيسك دوت نت
#1
[COLOR="#A52A2A"]منذ فترى وانا ابحث عن طرق ربط المودم مع vb.net وقد وجدت النتيجة الاولية في هذا المنتدى المبدع , ولكن ليس إلا بعض من المعلومات وهي كيفية فتح المنفذ والاتصال , فأرجو تقديم المساعدة لي في بحثي عن بعض الاكواد التي تساعد في

1_ كود للبحث عن ( رقم منفذ المودم خصيصاً وعرضه في msg او اي شيئ )
2_استعادة الموضوع ( كشف رقم المتصل عن طريق فيجوال بيسك دوت نت ) الذي وجدته ولكن في المنتدى القديم ولكنه معطل
[/COLOR]
انا استخدم هذا الكود الذي قدمه لي الأخ sooriaty03
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SerialPort1.Write("ATDT" & TextBox1.Text & Chr(13))
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        SerialPort1.Close()
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        SerialPort1.PortName = "COM1"    'اسم المنفذ قم بتغييره إلى الرقم الصحيح إذا لم يعمل
        SerialPort1.Open()
    End Sub
وهو للاتصال بالرقم الموجود في textbox وهو ناجح 100%
ولكن بقي ان اعرف كيف يتم البحث عن منفذ المودم من خلال البرنامج ايضاً


[COLOR="#000000"][SIZE=5]
وارجو المساعدة من الاخوى الكرام الذين حتى الان لم يتجاهلوني في اي سؤال ودائما كانت اجاباتهم
تقدم لي المزيد والمزيد من علمهم , واتمنا قريبا ان اشارك بإجابة بدلاً من كثرة الاسئلة


[/SIZE][/COLOR]
الرد }}}}
تم الشكر بواسطة:
#2
ياجماعة الخير , معقو لمافي أي أحد عنده فكرة عن الموضوع
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم ورحمة الله وبركاته
بالنسبة للطلب الأول
قم بإضافة المكتبة 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

بالتوفيق
الرد }}}}
تم الشكر بواسطة:
#4
بالنسبة للطلب الثاني وهو معرفة رقم المتصل
فالمطلوب:
أولاً: خدمة إظهار رقم المتصل من شركة الإتصالات.
ثانياً: أن يكون المودم يدعم خاصية إظهار رقم المتصل.

الطريقة:
إذا توفرت الشروط لديك سيبقى معرفة الكود المناسب لكي تطلب من المودم إظهار رقم المتصل (الكود سيكون باستخدام أوامر AT)
وهناك عدة أكواد تختلف من مودم لآخر
وهذه بعضها
كود :
AT#CID=1
AT#CLS=8#CID=1
AT#CID=2
AT%CCID=1
AT%CCID=2
AT+VCID=1
AT#CC1
AT*ID1

طبعا الطريقة الوحيدة لمعرفة أي أمر يعمل لديك هي تجربتها كلها
فالأمر الذي سيعمل لديك سيعطي نتيجة OK والذي لا يعمل سيعطي Error
إرسال الأمر سيكون بهذه الطريقة
كود :
SerialPort1.Write("AT#CID=1" & Chr(13))
ولقراءة النتيجة نضع الكود
كود :
SerialPort1.ReadExisting


الآن عندما يتصل بك أحدهم سوف تقوم الأداة باستدعاء الحدث SerialPort1_PinChanged
ليعلمك بأن لديك مكالمة
وعندما تقوم بقراءة البيانات الموجودة سوف يظهر لديك
كالآتي - إذا كان المودم يدعم خاصية كشف الرقم
كود :
RING
CID00966505555555
CIN
DATE050704
TIME1915
تفسير المعطيات:
السطر الأول = كلمة RING أي أن الهاتف يرن وهي الكلمة الافتراضية الوحيدة التي ستظهر إذا لم يكن المودم يدعم خاصية كشف الرقم
السطر الثاني = رقم المتصل
السطر الثالث = اسم المتصل وهو غير مدعوم في أغلب الشركات
السطر الرابع = التاريخ وهو هنا 050704 أي 5/7/2004
السطر الخامس = الوقت وهو هنا 19:15

مرفق مثال كامل على جميع ما تم ذكره منذ مشاركة الاتصال برقم هاتف إلى هذه المشاركة


بالتوفيق


الملفات المرفقة
.zip   CallerIdExample.zip (الحجم : 84.18 ك ب / التحميلات : 136)
الرد }}}}
تم الشكر بواسطة:
#5
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 ) فقط عند ورود اتصال فهل هذا يعني أن المودم لا يدعم كشف الأرقام مثلما فهمت من كلامك السابق ......؟

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

وســــــــــــــــلــــــــــــــمت يــــــــداكــــــــــــــــ
حاول تغيير الأمر الظاهر باللون الأحمر
كود :
SerialPort1.Write("[color=#FF0000]AT#CID=1[/color]" & Chr(13))
بأحد الأوامر التالية حتى يعمل
كود :
AT#CID=1
AT#CLS=8#CID=1
AT#CID=2
AT%CCID=1
AT%CCID=2
AT+VCID=1
AT#CC1
AT*ID1
فإن لم يظهرالرقم فهذا يعني أن المودم لا يدعم هذه الخاصية
بالتوفيق
الرد }}}}
تم الشكر بواسطة:
#7
adsss كتب :
وأخي الكريم الكود قد عمل معي بشكل ناجح جداً ولكن إن أمكن أن تشرح لي الكود الذي ارفقته حضرتك في المشاركة الأولى ( كود كشف المنفذ ) إن أمكن
السلام عليكم
أخي الكريم في هذا الكود قمنا بإضافة مكتبة لاستدعاء معلومات عن النظام
ثم قمنا باستدعاء
Class ManagementObjectSearcher
الذي بدوره تستطيع استدعاء كل ما تريد معرفته عن النظام بواسطة بعض الكلمات الدلالية والتي تسمى
Windows Management Instrumentation (WMI)
في هذا المثال طلبنا جلب المعلومات عن المودم
وفي حلقة تكرارية حصلنا على المنفذ واسم المودم عن طريق الكلمات الدلالية وهي AttachedTo و Description بالتوالي
وهو المطلوب...
بالتوفيق
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Information [VB.NET] مساعده في الفيجوال بيسك هل اقدر اسوي اكثر من فورم a_abdullah 4 94 أمس, 02:39 PM
آخر رد: a_abdullah
  طريقة عمل قائمة خصائص شبية باالموجودةفي برنامج الفيجوال بيسك CLARO 1 53 أمس, 12:20 AM
آخر رد: amgad525
  نقل واسترجاع ملفات بواسطة الفيجوال بيسك عبدالرحمن المكاوي 25 519 05-12-16, 08:30 PM
آخر رد: عبدالرحمن المكاوي
Star [VB.NET] السلام عليكم اخوتي ف المنتدى احتاج الي مساعدة انا اصمم منظومة لشؤون العاملين بعد اض fatma anari 2 95 04-12-16, 11:04 AM
آخر رد: أبوبكر سويدان
  طلب مساعدة ناتج طرح عددين قيمة سالبه khalaroy 2 54 01-12-16, 03:09 AM
آخر رد: khalaroy
  [نقاش] الى كل خبير ومبتدأ نقاش بخصوص جعل البرنامج نسخة تجريبية 0theghost0 1 152 30-11-16, 11:21 PM
آخر رد: awidan76
  [سؤال] مساعدة في الفيجوال بيسك عبدالرحمن المكاوي 1 64 28-11-16, 02:11 PM
آخر رد: عبدالرحمن المكاوي
  [سؤال] كود البحث عن طريق اسم naden 1 73 28-11-16, 02:05 PM
آخر رد: Adrees
  مساعدة في عمل برنامج rabeh.ram 4 175 27-11-16, 12:29 AM
آخر رد: rabeh.ram
  مساعدة في انشاء ثيم عبدالرحمن المكاوي 11 302 25-11-16, 11:57 AM
آخر رد: العزابي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم