VB6 приложение: WebBrowser.Navigate обновляется каждые 3 минуты

Question

Я делаю приложения с помощью VB6, в котором окно WebBrowser запускается с помощью этого кода:

 Private Sub Form_Load() 
    WebBrowser1.Navigate ("http://google.com") 
    End Sub 

Как я могу сделать окно обновить тот же URL каждый ДАВАЙТЕ скажем, 3 минуты? Я знаю, что это должно быть хорошо известно, но я все еще ищу свой путь через программирование VB

Answer 1

Вы можете использовать таймер для запуска кода с регулярным интервалом. Поскольку таймер VB6 имеет максимальный интервал ~ 65 секунд, вы можете установить его на интервал 60 000 мс и сохранить отдельный счетчик, а когда он достигнет 3, сбросьте его обратно на 0 и выполните обновление.

Private Sub Timer_Timer 
    'Increment minute count 
    FireCount = FireCount + 1 

    If FireCount = 3 then 
    'Reset to 0 for next time 
    FireCount = 0 

    'Refresh web browser 
    End If 
End Sub 

Answer 2

Вам не нужны 2 таймера. просто имеет глобальную переменную globalTimer As Date, которая сохраняет последний раз, когда вы переходите. Вы можете установить Timer1 для запуска каждую секунду или минуту. Чтобы быть более точным, я рекомендую каждую секунду.

Dim globalTimer As Date 
... 
Private Sub Timer1_Timer() 
    If Now >= DateAdd("n", 3, globalTimer) Then ' its been at least 3 minutes since last Navigation 
     WebBrowser1.Navigate ("http://google.com") ' Navigate 
     globalTimer = Now       ' store the new navigation time 
    End If 
End Sub