说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

如何设置webbrowser控件,使它打开的网页不跳出那些广告框?如何屏蔽当提交网页后,网页弹出的反馈框?

编辑:说三道四文库 发布时间:2017-01-21 10:32
HTML文档下载 WORD文档下载 PDF文档下载
1、如何设置webbrowser控件,使它打开的网页不跳出那些广告框?
比如:
Private Sub Command1_Click()
WebBrowser1.Navigate2 "www.163.com"
End Sub

会跳出很多广告框。如何屏蔽掉?
2、如何屏蔽当提交网页后,网页弹出的反馈框?
比如:当填写
      http://mark.yalaso.net/mark_post1.asp
后,按“提交资料”,则会返回类似“你的信息已经发表成功,稍后会发表在跳蚤市场”的信息,如何在VB里用webbrowser控件屏蔽掉该网页的反馈信息框?

谢谢先!
我也想要,有的话给我,谢谢
518@15518.com
在 OnNewWindow事件
 Cancel = true
newwindow2事件中
Cancel = true
主要采用如下
Public Flag as Boolean 
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
    Cancel=Flag
End Sub
当flag=True时屏蔽弹出窗口
  Flag=False时不起作用
关键要控制好Flag的值,以防止所有的弹出窗口都被屏蔽
http://www.skycn.com/soft/11498.html
这是我做的,你可以参考一下.
我这还有一个关于WebBrowser控件的程序,可以对你有帮助,对程序改动一下,可实现你还要的功能。email:luckyhorsew@163.com
谢谢楼上几位大侠!
    但我加了下面的代码
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
    Cancel=Flag
End Sub
加到我的代码里后,好像也屏蔽不了问题2的那个跳出来的提示框.(“你的信息已经发表成功,稍后会发表在跳蚤市场”)

怎么办?
Flag换成True
啊,sorry,我其实是
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
    Cancel=true
End Sub
的,只是copy时copy错了地方。但就是这个代码也是不行.

请教!

是啊,这个功能我也要
大哥,我可完成这个任务了,这都困了我好几年了
webbrowser1.Silent = True
太简单了,交个朋友吧
QQ:23232300
Email:518@15518.com
这可是我从delphi里面看到的,本人对网络非常喜欢,建议做网络编程以后大家不要用vb了,没用的,就学delphi吧,强烈推荐呀
学VC吧,我也强烈推荐。
应该是findwindow然后sendkeys("(enter)")就可以了
我发现下面的代码:
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
    Cancel=true
End Sub
可以解决我的第一个问题:
1、如何设置webbrowser控件,使它打开的网页不跳出那些广告框?
比如:
Private Sub Command1_Click()
WebBrowser1.Navigate2 "www.163.com"
End Sub

会跳出很多广告框。如何屏蔽掉?

但webbrowser1.Silent = True还是不行。不知xiaoyao961(逍遥浪子) 大侠是怎么达到的。我是说在VB里,而不是dephi里。

另:我的第二个问题:
2、如何屏蔽当提交网页后,网页弹出的反馈框?
比如:当填写
      http://mark.yalaso.net/mark_post1.asp
后,按“提交资料”,则会返回类似“你的信息已经发表成功,稍后会发表在跳蚤市场”的信息,如何在VB里用webbrowser控件屏蔽掉该网页的反馈信息框?
就算用了
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
    Cancel=true
End Sub
也是不行。

不知哪位大侠可以到该网站试一试,帮找到办法。
谢谢先!
呵呵。。你的VB这么牛。。
帮你up
up
dim lwnd as long
lwnd = FindWindow(vbNullString, "Microsoft Internet Explorer")
If lwnd > 0 Then
        Call SendMessage(lwnd, WM_CLOSE, 0, ByVal 0&)
End If
VB如何將 Excel 的文件导入 Access文件? VB如何判断数据中是否存在某一表或查询 VB如何删除FoxPro数据库的数据? VB如何设置对VB数据库连接的动态路径 VB如何使用 ADO 來压缩或修复 Microsoft Access 文件 VB如何修改Foxpro数据库(不是用VB实现的,不过也可以看看) VB如何在 SQL 语句中使用日期? 返回 VB如何在表中保存单引号? VB如何抓出 Access 的 Table 欄位中的【敘述】部份呢? 实现Access数据库的Web查询-VB资料 使用Visual Basic访问数据库几个注意的问题 数据库查询-VB资料 数据约束控件和 RecordSet-VB资料 锁住数据库中的表 -VB资料 谈谈VB的数据库编程方式 为VB5辩解: VB处理数据库时求数据表记录总数的最佳方法 为什么安装后的数据库应用总是路径不对或找不到? 返回 -VB资料 无论如何,就是只能输入数字-VB资料 VB用 DAO 或 ADO 正确访问 Access 2000 VB用CELL组件显示Access数据库的图片对象 VB用DAO打开Excel文件 VB用DATA控件绑定报表控件打印报表 VB用EXCEL来打印报表并生成折线图 VB用EXCEL组件简化VB编程的一种方法 VB用MDB文件做密码库 VB用ODBC API访问ODBC数据库 用VB 实现类电子表格的数据录入 用VB5直接控制Excel 97 用VBA编制Access的查询程序 用VB和RDO访问SQL Server 用VB开发多通道仪表数据采集程序 这么晚了还有哪位大仙在 立即给分,寻求操作Formula One 的代码!谢谢 斑竹, 斑竹, 你等我结了帖子再删, 好吗? COM,COM,COM问题急救,快快快 送给phoenixdyy吧, 不要客气呀 在sun网站上到那个地方下栽 Java 类文件? 送给cathy的, 不要客气 我老老实实的学习去, 学不成不会回来的, 大家顺利 为什么我的这个php不执行? 有关CASE工具 请问怎么样将VB程序打包?就是生成一个不需要源代码和没有VB编译器的环境下可以运行的可执行程序。 关于如何做OEM 请教大师 这是所谓的“情”吗?谁碰到过如此谎谬的事~~“我们这样算什么?!” 分值,就那么重要吗?大家来探讨一下! 请问如何用TC或BC或VC实现字符界面下文本阅读器(请尽快复) lemonade请进 请教水平考试 请赐教如何制作WINDOWS下的电子行程表(请尽快复) 号外!!号外!!谁能认真点回答我这个问题? 学了C和JAVA以后,我该学哪中语言? 这么晚了,还有谁在水园? 如何用JSP实现聊天是中的自动滚屏功能? 我的FlashGet,NetAnts全都没有办法下载了!!!急死我了!!! 探讨用专业论坛和新闻组来促销,那位兄弟有经验? 一个简单的问题,大家来看罗。 如何禁止EDIT控件输入? To:pbdesigner兄弟没找到解决的办法,只好修改程序流程避开这个问题8-( 小弟该如何学习? Actinia在吗?问你个问题! 今天又有人送分,he he! VC快玩完了!!!!改学BCB!!!! 一个简单的问题,关于cin的 怎样向listview发送消息? N人上班,按照白、夜、休三班倒,如何每月按此顺序自动排班 TreeView接点如何响应单击事件? 我的一本c++教程,刚刚下载了练习答案,不会用, 请问这是个什么东东问题?(只有这么多分了。。) 一张表内关键字如何互换? 本人想插入一个记录,但该记录的一个字段是一个已经输入的值,你说该用什么函数处理呀?本人想了一个早上也想不出个原因来!!!! 今天真热,一大早爬起来去游泳,感觉真好。这里有喜欢早晨去游泳的吗? DCOM问题。Win2000下的服务器应怎样配置,才能使客户机调用服务器端的DCOM。 再不帮我我就死定了 我要哭了! 痛苦:如果你的头儿叫你帮他修改他写的一大段垃圾代码,你会怎么做办? 工程为什么不能打包? 高手快来。 请问怎么安装PB 那有Acrobat下載,不是Acrobat Reader Foxpro的ODBC,是不是真的就不支持update当前游标的记录....? 怎么在SQLSERVER2K里用存储过程得到的完整的Xml文件,我想用jsp取出来? 典范英语的第6册第1本如何翻译. “他喜欢和老人们交谈、下象棋.”这句话怎么用英语翻译? 先正达与拜耳哪个好 英语翻译 北京市中国的首都吗?用英语怎么翻译 血糖仪,杭州哪里有卖拜耳的血糖仪的啊? 九年级英语116页翻译 英语翻译外国的一个朋友给我发快递.结果小弟很尴尬不知道自己家的英文地址 麻烦帮忙翻译下北京市海淀区太平路47号院 10号楼 甲门 401跪求一个准确无误的翻译~中国北京市海淀区太平路47 英语高手帮我翻译一个地址,请把这个地址翻译成英文:北京市石景山区永乐东小区40楼2门101室.邮编100040 英语翻译人教版的,每个单元的翻译,给30分! 中国的首都是北京,我等不及要去哪儿翻译成英语 英语翻译邮编710048中国陕西省西安市碑林区东关南街古迹岭小区请问这个地址英文邮编写的时候是这样写:Shaanxi Province,P.R.China 710048,还是Shaanxi Province,710048P.R.China 东关南街的英文是 South Dongg 九年级英语书54页阅读翻译 北京是中国的城市,中国的首都.翻译成英文 中国地址翻译 北京市丰台区西罗园三区20号楼1004号 的英文翻译怎么翻?另外,邮编怎么书写 九年级英语教材翻译unit 2 16页短文翻译 题目是He used to cause a lot of trouble. 为什么历代皇帝都要把北京选为首府?能不能再全面点,具体点? 英语翻译韩国京畿道龙仁市处仁区白岩面白岩里409号统一大厦(或hana大厦)309号金龙云 九年级英语9单元sectionB3a翻译关于茶的那个版本! 英语翻译“中国 江西省 南昌市昌北经济开发区 江西财经大学麦庐园静庐E栋620” 英语翻译 求 新目标九年级英语unit14的Reading部分的翻译!急·50分 英语翻译您是昨天那个卖酒的小女孩吗?我是昨天向您要电话中国人.您忘记了吗?电话号码 上面补充一下 英语翻译 新目标九年级英语p137 Unit14 sectionA翻译 英语翻译舟山市定海区临城街道建设大厦C幢13楼 英语翻译:中国的名胜古迹你都听说过哪些? 新目标英语八年级上册unit2 B翻译3a..3b..4 用英文翻译地址香港新界荃湾新村街40号2楼 英语翻译大雁塔小雁塔钟楼大唐芙蓉园兵马俑 英语翻译 英语翻译1.每天要查阅单位重要工作呈阅件,把工作落实到人到位2.活到老学到老将是不懈的追求.3.尽快的熟悉环境,尽快的熟悉人员,尽快的熟悉业务,做到嘴勤、眼勤、手勤. 英语翻译:北京的历史很悠久,还有名胜古迹多,可以吃到很多美食. 人教版七年级上册英语unit2,sectionB 2b的意思Hi,I am Jenny.Here are two nice photos of my family.My grandfather and grandmother are in the first photo. These are my parents,Alan and Mary. In the next picture are my brothers,Bob and Eric. 英语翻译Electronic technology is facilitating thisgrowth by offering access to fare and hotel information and online reservationservices .In Goa,villagers forced to walk to wellsfor their water had to watch as a pipeline to a mew luxury hotel was 英文翻译. 刘德华要在北京开演唱会吗? 英语翻译 英语翻译My college life,let dream fly. 你打算到哪儿度假?英语翻译 英语翻译when people use words and expressions different from the ''shandard language '' ,it is called a dialect .american english has many dialects .especially the midwestern ,southern ,African American and spanish dialects .even in some part of 我和我的家人住在一起.英文翻译 山东省青岛市经济技术开发区北江路7号507室 英文这么翻译 初一英语下册第4单元Reading的翻译 英语翻译“五年前我住在北京”和“我住在北京五年了”分别怎么翻译 “五年前我住在北京”这么翻译行吗——I was living in beijing five years ago 他还想去别的什么地方吗?英文翻译~ 九年级英语上 新目标第14页的课文 翻译 苏教版初一英语上学期第四课reading课文翻译 我们大多数住在像这样的高楼 英语翻译? 新目标九年级所有课文的翻译,不要reading麻烦了~~~~发到wmmshmily123@163.com好的追加~~~~谢谢~~~~ 初一英语下册第三单元Reading翻译 英语翻译 英语翻译 英语翻译初一下册11单元selfcheck3 1.北京市朝阳区十里堡一号院恒泰大厦B座7016室 2.商务部 3.工程部 这三个都是做名片时要翻译成英语的,大 英语翻译 英语翻译”我在等待生命的光芒,生命却在等待我的迷茫.“这句话的翻译 你想象中的拜耳 英语翻译 英语翻译:我想和老人住在一起. 血糖仪拜耳的好不啦?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn