httpRequest 和 JavaScript

Question

我有一个关于 excel VBA HTTP 请求和 JavaScript 的问题。我想通过“POST”在 Intranet 网站上进行搜索，但提交按钮似乎运行 JavaScript 来重新加载网站，但我不明白如何。

Public Function XmlHttpTutorial()

Dim xmlhttp As New MSXML2.XMLHTTP60
Set xmlhttp = CreateObject("MSXML2.serverXMLHTTP")
Dim HTMLDoc As New HTMLDocument

Dim myurl As String

myurl = "http://www.website.de"

xmlhttp.Open "POST", myurl, False
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.setRequestHeader "User-Agent", "Mozilla/5.0 (compatible; MSIE 9.0; Windows Phone OS 7.5; Trident/5.0; IEMobile/9.0)1"
xmlhttp.setRequestHeader "Cookie", "serverTimeOffset=-3600149; browserTimeZone=-60;"

xmlhttp.Send ("var1=variable&var2=variable&var3=variable")


Debug.Print xmlhttp.responseText

End Function

这是按钮本身

<input type="submit" name="button" tabindex="8" value="Find" onclick="closeWindow();uppercaseForm( this.form );" class="btn-small">

"closeWindow" 只是关闭窗口，"uppercaseForm" 只是把所有输入大写

这是标题

<form name="arrivalQueryForm" method="post" action="/opslink/arrivalQuery.do" onsubmit="setWindowId(this, 'windowId');">

setWindowID 只获取 window.name 并替换括号。

我不知道如何找回正确的网站，因为到目前为止似乎没有任何效果。

Answer 1

据我所知，VBA 与 HTML 无关。 XHR 被嵌入到 HTML 表单对象中（注意 method=post 属性）。该 onsubmit 与 HTML 表单一起被烘焙。

我建议您不要使用 HTML 表单元素并在 JavaScript 中手动编写 XHR 脚本，这样您就可以通过 button 元素上的 .click 事件了解该机制的工作原理。

如果您想从 Excel 本身中获取/XHR，而无需打开 Web 浏览器，则可以使用该 VBA。