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
3480
![](https://csdnimg.cn/release/blogv2/dist/pc/img/readCountWhite.png)
02-26