VBA - 在网页内发送http请求

时间:2018-01-08 13:05:38

标签: vba excel-vba xmlhttprequest excel

我们公司使用通过网站打开其应用程序的软件。我试图使用VBA自动化打开一些应用程序的过程。

经过研究,我发现网站使用GET请求打开每个应用程序。 我想做的是: 1)打开网站并登录; 2)发送GET请求以打开应用程序;

我可以打开并登录就好了,我的代码如下:

Sub Test()

Dim xhrRequest As XMLHTTP60    
Set xhrRequest = New XMLHTTP60

    Set ie = CreateObject("InternetExplorer.application")
    ie.Visible = True
    ie.Navigate ("http://websitelogin/")

    While ie.ReadyState <> 4
    DoEvents
    Wend

    Application.Wait (Now + TimeValue("0:00:01"))

    ie.document.forms(0).all("txtUsername").Value = "login"
    ie.document.forms(0).all("txtPassword").Value = "password"
    Application.Wait (Now + TimeValue("0:00:01"))
    ie.document.forms(0).all("btn-enter").Click

    Application.Wait (Now + TimeValue("0:00:03"))

    xhrRequest.Open "GET", "http://getrequest", False 'found out that this _
    is the request made on the browser's developer tools

    xhrRequest.send

End Sub

发送请求后没有任何反应。如何知道它是否真的被要求了?

0 个答案:

没有答案