ついでにテスト用送信プログラムはこんな感じだ。実行してみれ Imports System Imports System.Net Imports System.Net.Sockets Imports System.Text Public Class udpc Shared Sub Main() Dim client As UdpClient=new UdpClient(20000) Dim i As Integer=0 Dim ss As String="パケット発射" For i=0 To 3 ss &=ss Next Dim bb() As Byte=Encoding.UTF8.GetBytes(ss) client.Connect(IPAddress.Loopback,10000) client.Send(bb,bb.Length) End Sub End Class
