Dim http

Set http = CreateObject("MSXML2.XMLHTTP")

' 要发送到的URL

url = "https://qyapi.weixin.qq.com/cgi-bin/webhook/send?key=XXXXXXXXXXXXXXXXXXXXXXX"

' 准备POST数据

data = "key1=value1&key2=value2"

' 打开连接

http.Open "POST", url, False

' 设置Content-Type

http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

' 发送数据

http.Send data

' 检查响应

If http.Status = 200 Then

    ' 请求成功

    MsgBox http.responseText

Else

    ' 请求失败

    MsgBox "Error: " & http.Status & " - " & http.statusText

End If

' 清理

Set http = Nothing