Echo server: Difference between revisions

Content added Content deleted
Line 1,450: Line 1,450:
Class App
Class App
Inherits ConsoleApplication
Inherits ConsoleApplication
Sub Run(args() As String)
Function Run(args() As String) As Integer
Listener = New EchoServer
Listener = New EchoServer
Listener.Port = 12321
Listener.Port = 12321
Line 1,457: Line 1,457:
DoEvents() 'pump the event loop
DoEvents() 'pump the event loop
Wend
Wend
End Sub
End Function
Private Listener As EchoListener
Private Listener As EchoListener
End Class
End Class