VB6应用程序：WebBrowser。导航每3分钟刷新一次

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

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

我如何让窗口每3分钟刷新一次相同的url？

---

我知道这应该是大家都知道的，但我仍然在用VB编程

你可以用定时器定期运行代码。 由于VB6计时器的最大间隔为~65秒，因此可以将其设置为60000毫秒的间隔，并保留一个单独的计数器，当它达到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

---

您可以使用计时器以固定的间隔运行代码。 由于VB6计时器的最大间隔为~65秒，因此可以将其设置为60000毫秒的间隔，并保留一个单独的计数器，当它达到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

---

你不需要两个计时器。只需使用一个全局变量

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

---

你不需要两个计时器。只需使用一个全局变量

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

---

你能告诉我在哪里可以找到关于如何做这个的资源/教程吗，因为我在VB6@NizarBark这是一个简单的计时器，一个增量和if语句，没有什么需要指导的。我已经将下面的代码

code

Private Sub Form_Load（）WebBrowser1.Navigate（“）End Sub Private Sub T_timer（））如果FireCount=3，则“增量分钟计数FireCount=FireCount+1”，然后“下次重置为0 FireCount=0 WebBrowser1.Refresh（“）”刷新web浏览器End If End Sub

code

，但它会提示我编译错误：错误的数字或参数或无效属性assignment@NizarBark好，您是从哪里获得的

WebBrowser1.Refresh（“google.com”）

行的？这不是你问题中的密码。正如编译器错误所说，

.Refresh

没有那么多参数。由于我在上为空，您能告诉我在哪里可以找到有关如何进行此操作的资源/教程吗VB6@NizarBark这是一个简单的计时器，一个增量和if语句，没有什么需要指导的WebBrowser1.Navigate（“）End Sub Private Sub T_Timer（）”如果FireCount=3，则增量分钟计数FireCount=FireCount+1，然后“下次FireCount=0时重置为0 WebBrowser1.Refresh（）'刷新web浏览器End If End Sub

code

，但它会给我一个提示，告诉我编译错误：错误的数字或参数或无效属性assignment@NizarBark那么，你是从哪里得到WebBrowser1.Refresh（“google.com”）这一行的？这不是你问题中的密码。正如编译器错误所说，

.Refresh

没有那么多参数。我已经尝试了该代码，它每3秒钟刷新一次浏览器，但它不会像以前的代码那样打开google网站，请提供帮助！哇！我犯了个大错误

如果globalTimer>=DateAdd（“n”，3，Now）那么

应该是

如果Now>=DateAdd（“n”，3，globalTimer）那么

我已经尝试了这个代码，它每3秒钟刷新一次浏览器，但它不会像以前的代码那样打开google网站，请提供帮助！哇！我犯了个大错误

如果globalTimer>=DateAdd（“n”，3，Now），则

应为

如果Now>=DateAdd（“n”，3，globalTimer）然后

除非使用

Call

或使用

的返回值，否则URL周围不应该有括号。导航

。除非使用

Call

或使用

的返回值，否则URL周围不应该有括号。导航

。