目前的思路是一个窗体,两个文本框,text1内容是要监控的网页网址,text2内容是要监控词汇,一个按钮,command1是启动监控,整个程序的用途是每隔1分钟刷新页面,发现页面中存在设定的词汇,就声音报警第一次用VB就想编个这样的程序还真有点为难自己,希望大虾们指点一下,越细致越好啦:)
解决方案 »
- 大家看看我这段VBS脚本代码那里有错误?
- 大家帮忙一下
- Clipboard.SetData Form1.Picture, 9
- MSFlexGrid多行选择问题
- 请教:如何在运行时判断一个控件是不是command控件
- 怎样判断对象移动到了窗体的边界?
- 晶晶的第二篇口水话:"API函数在VB中的应用",今天来一点稍高级的,省得大家嫌简单(API相关)
- 大哥帮帮忙啊????给点反应呀!!!就算没人知道也说一声啊!
- 高分相送用VB开发过基于oracle的程序的高手
- 急急急 5月14我要完蛋了!!!!!!!
- word表格处理,带拆分表的转换,急 QQ:160103088 [email protected]
- 登陆框的代码问题 清高手指教
则表明没有这个词汇,反之是有。
http://msdn.microsoft.com/archive/default.asp?url=/archive/en-us/samples/internet/browser/walkall/default.asp
2.关键词比较,容易
3.报警,也好实现
因为看网页的工具现在太多了,比如腾讯TT、MyIE、火狐浏览器、IE浏览器等等,甚至自己都可以开发。
目标不同方案也会不同。
如果是针对IE浏览器,那么用BHO技术可以很好的实现监控的要求。
如果是其他浏览器,那就要根据其他浏览器的接口或单独识别的方法进行处理。
如果是想对整个网络信息进行监控,那就需要像开发网络防火墙一样的开发程序了。
webbrowser1.navigate "http://www.google.cn/"end subprivate sub webbrowser1_documentcomplete(byval pdisp as object,url as variant)
if webbrowser1.locationurl="http://www.google.cn/" then
codes=webbrowser1.document.body.innertext
if instr(codes,"图片") then
'报警
end if
end if
end sub
imer1.Interval = 60000 '1分钟检查一次Private Sub Timer1_Timer()
CheckUrlKeywords txtURL.Text, txtKeyword.Text
End Sub