查看完整版本: 问题：如何用VB实现替换当前浏览网址并在当前浏览器中打开

问题：如何用VB实现替换当前浏览网址并在当前浏览器中打开

问题：如何用VB实现替换当前浏览网址并在当前浏览器中打开
老大，你好！
因为工作需要，我们需要在本单位实现：
1、        当几千名员工中的任何一员在本单位工作站的浏览器（有可能是IE、360也有可能是其它）上输入[url]www.123.com[/url],即刻要更换为[url]www.234.com[/url]，并在当前浏览器窗口打开（即替换原[url]www.123.com[/url]的内容，自动跳转至[url]www.234.com[/url]，并非另外打开一个页面）；
2、        用VB编程形成一个插件，常驻内存，系统重启自动运行，要求每员工必须安装。安装完成后，少占资源，不卡不闪，不影响本地操作，正常工作，支持所有浏览器；
3、        此插件必须能实时监控浏览器上用户输入的网址，若为[url]www.123.com[/url],则更换为[url]www.234.com[/url]，并在当前浏览器窗口打开。其它网址正常浏览，不作处理。
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
   
'劫持[url]http://www.123.com/[/url]的链接
If m_Url = "http://www.123.com/" Then        '判断是否来自[url]www.123.com[/url]首页
n_Url = "http://www.234.com"        '直接换成[url]www.234.com[/url]
r = ShellExecute(0, "open", n_Url, 0, 0, SW_SHOW)  '打开[url]www.234.com[/url]
End If
End Sub

[url]http://www.cxy.me/bbs/view21-36280-1.htm#36280[/url]
[url]http://club.topsage.com/forum.php?mod=forumdisplay&fid=317&filter=typeid&typeid=1223[/url]
[url]http://www.vbgood.com/forum-9-1.html[/url]

[url]http://www.lihuasoft.net/download/show.php?id=36[/url] 看这个源代码