摘要：
' 引用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 阅读(207) 评论(0) 推荐(0) 编辑