Подождите .5 секунд до продолжения кода VB.net

Question

У меня есть код, и я хочу, чтобы он где-то посередине, прежде чем идти вперед. После WebBrowser1.Document.Window.DomWindow.execscript ("checkPasswordConfirm();", "JavaScript") Я хочу, чтобы он подождал 0,5 секунды, а затем выполнил остальную часть кода.

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

Создайте таймер, который активирует любой код, который вы хотите, когда он тикает. Убедитесь, что первая строка в коде таймера:

timer.enabled = false 

Замените таймер на то, что вы назвали своим таймером.

Затем используйте это в вашем коде:

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

Вы должны будете использовать 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 рамки Код:

Threading.Thread.Sleep(5000)

Целое число в миллисекундах (1 сек = 1000 миллисекунд)

я проверить его, и он работает

Answer 4

Я думаю, что этот вопрос старый, но я даю другой ответ, потому что он полезен другим:

Thread.Sleep не является хорошим методом для ожидания, потому что обычно она не замерзает программное обеспечение до окончания своего времени, эта функция лучше:

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 

эта функция ждать определенного времени без замораживания программного обеспечения , однако увеличивает загрузку процессора, но ниже функции не только не замерзает программное обеспечение, но и не увеличивает нагрузку на процессор:

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 + высокая загрузка процессора + без задержек

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 

% использование 0,1 CPU + высокая инерционность