Autoit到服务器的tcp连接

我对TCP连接非常陌生，对Autoit也非常陌生

我正在尝试连接到我管理的游戏服务器，以便接收服务器数据（在线玩家、聊天日志等），并在需要时向服务器发送TelNet命令（禁止玩家、踢玩家等）

查看Autoit的TCP功能，我只看到了IP和端口信息的位置，但是服务器有一个管理员密码，我不知道如何将密码合并到混合中

---

如果您能深入了解我将如何连接到服务器并接收数据，我将不胜感激

使用IP:Port进行连接，然后与服务器进行通信

这是我写的一个旧脚本，通过telnet连接到我的路由器以更改IP

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)

不记得为什么我发送用户名3次。。。 此外，由于您是新手，以下是您的起点：

---

祝你好运

另外，我忘了提到，您可以使用cmd.exe通过telnet手动登录，并检查和记录所有需要执行的命令。然后使用TCP在autoit中复制它。