Send TCP Packets to clients

[Shahriyar]

Hello

I have an autoit script that i want it to be a TCP Server and send packet to connected clients

I have successfully created TCP Server and clients can connect but the problem is that i sont know how to send packet to clients

There is my autoit code

TCPStartup()

Local $Socket = TCPListen("127.0.0.1",14)
Local $Connection = TCPAccept($Socket)

While True
TCPSend($Socket,Binary(0))
Sleep(1000)
WEnd

Thanks

Edited April 15, 2013 by Shahriyar

[FireFox]

Hi,

Welcome to the autoit forum

Unfortunately you missed the search forum button.

Br, FireFox.

[BrewManNH]

Do a search on here for answers to this, it's been talked about as recently as last week.

[FireFox]

More than that, plenty of commented examples.

[Shahriyar]

Now i wrote this code but even this does not works

TCPStartup()

Local $Socket = TCPListen("127.0.0.1",14)
Dim $Client[1024]
Local $MyInt = 0

While True
Local $Connection = TCPAccept($Socket)

If $Connection >= 0 Then

$Client[$MyInt] = $Connection
$MyInt += 1

For $Counter = 1 to $MyInt
TCPSend($Client[$Counter],StringToBinary("Hello !"))
Next

EndIf

Sleep(500)
WEnd

Edited April 15, 2013 by Shahriyar

[FireFox]

Your $Counter var should start at ZERO as your $MyInt var does.

[Celtic88]

CHANGE

If $Connection >= 0 Then

to

If $Connection <> -1 Then

http://www.autoitscript.com/autoit3/docs/functions/TCPAccept.htm

[Celtic88]

clien:

$YOURIP = ""
TCPStartup()
DO
  $CONNECT = TCPCONNECT($YOURIP , $PORT)
UNTIL $CONNECT <> -1
DO
$RECVPACK = TCPRECV($CONNECT, 4024)
IF @ERROR THEN
MsgBox(0,"","server shutdown")
TCPShutdown()
endif
UNTIL $RECVPACK <> ""
MsgBox(0,"",$RECVPACK)
TCPShutdown()

[Shahriyar]

Ok now i make it work with this and the help of TCP UDF

expandcollapse popup

#include "TCP.au3"
TCPStartup()

Local $Socket = _TCP_Server_Create(14)
Local $Connection = TCPAccept($Socket)
Dim $Client[1025]
Local $ConnectedClients

_TCP_RegisterEvent($Socket, $TCP_NEWCLIENT, "NewClient")
_TCP_RegisterEvent($Socket, $TCP_DISCONNECT, "ClientDisconnects")

Func NewClient($hSocket, $iError)
$Client[FindFreeSocket()] = $hSocket
$ConnectedClients = FindConnectedClients()

For $Counter = 0 to $ConnectedClients
TCPSend($Client[$Counter],StringToBinary("Hello !"))
Next
EndFunc

Func ClientDisconnects($hSocket, $iError)
For $Counter = 0 to 1024
If $Client[$Counter] = $hSocket Then
$Client[$Counter] = -1
EndIf
Next
EndFunc

Func FindFreeSocket()
For $Counter = 0 to 1024
If $Client[$Counter] < 0 Then
Return $Counter
EndIf
Next
EndFunc

Func FindConnectedClients()
For $Counter = 0 to 1024
If $Client[$Counter] < 0 And $Client[$Counter + 1] < 0 And $Client[$Counter + 2] < 0 Then
Return $Counter - 1
EndIf
Next
EndFunc

While True

Sleep(10)

WEnd

But now i think my FindConnectedClients() need some improvements

Does anyone can take a look on it ?