如何从VB的WebBrowser控件中获取网页文字
如何从VB的WebBrowser控件中获取网页文字
日期:2016-04-18 04:07:59 人气:1
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