我遇到过这种错误。我是这样解决的
private funtion mySend()
sockClient.RemoteHost = "255.255.255.255"
sockClient.RemotePort = PORTWATCH
On Error GoTo ErrHandle
sockClient.SendData sDataSend
On Error GoTo 0
SendData = 1
Exit Function
ErrHandle:
If Err.Number = 126 Then
Resume Next
Else
MsgBox Err.Number & Err.Description
End If
end function
就ON ERROR Resume next 就可以了