[VB6] Warten bis WebBrowser fertig geladen ist

[pixelg0tt]

Hey
Ich code jetzt das erstmal an einem Account Checker. Soweit funktioniert auch alles gut nur habe ich ein Problem. Und zwar will ich das wenn der Account Checker sich z.B. bei einer Seite anmeldet so lange wartet bis der WebBrowser komplett fertig geladen ist und dann erst im Quelltext nachschaut ob er auch angemeldet ist oder nicht (-> Account valid/unvalid).

Ich hab die ganze Nacht dran gesessen und überlegt wie ich das Problem lösen könnte. Google habe ich unzählige Male aufgerufen doch ohne Ergebnis.

Mit Do, Do Events While und Loop wartet er einfach nicht lange genug. Er meint zwar der Browser wäre fertig geladen, ist er aber nicht. Ich bräuchte sowas wie eine Abfrage ob der Browser zu 100% geladen ist und dann erst macht er weiter.

Könnte man das ganze eig. nicht anstatt des WebBrowsers mit dem Inet Komponente machen? Würde schneller und besser gehen.

[1É¥É?5Ê?1l]

Code:

WebBrowser1.Navigate ""
Do While (WebBrowser1.ReadyState <> READYSTATE_COMPLETE)
DoEvents

[Nop0x90]

Könnte man das ganze eig. nicht anstatt des WebBrowsers mit dem Inet Komponente machen? Würde schneller und besser gehen.

Ich denke mal du hast die variante vom Vorposter schon probiert, oder? Ich persönlich würde es auch mit einem Socket anstatt dem Webbrowser machen. Das ist auch viel schneller (es werden keine Bilder geladen) und natürlich besserer stil.
Das einzige was du tun musst, ist die GET bzw POST variablen einsetzen und dann mitsamt HTTP-Header abschicken.

lg

[pixelg0tt]

Ich hab das ganze jetzt versucht so zu lösen:

Code:

Private Sub cmdChecken_Click()

Dim Quelltext As String
Quelltext = frmMain.wbrWebBrowser.Document.documentElement.outerHTML
Dim Text As String
Text = &quot;E-Mails&quot;

If frmCheck.Caption = &quot; EMail.de&quot; Then

With frmMain.wbrWebBrowser
    .Document.Forms(0).email_username.Value = txtUsername.Text
    .Document.Forms(0).email_password.Value = txtPassword.Text
    .Document.Forms(0).loginBtn.Click
End With

Do While (frmMain.wbrWebBrowser.ReadyState <> READYSTATE_COMPLETE)
DoEvents

    If InStr(Quelltext, Text) Then
    txtInfo.ForeColor = vbGreen
    txtInfo.Text = &quot;Der&quot; & frmCheck.Caption & &quot; Account ist gültig.&quot;
    Else
    txtInfo.ForeColor = vbRed
    txtInfo.Text = &quot;Der&quot; & frmCheck.Caption & &quot; Account ist nicht gültig.&quot;
    End If
   
End If

End Sub

Ich bekomme aber dennoch einen Error von wegen End If ohne If Block.
Wenn ich das letzte End If entferne bekomme ich einen fehler von wegen Do ohne Loop

Wenn ich das end if drin lasse und loop unter den do Events schreibe kommt kein error aber das tool wartet nicht lange genug bis der browser fertig geladen ist um den quelltext auszulesen...

Ich denke mal du hast die variante vom Vorposter schon probiert, oder? Ich persönlich würde es auch mit einem Socket anstatt dem Webbrowser machen. Das ist auch viel schneller (es werden keine Bilder geladen) und natürlich besserer stil.
Das einzige was du tun musst, ist die GET bzw POST variablen einsetzen und dann mitsamt HTTP-Header abschicken.

lg

Genau das hab ich mir auch gedacht .. es geht schneller und man kann auch schneller den Quelltext auslesen und ich hätte das oben genannte Problem nicht. Nur habe ich leider noch nie mit Get bzw Post gearbeitet und müsste dazu ein Tutorial finden. In einem Rapidshare Checker Source hab ich gesehen wie er sich über die Inet Komponente einloggt .. also "https://ssl.rapidshare.com/premiumzone.cgi?login=username&password=hfhf" aber so geht das nicht bei jeder seite glaub ich .. oder doch?

[Nop0x90]

ich kann (gottseidank) kein VB aber ich denke:

Code:

Do While (frmMain.wbrWebBrowser.ReadyState <> READYSTATE_COMPLETE)
     DoEvents
Loop

If InStr(Quelltext, Text) Then
    txtInfo.ForeColor = vbGreen
    txtInfo.Text = &quot;Der&quot; & frmCheck.Caption & &quot; Account ist gültig.&quot;
Else
    txtInfo.ForeColor = vbRed
    txtInfo.Text = &quot;Der&quot; & frmCheck.Caption & &quot; Account ist nicht gültig.&quot;
End If

[pixelg0tt]

Genau so hab ich es ja auch. Aber komischerweise lässt er den Browser nicht ganz

[Nop0x90]

btw: Ich habe mir schon lange überlegt eine weitere Programmiersprache zu erlernen .. nur weiss ich nicht ob ich Delphi oder VB Net nehmen soll ..

Naja.. Also wenn schon denn schon... Dann lern Delphi. In Delphi wäre das sehr einfach mit einer Indy-Komponente zu realisieren aber in VB gibt es sicher was vergleichbares. Die Webbrowser controls sind eh ein krampf...