VB script调webAPI接口

在VBScript中调用Web API接口，你可以使用`MSXML2.ServerXMLHTTP`对象来发送HTTP请求。下面是一个简单的示例代码，展示如何使用VBScript发送GET和POST请求：

Dim objHTTP
Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")

' 发送GET请求
objHTTP.Open "GET", "https://api.example.com/data", False
objHTTP.send
If objHTTP.Status = 200 Then
    Dim responseData
    responseData = objHTTP.responseText
    ' 处理响应数据
    MsgBox responseData
Else
    MsgBox "请求失败: " & objHTTP.Status
End If

' 发送POST请求
Dim payload
payload = "key1=value1&key2=value2"
objHTTP.Open "POST", "https://api.example.com/endpoint", False
objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objHTTP.send payload
If objHTTP.Status = 200 Then
    Dim responseData
    responseData = objHTTP.responseText
    ' 处理响应数据
    MsgBox responseData
Else
    MsgBox "请求失败: " & objHTTP.Status
End If

Set objHTTP = Nothing

在上述示例中，我们使用`MSXML2.ServerXMLHTTP`对象发送GET和POST请求。对于GET请求，我们使用`Open`方法指定请求的URL，并使用`send`方法发送请求。对于POST请求，我们同样使用`Open`方法指定请求的URL，并使用`setRequestHeader`方法设置请求头，然后使用`send`方法发送请求。在接收到响应后，我们可以通过`responseText`属性获取响应数据。

请确保在运行VBScript之前已经安装了相应的运行环境，如Windows操作系统。

需要注意的是，VBScript的功能相对较为有限，如果需要处理更复杂的HTTP请求或处理JSON数据等，可能需要借助其他辅助库或编写更多的代码来完成。