#include <GUIConstants.au3>

; Iniciar los servicios TCP
;==============================================
TCPStartUp()



Dim $szIPADDRESS = "127.0.0.1"
Dim $nPORT = 5254


; Iniciar la variable que representa la conexión
;==============================================
Dim $ConnectedSocket = -1


;Intenta conectarse al puerto 5254 con la ip 127.0.0.1 (loopback)
;=======================================================
$ConnectedSocket = TCPConnect($szIPADDRESS,$nPORT)


Dim $szData

; Si hay error al tratar de conectarse
If @error Then
    MsgBox(4112,"Error","Conexión fallida con el msg: " & @error)
; Si todo va bien
;   
Else
;Loop infinito que pide datos en el input box 
    While 1
    ; InputBox for data to transmit
        $szData = InputBox("Datos a enviar",@LF & @LF & "Ingrese los datos que se enviaran al puerto:")
        
    ; Si se le da cancel al inputobox se cierra el script
        If @error Or $szData = "" Then ExitLoop
        
    ; Enviemos los datos al socket
        TCPSend($ConnectedSocket,$szData)
        
    ; Si no se puede enviar termina script
    ;----------------------------------------------------------------
        If @error Then ExitLoop
    WEnd
EndIf