Zeit nach Login einsetzten

[HUТϾH]

Hallo,
ich schreibe grade meinen ersten "Bot". Ich möchte das er nach dem Login 3 Sekunden wartet und dann die nächste Aktion startet. Wie baue ich eine Zeit mit ein?

[Syc]

Wäre interessant zu wissen, mit welcher Sprache du deinen Bot schreibst

[HUТϾH]

Ups, vergessen..
Den Bot schreibe ich mit VB.net..

 Spoiler

System.Threading.Thread.Sleep(10000)

Damit habe ich es versucht, aber dann stoppt der Bot ganz (friert ein).

WebBrowser1.Navigate("http://www.*website*.tk/game.php?village=8910&screen=main")
Das soll der öffnen, dann 10 Sekunden warten also die Seite in Ruhe öffnen und dann nach ablauf der 10 Sekunden die nächste Aktion ausführen.

[Syc]

Das Thread.Sleep lässt den aktuellen Thread einfrieren, wenn du keinen neuen erstellt hast, dann ist die GUI in dem aktuellen Thread, daher der Stopp des Bots.

Bots in .net schreibt man normalerweiße nicht mit nem Webcontrol, sonder mit httpwebrequests, wenn du es aber dennoch mit Webcontrols machen willst, dann schau mal im heiligen Internetz nach nem Event, das getriggert wird, sobald die Seite komplett geladen hat, das sollte es afaik geben.

btw. das kommt in die .Net-Sektion, snow verschiebt das sicherlich gleich.

[snow]

#moved

[HUТϾH]

Ich schreibe jetzt in httpwebrequests. Ich möchte ein Response von der Seite bekommen. Doch die Seite zeigt nicht an z.b"erfolgreich eingeloggt" sondern man wird einfach weitergeleitet. Ich möchte trz. eine info bekommen ob der Login erfolgreich war.
Wie kann ich das machen?
Man wird immer auf die gleiche Seite am Anfang geleitet.

[Ludder231]

Nun du könntest den Quellcode der Seite nach etwas untersuchen, dass angibt ob du eingeloggt bist. Mit deinem Bot suchst du dann danach im Quellcode.

[opfer200000000]

Falls du immer noch etwas brauchst, wo mit du einen Delay einbauen kannst, dann habe ich hier was für dich. Ich habe es hier aus dem Forum, leider weiß ich den Thread gerade nicht.

    
Private Sub delay(ByVal Zeit As Integer)
        Dim zeit1 As Integer = System.Environment.TickCount
        While (System.Environment.TickCount - zeit1) < Zeit
            Application.DoEvents()
        End While
End Sub

delay übergibst du dann z.B. 2000 = 2 sec

[Mostey]

Originally Posted by opfer200000000

Falls du immer noch etwas brauchst, wo mit du einen Delay einbauen kannst, dann habe ich hier was für dich. Ich habe es hier aus dem Forum, leider weiß ich den Thread gerade nicht.

    
Private Sub delay(ByVal Zeit As Integer)
        Dim zeit1 As Integer = System.Environment.TickCount
        While (System.Environment.TickCount - zeit1) < Zeit
            Application.DoEvents()
        End While
End Sub

delay übergibst du dann z.B. 2000 = 2 sec

Wozu das Rad neu erfinden? Was spricht gegen Thread.Sleep? Oder noch besser: Was spricht gegen async und await?

[MrSm!th]

Originally Posted by Mostey

Wozu das Rad neu erfinden? Was spricht gegen Thread.Sleep?

Thread.Sleep hat in dem Fall aber eine andere Auswirkung als der zitierte Code.
Nebenbei meine ich mich erinnern zu können, dass Application.DoEvents() böse ist.

[tolio]

DoEvents an sich ist nicht böse, aber wenn man das verwenden muss impliziert das in gewisser weise das man sachen im gui thread macht die dort nicht hingehören