tcpclient的连接还是需要一点时间的,虽然这点时间对我们来说实在太过短暂,但是对程序来说却是太快了
所以在这里
你可以这样做
Private Sub cmdConnect_Click()
   tcpClient.Connect
   while tcpClient.state<>7
       doevents
   wend
   tcpClient.SendData "8888"
end sub

解决方案 »

  1.   

    同意楼上的
    winsock有一个connect事件表示连接完成。
    你可以在这个事件里面判断是否可以开始发送数据
      

  2.   

    谢谢楼上两位。
    鱼头愿意的话可以去
    http://expert.csdn.net/Expert/TopicView2.asp?id=1170153&datebasetype=now
    取分。
    还有个问题是winsock有没有判断延时的函数没有。
    我送一个senddata,如果对方30秒没有回答则送一个错误信息,该如果写
      

  3.   

    谢谢楼上两位。
    鱼头愿意的话可以去
    http://expert.csdn.net/Expert/TopicView2.asp?id=1170153&datebasetype=now
    取分。
    还有个问题是winsock有没有判断延时的函数没有。
    我送一个senddata,如果对方30秒没有回答则送一个错误信息,该如果写
      

  4.   

    谢谢楼上两位。
    鱼头愿意的话可以去
    http://expert.csdn.net/Expert/TopicView2.asp?id=1170153&datebasetype=now
    取分。