0
是否可以使用XMLHTTP對象獲取頁面的標題?如何使用httpxmlrequest獲取頁面的標題
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
哪個沒有用。
UPDATE
試過這裏面 - 可能不是防故障 - 適用於現在:
f = objRequest.ResponseText
loc = Instr(f,"<title>")
loc2= Instr(f,"</title>")
getTitle = Mid(f,loc+7,loc2-loc-7)