Aquí te dejo el código que hace lo que pides pero con AutoIT.
Código:
#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
Aquí puedes conseguir AutoIT, es un lenguaje muy fácil....
Puedes compilarlo y hacer un .exe y comprimir con UPX, ofuscar el código etc. etc.
http://www.autoitscript.com/autoit3/downloads.shtml