Sub Process_Globals
Private server As FTPServer
End Sub
Sub AppStart (Args() As String)
server.Initialize(Me, "FTPServer")
server.SetPorts(99, 51045, 51057)
server.AddUser("dddd", "dddd")
server.Start
StartMessageLoop
End Sub
Sub FTPServer_StateChanged
Log($"Number of clients: ${server.NumberOfClients}"$)
End Sub