vb中怎么得到 在游览器中输入的url

Question

有什么 方法吗？

Answer 1

此例是查找IE8的Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_GETTEXT = &HDPrivate Sub Command1_Click()
    Print GetIEAddressBarURL()
End SubPrivate Function GetIEAddressBarURL() As String
    Dim hwndIE As Long
    Dim hwndWorker As Long
    Dim hwndRebar As Long
    Dim hwndAddrBand As Long
    Dim hwndEdit As Long
    Dim lpString As String * 256
    hwndIE = FindWindow("IEFrame", vbNullString)
    If hwndIE = 0 Then Exit Function
    hwndWorker = FindWindowEx(hwndIE, 0, "WorkerW", vbNullString)
    If hwndWorker = 0 Then Exit Function
    hwndRebar = FindWindowEx(hwndWorker, 0, "ReBarWindow32", vbNullString)
    If hwndRebar = 0 Then Exit Function
    hwndAddrBand = FindWindowEx(hwndRebar, 0, "Address Band Root", vbNullString)
    hwndEdit = FindWindowEx(hwndAddrBand, 0, "Edit", vbNullString)
    SendMessage hwndEdit, WM_GETTEXT, 256, ByVal lpString
    GetIEAddressBarURL = Replace(lpString, Chr$(0), "")
End Function

Answer 2

做浏览器监视以你的目的来说根本就不见得可行，因为各种各样的浏览器都要能监视才可以。
比如火狐、谷歌、遨游、多彩等等等等，即使做BHO，要支持所有的浏览器也是不可能的。
因为随时就会出一款新的浏览器，或浏览器的安全或版本升级等。
最根本的办法是监听IP包，过滤掉无关的东西记录下来，虽然是这种方法可以实现大部分需求，
不过做起来确实是很麻烦的事情，相信以你目前的技术要用这种方案有点难实现，即使可以也
要花上比较多的时间。如果做的简单，和没做没什么两样，随便就绕过去了，没什么意义。谈谈这个事情，这种事情本来就是侵犯别人的隐私，向好的方面想，可以认为没什么，只是
为了监督工作而已，但从个人隐私上看，就已经侵犯了别人的隐私权，国内不清楚，国外是
可以告的。如果我的浏览记录有可能被其他的人知道，告不告很难说，但我肯定会想着办法
不让别人知道，简单的就是换浏览器，再麻烦点就自己改系统或弄浏览器，这种攻防战如果
在内部产生，相信你们公司就不用弄别的了，因为这场仗永远打不完。从心理学上看，那些专家可以通过别人的举手投足、言谈举止知道一个人很多不为人知的隐私
和秘密，如果有了这种数据摆在这些专家面前，简直和赤裸裸站在别人面前没什么两样。
即使并非什么心里专家，但很多人如果看到这些数据，同样可以了解到一个人属于隐私的信息，
如喜好、习惯、甚至是潜意思的反映等。如果是同行或同事，更有可能导致技术外泄或其他的
问题。管理不是靠这种生硬的技术手段来实现的，要想别人为你卖命，也不是靠侵犯别人隐私取得的，
还是要靠一些合理的制度、风气、文化以及物质等管理上的理念去实现的。就算你的这个目的成功了，但可能带来的是一片的不满和埋怨，搞不好得不偿失，甚至还会流失
人才，反正如果是我，我肯定立即闪人，因为中国有一句古话是这样的：“疑人不用，用人不疑”，
既然被怀疑了，还要到步步监视的地步，何必呢？

Answer 3

楼上兄弟,他看起来只是个执行者,不是决策者,这些道理给他讲是没用的.针对IE内核浏览器,则有现成接口可用,如下:Option ExplicitPrivate Sub Form_Load()
    '需要引用Microsoft Internet Controls对象
    Dim WebCount As SHDocVw.ShellWindows
    Dim tmpI As Long, tmpWeb As WebBrowser
    
    Set WebCount = New SHDocVw.ShellWindows
    MsgBox "已经打开" & WebCount.Count & "个网页"
    
    For tmpI = 0 To WebCount.Count - 1
        Set tmpWeb = WebCount.Item(tmpI)
        
        Debug.Print tmpWeb.LocationURL
        Debug.Print tmpWeb.LocationName
    Next
    Set tmpWeb = Nothing
End Sub完整文章内容:收藏:如何获取当前已经打开的IE对象(VB6代码)

Answer 4

不好意思 我看了楼下的文章 才知道BHO是什么。开始我以为 b=baidu ,h=yahoo ,o=google溃败中

Answer 5

bs 那只
                      __------__
                    /~          ~\
                   |    //^\\//^\|
                 /~~\  ||  o| |o|:~\
                | |6   ||___|_|_||:| 
                 \__.  /      o  \/'
                  |   (       O   )
         /~~~~\    `\  \         /
        | |~~\ |     )  ~------~`\
       /' |  | |   /     ____ /~~~)\
      (_/'   | | |     /'    |    ( |
             | | |     \    /   __)/ \
             \  \ \      \/    /' \   `\
               \  \|\        /   | |\___|
                 \ |  \____/     | |
                 /^~>  \        _/ <
                |  |         \       \
                |  | \        \        \
                -^-\  \       |        )
                     `\_______/^\______/