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


  共有4083人关注过本帖树形打印复制链接

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

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109503 积分:557183 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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())

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109503 积分:557183 威望: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() {})


 回到顶部