VB Webbrowser控件相关代码收藏
这两天打算做一个长尾关键词获取工具，但由于大量获取的话XMLHTTP效率不是很高，我准备用Webbrowser控件试一试。相关代码如下
获取网页的方法
Public Function GetHtmlBody(ByVal URL$) WebBrowser1.Navigate URL Do While WebBrowser1.Busy '等待加载完成后再执行后面的代码. DoEvents Loop Text3.Text = WebBrowser1.Document.documentElement.outerHTML '输出控件内的内容到TEXTBOX控件里 MsgBox "加载完成!", vbOKOnly, "!" End Function
调用方法
Private Sub Command1_Click()
GetHtmlBody ("http://www.baidu.com/s?wd=" & Text1.Text)
End Sub后来发现，并不是控件的问题，而是没有使用DoEvents，导致循环的时候窗体假死，在循环内加上 DoEvents 就好了。
