в 16:40, 26 мая 2010

2010-05-26T16:40:06Z

Admin: 1 версия

2010-05-26T12:45:38Z

1 версия

Новая страница

==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>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net/Network Remote/UDP Server - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия