Private Telnet As Socket
 
    Private Sub Connection_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Connection.Click
        Connect("192.168.1.3", 23)
    End Sub
 
    Private Sub Connect(ByVal IP As String, ByVal Port As Integer)
        Dim RecvBytes(255) As [Byte]
        Dim RecvString As String = Nothing
        Dim NumBytes As Integer = 0
 
        Dim ep As IPEndPoint = New IPEndPoint(IPAddress.Parse(IP), Port)
 
        Telnet = New Socket(AddressFamily.InterNetwork, SocketType.Stream, _
          ProtocolType.Tcp)
        Telnet.Connect(ep)
 
        Threading.Thread.Sleep(1000)
 
        If Telnet.Connected Then
  Do
            NumBytes = Telnet.Receive(RecvBytes, RecvBytes.Length, 0)
            RecvString = RecvString + Encoding.ASCII.GetString(RecvBytes, 0, _
              NumBytes)
        Loop While NumBytes = 256
 
        Threading.Thread.Sleep(1000)
 
        txtOut.Text &= RecvString & vbCrLf
 
        End If
 
    End Sub
    Sub SendCommand(ByVal Command As String)
 
        Dim SendBytes As [Byte]() = Encoding.ASCII.GetBytes(Command & vbCrLf)
        Dim RecvBytes(255) As [Byte]
        Dim RecvString As String = String.Empty
        Dim NumBytes As Integer = 0
 
        If Telnet.Connected Then
 
            Telnet.Send(SendBytes, SendBytes.Length, SocketFlags.None)
 
            Do
                NumBytes = Telnet.Receive(RecvBytes, RecvBytes.Length, 0)
                RecvString = RecvString + Encoding.ASCII.GetString(RecvBytes, _
                  0, NumBytes)
            Loop While NumBytes = 256
 
            txtOut.Text &= RecvString
            Threading.Thread.Sleep(1000)
            Telnet.Disconnect(False)
        End If
 
    End Sub
 
    Private Sub Login_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Login.Click
        SendCommand("root")
    End Sub