vb.net 向 Telnet 发送命令

Sending Commands to Telnet

提问by Alenhj

I have a Form that I am making that lets me select a line and reset all of the port on the line. This is done through Telnet. I understand how to Socket and send the IP Address I wish to work with but what I do not understand is sending the commands to log in and reset the ports.

我有一个正在制作的表格，可以让我选择一条线路并重置线路上的所有端口。这是通过 Telnet 完成的。我了解如何使用套接字并发送我希望使用的 IP 地址，但我不明白的是发送命令以登录和重置端口。

The set up is that when one of more check boxes are selected for the different line it calls on private sub to run a line before starting on the next one.

设置是，当为不同的线路选择多个复选框时，它会调用私有子运行一条线路，然后再开始下一条线路。

I have been web searching for a few days not. The last code I tried was the following:

我已经在网上搜索了几天没有。我尝试的最后一个代码如下：

Dim TelnetClient As TcpClient
Dim ThisStream As NetworkStream
Dim SendBuffer(128) As Byte
Dim ReadBuffer(128) As Byte
Dim ReturnVal As String
Dim ReturnLength As Integer

TelnetClient = New TcpClient("Ip Address", 23)
ThisStream = TelnetClient.GetStream

SendBuffer = System.Text.Encoding.ASCII.GetBytes("Username")
ThisStream.Write(SendBuffer, 0, SendBuffer.Length)
ReturnLength = ThisStream.Read(ReadBuffer, 0, ReadBuffer.Length)
ReturnVal = System.Text.Encoding.ASCII.GetString(ReadBuffer)
SendBuffer = System.Text.Encoding.ASCII.GetBytes("Password")
ThisStream.Write(SendBuffer, 0, SendBuffer.Length)

I have been going around in circle trying to understand this.

我一直在绕圈子试图理解这一点。

I have tried doing the Telnet through cmd.exe but I keep coming back with errors and abandoned that route.

我曾尝试通过 cmd.exe 执行 Telnet，但我不断返回错误并放弃了该路线。

I have also seen using code to find words in the Telnet.

我也见过使用代码在 Telnet 中查找单词。

Example:

例子：

If message.ToString.EndsWith("login:") Then
   Await WriteStringAsync("username", stream

But not 100% sure on how to fully adapt it to what I can use. Any help is appreciated.

但不能 100% 确定如何完全适应我可以使用的内容。任何帮助表示赞赏。

Thank you.

谢谢你。

Edit: Addition Info.

编辑：添加信息。

I have the following at the top of the code list

我在代码列表的顶部有以下内容

Imports System.IO
Imports System.Net
Imports System.Net.Sockets

I am new to using Telnet with vb.net. However, why is it so hard to do this in vb.net and in Cmd.exe it only takes six commands?

我是在 vb.net 中使用 Telnet 的新手。但是，为什么在 vb.net 中很难做到这一点，而在 Cmd.exe 中它只需要六个命令？

采纳答案by Omar AlMA3lOl

Okey mate , here is the code you are looking for , but focus :

好吧，这是您要查找的代码，但请注意：

Dim Full_Stop As String = ""
Dim TelnetClient As New TcpClient
Private Sub StartButton_Click(sender As Object, e As EventArgs) Handles StartButton.Click
    TelnetClient.Connect("IP ADDRESS", 23) 'Connecting to the IP Given
    Send_Sub("Start Connection Command")
    Dim thr As New Threading.Thread(AddressOf Receive_thread)
    thr.Start()
End Sub
Private Sub StopButton_Click(sender As Object, e As EventArgs) Handels StopButton.Click
Full_Stop = "Stop"
TelnetClient.Close()
End Sub
Sub Send_Sub(ByVal msg As String)
    Dim byt_to_send() As Byte = System.Text.Encoding.ASCII.GetBytes(msg)
    TelnetClient.Client.Send(byt_to_send, 0, byt_to_send.Length, SocketFlags.None)
End Sub
Sub Receive_thread()
re:
    If Full_Stop = "Stop" Then Exit Sub 'If you set Full_Stop string to "Stop" the thread will end
    If TelnetClient.Client.Available < 0 Then 'Check if there is any Data to receive
        Dim byt_to_receive(TelnetClient.Available - 1) As Byte
        TelnetClient.Client.Receive(byt_to_receive, 0, byt_to_receive.Length, SocketFlags.None)
        Dim String_From_Byte As String = System.Text.Encoding.ASCII.GetString(byt_to_receive)
        If String_From_Byte = "login:" Then 'If the telnet asks you to Enter the login name the Send_Sub will do the job
            Send_Sub("username")
        ElseIf String_From_Byte = "password:" Then 'If the telnet asks you to Enter the Password the Send_Sub will do the job
            Send_Sub("password")
        End If
    End If
    GoTo re 'this will NOT allow the thread to End by sending it back to re: statement, unless the Full_Stop is "Stop"
End Sub