Question

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

我在Timer中循环用winsock发送数据,代码如下
Private Sub Timer1_Timer()
Winsock1.SendData send
End Sub
winsock发送时提示 "运行时错误'40006'"，我怎么修改代码

Answer 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

Answer 2

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

Answer 3

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

你应该去找对象的问题

Answer 4

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

Answer 5

vb6打了sp5补丁没?