VB6 Winsock 错误无效参数 10014

Question

Private Sub Form_Load()
    Winsock1.RemotePort = 22222
    Winsock1.Protocol = sckUDPProtocol
End Sub

Private Sub Command1_Click()
    Command1.Enabled = False

    Dim sendBuff As String

    sendBuff = "XXXXX"

    Label1:

    On Error GoTo Label2
    Winsock1.RemoteHost = "andon-eds-1"
    Winsock1.SendData sendBuff

    Label2:

    Winsock1.Close
    Winsock1.Protocol = sckUDPProtocol
    Winsock1.RemotePort = 22222
    Winsock1.LocalPort = 0   

Label3:

    On Error GoTo EndOfSub
    Winsock1.RemoteHost = "andon-eds-1"
    Winsock1.SendData sendBuff


EndOfSub:
Command1.Enabled = True
End Sub

Private Sub Command2_Click()
Command2.Enabled = False

On Error GoTo EndOfSub
    Winsock1.RemoteHost = "andon-eds-1"
    Winsock1.SendData "XXXXX"
EndOfSub:

Command2.Enabled = True
End Sub

Private Sub Command3_Click()
On Error Resume Next
    Command3.Enabled = False

    Dim sendBuff As String

    sendBuff = "XXXXX"

    PrintWinsockProperty

    Winsock1.RemoteHost = "andon-eds-1"
    Winsock1.SendData sendBuff

    PrintWinsockProperty

    Winsock1.Close
    Winsock1.Protocol = sckUDPProtocol
    Winsock1.RemotePort = 22222
    Winsock1.LocalPort = 0    

    PrintWinsockProperty

    Winsock1.RemoteHost = "andon-eds-1"
    Winsock1.SendData sendBuff

    PrintWinsockProperty

    Command3.Enabled = True
End Sub

'主机名“andon-eds-1”不在线，我希望

1. 当我单击 Command1 时我的应用程序可以继续，我发现错误无效参数：10014
   at >>Winsock1.SendData sendBuff <<在 Label3 下面，我的应用程序无法继续
   
2. 当我单击 Command2 2 次时，它可以在不关闭应用程序的情况下继续
   

3. 当我单击 Command3 时，它可以在不关闭应用程序的情况下继续
   我的问题是 1.) 和 2.) 有什么区别？和
   对于我的问题，“On Error Resume Next”和“On Error GoTo”有什么区别？
   
   （** 我对我的英语水平感到抱歉）
   谢谢
   

   私有子Command6_Click()
   
       将 i 调暗为整数
   
       Command6.Enabled = False
   
       出错时转到 BeginLoop
       Winsock1.RemoteHost =“Andon-eds-1”
       Winsock1.SendData“XXXXX”
   
   开始循环：
   
       继续下一步
       对于 i = 0 到 2
           Winsock1.RemoteHost =“Andon-eds-”&我
           Winsock1.SendData“XXXXX”
   
           调试.打印错误编号'0'0'0
       下一个
   
       出错时转到测试标签
           我 = 100 / 0
   
       Command6.Enabled = True
       退出子程序
   
   测试标签：
   
   结束子
   

Answer 1

我不确定你想用代码做什么，所以我无法回答你的整个问题，但我可以回答你问题的这一部分：

On Error Resume Next 和 On Error GoTo 之间有什么区别。

如果发生错误，Resume next 将导致执行继续到下一行代码。对于 On Error GoTo，这会将您的代码转到 On Error GoTo 后面的代码部分中 GoTo 之后指定的标签。

Answer 2

错误 10014 (WSAEFAULT) 很糟糕地址

系统在尝试使用调用的指针参数时检测到无效的指针地址。如果应用程序传递无效的指针值，或者缓冲区的长度太小，则会发生此错误。例如，如果作为 sockaddr 结构的参数的长度小于 sizeof(sockaddr)。

检查机器“andon-eds-1”是否可以正常ping通