如何获取Google Chrome浏览器最前面页面地址栏内容

aman1516

ivccav 发表于 2023-2-8 14:19

Win7无法使用Edge浏览器...

试了，还是不行

lss001

aman1516 发表于 2023-2-8 15:46
Win7无法使用Edge浏览器...

试了，还是不行

如果不是Edge浏览器
可以使用spy++工具查看窗口类名
再更换一下附件类名即可

aman1516

lss001 发表于 2023-2-8 16:35
如果不是Edge浏览器
可以使用spy++工具查看窗口类名
再更换一下附件类名即可

本身就是 Chrome 浏览器，能用 Chrome_WidgetWin_1 找到窗口名称，查类型是一样的
Sub webtClassName()
    Dim myHwnd As Long, hwnd As Long
    Dim myClassName As String * 100
    Dim myCaption As String * 80
    Dim myRow As Long
    hwnd = FindWindow("Chrome_WidgetWin_1", vbNullString)
    MsgBox GetWindowName(hwnd)
    myHwnd = FindWindow(vbNullString, GetWindowName(hwnd))
    GetClassName myHwnd, myClassName, Len(myClassName)
    MsgBox Left(myClassName, InStr(myClassName, vbNullChar) - 1)
End Sub

lss001

aman1516 发表于 2023-2-8 16:55
本身就是 Chrome 浏览器，能用 Chrome_WidgetWin_1 找到窗口名称，查类型是一样的
Sub webtClassName()
...

浏览器中类名→
Chrome_WidgetWin_1
可能不止一个

aman1516

lss001

aman1516 发表于 2023-2-8 13:47
无任何提示，GetChromeUrl值为空，未能获取

可检查一下是否缺少引用
Accessibility//oleacc.dll

objAcc完整的引用应该是:
Dim objAcc As Accessibility.IAccessible

aman1516

lss001 发表于 2023-2-8 20:45
可检查一下是否缺少引用
Accessibility//oleacc.dll

oleacc.dll有的，并重新注册过，
改 Dim objAcc As Accessibility.IAccessible 后此句反而直接出错，
原来是能执行的，

唉，一个简单的问题想不到却如此折腾......

wanghan519

实在不想斗智斗勇可以试一下笨办法，浏览器装个vimium-c插件（用快捷键控制浏览器，也可自定义js脚本）

1. $a=New-Object -ComObject wscript.shell
   
2. $a.AppActivate('Excel VBA程序开发');$a.sendkeys('yy')

复制代码

用标题转到浏览器，sendkeys('yy')即可复制浏览器地址，yy是vim里复制的意思

lss001

aman1516 发表于 2023-2-8 23:19
oleacc.dll有的，并重新注册过，
改 Dim objAcc As Accessibility.IAccessible 后此句反而直接出错，
...

不是scrrun.dll
而是oleacc.dll

ivccav

我特意安装了该浏览器试试，可以获得的