Application.DoEvents 需要很长时间

Question

我有这样的Sub（），使用壁虎WebBrowser下载HTML页面

wb1 = Nothing
wb1 = New Gecko.GeckoWebBrowser
wb1.Navigate(v_url)
totalticks = 0
loadtimer.Start()
        Do
            If m_stop = True Then Exit Do
            If wb1.IsBusy = False Then 'wb1.ReadyState = WebBrowserReadyState.Complete Then
                If IsNothing(wb1.Document) = False Then
                    If IsNothing(wb1.Document.Body) = False Then
                        Exit Do
                    End If
                End If
            ElseIf wb1.IsBusy = True And String.IsNullOrEmpty(sucessID) = False Then  'wb1.ReadyState = WebBrowserReadyState.Interactive And String.IsNullOrEmpty(sucessID) = False Then
                If IsNothing(wb1.Document) = False Then
                    If IsNothing(wb1.Document.Body) = False Then
                        If InStr(wb1.Document.Body.InnerHtml, sucessID, CompareMethod.Text) <> 0 Then
                            Exit Do
                        End If
                    End If
                End If
            End If
            If totalticks = 15 Then
                'wb1.Dispose()
                wb1.Stop()  'wb1 = New System.Windows.Forms.WebBrowser
                wb1.Reload(Gecko.GeckoLoadFlags.IsRefresh)
                'wb1.ScriptErrorsSuppressed = True
                'wb1.Navigate(v_url)
            ElseIf totalticks >= 30 Then
                wb1.Stop()
                Exit Do
            End If
            'FreeUpMemory()
            Application.DoEvents()
        Loop

我的问题是Application.DoEvents需要很长时间才能处理和完成。P.S 我正在使用 STA 线程来运行这个 Sub（）

Answer 1

好的，这里的人

是我的问题是如何解决的，感谢其他试图提供帮助的人！ 非常感谢。好的，它开始了：

基本上这 2 行在哪里循环

wb1 = Nothing
wb1 = New Gecko.GeckoWebBrowser

因此，由于某种原因，这使得消息队列过于拥挤，因此应用程序.doevents处理这些消息的时间太长。所以我所做的只是将wb1贴花作为全局对象（即 dim wb1 as New GeckoWebBrowser ） 这样我就不需要将其设置为空然后再次初始化对象。所以无论如何，我删除了上面的 2 行并改用了 instaniated 对象。

现在事情运行得如此顺利和快速，即使使用 DoEvents（） !!耶！！

Answer 2

尝试使用 BackgroundWorker 而不是在主线程上运行下载。可以通过传递给 RunWorkerCompleted 事件处理程序的 Result 属性将结果从后台工作线程传递回主线程。那时，您不需要循环中的 Application.DoEvents，并且仍然具有 Main 线程响应。有关教程，请参阅此链接：

http://msdn.microsoft.com/en-us/library/cc221403%28v=vs.95%29.aspx