مشروعي لايوجد اتصال بين جهازين عبر اداة SOCKET ارجوكم ساعدوني

السلام عليكم

وضعت موضوع لتساعدوني بخصوص عمل شات

الفورم الأول

1- زر بوتن

2-تكست بوكس

في زر بوتن وضعت الكود لتالي

رمز:rivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = "DIVED" Then Me.Hide() Form2.Show() Else MsgBox("plise", MsgBoxStyle.ApplicationModal") End If End Subاذا تاكد من الاسم راح يدخلني الفورم الثاني

إلى هنا ماشي صح

الفورم الثاني

1-زر بوتن

2-تكست بوكس

3-لست بوكس

في زر بوتن الكود

رمز: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ListBox1.Items.Add(TextBox1.Text) TextBox1.Text = "" End Subالكود هذا ينقلني الىاي شي اكتبه في التكست بوكس واضغط زر بوتن ينقله الى لست بوكس

وهذا الي ابغاه

الكود السابق يظهر فقط welcome في لست بوكس

ومشكلتي الأولى وهي اريد اسم DIVED يظهر بجانب ماكتب

مثلاً DIVED :welcome

المشكله الثاني

عملت نموذجين كلاس

بإستعمال اداة SOCKET

الكلاس الأول لعملية الارسال

رمز:Imports SystemImports System.NetImports System.Net.SocketsImports System.TextPublic Class Class1 Class MultiSend Public Shared Sub main() Dim server As Socket = New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp) Dim iep As IPEndPoint = New IPEndPoint(IPAddress.Parse("224.100.0.1"), 5020) Dim data As Byte() = Encoding.ASCII.GetBytes("this is a test message") server.SendTo(data, iep) server.Close() End Sub End ClassEnd Class

اما الكلاس الثاني لعملية الاستقبال

رمز:Imports SystemImports System.NetImports System.Net.SocketsImports System.TextPublic Class Class2 Public Shared Sub main() Dim sock As UdpClient = New UdpClient(5020) sock.JoinMulticastGroup(IPAddress.Parse("224.100.0.1"), 50) Dim iep As IPEndPoint = New IPEndPoint(IPAddress.Any, 0) Dim data As Byte() = sock.Receive(iep) Dim stringdata As String = Encoding.ASCII.GetString(data, 0, data.Length) Console.WriteLine("received:{0}from:{1}", stringdata, iep.ToString) sock.Close() End SubEnd Classالكود التالي صحيح لعملية الارسال والتنصت على البورت والاستقبال مع العلم حددت البورت

لكن المشكله استعملت اكثر من جهاز حتى حتى ارى فاعلية البرنامج لكن

للأسف لاتوجد استجابه لا ارسال ولااستقبال

هذا كود مشروعي ارجو من لديه علم يساعدني بمشروعي

لاني والله احر من الجمر لانهائة المشروع

وجزاكم الله خير الجزاء

واعذروني على الاطالة ...

Imports System Imports System.Net Imports System.Net.Sockets Imports System.Text Public Class Class1 Class MultiSend Public Shared Sub main() Dim server As Socket = New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp) Dim iep As IPEndPoint = New IPEndPoint(IPAddress.Parse("224.100.0.1"), 5020) Dim data As Byte() = Encoding.ASCII.GetBytes("this is a test message") server.SendTo(data, iep) server.Close() End Sub End Class End Class

Imports System Imports System.Net Imports System.Net.Sockets Imports System.Text Public Class Class2 Public Shared Sub main() Dim sock As UdpClient = New UdpClient(5020) sock.JoinMulticastGroup(IPAddress.Parse("224.100.0.1"), 5020) Dim iep As IPEndPoint = New IPEndPoint(IPAddress.Any, 0) Dim data As Byte() = sock.Receive(iep) Dim stringdata As String = Encoding.ASCII.GetString(data, 0, data.Length) Console.WriteLine("received:{0}from:{1}", stringdata, iep.ToString) sock.Close() End Sub End Class

مشروعي لايوجد اتصال بين جهازين عبر اداة SOCKET ارجوكم ساعدوني

مواضيع مشابهة

عدد الزوار حالياً