简单的ie拦截

' 引用ieframe.dll Private Sub Command1_Click() Dim w Dim s As New SHDocVw.ShellWindows For Each w In s If InStr(w.LocationURL, "baidu.com") > 0 Then w.Navigate ("www.google.cn") End If Next End Sub '百度要疯了