问题：如何用VB实现替换当前浏览网址并在当前浏览器中打开
老大，你好！
因为工作需要，我们需要在本单位实现：
1、 当几千名员工中的任何一员在本单位工作站的浏览器（有可能是IE、360也有可能是其它）上输入
www.123.com,即刻要更换为
www.234.com，并在当前浏览器窗口打开（即替换原
www.123.com的内容，自动跳转至
www.234.com，并非另外打开一个页面）；
2、 用VB编程形成一个插件，常驻内存，系统重启自动运行，要求每员工必须安装。安装完成后，少占资源，不卡不闪，不影响本地操作，正常工作，支持所有浏览器；
3、 此插件必须能实时监控浏览器上用户输入的网址，若为
www.123.com,则更换为
www.234.com，并在当前浏览器窗口打开。其它网址正常浏览，不作处理。
4、 我已用VB编程了一个初稿，但只能实现网址替换后在一个新的页面打开新网址，不能在当前页面打开，并且不能实时监控浏览器上用户输入的网址，不能常驻内存、不能实现系统重启后自动运行。急需改观，热切期待中；
5、 因兄弟VB编程能力较差，特请高手指点，帮我修改程序，不胜感谢！我初稿程序如下：
Private Declare Function ShellExecute _
Lib "shell32.dll" _
Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) _
As Long
Private Sub Command1_Click()
Dim oShellApp, oShellAppWindows, oWin
Dim m_Url As String
Dim r As Long
Set oShellApp = CreateObject("Shell.Application")
Set oShellAppWindows = oShellApp.Windows
For Each oWin In oShellAppWindows
If LCase(TypeName(oWin.document)) = "htmldocument" Then
m_Url = oWin.LocationURL
End If
Next
'劫持
http://www.123.com/的链接
If m_Url = "http://www.123.com/" Then '判断是否来自
www.123.com首页
n_Url = "http://www.234.com" '直接换成
www.234.com
r = ShellExecute(0, "open", n_Url, 0, 0, SW_SHOW) '打开
www.234.com
End If
End Sub
http://www.cxy.me/bbs/view21-36280-1.htm#36280
http://club.topsage.com/forum.ph ... eid&typeid=1223
http://www.vbgood.com/forum-9-1.html
