vb.net代码停留在While WebBrowser1.ReadyState＆lt;＆gt; WebBrowserReadyState.Complete

Question

我正在vb.net中开发一个应用程序，它从系统中获取一些信息，然后将收集的详细信息更新到现成的网页。我正在使用InternetExplorer对象。请找到以下代码。

Dim WebBrowser1 As Object = CreateObject("InternetExplorer.Application")

Private Sub Button1_Click(sender As System.Object, ByVal e As System.EventArgs)      处理Button1.Click

WebBrowser1.Visible = True

 WebBrowser1.Navigate("http://abcd.com/webform1.aspx")

    While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
        Application.DoEvents()
    End While


WebBrowser1.Document.GetElementById("infoUserName").InnerText = EndUserName

这里，While条件会生成一个异常并说出来 调用的对象已与其客户端断开连接。 (Exception from HRESULT: 0x80010108 (RPC_E_DISCONNECTED))