VBA通过UDP socket无法接收Java端发送数据的问题求助

核心问题点 #

• 未绑定本地监听端口：UDP socket创建后必须调用bind函数绑定本地端口，操作系统才会把对应端口收到的UDP包转发给该socket，当前代码仅配置了目标发送地址，没有绑定本地接收端口。
• socket句柄类型错误：send_sock被定义为sock_type枚举类型，该枚举最大值仅为5，完全无法存储系统返回的socket句柄（Long类型正整数），导致后续所有socket操作异常。
• recvfrom参数定义错误：声明中的最后一个参数tolen必须为传引用类型，该参数是传入传出参数，既要告知内核地址结构体的长度，也会被内核回写发送方地址的实际长度，当前为传值会导致函数调用异常。
• 组播地址未加入组播组：当前配置的目标地址224.0.0.3属于组播地址，若需要接收发往该组播地址的包，必须通过setsockopt设置IP_ADD_MEMBERSHIP选项加入对应组播组，否则内核会直接丢弃该类包。
• 无效逻辑冗余：代码中判断RetVal <> 0的逻辑中，RetVal变量未定义也未赋值，该段逻辑完全无效，可直接删除。

修复步骤 #

1. 补充缺失的WinSock API声明
   新增bind函数声明，修正recvfrom的参数声明：

   ' 新增bind函数声明
   Public Declare Function bind Lib "Ws2_32.dll" (ByVal socket As Long, ByRef addr As sockaddr_in, ByVal namelen As Long) As Long
   ' 修正recvfrom的最后一个参数为传引用
   Public Declare Function recvfrom Lib "Ws2_32.dll" _
       (ByVal socket As Long, ByRef Buf As Byte, _
        ByVal length As Long, ByVal flags As Long, _
        ByRef fromaddr As sockaddr_in, ByRef fromlen As Long) As Long
   

2. 修正socket句柄类型
   将Dim send_sock As sock_type改为Dim send_sock As Long，匹配系统返回的socket句柄类型。
3. 新增端口绑定逻辑
   socket创建成功后，绑定本地监听端口，示例代码如下：

   Dim localAddr As sockaddr_in
   localAddr.sin_family = AF_INET
   ' 监听本地32768端口，与Java端发送的目标端口保持一致
   localAddr.sin_port(1) = 128
   localAddr.sin_port(0) = 0
   ' 监听所有本地网卡地址
   localAddr.sin_addr(0) = 0
   localAddr.sin_addr(1) = 0
   localAddr.sin_addr(2) = 0
   localAddr.sin_addr(3) = 0
   
   iResult = bind(send_sock, localAddr, Len(localAddr))
   If iResult <> 0 Then
       MsgBox ("绑定端口失败，错误码：" & WSAGetLastError())
       closesocket send_sock
       WSACleanup
       Exit Sub
   End If
   

4. （可选）组播地址加入逻辑
   若确实需要接收224.0.0.3的组播包，需要补充setsockopt声明和组播加入逻辑。
5. 新增防火墙规则
   检查Windows防火墙，添加对应Office程序（如Excel、Access）的UDP 32768端口入站允许规则，避免防火墙拦截数据包。
6. 调整接收逻辑
   可添加循环重试接收逻辑，避免单次调用未收到数据直接退出：

   Dim fromLen As Long
   fromLen = Len(RecvAddr)
   ' 重试10次接收，每次间隔1秒
   For retry = 1 To 10
       rLen = recvfrom(send_sock, bytesReceived(0), 4, 0, RecvAddr, fromLen)
       If rLen > 0 Then
           Exit For
       End If
       If WSAGetLastError() <> 10035 Then ' 10035为WSAEWOULDBLOCK，代表暂时无数据
           MsgBox ("接收失败，错误码：" & WSAGetLastError())
           Exit For
       End If
       Application.Wait Now + TimeValue("00:00:01")
       DoEvents
   Next
   

其他注意事项 #

• 确认Java端发送的目标IP为VBA运行设备的真实IP，目标端口与VBA绑定的端口一致。
• 若不需要组播，直接用单播地址通信可省略组播加入步骤，降低复杂度。

内容的提问来源于stack exchange，提问作者Sonam Pashte