Illegal Telnet Client

[Devil_Code]

Codice:

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

TCPStartup ()

#Region ### START Koda GUI section ### Form=
$Form3 = GUICreate("illegal Telenet Client", 594, 501, 204, 154)
GUISetFont(10, 800, 0, "System")
GUISetBkColor(0x000000)
$Edit = GUICtrlCreateEdit("", 88, 24, 409, 353)
GUICtrlSetData(-1, "")
GUICtrlSetColor(-1, 0x008000)
$Input1 = GUICtrlCreateInput("", 88, 392, 409, 24)
GUICtrlSetColor(-1, 0x008000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$Host1 = InputBox ( "Illegal Telnet Client", "Inserire nome host a cui connettersi" )
$Port1 = InputBox ( "Illegal Telnet Client", "Inserire porta host" )

GUISetState ()
ControlSend ( "Illegal Telnet Client","", $Edit, "{TAB}")
$Host = TCPNameToIP ( $Host1 )
$Connessione = TCPConnect ( $Host, $Port1 )
If @error Then Exit

While 1
    $msg = GuiGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then Exit
    $recv = TCPRecv ( $Connessione,2048 )
    If $recv <> "" Then
    $text = GUICtrlRead ( $Edit )
    GUICtrlSetData ( $Edit,$text & $recv )
    ControlSend ( "Illegal Telnet Client","", $Edit, "{ENTER}")
    EndIf

  
    If $msg = $Input Then
        $text = GUICtrlRead ( $Edit )
        $eingabe = GUICtrlRead ( $Input )
        GUICtrlSetData ( $Edit, $text & $eingabe )
        GUICtrlSetData ( $Input, "" )

        TCPSend ( $Connessione, $eingabe & Chr ( 10 ) )
        ControlSend ( "Illegal Telnet Client","", $Edit, "{ENTER}")

        If @error Then
            MsgBox (0,"","Errore")
            Exit
            EndIf
        EndIf
    WEnd