关于vb的winsock控件的状态问题

关于vb的winsock控件的状态问题

看明白了，碰见过。
这是因为Winsock的Connect方法不是同步的，（我的猜测是）connect语句的执行和实质上的连接过程是在不同线程中完成的。因此往往

winsock1.connect虽然执行完毕但还没有真正连接上，winsock仍然停留在6状态，此时接下来的
winsock1.senddata "ttt"就自然会失败。



给出两个解决方案。
第一种是把连接和发数据分开到两个按钮的事件里，这样就有足够的时间让winsock真正连接上。代码就不写了，很容易实现。


第二种，如果不愿意用两个按钮，一定要连接好之后立刻发数据的话，可以在一个回圈里轮询winsock1的状态，直到变成7，注意回圈里最好有sleep和DoEvents来释放cpu，否则有造成假死的风险。以下是代码
'首先要声明Sleep的Win32 API
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


sub command1_click()
winsock1.remoteip=xxx.xxx.xxx.xxx
winsock1.remoteport=xxxxx
winsock1.connect
do until winsock1.state=7
    sleep 1
    DoEvents
    '避免假死
loop
winsock1.senddata "ttt"
end sub不懂请追问满意请采纳


参考资料http://bbs.csdn.net/topics/320261964
追问对不起，我都打算放弃了，就没有来看；我试过循环等待，30秒以上仍然是6，然后我就中断了等待，工具是在局域网内部使用，30秒都无法连上，这已经不可能了。
虽然没能解决问题，还是感谢你的回复！