Question

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        WebBrowser.Show()
        WebBrowser.WebBrowser1.Navigate("www.carsonmap.com/hidalgo/login.cfm")
        WebBrowser.WebBrowser1.Document.GetElementById("UserName").SetAttribute("value", "lrgvdc")
        WebBrowser.WebBrowser1.Document.GetElementById("PW").SetAttribute("value", WebBrowser.TextBox2.Text)
    End Sub

我需要有关此代码的帮助，我一直收到一条错误，指出Null Reference。

我从Youtube视频中了解了这个想法，看看我想要实现的目标。

https://www.youtube.com/watch?v=9EJXzWasTq4&list=PL42055376AE25291E&index=41 他们使用两个按钮进入我想要进入网站的网站。通过使用一个按钮，任何想法为什么它不起作用。

Answer 1

当您使用WebBrowser1.Navigate时 - 它才开始加载文档，文档无法立即生效。

您需要使用WebBrowser.DocumentCompleted Event放置适用于文档元素的代码。例如。

之类的东西

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  WebBrowser.Show()
  WebBrowser.WebBrowser1.Navigate("www.carsonmap.com/hidalgo/login.cfm")
End Sub



Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, _
    ByVal e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

  WebBrowser.WebBrowser1.Document.GetElementById("UserName").SetAttribute("value", "lrgvdc")
  WebBrowser.WebBrowser1.Document.GetElementById("PW").SetAttribute("value",    WebBrowser.TextBox2.Text)

End Sub

在VB.net中的WebBrowser控件中需要帮助

1 个答案: