如何判断senddata是否发送成功

来源:百度知道 编辑:UC知道 时间:2024/06/11 20:18:38
Private Sub conent_Click()
sid = Left(List2, 1)
On Error Resume Next
Winsock1(sid).senddata ("down")
End Sub
我想实现的是,发送讯息,如果发送成功就不提示,发送失败就提示一个失败的消息,senddata有没有返回值啊?

那就让另一端再发条消息确认啊。

---

在TCP的连接中,如果发送失败的话,系统会提示一个错误号为40006当然错误。

用Internet Transfer控件来实现,Text1.text = Inet1.OpenURL(sUrl)就可解决