[Resolved] TCP

[2words4uready]

I've decided to jump into the Autoit world of TCP

1. What would be a good project to learn tcp?

2. Nothing too advanced.

Edited August 8, 2008 by 2words4uready

[2words4uready]

Any Tcp tutorials would work as well.

[Glyph]

Maybe a remote command of some sort?

send a tcp packet and have the other side reply with a message box?

seems simple!

[SoulA]

I thought this code Here was very helpful. I just started TCP stuff myself a few days ago and this was a great start point. Doing a simple telnet like server.

Edited August 7, 2008 by SoulA

[2words4uready]

Could some one post an example of a simple tcp script that sends a message box to another computer?

I cant seem to figure the tcp out

[2words4uready]

Could some one post an example of a simple tcp script that sends a message box to another computer?

I cant seem to figure the tcp out

cant figure it out

my code so far

Server

while 1
TCPStartup()
$main = TCPListen(@ipaddress1, 1111)
TCPAccept($main)
If TCPRecv($main, 1000) = "{!}msg" Then
    MsgBox(0,"Test", "Message Sent")
EndIf
WEnd

Client

TCPStartup()
$ip = "72.171.0.147"
$msg = "{!}msg"
$socket = TCPConnect($ip, 1111)
TCPSend($socket, $msg)

I'm assuming my code is way off.

Any help would be appreciated.

[bf2forlife]

u should remove the tcpstartup from loop

[LarryDalooza]

Learn to send a TCP message that has a header describing the data. Interpret the header and act on the data.

Lar.

[2words4uready]

u should remove the tcpstartup from loop

code is still not working

[2words4uready]

Learn to send a TCP message that has a header describing the data. Interpret the header and act on the data.

Lar.

And how would i do this?

[AdmiralAlkex]

And how would i do this?

See the examples in the helpfile or "Example Scripts" forum.

[SoulA]

Server

$ip = @ipaddress1;or "0.0.0.0" for all interfaces
$port = 1111
TCPStartup()
$main = TCPListen($ip, $port)
Do
        $socket = TCPAccept($main)
Until $socket <> -1
Do
        $recv = TCPRecv($socket, 17520)
Until $recv <> ""
    
If $recv = "msgbox" Then MsgBox(0,"Test", "Message Sent")
TCPCloseSocket($socket)
TCPShutdown()

Client

$ip = "72.171.0.147"
$port = 1111
$msg = "msgbox"
TCPStartup()
Do
         $socket = TCPConnect($ip, $port)
Until $socket <> -1
sleep(50)
TCPSend($socket, $msg)
If @error Then MsgBox(0,"Error", "Message Failed To send")
TCPShutdown()

Basic Idea not tested

Make sure if you test you have your firewall and what not set up to accept connections on whatever port you set for the server.

Edited August 8, 2008 by SoulA