Question

//我想每15分钟运行一次这段代码，同时让网页保持活跃状态。

Private Async Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

    Dim y As Integer
    y = 0
    Do While y = 0

        Dim x As Integer
        For x = 0 To TextBox5.Text - 1 Step 1

            Dim allelements As HtmlElementCollection = WebBrowser1.Document.All

            For Each webpageelement As HtmlElement In allelements

                If webpageelement.GetAttribute("value") = "renew" Then

                    webpageelement.InvokeMember("click")
                    Await Task.Delay(4000)
                End If

            Next

            WebBrowser1.Navigate("*MYLINK*")

        Next
    Loop

End Sub

Answer 1

将代码放入计时器，并将计时器的间隔设置为900000.只是一个建议：D

Dunno是否可行。

作为对你评论的回答：

在Designer模式下添加计时器，转到它的属性并将Interval设置为900000.然后双击计时器并执行以下代码：

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    WebBrowser1.Refresh()
End Sub

此代码在计时器滴答时刷新站点。每个＆lt;间隔＆gt;毫秒。

但如果登录时间在15分钟后出现，我建议将计时器的间隔时间降低到840000.这是14分钟。

Answer 2

最佳方式是为您的应用添加定时器并将其设置为启用且间隔为900000 = 15分钟

如何让我的vb应用程序每15分钟运行一次并使网页保持活动状态

2 个答案: