Board logo

标题: [API] 问题:如何用VB实现替换当前浏览网址并在当前浏览器中打开 [打印本页]

作者: pxczsw    时间: 2012-7-15 15:06     标题: 问题:如何用VB实现替换当前浏览网址并在当前浏览器中打开

问题:如何用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
作者: Nothing    时间: 2012-7-27 19:37

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




欢迎光临 编程开发论坛 (http://bbs.lihuasoft.net/) Powered by Discuz! 6.0.0