Warten Bis WebBrowser Laden? (VB 2010)

Ich habe gesucht und gesucht-code und alles was ich versucht habe funktioniert nicht.
Im Prinzip brauche ich den WebBrowser vollständig zu laden, bevor Sie einen test-code...

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

    WebBrowser1.Document.GetElementById("login").SetAttribute("value", TextBox1.Text)
    WebBrowser1.Document.GetElementById("passwd").SetAttribute("value", TextBox2.Text)
    WebBrowser1.Document.GetElementById("SI").InvokeMember("Click")

    Where I need to insert the WaitForPageLoad()


    RichTextBox1.Text = WebBrowser1.DocumentText
    If InStr(RichTextBox1.Text, "To continue, create an Xbox profile") Then
        MsgBox("You do not have an xbox account associated with this gamertag, please log into xbox.com with the account then create an xbox profile.")
    Else
        MsgBox("nothing")

    End If

Wie Sie sehen können ich habe versucht, verwenden Sie ein Skript, um mich anmelden Xbox.com und es funktioniert, aber nur ein bisschen. Der Prozess dieser code ist ZU schnell, es ist nicht die überprüfung der Recht-source-code für die Zeichenfolge zu sagen "weiter...", im Grunde

    WebBrowser1.Document.GetElementById("login").SetAttribute("value", TextBox1.Text)
    WebBrowser1.Document.GetElementById("passwd").SetAttribute("value", TextBox2.Text)
    WebBrowser1.Document.GetElementById("SI").InvokeMember("Click")

Nach, die klicken, klickt Er auf die Schaltfläche, funktioniert der log-in Prozess, aber es hat zu laden von einer ganz neuen Seite, das problem mit diesem ist, dass es führt die nächste Zeile des Codes viel zu schnell und die nächste Codezeile sucht nach diesem string in den falschen source code. Ich muss es WARTEN, bis die Seite zu laden, dann laufen diese Zeile

RichTextBox1.Text = WebBrowser1.DocumentText

Welche Kopien des Quellcodes des webbrowser auf eine textbox, die dann gesucht wird nach der Zeichenfolge. Ich habe alles versucht. Ich fühle mich wie WaitForPageLoad() funktionieren würde, toll, aber ich bekomme eine Fehlermeldung sagte mir, dass es nicht deklariert. Kann mir jemand helfen?

wenn ich Ihre Frage zu verstehen, und im nicht sicher, ich tun, ich denke, Sie sind auf der Suche für den webbrowser.DocumentCompleted-Ereignis. Sie wollen einfach nur, um zu bewegen, Ihren code, um das Rückruf-Ereignis, und es wird ausgeführt werden, wie Sie Ihr Dokument vollständig geladen ist. sich bewusst sein, es kann mehrfach ausgelöst, wenn andere Dokumente geladen werden, die von Ihrer web-Seite.

InformationsquelleAutor John Smith | 2013-07-20

Sollte dieser code helfen.

Definieren Sie eine Globale variable namens vollständig und legen Sie es auf false

Dim completed = false

Nun in Ihrem web-browser ein Dokument vollständig fügen Sie diesen code in

   Private Sub WebBrowser_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)

   completed = true

   End Sub

Nun waren Sie warten wollen, bis Sie Ihren web-browser geladen wurde, die Seite

While Not completed
End While

Alle zusammen, Sie sollten so etwas

Public Class WaitForWebBrowser

Dim completed = False

Sub Main()
WebBrowser1.Navigate("http://google.com")

While Not completed
End While
'when the web browser is done complete will be set to true and will exit the while loop and continue your code

End Sub

Private Sub WebBrowser_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)

       completed = true

       End Sub

End Class

halten Sie auf... Lassen Sie mich vorschlagen, eine genauere Beispiel DocumentCompleted aus meiner Sicht, siehe meine Antwort hier: stackoverflow.com/a/32298026/2396732

InformationsquelleAutor Washcloth

Müssen Sie die DocumentCompleted Event Handler - und trigger-beliebigen code aus der entsprechenden Methode. Das heißt:

Private Sub startBrowser()

    AddHandler WebBrower1.DocumentCompleted, AddressOf WebBrowser_DocumentCompleted

    WebBrower1.Navigate("http://...")

End Sub

Private Sub WebBrowser_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
       'CALL ALL YOUR CODE FROM HERE
End Sub

- - - - - UPDATE GANZE WEBBROWSER

Wenn Sie öffnen Sie ein neues Projekt und fügen Sie diesen code (und fügen Sie den TextBoxes/RichTextBox zu Ihrer form), würde es ohne Probleme funktionieren:

Public Class Form1
    Friend WithEvents webBrowser0 As New WebBrowser
    Friend WithEvents tabs As New TabControl
    Friend WithEvents tabPage0 As New TabPage

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        startBrowser()
    End Sub
    Public Sub startBrowser()

        Dim url As String = "http://..."

        tabs.Controls.Add(tabPage0)
        tabPage0.Controls.Add(webBrowser0)
        AddHandler webBrowser0.DocumentCompleted, AddressOf WebBrowser_DocumentCompleted

        webBrowser0.Navigate(url)

    End Sub

    Private Sub WebBrowser_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)

        webBrowser0.Document.GetElementById("login").SetAttribute("value", TextBox1.Text)
        webBrowser0.Document.GetElementById("passwd").SetAttribute("value", TextBox2.Text)
        webBrowser0.Document.GetElementById("SI").InvokeMember("Click")



        RichTextBox1.Text = webBrowser0.DocumentText
        If InStr(RichTextBox1.Text, "To continue, create an Xbox profile") Then
            MsgBox("You do not have an xbox account associated with this gamertag, please log into xbox.com with the account then create an xbox profile.")
        Else
            MsgBox("nothing")

        End If

    End Sub
End Class

Bekomme ich diese Fehler sagen mir WebBrowser1 ist nicht deklariert. Es kann nicht mehr zugegriffen werden aufgrund seiner Schutz-Ebene. Das ist der gleiche Fehler ich habe auf WaitForPageLoad()... keine Hilfe?
Sie müssen sich meinen code zu verkaufen. Mein code geht davon aus, dass WebBrowser1 vorhanden ist. Ich werde zu aktualisieren meinem code, so dass Sie können es verwenden, ohne sich auf Ihre, obwohl ich hoffe, dass Sie verstehen, was jedes bit bedeutet (dies ist der springende Punkt, der meine Antwort/dieser Website: wir helfen Ihnen zu verstehen, wo Sie falsch waren, nicht die volle Arbeit-codes).
Ich bin versucht, es zu verstehen, aber ich bin verwirrt, warum es würde sagen, es ist unzugänglich aufgrund von Schutz-Ebene? Ich habe erklärt WebBrowser1 zu der nach meinem besten wissen...
Ich habe aktualisiert mein code, öffnen Sie einfach ein neues Projekt und fügen den code (hinzufügen der textBox und richtextbox). Es sagt "unzugänglich aufgrund dessen Schutz", weil die Methode, die ich erstellt ist privat und, wahrscheinlich, Ihr ruft es aus einer externen Klasse. Sie können ändern Sie es zu öffentlichen oder verschieben Sie es an die aufrufende Klasse.
Für einmal jemand den richtigen Ansatz. +1

InformationsquelleAutor varocarbas

-1

  For I As Integer = 0 To 500
            If MyBrowser.ReadyState = WebBrowserReadyState.Complete Then Exit For
            Threading.Thread.Sleep(1)
            Application.DoEvents()
        Next

InformationsquelleAutor JEL

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.