Private Sub Command1_Click()
    Dim w
    Dim s As New SHDocVw.ShellWindows
    For Each w In s
        If InStr(w.LocationURL, "google.com") > 0 Then
            w.Navigate ("www.baidu.com")
        End If
    Next
End Sub

------解决方案--------------------
监视键盘
取当前鼠标所在的句柄的类名。

如果类名是浏览器的名下的类名
那么监视键盘输入 进行键码替换。。

------解决方案--------------------
如果是在客户端做，可以监听报文，然后伪造一个302报文给浏览器。
如果在客户端要劫持HTTPS，比较麻烦，要进行HOOK，并且IE/FF的HOOK点都不一样。

如果放在网络出口做，直接伪造一个302或假的内容发给客户端即可。