初涉winsock编程,想写一个简单的telnet程序,可是在连接上就碰到问题了
以下是连接的代码,可是返回的getdata在文本框里面显示是一个个问号,试了一台unix机器是5个问号,一台2000的机器是4个问号,请问是怎么回事呢?
Private Sub Command1_Click() ‘连接
telnet.Connect
End SubPrivate Sub Command2_Click()
telnet.SendData Text2.Text
End SubPrivate Sub telnet_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
telnet.GetData strData
Text1.Text = strDataEnd Sub
以下是连接的代码,可是返回的getdata在文本框里面显示是一个个问号,试了一台unix机器是5个问号,一台2000的机器是4个问号,请问是怎么回事呢?
Private Sub Command1_Click() ‘连接
telnet.Connect
End SubPrivate Sub Command2_Click()
telnet.SendData Text2.Text
End SubPrivate Sub telnet_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
telnet.GetData strData
Text1.Text = strDataEnd Sub
http://community.csdn.net/Expert/topic/3229/3229280.xml?temp=.5224573
现在我想发送命令,比如dir之类好像不行
我做了一个文本框text1用于输入命令(比如dir)
然后调用方法 winsock1.SendData Chr(255) & Trim(Text1.Text) & Chr(13) & Chr(10)
就没有反应了Winsock1_DataArrival方法好像没有接受到任何的信息,这是为什么呢?
请大家帮忙
谢谢