13问答网 > VB winsock发送时提示 "运行时错误✀40006✀"，我怎么修改代码

VB winsock发送时提示 "运行时错误✀40006✀"，我怎么修改代码

2025-02-28 20:04:09

推荐回答（5个）

回答1：

在窗体模块的最上面加上API声明
Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

在第一次senddate之前加上:

Dim i As Long
Do Until Winsock1.State = 7 Or i > 600
i = i + 1
DoEvents
Sleep
Loop

If i >= 600 Or Winsock1.State = 7 Then
' 1分钟后,对方仍然未同意,连接超时.
End If

再进行senddate

回答2：

在.net里把winsock集合成了一个类,我们在使用的时候可以引用 System .Net .Sockets .TcpClient 类

回答3：

实时错误'40006'：
应用程序定义或对象定义错误！

你应该去找对象的问题

回答4：

你没有等待回应就发送信息参考MS http://support.microsoft.com/kb/183987/zh-cn

回答5：

vb6打了sp5补丁没?