Question

在我的MS Access应用程序中，我需要定期向我的网络服务器发送一批信息。我不需要像SOAP，XML-RPC或其他任何东西，只需一个简单的POST页面请求就足够了。我用谷歌搜索了一下但却无法发现任何真正有用的东西。

有没有人知道资源或有代码示例来执行此操作？

Answer 1

这是我用于HTTP GET请求的地方，我想要检索网页的HTML。您可以将POST替换为pMethod参数并丢弃响应文本。

我使用的是MSXML2，并不保证可以在所有Windows版本中使用。如果您的系统上没有它，您可以尝试使用MSXML。或者在MSXML2不可用时使用错误处理程序回退到MSXML。

Public Function HttpRequest(ByVal pUrl As String, _
        Optional ByVal pMethod As String = "GET") As String
    Dim strResponse As String
    Dim objHttp As Object

    'use "MSXML.XMLHTTPRequest" if MSXML2 not available '
    Set objHttp = CreateObject("MSXML2.XMLHTTP")

    objHttp.Open pMethod, pUrl, False
    objHttp.send
    strResponse = objHttp.responseText
    HttpRequest = strResponse
    Set objHttp = Nothing
End Function

MS Access执行POST webrequest

1 个答案: