Private Sub login_Click()
tcpclient.Connect
tcpclient.SendData sno.Text & "/" & sname.Text & "/"&tcpclient.LocalHostName & "/" & tcpclient.LocalIP
login.Enabled = False
End Subtcpclient.Connect和tcpclient.SendData为什么不能同时用啊?
只能分开
Private Sub Form_Load()
tcpclient.RemoteHost = "127.0.0.1"
tcpclient.RemotePort = 33333
tcpclient.Connect
End SubPrivate Sub login_Click()
tcpclient.SendData sno.Text & "/" & sname.Text & "/"&tcpclient.LocalHostName & "/" & tcpclient.LocalIP
login.Enabled = False
End Sub
初学vb网络编程,大侠帮帮忙

解决方案 »

  1.   

    TCP协议必须建立连接才能收发数据。所以要先执行connect,而执行了connect不一定就会建立连接,只有服务器接受了连接请求之后,客户端才能执行SendData发送数据。
      

  2.   

    那怎么才能解决这个问题呢,我想在点击登陆按钮后,发出connect请求,然后将客户机器的信息传递给主机,不想一载入窗体就建立连接,如何解决啊
      

  3.   

    tcpclient.Connect
    只是一个连接方法 他需要时间执行的 而且是异步的
    可以采用客户端的一个事件 Connect 事件
    或者死循环 判断状态=6