Imports System
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Public Class Tester
Public Shared Sub Main
Dim client1 As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
Dim server1 As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
Dim MyIP As IPAddress
Dim str As String
Dim bytes1(200) As Byte
Dim bytes2(200) As Byte
Dim Port1 As Integer = 8080
Dim port2 As Integer = 3128
MyIP = IPAddress.Parse("168.169.1.81")
Dim server2 As New IPEndPoint(MyIP, Port1)
Dim client2 As New IPEndPoint(MyIP, port2)
client1.Bind(client2)
Try
str = "asdf"
bytes1 = Encoding.ASCII.GetBytes(str)
client1.SendTo(bytes1, server2)
client1.ReceiveFrom(bytes2, server2)
Catch ex As Exception
End Try
client1.Close()
End Sub
End Class
|