Sign in to follow this  
Followers 0
n9mfk9

tcprecv?

2 posts in this topic

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

Share this post


Link to post
Share on other sites



;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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0