当前位置:首页 > VB > 正文内容

VB Webbrowser控件相关代码收藏

7年前 (2014-05-14)VB

这两天打算做一个长尾关键词获取工具,但由于大量获取的话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 就好了。

扫描二维码推送至手机访问。

版权声明:本文由小祥子的博客发布,如需转载请注明出处。

本文地址:http://www.xiaoxiangzi.com/post/7.html

返回列表

上一篇:VB常用代码收藏

没有最新的文章了...

相关文章

VB常用代码收藏

之前我一个VB的视频教程都没有看过,便开发出来了一个对我实用的功能,这因为VB与ASP是相通的,这里我收藏了部分代码,供我以后再次使用。 VB链接数据库Set conn ...