- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 内置浏览器浏览网页，怎么模拟鼠标点击 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=138529)
-- 发布时间：2019/8/2 17:56:00
-- 内置浏览器浏览网页，怎么模拟鼠标点击
Dim 变量名 As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
用内置浏览器浏览网页，怎么模拟鼠标点击网页中指定按钮或链接，并在内置浏览器返回点击后的结果显示，如：如何模拟点击以下网页中的 <li>
请大神帮助
-- 发布时间：2019/8/2 20:17:00
--
参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=32808
-- 发布时间：2019/8/2 23:48:00
--
老师，又遇到了另一个问题，浏览器兼容的问题：
我们监测到您正在使用一个与我们的系统不兼容的浏览器,为了保证系统正常使用建议您升级或使用谷歌、360安全浏览器极速模式或IE11(XP系统的IE浏览器中能升级到IE8)。
如何解决-- 发布时间：2019/8/3 9:04:00
--
参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=99436
-- 发布时间：2019/8/3 18:13:00
--
装了Microsoft Edge浏览器 不行老师有没有方法？
-- 发布时间：2019/8/3 18:19:00
--
兼容问题是个大问题。我都已经放弃了。只用了一小部分功能
-- 发布时间：2019/8/4 0:27:00
--
是否可以应用这个完美解决：http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90320
|
1、全部解压到狐表安装目录
3、代码
Dim wv As new CefSharp.WinForms.WebView()
wv.Address = "http://www.foxtable.com/"
wv.Parent = e.Form.baseform
wv.Dock = System.Windows.Forms.DockStyle.Fill
Dim pnl As WinForm.Panel = e.Form.Controls("Panel1")
pnl.basecontrol.controls.add(wv) |
以上是可以完整显示网页，没有报错
那如果可以，回到问题本身：内置浏览器浏览网页，怎么模拟鼠标点击 ，应用上述方法，怎么写代码？
请老师帮助！
[此贴子已经被作者于2019/8/4 0:27:49编辑过]
-- 发布时间：2019/8/4 11:31:00
-- edge 完美解决了
第一步
1.打开 C:\\Users\\用户名\\AppData\\Local\\Packages
2.找到并改名件夹 Microsoft.MicrosoftEdge_8wekyb3d8bbwe
第二部
1、在开始菜单内输入“regedit.exe”，进入注册表编辑器
2、32位系统找到注册表项：HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Internet Explorer\\MAIN\\FeatureControl\\FEATURE_BROWSER_EMULATION
64位系统找到注册表项：HKEY_LOCAL_MACHINE\\SOFTWARE\\Wow6432Node\\Microsoft\\Internet Explorer\\MAIN\\FeatureControl\\FEATURE_BROWSER_EMULATION
3、在右侧空白区域内单击鼠标右键，点击【新建】→【DWORD（32-位）值】 修改为 foxtable.exe 十进制 11001
大功告成