tcpclient的连接还是需要一点时间的,虽然这点时间对我们来说实在太过短暂,但是对程序来说却是太快了
所以在这里
你可以这样做
Private Sub cmdConnect_Click()
tcpClient.Connect
while tcpClient.state<>7
doevents
wend
tcpClient.SendData "8888"
end sub
所以在这里
你可以这样做
Private Sub cmdConnect_Click()
tcpClient.Connect
while tcpClient.state<>7
doevents
wend
tcpClient.SendData "8888"
end sub
winsock有一个connect事件表示连接完成。
你可以在这个事件里面判断是否可以开始发送数据
鱼头愿意的话可以去
http://expert.csdn.net/Expert/TopicView2.asp?id=1170153&datebasetype=now
取分。
还有个问题是winsock有没有判断延时的函数没有。
我送一个senddata,如果对方30秒没有回答则送一个错误信息,该如果写
鱼头愿意的话可以去
http://expert.csdn.net/Expert/TopicView2.asp?id=1170153&datebasetype=now
取分。
还有个问题是winsock有没有判断延时的函数没有。
我送一个senddata,如果对方30秒没有回答则送一个错误信息,该如果写
鱼头愿意的话可以去
http://expert.csdn.net/Expert/TopicView2.asp?id=1170153&datebasetype=now
取分。