vb6 - VB6 应用程序：WebBrowser.Navigate 每 3 分钟刷新一次

Question

我正在使用 VB6 制作一个应用程序，其中使用以下代码启动 WebBrowser 窗口：

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

如何让窗口每隔 3 分钟刷新一次相同的 url？我知道它应该是众所周知的，但我仍在通过 VB 编程寻找我的方式

Answer 1

您不需要 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

Answer 2

您可以使用计时器定期运行代码。由于 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