TCP Client and Server

Tcpstartup()

$Socket = TCPConnect(@IPAddress1, 403)

If $Socket = -1 Then
MsgBox(0, "Error", 'Could not conncet to the server')
EndIf

;$SendBytes = TCPSend($Socket, 'Hello, client has made connection with the server')
While 1
$Order = InputBox('Send Order', 'Type your order here:')
$SendBytes = TCPSend($Socket, $Order)

If $SendBytes = 0 Then
MsgBox(0, 'Error', 'The packet was not able to reach the server')
EndIf
WEnd

TCPCloseSocket($Socket)
TCPShutdown()

TCPStartup()

$MainSocket = TCPListen(@IPAddress1, 403)

While 1
$AcceptedSocket = TCPAccept($MainSocket)

If $AcceptedSocket <> -1 Then
$RecievedData = TCPRecv($AcceptedSocket, 1000000)
If $RecievedData <> "" Then
MsgBox(0, 'Data Recived', $RecievedData)
TCPCloseSocket($AcceptedSocket)
EndIf
EndIf
WEnd

$Order = InputBox('Send Order', 'Type your order here:')
$SendBytes = TCPSend($Socket, $Order)

While 1
$Order = InputBox('Send Order', 'Type your order here:')
$SendBytes = TCPSend($Socket, $Order)

If $SendBytes = 0 Then
MsgBox(0, 'Error', 'The packet was not able to reach the server')
EndIf
WEnd

;$SendBytes = TCPSend($Socket, 'Hello, client has made connection with the server')