如何用VB实现telnet功能?

[zhilamin]

我想用VB实现cmd里的telnet功能.用到winsock控件,但总无法正常连接上外部系统.但在cmd里用telnet能正常进入到外部系统.

在网上查了几天,都没有发现有关这方面的文章.

希望有高手帮忙.谢谢.

在cmd里:

telnet 132.xxx.xx.xx

login:
password:

但在VB中用winsock, 只返回一个 "?"

[迈克揉索芙特]

看看这个：
http://d.download.csdn.net/source/1714073
未经测试

据我所知，用管道控制cmd是个办法。

[zhilamin]

二楼Modest所给来的telnet在连接我所要连接的系统,还是用不了.\
另,我不知道如何用管道控制cmd.请指教.谢谢

[lly456]

好像 。。。。。。。。。。。。我也不懂

[zhilamin]

谢谢patrickkong,回去试试。不过代码很长，但我还得细细钻研下才行，因为太想实现这个winsock的telnet功能了。

[zhilamin]

难道没有多少人遇到这样的问题吗？！！怎么在网上怎么搜都搜不到这问题的答案！！希望有高手帮忙

[zhilamin]

有没有高手帮忙啊，很想解决这个问题，我已经查相关资料查了差不多十天了。help!!

[帝企鹅已被占用]

看看
http://www.asm32.net/article_disp.asp?ID=440

[zhilamin]

也想知道。。。。。。

[zhilamin]

谢谢 楼上各位仁兄的帮助，但问题还是没有解决。这方面的高手出现！切盼切盼！！

[zhilamin]

谢谢zhao4zhong1,但我不太明白!

[zhanbeen]

要抓包分析一下回应字符，不同路由器回复字符不一样

[zhanbeen]

以往做了个登陆redback 的se800设备，回头找找

[赵4老师]

抓包分析是正途

[赵4老师]

VB6出问题可能是在数据IO时自动进行Unicode变换弄的。

[赵4老师]

楼主可以试试让WinSock控件收发Byte数组可能就没问题了。
记得Byte数组和String类型互换时使用
Str=StrConv(ByteArray,vbUnicode)
ByteArray=StrConv(Str ,vbFromUnicode)

[zhanbeen]

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim ch() As Byte
Dim tr() As Byte
Dim i As Integer
Dim str As String
Dim Pos_Tmp As Integer
Dim Str_Tmp As String
'-------------------------------------------------------------
If (bytesTotal > 0) Then ' If there is any data...
Winsock1.GetData ch, vbByte + vbArray, bytesTotal

Else
Receiving = False
Exit Sub
End If
'-----------------
str = ""
For i = 0 To bytesTotal - 1
str = str & Chr$(ch(i))
Next i
'Text3 = Text3 & str 全部显示所有命令和返回字符
Text3 = str
'--------------处理接收数据－－－－－－－－－
Dim cc, ccc As String
cc = Right(Trim(Text3.Text), 2)
ccc = Right(Trim(cc), 1)
If cc = "n:" Then
flgcount = flgcount + 1
Receiving = True
End If
If cc = "d:" Then
flgcount = flgcount + 1
Receiving = True
End If

If ccc = ">" Then
flgcount = flgcount + 1
Receiving = True
End If
If ccc = "#" Then
flgcount = flgcount + 1
Receiving = True
End If


'---------------------------------------------
If ch(0) = 255 Then
If ch(1) = 253 Then
ReDim tr(14) As Byte
tr(0) = 255: tr(1) = 252: tr(2) = 24
tr(3) = 255: tr(4) = 252: tr(5) = 32
tr(6) = 255: tr(7) = 252: tr(8) = 35
tr(9) = 255: tr(10) = 252: tr(11) = 39
tr(12) = 255: tr(13) = 252: tr(14) = 36
End If
If ch(1) = 251 Then
ReDim tr(17) As Byte
tr(0) = 255: tr(1) = 253: tr(2) = 3
tr(3) = 255: tr(4) = 251: tr(5) = 1
tr(6) = 255: tr(7) = 252: tr(8) = 34
tr(9) = 255: tr(10) = 254: tr(11) = 5
tr(12) = 255: tr(13) = 252: tr(14) = 31
tr(15) = 255: tr(16) = 252: tr(17) = 37
End If
Winsock1.SendData tr
Receiving = False
End If

End Sub

[lovecatfish]

搞了很久，还是不行！郁闷