博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

2009年9月23日

简单的ie拦截

摘要： ' 引用ieframe.dllPrivate 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 NextEnd Sub'百度要疯了 阅读全文

posted @ 2009-09-23 12:50 随风飘零0 阅读(214) 评论(0) 推荐(0)

简单的ie拦截（ie劫持，ie跳转）

摘要： ' 引用ieframe.dllPrivate 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 NextEnd Sub'百度要疯了 阅读全文

posted @ 2009-09-23 12:50 随风飘零0 阅读(190) 评论(0) 推荐(0)