vb socket 连接问题

[bsetsail]

对VB不是很熟悉，在进行socket的使用的时候，发现为什么在debug状态下就能连接，直接运行就连接不上呢？

[倒大霉的上帝]

无代码无真相

[神马被哪个妞占用了呢]

debug能用直接运行不能用，区别就是时间差。可往这个方面考虑

[bsetsail]

sckClient.Close
sckClient.RemotePort = 5000
sckClient.RemoteHost = "127.0.0.1"
sckClient.Connect

'Sleep(5000)
debug.Print sckClient.State 
If sckClient.State <> 7 Then
    MsgBox "服务器连接失败1"
    Exit Function
End If

debug的时候sckClient.State =7 运行的时候 sckClient.State =6
加上了Sleep(5000)也是一样
我就是想测试怎么才能算连接上了服务器

[神马被哪个妞占用了呢]

sleep是挂起，换个其他延时函数试试。

[神马被哪个妞占用了呢]

我的一般都是用定时器

[倒大霉的上帝]

sckClient.Close
sckClient.RemotePort = 5000
sckClient.RemoteHost = "127.0.0.1"
sckClient.Connect

'Sleep(5000)
debug.Print sckClient.State
If sckClient.State <> 7 Then
MsgBox "服务器连接失败1"
Exit Function
End If

这些代码在同一函数里，在这个函数结束（end function)之前，sckClient.State 是不会更新的。
你可以把
If sckClient.State <> 7 Then
MsgBox "服务器连接失败1"
Exit Function
End If
放在一个按钮事件里测试。或者改成：
do while sckclient.state<>7
doevents
if( sckclient.state==7)
exit do
end if
wend

[bsetsail]

了解了
这些代码在同一函数里，在这个函数结束（end function)之前，sckClient.State 是不会更新的。