- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]WebBrowser如何获取User-Agent (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=174585)
-- 发布时间：2022/1/22 2:16:00
-- [求助]WebBrowser如何获取User-Agent
获取当前网页：web.Document.Url.AbsoluteUri
获取当前cookie: web.Document.cookie
都已经成功
如何获取User-Agent呢？
-- 发布时间：2022/1/22 9:10:00
--
https://www.baidu.com/baidu?ie=UTF-8&word=WebBrowser%E5%A6%82%E4%BD%95%E8%8E%B7%E5%8F%96User-Agent
试试
……
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())
-- 发布时间：2022/1/23 2:24:00
--
谢谢蓝版，我前面也在百度上查到类似相关的，但是跟之前的问题一样，将你的代码无法保存（放到按钮中），这个变量或控件不知道该怎么声明，搜索和研究了几个小时，还是没有解决，如何调整这部分代码呢
此主题相关图片如下：微信图片_20220123022250.png
[此贴子已经被作者于2022/1/23 2:27:57编辑过]
-- 发布时间：2022/1/23 20:57:00
--
写全命名空间
Dim navigator As Object = wt.InvokeMember("navigator", System.Reflection.BindingFlags.GetProperty, Nothing, window, New Object() {})