用vb做个简单的浏览器 高手请进!

来源：百度知道 编辑：UC知道 时间：2024/06/04 02:20:46
能打开网页即可，还有一个功能就是可以按照我设定的时间打开指定的网址。
要完整的代码哦！谢谢了！！！
还有一点补充是打开的网页是在vb程序中。
可以是vb原文件，满意的话还会再加分。

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If Time = "19:49:30" Then
strurl = Text1.Text
WebBrowser1.Navigate strurl
End If
End Sub

Dim n As Integer
Private Sub Form_Load() '网址自己改
Timer1.Interval = 1000
n = 0
End Sub

Private Sub Timer1_Timer()
If n = Text1 Then '如果text1=2 那么 打开程序两秒后打开网址
WebBrowser1.Navigate "http://www.163.com"
n = 0
Timer1.Interval = 0
End If
n = n + 1
End Sub