[求助]WebBrowser如何获取User-Agent - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]WebBrowser如何获取User-Agent

共有4084人关注过本帖树形打印复制链接主题：[求助]WebBrowser如何获取User-Agent

haotinghua

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：一尾狐帖子：459 积分：3842 威望：0 精华：0 注册：2016/8/21 3:43:00

[求助]WebBrowser如何获取User-Agent 发帖心情

Post By：2022/1/22 2:16:00 [只看该作者]

获取当前网页：web.Document.Url.AbsoluteUri

获取当前cookie: web.Document.cookie

都已经成功

如何获取User-Agent呢？

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：109505 积分：557193 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/1/22 9:10:00 [只看该作者]

试试

……

Dim window As Object = web.Document.Window.DomWindow

Dim wt As Type = window.[GetType]()

Dim navigator As Object = wt.InvokeMember("navigator", BindingFlags.GetProperty, Nothing, window, New Object() {})

Dim nt As Type = navigator.[GetType]()

Dim userAgent As Object = nt.InvokeMember("userAgent", BindingFlags.GetProperty, Nothing, navigator, New Object() {})

msgbox(userAgent.ToString())

haotinghua

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：一尾狐帖子：459 积分：3842 威望：0 精华：0 注册：2016/8/21 3:43:00

Post By：2022/1/23 2:24:00 [只看该作者]

谢谢蓝版，我前面也在百度上查到类似相关的，但是跟之前的问题一样，将你的代码无法保存（放到按钮中），这个变量或控件不知道该怎么声明，搜索和研究了几个小时，还是没有解决，如何调整这部分代码呢

此主题相关图片如下：微信图片_20220123022250.png

[此贴子已经被作者于2022/1/23 2:27:57编辑过]

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：109505 积分：557193 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/1/23 20:57:00 [只看该作者]

写全命名空间

Dim navigator As Object = wt.InvokeMember("navigator", System.Reflection.BindingFlags.GetProperty, Nothing, window, New Object() {})

主题：[求助]WebBrowser如何获取User-Agent