windsock的问题,在load()时运行总是出错.
我的代码如下,运行时总会提示如下错误:
实时错误 "40006 ";
所需事物或请求的错误协议或连接状态
Private Sub Form_Load()
Winsock1.Close
Winsock1.Connect
Winsock1.SendData Text1.Text
Winsock1.Close
End Sub
[解决办法]
Private Sub Form_Load()
Winsock1.Close
Winsock1.Connect
'//加延迟
Winsock1.SendData Text1.Text
Winsock1.Close
End Sub
[解决办法]
1。winsock1_Connect事件 中senedate
2。
Winsock1.Close
Winsock1.Connect
for i=0 to 1000
doevents
if winsock1.state=7 then
Winsock1.SendData Text1.Text
end if
Winsock1.Close