Simple Tcp Listener

[ob2s]

Yes I have searched, but nothing I find can I get to run without error. I don't want any interaction, gui or otherwise.  I wish to have a tcp listener, hand it the port on the command line, have it listen on 0.0.0.0:<port> and allow incoming connections from anywhere, take the payload of the connection and append it to a local file.  I need the port to stay servicing connections until the exe is killed. I have done this in perl and will use the perl client to connect with, but I don't want just convert the perl server to exe, since autoit seems to do it in a more windows compliant manner.

Thanks

[Jefrey]

Hi,

On my signature, take a look on TCPServer lib. It will allow you to create multiclients TCP listeners very easily!

Actually here's the code (you will need to download my UDF):

#include "TCPServer.au3"

; First we set the callback that will be called when one client sends some "payload"
_TCPServer_OnReceive("received")

; Set some parameters
_TCPServer_DebugMode(True)
_TCPServer_SetMaxClients(10)

; Finally we start the server at port <port> (from command line parameter) at any interface
If $CmdLine[0] Then
    _TCPServer_Start($CmdLine[1])
Else
    Exit ConsoleWrite("Usage: " & @ScriptName & " <port>")
EndIf

; this function, as we've set, will be called when clients send some content
Func received($iSocket, $sIP, $sData, $sPar)
    ; write received contents to YourFile.txt
    FileWrite("YourFile.txt", $sData)
EndFunc   ;==>received

; Loop forever so the script will not close
While 1
    Sleep(100)
WEnd

 

Edited June 25, 2017 by Jefrey