Poczekaj .5 sekund przed kontynuowaniem kodu VB.net

Question

Mam kod i chcę, aby poczekał gdzieś w środku, przed pójściem do przodu. Po WebBrowser1.Document.Window.DomWindow.execscript ("checkPasswordConfirm();", "JavaScript") Chcę, aby czekać. 5 sekund, a następnie zrobić resztę kodu.

WebBrowser1.Document.Window.DomWindow.execscript("checkPasswordConfirm();","JavaScript") 

    Dim allelements As HtmlElementCollection = WebBrowser1.Document.All 
    For Each webpageelement As HtmlElement In allelements 
     If webpageelement.InnerText = "Sign Up" Then 
      webpageelement.InvokeMember("click") 
     End If 
    Next 

Answer 1

Zrób zegar, który aktywuje dowolny kod, który chcesz, gdy tyka. Upewnij się, że pierwsza linia kodu timera to:

timer.enabled = false 

Wymień stoper na cokolwiek wymieniłeś zegar.

Wtedy to wykorzystać w kodzie:

WebBrowser1.Document.Window.DomWindow.execscript("checkPasswordConfirm();","JavaScript") 
timer.enabled = true 
Dim allelements As HtmlElementCollection = WebBrowser1.Document.All 
For Each webpageelement As HtmlElement In allelements 
    If webpageelement.InnerText = "Sign Up" Then 
     webpageelement.InvokeMember("click") 
    End If 
Next 

Answer 2

Musisz użyć System.Threading.Thread.Sleep(number of milliseconds).

WebBrowser1.Document.Window.DomWindow.execscript("checkPasswordConfirm();","JavaScript") 

Threading.Thread.Sleep(500) ' 500 milliseconds = 0.5 seconds 

Dim allelements As HtmlElementCollection = WebBrowser1.Document.All 
For Each webpageelement As HtmlElement In allelements 
    If webpageelement.InnerText = "Sign Up" Then 
     webpageelement.InvokeMember("click") 
    End If 
Next 

Answer 3

VB.net 4,0 ramy Kod:

Threading.Thread.Sleep(5000)

Liczba całkowita w milisekundach (1 s = 1000 milisekund)

I tak testowania i działa

Answer 4

Myślę, że to pytanie jest stare, ale zapewniam inną odpowiedź, ponieważ jest przydatna dla innych:

Thread.Sleep nie jest to dobra metoda dla oczekujących, ponieważ zwykle zamarza oprogramowanie aż kończąc swój czas, funkcja ta jest lepsza:

Imports VB = Microsoft.VisualBasic 

    Public Sub wait(ByVal seconds As Single) 
    Static start As Single 
    start = VB.Timer() 
    Do While VB.Timer() < start + seconds 
     System.Windows.Forms.Application.DoEvents() 
    Loop 
End Sub 

ta funkcja oczekiwania na określony czas bez zamrażania oprogramowania jednak zwiększa obciążenie procesora, ale poniżej funkcji nie tylko nie zamarza oprogramowania, ale również nie zwiększa zużycia CPU:

Private Sub wait(ByVal seconds As Integer) 
    For i As Integer = 0 To seconds * 100 
     System.Threading.Thread.Sleep(10) 
     Application.DoEvents() 
    Next 
End Sub 

Answer 5

Imports VB = Microsoft.VisualBasic 

Public Sub wait(ByVal seconds As Single) 
    Static start As Single 
    start = VB.Timer() 
    Do While VB.Timer() < start + seconds 
     System.Windows.Forms.Application.DoEvents() 
    Loop 
End Sub 

% 20 + Wykorzystanie wysokiej cpu + nie lag

Private Sub wait(ByVal seconds As Integer) 
    For i As Integer = 0 To seconds * 100 
     System.Threading.Thread.Sleep(10) 
     Application.DoEvents() 
    Next 
End Sub 

% cpu + 0.1 Wykorzystanie wysokiej lag