如何将VB6代码与WhatsApp API集成发送消息及附件？现有代码无响应

原代码问题分析 #

你当前的代码无响应，主要有以下几个原因：

1. 电话号码格式错误：WhatsApp URI 协议要求电话号码不带+号，需使用纯数字格式（去除所有特殊字符、空格）。
2. 未声明API及常量：VB6中调用ShellExecute需要先声明API函数和显示常量，否则参数传递会出错。
3. 文本未URL编码：如果消息包含特殊字符（如空格、&），会导致参数截断，无法正确传递。
4. 显示模式不合适：SW_SHOWMAXIMIZED并非WhatsApp客户端的最佳启动模式，建议改用SW_NORMAL。

修正后的完整实现 #

1. 声明API及常量

在窗体或标准模块中添加以下声明：

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_NORMAL = 1

2. 实现URL编码函数

用于处理消息文本和文件路径的特殊字符：

Function URLEncode(ByVal strText As String) As String
    Dim strChar As String
    Dim i As Integer
    For i = 1 To Len(strText)
        strChar = Mid(strText, i, 1)
        Select Case strChar
            Case "A" To "Z", "a" To "z", "0" To "9", "-", "_", ".", "~"
                URLEncode = URLEncode & strChar
            Case " "
                URLEncode = URLEncode & "+"
            Case Else
                URLEncode = URLEncode & "%" & Right("0" & Hex(Asc(strChar)), 2)
        End Select
    Next i
End Function

3. 发送消息的代码

Dim x As Long
Dim phoneNumber As String
Dim messageText As String

' 注意：电话号码需为纯数字，不带+号或特殊字符
phoneNumber = "21005145232"
messageText = "hello!"

' 对消息文本进行URL编码
messageText = URLEncode(messageText)

' 调用WhatsApp URI发送消息
x = ShellExecute(Me.hwnd, "open", "whatsapp://send?phone=" & phoneNumber & "&text=" & messageText, "", "", SW_NORMAL)

' 返回值说明：>32表示成功，<=32表示失败
MsgBox "调用返回值：" & x

4. 发送附件的代码

WhatsApp URI支持attach参数传递本地文件路径，需确保路径为绝对路径并编码：

Dim x As Long
Dim phoneNumber As String
Dim filePath As String

phoneNumber = "21005145232"
filePath = "C:\Documents\example.pdf"

' 对文件路径进行URL编码
filePath = URLEncode(filePath)

' 调用WhatsApp发送附件
x = ShellExecute(Me.hwnd, "open", "whatsapp://send?phone=" & phoneNumber & "&attach=" & filePath, "", "", SW_NORMAL)

关键注意事项 #

• 目标电话号码必须已注册并激活WhatsApp账号。
• 设备上需安装WhatsApp客户端（Windows桌面版或关联移动端的桌面端），且系统已正确关联whatsapp://协议。
• 附件功能依赖WhatsApp版本，部分旧版本可能不支持，建议使用最新版客户端测试。

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