vb WebBrowser控件

公司要做一个网站发布器的，功能很简单，就是到固定的地址去取出最新的网站地址，然后自动打开网页。所有决定用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误认为是木马