تقييم الموضوع :
  • 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 سيرفر ربط ونجحت
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في حفظ حقول من تكست بوكس علي قاعدة بيانات بواسطة داتاسيت Abdalazim19 19 440 أمس, 11:47 PM
آخر رد: ابراهيم ايبو
Sad [سؤال] لدي مشكلة في الكود الاتصال tridz 13 219 أمس, 05:09 PM
آخر رد: سعود
  [VB.NET] مشكلة فى اظهار فورم داخل فورم اخر باداة Panel eslame elgohary 26 637 21-08-19, 06:30 PM
آخر رد: viv
  [VB.NET] مشكلة اثناء التشغيل البرنامج محمد بوقزاحة 1 65 18-08-19, 08:20 PM
آخر رد: سعود
  مشكلة في mysql البيانات فارغة عماني939 1 49 17-08-19, 12:32 AM
آخر رد: اسامه الهرماوي
  مبتدىء فى بيئة الدوت نت - مشكلة فى كود الحفظ المبرمج العتيق 10 232 15-08-19, 12:34 AM
آخر رد: المبرمج العتيق
  [VB.NET] كود البحث بين تاريخين به مشكلة اسامه الهرماوي 2 99 14-08-19, 05:29 PM
آخر رد: Beginer
  مشكلة في تحديث nuget mohamedahmed1 0 44 13-08-19, 07:24 PM
آخر رد: mohamedahmed1
Photo مشكلة في WebKitBrowser mohamedahmed1 1 105 13-08-19, 12:23 AM
آخر رد: mohamedahmed1
  الاتصال بقاعدة بيانات سيكول موجوده في فولدر makky 1 77 10-08-19, 07:08 PM
آخر رد: asemshahen5

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


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