Altri Linguaggi - [Autoit]PoRT-ScAN

#include <GUIConstants.au3>
#include<GuiEdit.au3>
#NoTrayIcon

GUICreate("PoRT-ScAN  - FiRe-CrAsH", 411, 218, 193, 125)
GUISetBkColor(0x000000)
GUICtrlCreateLabel("Ip Address:", 8, 8, 71, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0x00FF00)
$ip = GUICtrlCreateInput("", 8, 32, 105, 21)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0x00FFFF)
GUICtrlSetBkColor(-1, 0x506072)
GUICtrlCreateLabel("From Port:", 8, 64, 65, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0x00FF00)
$from = GUICtrlCreateInput("", 8, 88, 97, 21)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0x00FFFF)
GUICtrlSetBkColor(-1, 0x5A7385)
$to = GUICtrlCreateInput("", 8, 144, 97, 21)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0x00FFFF)
GUICtrlSetBkColor(-1, 0x5A7385)
GUICtrlCreateLabel("To Port:", 8, 120, 50, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0x00FF00)
$screen = GUICtrlCreateEdit("", 136, 24, 265, 145, BitOR($ES_AUTOVSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0x00FFFF)
GUICtrlSetBkColor(-1, 0x5C5C5C)
$scan = GUICtrlCreateButton("Start - Scan", 8, 176, 89, 33, 0)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x808080)
GUICtrlCreateLabel("PoRT-ScAN - FiRe-CrAsH@MsN.CoM", 152, 184, 222, 18)
GUICtrlSetFont(-1, 9, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0x00FF00)
GUISetState(@SW_SHOW)


           While 1
            $nMsg = GUIGetMsg()
             Switch $nMsg
			 case $scan
				 GuiCtrlSetData($screen,"")
				 _GUiCtrlEdit_AppendText($screen,"[-] Scanning..."&@CRLF&@CRLF)
				 TcpStartUp()
				 For $ports = GuiCtrlRead($from) to GuiCtrlRead($to) step 1
				 $socket = TCpConnect(GuiCtrlRead($ip),$ports)
				 TcpCloseSocket($socket)
			 
			 if $socket = "-1" Then
				 _GuiCtrlEdit_AppendText($screen,"[-] Port Close: "&$ports&@CRLF)
				 sleep("500")
			 Else
				 _GuiCtrlEdit_AppendText($screen,"[-] Port Open: "&$ports&@CRLF)
				 sleep("500")
			 EndIf
			
		 next
		 _GuiCtrledit_AppendText($screen,@CRLF&"[-] Scan Complete."&@CRLF&@CRLF)
           Case $GUI_EVENT_CLOSE  
Exit

EndSwitch
WEnd

Ciao..ho controllato i tuoi script e a quanto pare sembra che ci siano diversi errori..

ad esempio?.