>>429 Socketクラスは利用してないが・・・。こんな感じかな。 Option Explicit On Option Strict On Imports System Imports System.Net Imports System.Net.Sockets Imports System.Text Public Delegate Sub ReceiveEventHandler(sender As object,e As UDPEventArgs) Public Class udps Public Event ReceivedUDPPacket As ReceiveEventHandler Protected Overridable Sub OnReceivedUDPPacket(e As UDPEventArgs) RaiseEvent ReceivedUDPPacket(Me,e) End Sub Public Sub Listen() Dim client As UdpClient=new UdpClient(10000) Dim ep As New IPEndPoint(IPAddress.Any, 0) While True Dim bb() As Byte=client.Receive(ep) Dim ueh As UDPEventArgs=New UDPEventArgs() ueh.ReceivedBytes=bb OnReceivedUDPPacket(ueh) End While End Sub End Class
