tcprecv?

[n9mfk9]

Hi all i can not get tcprecv to work

;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

TCPSend($socket, 'user test')

Sleep(100)

$recv = TCPRecv( $Socket, 2048 )

MsgBox(0,"",$recv)

thanks for an help

[McGod]

;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

TCPSend($socket, 'user test')

While 1
Sleep(100)
$recv = TCPRecv( $socket, 2048 )
If $recv = "" Then ContinueLoop
MsgBox(0,"",$recv) 
WEnd

Try that