多线程中的 Webbrowser

Imports System.Threading

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'myBrowser.Visible = False
        Me.Controls.Add(myBrowser)
        AddHandler myBrowser.DocumentCompleted, AddressOf myBrowser_DocumentCompleted
    End Sub

    Private Sub myBrowser_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs)
        'throw new Exception("The method or operation is not implemented.");
        Debug.WriteLine("Open completed")
        mUniqueOpen.ReleaseMutex()
    End Sub

    Private mUniqueOpen As New Mutex()
    Private myBrowser As New WebBrowser()
    Private blnStop As Boolean = False
    Private Sub ThreadFun()
        Dim mi As New MethodInvoker(AddressOf Open)
        While Not blnStop
            myBrowser.Invoke(mi)
            Thread.Sleep(1000)
        End While
    End Sub

    Private Sub Open()
        mUniqueOpen.WaitOne()
        Debug.WriteLine("Open")
        myBrowser.Navigate("http://www.baidu.com")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim thdSub As New Thread(New ThreadStart(AddressOf ThreadFun))
        thdSub.Start()
    End Sub
End Class