tcp commands not working ?

[n9mfk9]

Hello All,

I can not get this to work

the first tcprecv works i think the tcpsend works i can not get the secant tcprecv to work

what i went to do is send dat wit tcpsend then see what is sent back

;CLIENT!!!!!!!! Start SERVER First...

$name = "mail.insightbb.com"

$port="110"

; Start The TCP Services

;==============================================

TCPStartUp()

$g_IP = TCPNameToIP($name)

; Connect to a Listening "SOCKET"

;==============================================

$socket = TCPConnect( $g_IP, $port)

;If $socket = -1 Then Exit

While 1

$recv = TCPRecv( $socket, 2048 )

If $recv = "" Then ContinueLoop

MsgBox(0,"",$recv)

TCPSend($socket,"user ")

$recv = TCPRecv( $socket, 2048 )

MsgBox(0,"",$recv)

Exit

WEnd

thanks for any help