关于vb的winsock控件的状态问题
答案:2 悬赏:70 手机版
解决时间 2021-11-29 21:03
- 提问者网友：椧運幽默
- 2021-11-29 11:24
关于vb的winsock控件的状态问题
最佳答案
- 五星知识达人网友：执傲
- 2021-11-29 11:38
看明白了，碰见过。
这是因为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秒都无法连上，这已经不可能了。
虽然没能解决问题，还是感谢你的回复！
这是因为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秒都无法连上，这已经不可能了。
虽然没能解决问题，还是感谢你的回复！
全部回答
- 1楼网友：底特律间谍
- 2021-11-29 11:52
偶然看到了这个问题，添加两个方案
timer里面执行链接操作和发送数据
全局变量tm1i=0
tm1i=tm1i+1
select case tm1i
case 1
connect
case2
if state=7 then senddata
doevents
timer.enable=false
end select
2.服务器在连接成功后发送一条信息,在你的程序员dataarrive里面收到这条信息后发送数据
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯