Autoit TCP-Verbindung zum Server

Question

Ich bin ziemlich neu zu TCP-Verbindungen und sehr neu zu Autoit.

Ich versuche mich mit einem Spielserver zu verbinden, den ich administriere um Serverdaten (Online Spieler, Chatlogs, etc) zu empfangen und TelNet Befehle an den Server zu senden (Ban Spieler, Kick Player, etc)

Mit Blick auf die TCP-Funktionen für Autoit, sehe ich nur einen Platz für IP-und Port-Informationen, aber der Server hat ein Admin-Passwort, und ich habe keine Ahnung, wie Sie das Passwort in den Mix integrieren.

Ich würde mich über jeden Einblick freuen, wie ich über die Verbindung mit dem Server und den Empfang von Daten gehen würde.

Answer 1

Use IP: Port zu verbinden und dann tun Sie die Kommunikation mit dem Server

Dies ist ein altes Skript, das ich durch Telnet zu meinem Router zu verbinden, um schrieb die IP zu ändern.

TCPStartup() 
TrayTip("Changing IP adress!", "...connecting...", 10) 
$router_IP = "192.168.1.1" 
$port = "23" ; standard telnet port 

$username = "admin" 
$pass = "****" 


Dim $ConnectedSocket = -1 
$ConnectedSocket = TCPConnect($router_IP, $port) 
If $ConnectedSocket = -1 Then 
    TrayTip("Changing IP adress!", "Error! Cant connect!", 10) 
    Sleep(3000) 
    Exit 
EndIf 
TrayTip("Changing IP adress!", "Connected.", 10) 

$old = "" 

      $ret = TCPSend($ConnectedSocket, $username & @LF) 
      Sleep(2000) 
      $ret = TCPSend($ConnectedSocket, $username & @LF) 
      Sleep(2000) 
      $ret = TCPSend($ConnectedSocket, $username & @LF) 
      $old &= TCPRecv($ConnectedSocket, 2048) 
      TrayTip("Changing IP address!", $old, 10) 
      Sleep(2000) 
      $ret = TCPSend($ConnectedSocket, $pass & @CRLF) 
      $old &= TCPRecv($ConnectedSocket, 2048) 
      TrayTip("Changing IP adress!", $old, 10) 
      Sleep(2000) 
      $ret = TCPSend($ConnectedSocket, "sh" & @CRLF) 
      $old &= TCPRecv($ConnectedSocket, 2048) 
      TrayTip("Changing IP adress!", $old, 10) 
      Sleep(3000) 
      $ret = TCPSend($ConnectedSocket, "ifconfig nas_8_35 down" & @CRLF) 
      $old &= TCPRecv($ConnectedSocket, 2048) 
      TrayTip("Changing IP adress!", $old, 10) 
      Sleep(10000) 
      $ret = TCPSend($ConnectedSocket, "ifconfig nas_8_35 up" & @CRLF) 
      $old &= TCPRecv($ConnectedSocket, 2048) 
      TrayTip("Changing IP adress!", $old, 10) 
      Sleep(2000) 
      $ret = TCPSend($ConnectedSocket, "exit" & @CRLF) 
      $old &= TCPRecv($ConnectedSocket, 2048) 
      TrayTip("Changing IP adress!", $old, 10) 
      Sleep(2000) 
      $ret = TCPSend($ConnectedSocket, "exit" & @CRLF) 
      $old &= TCPRecv($ConnectedSocket, 2048) 
      TrayTip("Changing IP adress!", $old, 10) 
      Sleep(5000) 

Kann mich nicht erinnern, warum ich den Benutzernamen 3 mal du senden ... Auch, weil Sie neu sind, das sind die Orte zu starten:

Autoit for absolute beginners

Autoit 1-2-3

TELNET

Viel Glück!