vbs向webhook发送内容

[这个人去tim了]

请教下各位大佬，本人小白一枚，刚接触vbs，也没有系统地学习过。现在遇到一个问题，搞了好几周了，在用vbs向企业微信机器人发送消息时，脚本运行正常的，显示“***** script completed - exit code: 1 *****”，可企业微信机器人就是没反应，看网上说要转换为json，markdown之类的格式，有点懵逼，代码如下，恳请大佬指教。

 

Dim http

 

Set http = CreateObject("MSXML2.XMLHTTP")

Dim webhookUrl, payload
webhookUrl = "https://qyapi.weixin.qq.com/cgi-bin/webhook/send?key=XXXXXXXXXXXXXXX" ' 替换为您的webhook URL
payload = "{'key': '<ZAFDAKHJDFHJDJvalue>'}" ' 替换为您想要发送的JSON格式数据

' 配置HTTP POST请求
http.Open "POST", webhookUrl, False
http.SetRequestHeader "Content-Type", "application/json"
http.SetRequestHeader "User-Agent", "VBScript"

' 发送请求
http.Send (payload)

' 检查响应
If http.Status = 200 Then
    WScript.Echo "Webhook 请求成功发送。"
Else
    WScript.Echo "Webhook 请求发送失败，状态码: " & http.Status
End If

' 清理
Set http = Nothing