VB.Net/Network Remote/UDP Server

Материал из VB Эксперт
Перейти к: навигация, поиск

UDP: Server receives packets from a client, then echoes packets back to clients

<source lang="vbnet"> Imports System.Threading Imports System.Net.Sockets Imports System.IO Imports System.Net

Public Class MainClass

  Shared Dim client As UdpClient
  Shared Dim receivePoint As IPEndPoint
  Public Shared Sub Main()
      client = New UdpClient(5000)
   
      receivePoint = New IPEndPoint(New IPAddress(0), 0)
   
      Dim readThread As Thread = New Thread(New ThreadStart(AddressOf WaitForPackets))
   
      readThread.Start() " wait for packets
  End Sub
  Shared Public Sub WaitForPackets()
     While True
        Dim data As Byte() = client.Receive(receivePoint)
        Console.WriteLine("Packet received:" & _
           vbCrLf & "Length: " & data.Length & vbCrLf & _
           "Containing: " & _
           System.Text.Encoding.ASCII.GetString(data) )
        Console.WriteLine("Echo data back to client...")
        client.Send(data, data.Length, receivePoint)
        Console.WriteLine("Packet sent")
     End While
  End Sub 
  

End Class


      </source>