至于IE,这样调用 Private Sub Command1_Click() On Error GoTo errorhandler Set Explorer = New SHDocVw.InternetExplorer Explorer.Visible = True Explorer.ToolBar = False Explorer.Navigate "www.sohu.com" Exit Sub errorhandler: MsgBox "Error displaying file", , Err.Description End Sub
http://www.applevb.com/sourcecode/delete%20history.zip
可以实现对IE的History列表的读取和删除其中的某些项。
Private Sub Command1_Click()
On Error GoTo errorhandler
Set Explorer = New SHDocVw.InternetExplorer
Explorer.Visible = True
Explorer.ToolBar = False
Explorer.Navigate "www.sohu.com"
Exit Sub
errorhandler:
MsgBox "Error displaying file", , Err.Description
End Sub