; Socket practice

; server info
$ipServer = "50.112.115.220"
$portServer = 6667

TCPStartup()
$hSock = TCPConnect($ipServer, $portServer)

if $hSock == -1 Then
   ConsoleWrite("Error: " @CRLF)
   Exit
EndIf

; loop

while 1

   $buff = TCPRecv($hSock, 1024)
   if $buff == -1 Then
      ConsoleWrite("Error: " & @error)
      Exit
   EndIf
   ConsoleWrite($buff);
WEnd