Print GetHTML ("http://www.xpngs.com/road/js_latest.asp")
Function GetHTML(strURL As String) As String
Dim xmlHTTP As Variant
Dim strHTTPReturn As String
Set xmlHTTP = CreateObject("MSXML2.ServerXMLHTTP")
xmlHTTP.open "GET", strURL
xmlHTTP.Send
strHTTPReturn = xmlHTTP.responseText
GetHTML = strHTTPReturn
End Function
lotusscript 抓取网页内容
最新推荐文章于 2021-07-26 03:08:35 发布