从vba执行隐藏的http请求

Question

我想尽可能简单地执行来自MS访问的HTTP-GET隐藏的HTTP-GET请求，但没有任何额外的库/组件。

只是一个简单的声明都需要。

有WinHttp离开大楼吗？

Answer 1

这是关于这个的great page。

Answer 2

希望这有助于

Dim xhr As Object 
Dim webServiceURL As String 
Dim actionType As String 
Dim thisRequest As String 
Dim targetWord As String 

WebServiceURL = "http://services.aonaware.com/DictService/DictService.asmx/" 
actionType = "Define?word=" 
targetWord = "Marketplace" 
thisRequest = webServiceURL & actionType & targetWord 

'use late binding 
Set xhr = CreateObject("Microsoft.XMLHTTP") 

xhr.Open "GET", thisRequest, False 
xhr.Send 

If xhr.status = 200 Then 
    Debug.Print xhr.responseText 
    MsgBox xhr.getAllResponseHeaders 
Else 
    MsgBox xhr.status & ": " & xhr.statusText 
End If 

Set xhr = Nothing