vb 实现监控ie浏览过的网址
程序运行后,动态监控ie(ie6,ie7)打开过的网址。并保存到一个文本文件里。要注意每个网址都要记录下来。并且不要重复。有源代码的最好。
为了防止小孩误入非法网站。帮帮忙了。重谢! --------------------编程问答-------------------- --------------------编程问答-------------------- 不懂,up --------------------编程问答-------------------- --------------------编程问答-------------------- 不懂,up --------------------编程问答-------------------- 不知道是要监控IE还是直接监控网络数据流
不知道瑞星他们是怎么做的,应该不是监控IE吧 --------------------编程问答-------------------- 粗糙的方法可以利用ShellWindows对象枚举所有打开的IE浏览器,然后把每个浏览器的事件挂接到一个webbrowser对象上,然后捕获WebBrowser.BeforeNavigate2事件进行URL过滤拦截。
还有可以实现一个BHO插件,进行比较细致的操作过滤。 --------------------编程问答-------------------- 楼主为了孩子也来学编程啊......不错,顶!
我上一个"粗糙"的代码:)应该够你用了:
Option Explicit
Private Sub Form_Load()
'需要引用Microsoft Internet Controls对象
Dim WebCount As SHDocVw.ShellWindows
Dim tmpI As Long, tmpWeb As WebBrowser
Set WebCount = New SHDocVw.ShellWindows
MsgBox "已经打开" & WebCount.Count & "个网页"
For tmpI = 0 To WebCount.Count - 1
Set tmpWeb = WebCount.Item(tmpI)
Debug.Print tmpWeb.LocationURL 'URL打印
Debug.Print tmpWeb.LocationName '标题打印
Next
Set tmpWeb = Nothing
End Sub
SHDocVw.ShellWindows下面有个ITEM方法,返回的对象就是WebBrowser类型的.
每个ITEM里的成员就代表一个WebBrowser实例.
代码里面在立即窗口里打印了当前的URL与其标题.
参考文章:
http://topic.csdn.net/t/20050704/21/4122689.html --------------------编程问答-------------------- 另外......我建议你使用另一套方案:
用BHO
然后自己做点病毒,威力为让小家伙无法对付的程度:)
先看看他去过哪些网站,然后如果发现了不好的站,就触发此病毒.
要是你直接就提着这些URL去修理他,那么小孩对你的信任将再也没有了.
产生了信任危机,你这老爸就不好做了:) --------------------编程问答-------------------- --------------------编程问答-------------------- bho我不懂,谁懂能教我一下?
7楼大哥的方法我早用过了,可以监控。
但是不能动态监控。加个timer可以解觉,但我个人感觉效果不好。
六楼大哥说的“把每个浏览器的事件挂接到一个webbrowser对象上,然后捕获WebBrowser.BeforeNavigate2事件进行URL过滤拦截”这个看以来不错能不能赏给代码。谢谢!!!!!!!!!!!! --------------------编程问答-------------------- 截取封包,分析保存 --------------------编程问答-------------------- --------------------编程问答-------------------- 不懂,帮顶 --------------------编程问答-------------------- 我以前好像写得有
给你找找 --------------------编程问答-------------------- ie自身有历史(履历),看过的网页都有,不用程序也可以,
你家小孩要是知道删除历史的话。
那我先恭喜你,你生了个天才宝贝。
在同情你。这家伙厉害。 --------------------编程问答-------------------- 超级简单
withevents个IE对象就有了.
老马,交给你了.
补充:VB , COM/DCOM/COM+