以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请问如何监控WebBrowser事件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88524)
--  作者：飞飞
--  发布时间：2016/8/4 14:10:00
--  请问如何监控WebBrowser事件
 比如最简单的，监控并保存打开过的所有url。
非常感谢。。
--  作者：大红袍
--  发布时间：2016/8/4 14:55:00
--  

 绑定事件

 

 
--  作者：大红袍
--  发布时间：2016/8/4 14:58:00
--  

全局代码

 

Public Sub web_DocumentCompleted(sender As object, e As windows.forms.WebBrowserDocumentCompletedEventArgs)
    msgbox(e.Url.ToString)
End Sub

 

 

 

afterLoad事件

 

Dim web As windows.Forms.webbrowser = e.Form.Controls("WebBrowser1").basecontrol
web.ScriptErrorsSuppressed = True
addhandler web.DocumentCompleted, addressof web_DocumentCompleted
--  作者：飞飞
--  发布时间：2016/8/4 15:01:00
--  
以下是引用大红袍在2016/8/4 14:58:00的发言：

全局代码

 

Public Sub web_DocumentCompleted(sender As object, e As windows.forms.WebBrowserDocumentCompletedEventArgs)
    msgbox(e.Url.ToString)
End Sub

 

 

 

afterLoad事件

 

Dim web As windows.Forms.webbrowser = e.Form.Controls("WebBrowser1").basecontrol
web.ScriptErrorsSuppressed = True
addhandler web.DocumentCompleted, addressof web_DocumentCompleted

谢谢！！好用