19-10-18, 02:57 AM
مرحبا
انا عملت مشروع دردشة كتابية بين جهازين والمشروع يحتوي على فرومين الفروم الاول وضعت فيه هاذا الكود
والفروم الثاني لعرض الرسالة ووضعت فيه هاذا الكود
وضهر لي الخطا التالي
![[صورة مرفقة: ______.PNG]](https://www.upload.ee/image/9085109/______.PNG)
هل المشكلة من كود الاتصال + جربت ووضعت ip الحقيقي للجهاز الاخر ولم تتغير المشكلة
انا عملت مشروع دردشة كتابية بين جهازين والمشروع يحتوي على فرومين الفروم الاول وضعت فيه هاذا الكود
كود :
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 الحقيقي للجهاز الاخر ولم تتغير المشكلة