Public Class UDP 'The UDP class that listens and sends data
Public Event Paused() 'Invokes a event when the listener has been paused
Public Event Restarted() 'Invokes a event when the listener has been restarted
Public Event Distroyed() 'Invokes a event when the listener has been perminently disabled
Public Event DataSent(ByVal Data As String) 'Invokes a event when the data has been sent
Public Event DataArrival(ByVal Data As String) 'Invokes a event when data has been recieved
Public Event SendFailed(ByVal Message As String) 'Invokes a event when data could not be send to remote host
Public Event RecieveFailed(ByVal Message As String) 'Invokes a event when an error occured during data retrival
Public Event ErrorEvent(ByVal Message As String) 'Invokes a event when a subroutine encouters and error
Dim ListenerDistroyed As Boolean = False
Private WithEvents Listener As New UDPListener
Private Listenerthread As New System.Threading.Thread(AddressOf Listener.Listen)
Public Sub Listen(ByVal Port As Integer)
'Set up the listener thread
End Sub
Public Sub Pause()
'Pause the listener thread
End Sub
Public Sub Restart()
'Restart the listener thread
End Sub
Public Sub Distroy()
'Kill the listener thread
End Sub
Public Sub Send(ByVal Host As String, ByVal Port As Integer, ByVal Data As String)
'Send the data to the remote host
End Sub
Private Sub DataArived(ByVal Data As String) Handles Listener.DataArrival
RaiseEvent DataArrival(Data)
End Sub
Private Sub DataArrivalError(ByVal Message As String) Handles Listener.RecieveFailed
RaiseEvent RecieveFailed(Message)
End Sub
End Class