我们公司使用通过网站打开其应用程序的软件。我试图使用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
发送请求后没有任何反应。如何知道它是否真的被要求了?