Non-UI application (console / server application)
#Region Project Attributes
#CommandLineArgs:
#MergeLibraries: True
#End Region
Sub Process_Globals
Private Server As ServerSocket
End Sub
Sub AppStart (Args() As String)
Server.Initialize(4000,"Server")
Server.listen
StartMessageLoop
End Sub
Sub Server_NewConnection (Successful As Boolean, NewSocket As Socket)
Log("connected")
Dim r As Reflector
r.Target = NewSocket
r.Target = r.GetField("socket")
Log(r.RunMethod("getInetAddress"))
End Sub