救命呀……Winsock和循环语句

Question

Winsock 不用循环的。。用事件驱动。。这样不会接受到空数据。

Answer 1

For i=1 To 100 
  Winsock.SendData 一大堆数据
  DoEvents
Next i

Answer 2

楼上的，这样子是不是winsock.senddata 完成以后，才执行到doevents？

Answer 3

'---------------------------------=======以文件形式发送邮件 。emailtest.txt
    FnfileNas = FreeFile
    Open App.Path + "\" + "email.bin" For Input As #FnfileNas
    Do While Not EOF(FnfileNas)
        Line Input #FnfileNas, TmpStr
        Winsock1.SendData TmpStr & vbCrLf
    Loop
    Close #FnfileNas
Winsock1.SendData vbCrLf & "." & vbCrLf'我这样发也很稳定啊。。还没有漏发的事发生啊。。

Answer 4

最稳定的方法。sub StartSend()
   winsock.SendData 一大堆数据
end subsub winsock_sendcomplete()
  winsock.senddata 一大堆数据
  doevetns
end sub发送数据时 调用 StartSend() 就OK
保证不会漏发数据。

Answer 5

有一sendcomplate事件，在一次发送完后产生

Answer 6

我要试试：sendcomplate() 看起来不错。。！