Бесконечный LOOP/повторный скрипт?

Question

У меня есть сценарий в Visual Basic, который, похоже, не может заставить его повторять/цитировать. Я хочу, чтобы сценарий повторялся после нажатия на указанную переменную, а затем обновление страницы. Затем страница обновляется, а тики - 0, но затем я хочу, чтобы сценарий повторялся снова (INFINITE). Вот сценарий я имею дело с:

Private Sub Timer1_Tick(ByVal sender As System.Object, 
         ByVal e As System.EventArgs) Handles Timer1.Tick 
    If Not number_of_ticks > 100 Then 
    number_of_ticks += 1 
    WebBrowser1.Document.GetElementById("claimIt").InvokeMember("Click") 
    Else 
    'number_of_ticks has exceed the maximum amount of allowed ticks 
    Timer1.Enabled = False 
    WebBrowser1.Refresh() 
    number_of_ticks = 0 
    End If 
End Sub 

, но когда я пытаюсь сделать LOOP, он не работает, программа перестает отвечать на запросы:

Private Sub Timer1_Tick(ByVal sender As System.Object, 
         ByVal e As System.EventArgs) Handles Timer1.Tick 
    Do 
    If Not number_of_ticks > 100 Then 
     number_of_ticks += 1 
     WebBrowser1.Document.GetElementById("claimIt").InvokeMember("Click") 
    Else 
     'number_of_ticks has exceed the maximum amount of allowed ticks 
     Timer1.Enabled = False 
     WebBrowser1.Refresh() 
     number_of_ticks = 0 
    End If 
    Loop 
End Sub 

Я не знаю, почему это происходит, любая помощь?

Answer 1

Ваш Do-Loop заставляет программу застревать навсегда. Может быть, вы просто должны повторно включить таймер в вашем методе:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 
    If Not number_of_ticks > 100 And Not WebBrowser1.IsBusy Then 
     number_of_ticks += 1 
     WebBrowser1.Document.GetElementById("claimIt").InvokeMember("Click") 
    Else 
     'number_of_ticks has exceed the maximum amount of allowed ticks 
     Timer1.Enabled = False 
     WebBrowser1.Refresh() 
     number_of_ticks = 0 

     ' re-enable the timer to repeat again 
     Timer1.Enabled = True 
    End If 
End Sub