Moin, ich kann das leider schlecht im Titel erklären
Hier am ende sieht man schon was ich versuch leider klappt das nicht da die aktion sofort augeführt wird und nicht gewartet wird bis der browser fertig ist.
Ich habe ein modul WaitForPageLoad() das schaut so aus
Wenn ich aber an dieser stelle das einfüge läd der browser garnicht fertig.
Kann mal jemand drüber schauen und mir eventuell ein tip geben danke
VB.NET-Quellcode
- Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
- Button2.Enabled = False
- Try
- WebBrowser1.Document.GetElementById("dnn_ctr439_ParentConfirmation_ucRegisterdataView_chkPermissionParent").InvokeMember("click")
- WebBrowser1.Document.GetElementById("dnn_ctr439_ParentConfirmation_ucRegisterdataView_chkAcceptTerms").InvokeMember("click")
- WebBrowser1.Document.GetElementById("dnn_ctr439_ParentConfirmation_btnSubmit").InvokeMember("click")
- Catch ex As Exception
- End Try
- Dim isa = ListBox1.SelectedIndex
- If WebBrowser1.DocumentText.Contains("abgeschlossen") Then
- ListBox1.Items.RemoveAt(isa)
- ListBox1.SelectedIndex = 0
- End If
- End Sub
Hier am ende sieht man schon was ich versuch leider klappt das nicht da die aktion sofort augeführt wird und nicht gewartet wird bis der browser fertig ist.
Ich habe ein modul WaitForPageLoad() das schaut so aus
VB.NET-Quellcode
- Module Module1
- Private Property pageready As Boolean = False
- Public Sub WaitForPageLoad()
- AddHandler Form1.WebBrowser1.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf PageWaiter)
- While Not pageready
- Application.DoEvents()
- End While
- pageready = False
- System.Threading.Thread.Sleep(800)
- End Sub
- Private Sub PageWaiter(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs)
- If Form1.WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
- pageready = True
- System.Threading.Thread.Sleep(800)
- RemoveHandler Form1.WebBrowser1.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf PageWaiter)
- End If
- End Sub
- End Module
Wenn ich aber an dieser stelle das einfüge läd der browser garnicht fertig.
Kann mal jemand drüber schauen und mir eventuell ein tip geben danke