تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة حول كود الاتصال
#1
مرحبا

انا عملت مشروع دردشة كتابية بين جهازين والمشروع يحتوي على فرومين الفروم الاول وضعت فيه هاذا الكود


كود :
Imports System.Net
Imports System.Net.Sockets
Imports System.IO
Public Class Form1
   Sub send_Data(ByRef ip_adderss As String, ByRef port_number As Integer, ByRef the_message As String)
       Dim myclient981 As TcpClient = New TcpClient(ip_adderss, port_number)
       Dim mysn981 As NetworkStream = myclient981.GetStream
       Dim mysw981 As StreamWriter = New StreamWriter(mysn981)
       mysw981.Write(the_message)
       mysw981.Close()
       mysn981.Close()
       myclient981.Close()
       Try

       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub

   Private Sub send_Click(sender As Object, e As EventArgs) Handles send_button.Click
       send_Data(ip_TextBox1.Text, Val(port_TextBox2.Text), message_TextBox.Text)
   End Sub
End Class



والفروم الثاني لعرض الرسالة ووضعت فيه هاذا الكود




كود :
Imports System.Net
Imports System.Net.Sockets
Imports System.Threading
Imports System.IO
Public Class recived_message
   Dim MYTcpListener As TcpListener
   Dim mySocket As Socket
   Dim myth As Thread
   Sub REcivedDate()
       Try
           MYTcpListener = New TcpListener(IPAddress.Any, 9001)
           MYTcpListener.Start()
           While True
               Try
                   mySocket = MYTcpListener.AcceptSocket
                   Dim MyNetworkstream As NetworkStream = New NetworkStream(mySocket)
                   Dim mysr As StreamReader = New StreamReader(MyNetworkstream)
                   Dim x As String = mysr.ReadToEnd
                   message_TextBox.Text = x
               Catch ex As Exception
                   MessageBox.Show(ex.Message)
               End Try
           End While
       Catch ex2 As Exception
           MessageBox.Show(ex2.Message)
       End Try
   End Sub
   Private Sub recived_message_FormClosint(ByRef sender As Object, ByRef e As System.Windows.Forms.FormClosingEventArgs)
       Try
           MYTcpListener.Stop()
           myth.Abort()
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub
   Private Sub recived_message_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       myth = New Thread(New System.Threading.ThreadStart(AddressOf REcivedDate))
       myth.Start()
   End Sub
End Class


وضهر لي الخطا التالي





هل المشكلة من كود الاتصال + جربت ووضعت ip الحقيقي للجهاز الاخر ولم تتغير المشكلة
الرد
تم الشكر بواسطة:
#2
في الانتضار
الرد
تم الشكر بواسطة:
#3
في الانتضار المساعدة
الرد
تم الشكر بواسطة:
#4
جرب تشغيل البرنامج كمدير
الرد
تم الشكر بواسطة:
#5
لم تتغير المشكلة
الرد
تم الشكر بواسطة:
#6
عرفت الحل المشكلة تحتاج server وتم كتابة class سيرفر ربط ونجحت
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] استفسار عن مشكلة في كود لايجاد العملاء الغير موجودين بجدول الدفع ahmedmansour 21 753 19-11-18, 11:29 PM
آخر رد: asemshahen5
  سؤال في الاتصال بالاكسس اسامه الهرماوي 0 39 17-11-18, 07:05 PM
آخر رد: اسامه الهرماوي
  [VB.NET] مشكلة في open file dailog nnnnn 2 83 17-11-18, 06:59 PM
آخر رد: اسامه الهرماوي
  مشكلة عند تنصيب فيجوال بيسك 2013 Mohamed Magdy 9 108 17-11-18, 03:39 AM
آخر رد: elgokr
  [VB.NET] مشكلة عدم ظهور كريستال ريبورت في فجول 2013 عبدالرحمن بشري عمر 9 93 17-11-18, 03:31 AM
آخر رد: عبد العزيز البسكري
  مشكلة فى تعطيل زر الحفظ سمير جمال 7 119 15-11-18, 07:02 PM
آخر رد: elgokr
  مشكلة ايجاد قاعدة البيانات m.reyati 5 88 13-11-18, 02:06 AM
آخر رد: mero5000
  [سؤال] كيف يتم الاتصال بالاكسس اسامه الهرماوي 2 44 12-11-18, 03:32 AM
آخر رد: Rabeea Qbaha
  [VB.NET] مشكلة في برنامج متعدد اللغات ay.alhaj 12 262 12-11-18, 03:30 AM
آخر رد: ay.alhaj
  حل مشكلة عدم تثبيت برنامجي hamadz 4 105 11-11-18, 02:29 PM
آخر رد: elgokr

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


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