yochang

问题：大多数服务器端都可以正常连接，只有一类终端连接后没有任何回显，发送指令也没有反应，而这一类服务器端使用windows命令行的telnet、超级终端、SecureCRT等终端工具都可以正常连接，急盼高人回复。VB代码节选如下：

'送指令
Private Sub SendStringToDevice(LineText As String)
Dim Temp1 As String, L As Integer, i As Integer, K As Integer, A As String
L = Len(LineText)
For i = 1 To L
  A = Mid(LineText, i, 1)
  Call SendSigleKey(Asc(A))
Next i

End Sub


Private Sub SendSigleKey(KeyAscii As Integer)
On Error GoTo 1
If KeyAscii = 13 Then
  'Text2.Text = ""
  Winsock1.SendData Chr(13)
  KeyAscii = 0
Else
  Winsock1.SendData Chr(KeyAscii)
  'DoEvents 注释不注释没有区别
End If
Exit Sub
1  KeyAscii = 0
End Sub


'获得和显示数据
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strbuf As String
Winsock1.GetData strbuf, vbString
Text1.Text = Text1.Text & strbuf
End Sub


我已经试了自己能找到的任何方法，但服务器端只返回“????”，服务器是成熟的商用软件，且其他终端工具登录都没有问题。
急啊！

Nothing

http://www.lihuasoft.net/source/show.php?id=235

yochang

谢谢回复！
可是这段代码以前就下载过，仍然有前述的问题。

Nothing

下面代码的问题<关于出现？？？可能是字符编码的问题，还有可能是字体，一般中文字会出现???
你可以改一下Text1的字体，将它设置成宋体试试。

yochang

谢谢！
现在text1的字体就是宋体，我又把它字符集改成了“西方”，还是不行。
我感觉是winsock的connect的问题，客户端无法正确连接服务器端，发出的连接指令服务器端没有正常反应。
想问一下：除了
Form1.Winsock1.Connect IPAdd, "23"
这种方式外，还有什么方法可用？

Nothing

你的意思是说能收到????,但不能收到字正确的字符?
这样试试<

yochang

谢谢版主！
我改了，可还是不行，感觉是connect就没有正确连接服务器端。
如果只是回显不正常倒还好办一点

netice

没有正确连接咋能收到。？？？晕也。。

  Winsock1.SendData Chr(13)

上边啥意思？传递数组吗？

Nothing

楼上的<问题：大多数服务器端都可以正常连接，只有一类终端连接后没有任何回显，发送指令也没有反应

你说说这类服务器端是什么服务器?不会是加密的SSH服务吧?

yochang

是标准的telnet server，不是ssh服务器。用dos命令行、超级终端等终端工具都可以telnet上服务器，服务器返回字符如下：

Pragma Systems Inc.
Welcome to Pragma TelnetServer 2000 for Windows NT
(C) Copyright 1994-2000 Pragma Systems, Inc.

login name: