用VB 6.0编写网页定时自动刷新器的源代码

其实用vb6制作一个定时刷新的小软件非常简单的，只需要一个控件就可以了
利用 WebBrowser 控件实现自动刷新的
要添加Microsoft Internet controls 部件 如图
 


界面自己设计

代码

Private Sub Command1_Click()
WebBrowser1.Navigate Text1.Text
Timer1.Interval = Text2.Text
End Sub
Private Sub Command2_Click()
Timer1.Interval = 0
End Sub
Private Sub Command3_Click()
WebBrowser1.Navigate Text1.Text
End Sub
Private Sub Timer1_Timer()
WebBrowser1.Refresh
End Sub
Private Sub Form_Resize()
WebBrowser1.Width = Form1.ScaleWidth - 250
WebBrowser1.Height = Form1.ScaleHeight - 250
End Sub
Private Sub RichTextBox1_SelChange()
RichTextBox1.SelStrikeThru = True
End Sub

上一个：真真好用vb6 webbrowser 禁示弹出js错误对话框的代码
下一个：vb6编写自动刷新网页的程序代码