Function HtmlStr$(Url$) '提取网页源码函数
Dim XmlHttp
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.Open "GET", Url, False
XmlHttp.send
If XmlHttp.ReadyState = 4 Then HtmlStr = StrConv(XmlHttp.ResponseBody, vbUnicode)
Set XmlHttp = Nothing
End Function
Private Sub Form_Load()
Text1 = ""
Text1 = HtmlStr("http://www.baidu.com/")
End Sub
MsgBox WebBrowser1.Document.getElementById("countDownRight").children(0).innerText
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024