Imports System.Net
Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main
Dim myUdpClient As UdpClient
Try
Dim myEndPoint As New IPEndPoint(IPAddress.Parse("127.0.0.1"), 12345)
myUdpClient = New UdpClient()
myUdpClient.Connect(myEndPoint)
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
End Sub
End Class
|