19-10-18, 02:57 AM
(آخر تعديل لهذه المشاركة : 19-10-18, 06:35 PM {2} بواسطة Amir_Alzubidy.
تعديل السبب: تعديل العنوان
)
مرحبا
انا عملت مشروع دردشة كتابية بين جهازين والمشروع يحتوي على فرومين الفروم الاول وضعت فيه هاذا الكود
والفروم الثاني لعرض الرسالة ووضعت فيه هاذا الكود
وضهر لي الخطا التالي
هل المشكلة من كود الاتصال + جربت ووضعت 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 الحقيقي للجهاز الاخر ولم تتغير المشكلة