简单的ie拦截（ie劫持，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 '百度要疯了