[adsss]

سأشرح طلبي بشكل واضح :

[COLOR="#FF0000"][SIZE=5]أريد كود بحيث يتم طلب الرقم الموجود بـ textbox1 عبر المودم
أي كأني استعمل الهاتف فقط ....
ومع هذا بحثت مطولاً ولم أجد أي شيئ[/SIZE][/COLOR]


للتوضيح



[ATTACH=CONFIG]1538[/ATTACH]

[sooriaty03]

السلام عليكم ورحمة الله وبركاته
أخي الكريم
الطريقة سهلة بإذن الله
المهم أن يكون لديك مودم في الجهاز وأن تعرف رقم المنفذ الخاص فيه قد يكون COM1 إلى COM12
أما إذا لم تكن تعرف رقم المنفذ فقم بتجربة المنافذ إلى أن تتوصل إلى المنفذ الصحيح
أخيرا قم بإضافة أداة SerialPort إلى الفورم
ثم ضع هذا الكود

كود :

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

بالتوفيق

[adsss]

sooriaty03 كتب :السلام عليكم ورحمة الله وبركاته
أخي الكريم
الطريقة سهلة بإذن الله
المهم أن يكون لديك مودم في الجهاز وأن تعرف رقم المنفذ الخاص فيه قد يكون COM1 إلى COM12
أما إذا لم تكن تعرف رقم المنفذ فقم بتجربة المنافذ إلى أن تتوصل إلى المنفذ الصحيح
أخيرا قم بإضافة أداة SerialPort إلى الفورم
ثم ضع هذا الكود

كود :

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

بالتوفيق

بارك الله فيك أخي الكريم لا أعرف كيف اعبر لك عن شكري , ولله ريحتني