Imports System.Net Imports System.Net.NetworkInformation Public Class Service1 Public S1 As UDPState1 Private UsePort As Integer = 11000
Protected Overrides Sub OnStart(ByVal args() As String) S1 = New UDPState1() S1.e = New Net.IPEndPoint(Net.IPAddress.Any, UsePort) S1.u = New Net.Sockets.UdpClient(S1.e) S1.u.BeginReceive(AddressOf ReceiveCallBack, S1) End Sub
Protected Overrides Sub OnStop()
End Sub
Private Sub ReceiveCallBack(ByVal AR As IAsyncResult) Try Dim receiveBytes As Byte() = S1.u.EndReceive(AR, S1.e) '受信データ解析
Dim send_bytes() As Byte = {0, 1, 2, 3, 4, 5} S1.u.Send(send_bytes, send_bytes.Length, S1.e.Address.ToString, UsePort) Catch ex As Exception End Try
S1.u.BeginReceive(AddressOf ReceiveCallBack, S1) End Sub End Class
'ソケット通信用クラス Public Class UDPState1 Public e As Net.IPEndPoint Public u As Net.Sockets.UdpClient End Class