法国双飞人药水怎么用:求助！用VB编写一个类似IE浏览器的简单程序！

http://www.jxxx.ykedu.net/qsgjx/vbprograms/netware/index.htm
选择网络---选择第13个--然后下载,超级快,2秒就下载完了

Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
WebBrowser1.Navigate Combo1.Text
Combo1.AddItem CommonDialog1.FileName
WebBrowser1.Navigate Combo1.Text
Combo1.AddItem CommonDialog1.FileName
End If
End Sub

Private Sub Command1_Click()
Combo1.AddItem CommonDialog1.FileName
WebBrowser1.Navigate Combo1.Text
Combo1.AddItem CommonDialog1.FileName
End Sub

Private Sub Command2_Click()
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
WebBrowser1.Navigate CommonDialog1.FileName
Combo1.Text = CommonDialog1.FileName
Combo1.AddItem CommonDialog1.FileName
End If
End Sub

Private Sub Command3_Click()
CommonDialog1.ShowSave
End Sub

Private Sub Command4_Click()
On Error GoTo handle
WebBrowser1.GoBack
Exit Sub
handle:
MsgBox "前面没有Web页", vbExclamation, "警告"
End Sub

Private Sub Command5_Click()
On Error GoTo handle
WebBrowser1.GoForward
Exit Sub
handle:
MsgBox "后面没有Web页", vbExclamation, "警告"
End Sub

Private Sub Form_Load()
WebBrowser1.Left = 0
WebBrowser1.Top = 1500
WebBrowser1.Width = Form1.Width - 120
WebBrowser1.Height = Form1.Height - 1650
CommonDialog1.Filter = "html files(*.htm)|*.htm|text files(*.txt)|*.tet|all files(*.*)|*.*|"
End Sub

Private Sub WebBrowser1_TitleChange(ByVal Text As String)
Form1.Caption = Combo1.Text
On Error Resume Next
WebBrowser1.Left = 0
WebBrowser1.Top = 1500
WebBrowser1.Width = Form1.Width - 120
WebBrowser1.Height = Form1.Height - 1650
End Sub

网上多的很
搜一个就OK了~~