定时自动刷新页面工具

昨天碰到个网站，要靠在线时间兑换点数才能下载这个网站的资料，所以做了个自动刷新页面的小工具，每隔几分钟刷新一下页面来防止自动退出登陆，功能相当简单。

自动刷新页面工具

点击这里下载AutoRefresh.exe

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "开始" Then
Timer1.Interval = TextBox1.Text * 60 * 1000
Timer1.Enabled = True
Button1.Text = "结束"
Else
Timer1.Enabled = False
Button1.Text = "开始"
End If
End Sub

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

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

WebBrowser1.Navigate(TextBox2.Text)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox2.AutoCompleteSource = AutoCompleteSource.HistoryList
WebBrowser1.Navigate("http://ai-2.cn")
End Sub

Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
System.Diagnostics.Process.Start("http://ai-2.cn")
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
WebBrowser1.Refresh()
End Sub
End Class