telnet登录路由器，端口号设置问题。（只要回答就有分）

各位朋友``
  是这样的`我最近写一个通过telnet登录路由器(router）的程序。有两个问题想请教大家。
   使用的控件是winsock连接.
   祥细代码会贴到下面。我的问题是。
    1.登录比如说telnet 192.168.1.1 23 的时候没有问题。但是我要登陆192.168.1.1 55023 (55023是端口号）的时候怎么也显示不出来。前提是我用开始--运行--telnet 192.168.1.1 55023 的时候是正常的。会提示我输入用户名和密码的。
   2.登录成功后.会出现"config#"号提示输入命令。我会下指令查看路由的配置。我怎么判断是否有提示出"config#"号字符.然后比如说我下"show"命令.会显示出结果。我怎么可以不显示我输入的命令。只显示结果。
Private Sub Command1_Click()On Error GoTo 1
  Form1.Winsock1.Close
  Form1.Winsock1.Connect Text3.Text, Text4.Text
  SaveSetting "Telnetclient", "Last", "Server", Text1.Text
  SaveSetting "Telnetclient", "Last", "Port", Text2.Text
  
Exit Sub1  MsgBox Err.Description, vbCritical  Form1.Winsock1.CloseEnd SubPrivate Sub Form_Load() a = GetSetting("Telnetclient", "Last", "Server", "")
 
 If a = "" Then
 
    Else
    
 End If
 
Text3.Text = GetSetting("Telnetclient", "Last", "Server", "")
Text4.Text = GetSetting("Telnetclient", "Last", "Port", 23)End SubPrivate Sub Text1_Change()  Text1.SelStart = Len(Text1.Text)
  Text2.SetFocus
  
End SubPrivate Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)  KeyCode = 0
  
End SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)On Error GoTo 1If KeyAscii = 13 Then   Text2.Text = ""
   Winsock1.SendData Chr(13)
   KeyAscii = 0
Else  Winsock1.SendData Chr(KeyAscii)End IfExit Sub1 KeyAscii = 0
End SubPrivate Sub Winsock1_Close()
MsgBox "断开连接！"
Winsock1.Close
End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)   Winsock1.GetData buffer$, vbString
   Text1.Text = Text1.Text & buffer$
   
End Sub 代码没有问题``我已经测试过了`是OK的 只是当我使用192.168.1.1 55023 的时候显示不出来.