自动 tcp 连接到服务器

Question

我是 TCP 连接的新手，也是 Autoit 的新手。

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

查看 Autoit 的 TCP 功能，我只看到 IP 和端口信息的地方，但服务器有管理员密码，我不知道如何将密码合并到组合中。

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

Answer 1

使用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 次用户名... 此外，由于您是新手，因此可以从这些地方开始：

Autoit for absolute beginners

Autoit 1-2-3

Autoit Tcp examples and scripts

TELNET

祝你好运！

自动 tcp 连接到服务器

Autoit tcp connection to server

tcp

telnet

autoit