| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- Webbrowser能否自定义UserAgent (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=113206) |
| -- 作者：天若千颖 -- 发布时间：2018/1/11 9:27:00 -- Webbrowser能否自定义UserAgent 为了显示移动版网页，需要将浏览器伪装成手机浏览器，UserAgent定义为： Mozilla/5.0 (iPhone 6s; CPU iPhone OS 10_3_1 like Mac OS X) AppleWebKit/603.1.30 (KHTML, like Gecko) Version/10.0 MQQBrowser/7.6.0 Mobile/14E304 Safari/8536.25 MttCustomUA/2 QBWebViewType/1 WKType/1 请教版主能否实现？
|
| -- 作者：有点甜 -- 发布时间：2018/1/11 10:30:00 -- 很简单，参考
https://www.cnblogs.com/hanxianlong/p/4315415.html
https://www.cnblogs.com/ashui/p/5490939.html
两种方法，你分别测试吧，如果要把c#代码转vb.net，参考 http://converter.telerik.com/
|
| -- 作者：天若千颖 -- 发布时间：2018/1/11 10:54:00 -- 这两个文章都看到了，但是不知道再FT中怎么写？ Dim brw As WinForm.WebBrowser = e.Form.Controls("WebBrowser1") brw.Address = "http://www.baidu.com" Dim web = brw.basecontrol web.ScriptErrorsSuppressed = True |
| -- 作者：有点甜 -- 发布时间：2018/1/11 11:16:00 -- 比如
webBrowser1.Navigate ("http://www.whatsmyuseragent.com", "_self" , null, "User-Agent: Luke\'s Web Browser");
就写成
Dim brw As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim web = brw.basecontrol
web.ScriptErrorsSuppressed = True
web.Navigate ("http://www.whatsmyuseragent.com", "_self" , nothing, "User-Agent: Luke\'s Web Browser") [此贴子已经被作者于2018/1/11 11:17:16编辑过]
|
| -- 作者：有点甜 -- 发布时间：2018/1/11 11:19:00 -- 这样写即可，测试有效
Dim brw As WinForm.WebBrowser = e.Form.Controls("WebBrowser1") |
| -- 作者：天若千颖 -- 发布时间：2018/1/11 12:32:00 -- 多谢版主！ |