[dasktop]

مرحبا

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

كود :

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 الحقيقي للجهاز الاخر ولم تتغير المشكلة

[dasktop]

في الانتضار

[dasktop]

في الانتضار المساعدة

[mero5000]

جرب تشغيل البرنامج كمدير

[dasktop]

لم تتغير المشكلة

[dasktop]

عرفت الحل المشكلة تحتاج server وتم كتابة class سيرفر ربط ونجحت