asynchronous - 如何使用 httpxmlrequest 获取页面的标题

Question

是否可以使用 XMLHTTP 对象获取页面的标题？

function getTitle(url)
Dim objRequest

Set objRequest = CreateObject("Msxml2.ServerXMLHTTP.3.0")
objRequest.open "GET", url , false
objRequest.Send

'getMsg = objRequest.status
'getMsg = objRequest.ResponseText

end function

我试过objRequest.title了，没有用。

更新

试过这个 - 可能不是防故障 - 现在有效：

f = objRequest.ResponseText
loc = Instr(f,"<title>")
loc2= Instr(f,"</title>")
getTitle = Mid(f,loc+7,loc2-loc-7)

Answer 1

您必须将结果插入到 DOM 中才能在 HTML 中识别内容。然后你必须向 DOM 询问页面的标题。

从 XHR 返回的只是一团文本，直到您对其进行处理。