公司要做一个网站发布器的,功能很简单,就是到固定的地址去取出最新的网站地址,然后自动打开网页。所有决定用vb做了。
代码很简单
Option Explicit Private Declare Sub Sleep Lib "kernel32 " (ByVal dwMilliseconds As Long) Private Sub Form_Load() WebBrowser1.Navigate2 ("http://localhost/url.htm") While WebBrowser1.Busy Or WebBrowser1.ReadyState <> 4 DoEvents Wend Dim strHtml As String Dim doc Set doc = WebBrowser1.Document WebBrowser1.Navigate2 ("http://localhost/url.htm") strHtml = WebBrowser1.Document.body.innerText 'Debug.Print strHtml Dim Browser As Object Set Browser = CreateObject("InternetExplorer.Application") Browser.Visible = True Browser.Navigate (strHtml) End End Sub
遇到的问题
1、WebBrowser获取网页内容时经常获取不到,但是断点调试却是可以的,估计是网络反应慢引起的,所以加入了 WebBrowser1.Busy Or WebBrowser1.ReadyState <> 4
的判断。
2、vb中用sleep(100)时必须在头部加上
Option Explicit Private Declare Sub Sleep Lib "kernel32 " (ByVal dwMilliseconds As Long)
这样也可以消除在调用默认浏览器是被360误认为是木马