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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة تكرار الامر تلقائيا | حل مشكلة script error في webbrowser عند فتح صفحة ما soloxocf1 6 269 18-03-19, 09:16 AM
آخر رد: 5000
  مشكلة فى تحزيم البرنامج ؟ احمد خطاب 1 72 15-03-19, 08:18 PM
آخر رد: 5000
  مشكلة في إضافة الصنف بالباركود في الفاتورة Hamoody 3 104 12-03-19, 06:44 PM
آخر رد: elgokr
  حل مشكلة حاتمي 1 65 09-03-19, 07:31 PM
آخر رد: حريف برمجة
  [VB.NET] مشكلة تظهر عند تنصيب فيجوال ستوديو 2019 اباذر 3 130 09-03-19, 12:41 AM
آخر رد: اباذر
  [VB.NET] مشكلة Data Type Mismatch in criteria expression basboos95 3 160 01-03-19, 04:19 PM
آخر رد: elgokr
  [VB.NET] مشكلة فى عرض محتويات DataGridView فى TextBox mr_hso 9 306 26-02-19, 09:18 PM
آخر رد: mr_hso
  مشكلة في تصدير الداتا الى PDF alshandodi 3 129 22-02-19, 07:58 PM
آخر رد: elgokr
  [VB.NET] طريقة الاتصال واغلاق الاتصال بقاعدة البيانات dubai.eig 8 225 22-02-19, 07:53 PM
آخر رد: elgokr
Photo مشكلة في تسطيب كريستال ريبورت عند العميل صالح حمادي 4 159 21-02-19, 01:34 PM
آخر رد: elgokr

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


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