SUPPORTTI

I managed to do this by remaking another script the way I need to use it as a port knock, Follow the solution below #include <File.au3> #include <Misc.au3> Local $Server1 = Ping("$host","$port") Local $Server2 = PingPort("172.16.16.100", 0000) ;<== digite aqui o IP e Porta Local $Server3 = PingPort("172.16.16.100", 0001) Local $Server4 = PingPort("172.16.16.100", 0002) Local $SServer1 = 0 Local $SServer2 = 0 Local $SServer3 = 0 Local $SServer4 = 0 Func PingPort($ip, $port) $ip = TCPNameToIP($ip) Sleep(1000) $start = TimerInit() $sock = TCPConnect($ip, $port) if ($sock <= -1) Then return -1 ; Fill up 32 bytes $sBytes = "" For $i = 1 to 32 $sBytes &= " " Next $nSent = TCPSend($sock, $sBytes) if (@error or $nSent <= 0) then Return -1 $nTimerDiff = TimerDiff($start) TCPCloseSocket($Sock) Return $nTimerDiff EndFunc If $Server1 = -1 Then $SServer1 = "BLOQUEADO" Else $SServer1 = "OK" EndIf If $Server2 = -1 Then $SServer2 = "BLOQUEADO" Else $SServer2 = "LIBERADO" EndIf If $Server3 = -1 Then $SServer3 = "BLOQUEADO" Else $SServer3 = "LIBERADO" EndIf If $Server4 = -1 Then $SServer4 = "BLOQUEADO" Else $SServer4 = "LIBERADO" EndIf MsgBox(-1, " CONEXAO CLIENTE", "SERVICO | " & $SServer1 & @CRLF & "CONEXAO | " & $SServer2 & @CRLF & "CONEXAO | " & $SServer3& @CRLF & "CONEXAO | " & $SServer4) scprit tested and working anything just call

Hello, I did this but at the time of posting google chrome changed beforehand, and I didn't notice but I've been checking as much as possible to avoid failures

I need to leave the checkbox always checked so that when starting the script it automatically runs the ping/port test, Is there any way to also not show the port IP box? #include <GUIConstantsEx.au3> #include <StringConstants.au3> $meia = "" #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("TCP", 328, 447, 193, 125) $IPin = GUICtrlCreateInput("172.16.16.1", 50, 0, 121, 21) GUICtrlCreateLabel("IP/Host:", 0, 0, 50, 17) $História = GUICtrlCreateEdit("", 2, 82, 321, 361) $Go = GUICtrlCreateCheckbox("Iniciar", 250, -2, 75, 25, 0) GUICtrlSetBkColor(-1, 0x009933) GUICtrlCreateLabel("Porta", 178, 2, 23, 17) $Portin = GUICtrlCreateInput("3389", 204, 0, 45, 21) GUICtrlCreateLabel("Histórico", 2, 62, 36, 17) $Gstatus = GUICtrlCreateLabel("", 74, 30, 196, 41) GUICtrlSetFont(-1, 26, 400, 0, "MS Sans Serif") GUISetState(@SW_SHOW) #EndRegion ### START Koda GUI section ### Form= TCPStartup() enquanto 1 $msgb = GUIGetMsg() Alternar $msgb Caso $GUI_EVENT_CLOSE TCPCloseSocket($sock) TCPShutdown() Saída Caso BitAND(GUICtrlRead($Go), $GUI_CHECKED) Caso BitAND(GUICtrlRead($Go), $GUI_UNCHECKED) $ip = GUICtrlRead($IPin, 1) $port = GUICtrlRead($Portin, 1) Se $ip = "" Ou $port = "" Então Outro $aPorta = StringSplit($porta, " ", $STR_NOCOUNT) Para $p Em $aPort PingPort($ip, $p) Próximo Fim se EndSwitch Fim Função PingPort($ip, $port) $ip = TCPNameToIP($ip) Sono(1000) $início = TimerInit() $sock = TCPConnect($ip, $porta) Se @erro = 1 Então MsgBox(0, "Erro", "IP inválido digitado!") GUICtrlSetState($Go, $GUI_UNCHECKED) ElseIf @error = 2 Então MsgBox(0, "Erro", "Porta inválida/fechada digitada!") GUICtrlSetState($Go, $GUI_UNCHECKED) ElseIf $ meia = -1 Então GUICtrlSetData($Gstatus, "OFFLINE!") GUICtrlSetFont($Gstatus, 26) GUICtrlSetColor($Gstatus, 0xFF0093) GUICtrlSetData($History, "[" & @HOUR & ":" & @MIN & ":" & @SEC & "] OFFLINE, " & $ip & ":" & $port & @CRLF, GUICtrlRead($History) ) Outro $Parada = Round(TimerDiff($inicio), 2) GUICtrlSetData($Gstatus, "ONLINE!") GUICtrlSetFont($Gstatus, 26) GUICtrlSetColor($Gstatus, 0x009933) GUICtrlSetData($History, "[" & @HOUR & ":" & @MIN & ":" & @SEC & "] ONLINE, " & $ip & ":" & $port & " ms:" & $Stop & @CRLF, GUICtrlRead($História)) TCPCloseSocket($sock) Fim se EndFunc ;==>PingPort Mandar ("!") Enviar ("{f4}") Thanks to anyone who helps I've been trying since yesterday but being a beginner it's complicated.

How do I make it start the application monitoring the ports I need? Example IP: 201.10.30.88 PORT 50000 PORT 50001 PORT 50002 already initializing without having to type in the field

#include <GUIConstantsEx.au3> #include <WinAPI.au3> #include <WindowsConstants.au3> $host = "172.16.16.100" ;<<<<<<< enter here the host name or ip address $port = "53899" ;Remote Desktop ActiveX Control Interfaces -> http://msdn.microsoft.com/en-us/library/aa383022(v=VS.85).aspx $hGUI = GUICreate("CONEXAO ROGERIO AUTO CENTER", 952, 675, -1, -1, $WS_OVERLAPPEDWINDOW + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN) $oRDP = ObjCreate("MsTscAx.MsTscAx") ;http://msdn.microsoft.com/en-us/library/aa381344(v=VS.85).aspx $oRDP_Ctrl = GUICtrlCreateObj($oRDP, 64, 44, 800, 600) GUICtrlSetResizing(-1, $GUI_DOCKALL) GUICtrlSetStyle($oRDP_Ctrl , $WS_VISIBLE) $oRDP.DesktopWidth = 1366 $oRDP.DesktopHeight = 768 $oRDP.Fullscreen =768 $oRDP.ColorDepth = 32 $oRDP.AdvancedSettings2.RedirectDrives = True ; Sollen die Laufwerke mitgenommen werden $oRDP.AdvancedSettings2.RedirectPrinters = True ; Sollen die Drucker mitgenommen werden $oRDP.AdvancedSettings2.RedirectPorts = False ; Ports wie LPT1 etc $oRDP.AdvancedSettings2.RedirectSmartCards = False ; SmartCards für Authentifizierung $oRDP.AdvancedSettings2.EnableAutoReconnect = False $oRDP.AdvancedSettings2.allowBackgroundInput = False $oRDP.AdvancedSettings2.ConnectionBarShowRestoreButton = False $oRDP.AdvancedSettings3.SmartSizing = True $oRDP.AdvancedSettings5.AudioRedirectionMode = 0 $oRDP.AdvancedSettings2.ClearTextPassword = "Password" ; <<<<<<< enter here the user password $oRDP.AdvancedSettings8.EnableCredSspSupport = true $oRDP.AdvancedSettings2.RDPPort = $port $oRDP.Server = $host $oRDP.UserName = "Administrador" ;<<<<<<< enter here the user name $oRDP.Domain = "CLIENTE.LOCAL" ;<<<<<<< enter here the domain name $oRDP.ConnectingText = "Conectando a CLIENTE RDP " $oRDP.DisconnectedText = "Desconectado de CLIENTE RDP " $oRDP.StartConnected = True $oRDP.Connect() GUISetState(@SW_SHOW, $hGUI) ;~ ConsoleWrite($oRDP.GetErrorDescription() & @CRLF) While 1     $nMsg = GUIGetMsg()     Switch $nMsg         Case $GUI_EVENT_CLOSE             $oRDP.Disconnect()             Exit     EndSwitch WEnd Passing by to inform you that I found the solution thanks to the friends above thank you all very much.

How to do this? Can you help me?

Yes, I tried to do $host 172.16.16.53899 and it was not the command you said, it would be like this $oRDP.AdvancedSettings2.RDPPort = “53899” $oRDP.AdvancedSettings2.RDPPort = $port Thanks for the help, I'm very new to ours and I'm asking for RSS but I already liked it lol

Peço desculpa mas por está tudo inglês fiquei um pouco pedido vou me atenta mas sobre isso

I have this script working OK I have been looking for a week how to add the terminal server port Default port 3389 Change to by 53899 where to add the port in this script with default port works normal Exemplo: 172.16.16.1:53899 #include <GUIConstantsEx.au3> #include <WinAPI.au3> #include <WindowsConstants.au3> $host = "172.16.16.1" ;<<<<<<< insira aqui o nome do host ou endereço IP ;Remote Desktop ActiveX Control Interfaces -> http://msdn.microsoft.com/en-us/ library/aa383022(v=VS.85).aspx $hGUI = GUICreate("CONEXAO CLIENTE REMOTO", 952, 675, -1, -1, $WS_OVERLAPPEDWINDOW + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN) $oRDP = ObjCreate("MsTscAx .MsTscAx") ;http://msdn.microsoft.com/en-us/library/aa381344(v=VS.85).aspx $oRDP_Ctrl = GUICtrlCreateObj($oRDP, 64, 44, 800, 600) GUICtrlSetResizing(- 1, $GUI_DOCKALL) GUICtrlSetStyle($oRDP_Ctrl , $WS_VISIBLE) $oRDP.DesktopWidth = 1366 $oRDP.DesktopHeight = 768 $oRDP.Fullscreen =768 $oRDP.ColorDepth = 32 $oRDP.AdvancedSettings2.RedirectDrives = Verdadeiro; Apenas as impressoras de baixa qualidade foram $ oRDP.AdvancedSettings2.RedirectPrinters = True ; Apenas o Drucker mitgenommen foi usado $oRDP.AdvancedSettings2.RedirectPorts = False ; Portas como LPT1 etc $oRDP.AdvancedSettings2.RedirectSmartCards = False ; SmartCards para Autenticação $oRDP.AdvancedSettings2.EnableAutoReconnect = False $oRDP.AdvancedSettings2.allowBackgroundInput = False $oRDP.AdvancedSettings2.ConnectionBarShowRestoreButton = False $oRDP.AdvancedSettings3.SmartSizing = True $oRDP.AdvancedSettings5.AudioRedirectionPasswordMode = 0 $oRDPCleartingTextword2. "Senha " ; <<<<<<< digite aqui a senha do usuário $oRDP.AdvancedSettings8.EnableCredSspSupport = true $oRDP.Server = $host $oRDP.UserName = "Administrador" ;<<<<<<< insira aqui o nome de usuário $oRDP.Domain = "CLIENTE.LOCAL" ;<<< <<<< insira aqui o nome do domínio $oRDP.ConnectingText = "Conectando a CLIENTE REMOTO " $oRDP.DisconnectedText = "Desconectado de CLIENTE REMOTO" $oRDP.StartConnected = True $oRDP.Connect() GUISetState(@SW_SHOW, $hGUI) ;~ ConsoleWrite($oRDP.GetErrorDescription() & @CRLF) Enquanto 1     $nMsg = GUIGetMsg()     Alternar $nMsg         Caso $GUI_EVENT_CLOSE             $oRDP.Disconnect()             Sair     EndSwitch WEnd