TCP Help.

[AzKay]

Client

TCPStartup()
$ip = InputBox("IP", "Enter IP to connect to", @IPAddress1)
$port = InputBox("Port", "What port are they using?", "5900")
$con = TCPConnect($ip, $port)

If @error Or $con < 1 Then
    MsgBox(0, "Error", "Could not Connect")
    Exit
EndIf

While 1
    TCPSend($con, InputBox("", ""))
WEnd

Few questions,

1, How can I have this so multiple people can connect? ~ Found the answer Here

2, How can I have the server reply back to the client?

eg; Client > Server "Hello", Server > Client "OK"

Edited August 11, 2007 by AzKay

[AzKay]

Bumping topic off second page.

[AzKay]

Bumping topic off second page.

[Fabry]

Case StringLeft($msg, 5) = "[300]" ;Login
                $oCommand = StringTrimLeft($msg, 5)
                $oParam = StringSplit($oCommand, ",")
                If IsArray($oParam) Then
                    MsgBox(0, "Login", $oParam[1] & ":" & $oParam[2])
                EndIf
tcpsend($con,'OK');answer

You can use the same connection started by client to send a message.

[AzKay]

I see. So simple.

Thanks x3