txt = 取网页源码(" xxx ")
TracePrint txt
pos = instr(txt," ??? ")
TracePrint pos
Function 取网页源码(URL)
Set objXML=CreateObject("Microsoft.XMLHTTP")
objXML.Open "Get", Url, False
objXML.send
If objXML.readyState=4 then
取网页源码 =objXML.ResponseText
End If
objXML.Abort
Set objXML = Nothing
End Function
01-07
3854

02-26