UDP Chat im lokalen Netz

    • VB.NET

    Es gibt 19 Antworten in diesem Thema. Der letzte Beitrag () ist von filmee24.

      UDP Chat im lokalen Netz

      Mal ganz was einfaches fürs lokale Netz:

      Klasse:
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Imports System.Threading
      2. Imports System.Net.Sockets
      4. Public Class UDPChatter
      6. Private _Port As Integer
      7. Private ars As New AutoResetEvent(False)
      8. Private stoplisten As Boolean
      10. Event GotMessage(ByVal m As String, ByVal remoteip As Net.IPEndPoint)
      12. Public Sub New(ByVal port As Integer)
      14. _Port = port
      16. End Sub
      18. Public Sub [Stop]()
      19. stoplisten = True
      20. ars.Set()
      21. End Sub
      23. Public Sub Listen()
      25. stoplisten = False
      26. Dim t As New Thread(AddressOf BackgroundListener)
      27. t.Start()
      29. End Sub
      31. Private Sub ReadCallback(ByVal ar As IAsyncResult)
      32. Dim u As UdpClient = DirectCast(ar.AsyncState, UdpClient)
      33. Dim rep As Net.IPEndPoint
      34. Dim b() As Byte = u.EndReceive(ar, rep)
      35. If b.Length > 0 Then
      36. Dim m As String = System.Text.Encoding.Unicode.GetString(b)
      37. Dim d As [Delegate] = GotMessageEvent
      38. For Each trg As [Delegate] In d.GetInvocationList
      39. If TypeOf trg.Target Is Control Then
      40. DirectCast(trg.Target, Control).Invoke(d, New Object() {m, rep})
      41. Else
      42. RaiseEvent GotMessage(m, rep)
      43. End If
      44. Next
      45. End If
      46. ars.Set()
      47. End Sub
      49. Private Sub BackgroundListener()
      51. Dim p As New Net.IPEndPoint(Net.IPAddress.Any, _Port)
      52. Dim u As New UdpClient()
      53. u.EnableBroadcast = True
      54. u.ExclusiveAddressUse = False
      55. u.Client.SetSocketOption(SocketOptionLevel.Socket, SocketOptionName.ReuseAddress, True)
      56. u.Client.Bind(p)
      58. Do
      59. u.BeginReceive(AddressOf ReadCallback, u)
      60. ars.Reset()
      61. ars.WaitOne()
      62. Loop Until stoplisten
      64. End Sub
      66. Public Sub SendStr(ByVal s As String)
      68. Dim t As New Thread(AddressOf BackgroundSend)
      69. t.Start(s)
      71. End Sub
      73. Private Sub BackgroundSend(ByVal o As Object)
      75. Dim s As String = DirectCast(o, String)
      76. Dim p As New Net.IPEndPoint(Net.IPAddress.Broadcast, _Port)
      77. Dim u As New UdpClient()
      78. u.ExclusiveAddressUse = False
      79. u.EnableBroadcast = True
      80. u.DontFragment = True
      81. u.Client.SetSocketOption(SocketOptionLevel.Socket, SocketOptionName.ReuseAddress, True)
      82. u.Client.Bind(New Net.IPEndPoint(Net.IPAddress.Any, _Port))
      83. Dim b() As Byte = System.Text.Encoding.Unicode.GetBytes(s)
      84. u.Send(b, b.Length, p)
      86. End Sub
      88. End Class


      Der Empfang ist nicht blockierend -> events
      Beachten, dass der Listener auf ALLEN verfügbaren IPs lauscht. Wenn mehr als eine NIC im Rechner ist (auch virtuell etc), kommt jede Nachricht u.U. mehrfach an. Also muss man entweder von .Any auf eine bestimmte umstellen, oder halt irgendwie die doppelten msgs filtern.

      Man kann das natürlich nicht nur zum Chatten, sondern auch für alle anderen Kommunitkationen verwenden.

      Bsp:
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Public Class Form1
      3. Private WithEvents c As New UDPChatter(12345)
      5. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      6. c.Listen()
      7. End Sub
      9. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      10. c.SendStr("Hallo")
      11. End Sub
      13. Private Sub c_GotMessage(ByVal m As String, ByVal rep As Net.IPEndPoint) Handles c.GotMessage
      14. ListBox1.Items.Add(m)
      15. End Sub
      16. End Class


      Da das ganze via Broadcast funzt, geht es natürlich nicht übers INet!

      Mahlzeit.

      Ich benutze deinen Codeschnipsel da um... naja um zu chatten. Von der Einfachheit bin ich absolut überzeugt, aber ich habe da dennoch ein kleines Problemchen.

      Immer, wenn eine Nachricht ankommt, kommt bei mir in der Zeile 40:

      DirectCast(trg.Target, Control).Invoke(d, New Object() {m, rep}) (In "ReadCallback")

      der Fehler "ArgumentOutOfRangeException" (Value mit dem Wert 0 wurde nicht behandelt)

      Ich bin, was VB2008 angeht, noch relativ unbewandert. Deshalb kann ich den Fehler irgendwie nicht nachvollziehen, vorallem, weil ich den Code auch nicht mehr angerührt habe. Irgend 'ne Idee?

      Frisky schrieb:

      Mahlzeit.
      DirectCast(trg.Target, Control).Invoke(d, New Object() {m, rep}) (In "ReadCallback")

      der Fehler "ArgumentOutOfRangeException" (Value mit dem Wert 0 wurde nicht behandelt)

      Irgend 'ne Idee?

      Mit F9 einen Breakpoint auf die Zeile setzen, Debug-Modus starten und dann dort mal schauen, wie die beteiligten Variablen aussehen.

      So, das von mir beschriebene Problem existiert nicht mehr. Warum weiß ich selbst nicht, aber es ist was neues aufgetreten.

      Wenn ein zweiter Rechner über das Programm anfängt zu broadcasten, passiert nichts mehr. Beide Programme senden und empfangen keine Nachrichten mehr.

      Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Frisky“ ()

      Upps, tja das passiert, wenn man den Code net einfach so kopiert^^"
      Ich glaube ich sollte nicht immer den Code abschreiben und versuchen ihn zu verstehen...

      Naja danke mit dem Hinweis der Klasse

      #Edit

      UDPChatter(12345)

      Die Nummer ist die "Name" des Senders?
      Kann ich da nicht eine eindeutige Rechner-ID nehmen?

      Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Biotechniker“ () aus folgendem Grund: weitere Frage

      Hi,danke für deine schnelle Antwort =)
      Wie meinst du Zeile? In dem der fehler ist?
      Hab ein Bild hochgeladen,wenn du möchtest kannst du dir das via. Teamviewer anschaun
      Bilder

      • VB Fehler.JPG

        141,02 kB, 1.279×954, 290 mal angesehen

    Facebook
    Telefonspende