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

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

编辑:说三道四文库 发布时间:2017-08-18 01:17
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
研发周报:超实用的JavaScript技巧及最佳实践 2013最吃香的技能:Java称霸、Android势头正猛 移动周报:最火原型设计工具盘点 “京东电商云”起航,零售企业及品牌商是重点 教育乃立国之本:教育类开源项目大汇集 Hugo Barra首度谈离开谷歌后在中国工作的感受 对中国赞不绝口 母婴行业最早试水者 优谈宝宝借助轻应用全面布局移动产品线 腾讯云平台部总经理纪顺友:微云将彻底迈过文件传输的门槛 豌豆“荚”油!B轮融资1.2亿美元的豌豆荚 2013年终盘点:10款最精巧的硬件开发板 SquareWear:可替代Lilypad Arduino的开发板 开放数据:2014年最热门的竞争领域 IE11虚拟机免费面向广大开发者 九城搭建的一个以Hadoop为基础的大数据平台 Windows 8复杂性的代价到底有多大? 在发布前,第一代iPhone其实并不完善 市场占有率调查:iOS 7秒杀Android 4.4 AWS会赢、OpenStack会消亡、Connected Cars可防僵尸攻击 谷歌以32亿美金收购iPod之父的创业公司Nest 物联网时代来临 微软2014,有你期待的吗? 映趣科技发布inWatch Z/inWatch X 后者采用全彩透明柔性屏 程序员没有天才:暴风影音首席架构师鲍金龙访谈 开放式创新改变世界——OpenStack生态系统将重新洗牌 Java 8最终发布日期敲定,即使有bug也要发布 Meteor PK Django,谁更适合开发实时Web应用? 学编程就像选家具:去宜家还是从种树开始? 前车之鉴 十二个年度最差设计网站汇集 冷暖交替,2014年编程兴衰趋势预测 诺基亚出Android手机,微软或将受惠 苹果不收购Nest的大猜想 Netflix开源S3一致性提升利器S3mper Fi 关于IE中图片的保存 VB 语言支持问题 高分求李维《delphi5.xDELPHI5.X ADO/MTS/COM+高级程序设计》示例源码!!!! 请yangshu进来!给妳点分!!!倒分! 请教各位如何实现dbgrid中按住shift多选的问题? 请问把sql-server7中的数据文件copy出来行吗? 找不到类,请大家帮忙解决,谢谢 异常处理问题 怎样恢复被损坏的"本地用户和组" 小弟在线等待,一小问题,,大家来帮忙?? 求jsp树的原代码 最好是jsp+js+xml 执行效率要高。(从数据库中动态生成的)在线 关于多层结构中事务处理的问题. VB6.0升级到VB.NET的问题。 在ASP中使用ActiveX Control ADOTable表名如何在运行时“递进” 这样的待遇能招到人吗? 不好意思,问个技术问题。其他版实在没人气!只好来这问! 不爽,辞职,散分! 在线等待(100)往一个表的字段赋值,怎么不行啊! 急!在线等待! 如何把一个窗体内嵌到另外一个窗体的指定位置? 电源键设置问题 假设有一个变量CString str,调用str.GetBuffer(ncount);上面函数的参数应该为多少,才能取得缓冲中的全部字串值? 如何做局域网中的机子通讯 有关Enumerations的问题 请教英文语法检查的算法. 给些提示或参考资料好吗? 简单的关于对话框关闭的问题 关于新闻联播! 哪位有USB1或2.0的开发文档或相关资料? 关于JAVA的问题!请教高手~! 在delphi中用什么样的函数可以将十六进制数转换成十进制? 在MotoSDK3.1的moto388c上模拟正常,但换成T720出现严重问题。 开发“办公小助手”,我准备用VB开发,各位给点思路! 在2000下telnet到Solaris机器,c++编译的问题 droplist 女人啊女人 无法进入系统了,请大家帮我看看怎么回事。谢谢! 如何通过串口来读写数据? 急!想要得到机器安装的物理内存数量!最好还能得到锁定的内存数量! 如何在编辑框中输入完后,按回车鍵能响应到一个确定按钮 在delphi 程序中 如何控制 sql server 服务器的启动与关闭,也就是把 sql server 的服务停止,也就是屏幕右下角的 sql server 服务器中的 [欢迎讨论]J2EE之EJB与MySQL 金山毒霸升级的注册码。。。。。。。 请PB高手来看看,因对我今后DW设计会有很大的影响,请尽量详细些。 关于分辨率的问题 发神经,送分了 请教:如何做屏幕保护程序? 如何让窗口自己记住一些东西,100分可以吗? 高手,请教局域网计算机被侵入的问题?(急) 一个很奇怪得问题,急需各位大虾得帮助 请教~~要分我给的 下落不明的明是什么意思? 为什么芳香烃不能与溴水反应?芳香烃就是有苯环类的有机物 概述肺泡和组织内的气体交换 正午牡丹中何以明之?意思 网络上的纠结哦!别人都说什么纠结, 1.关于蓝藻与黑藻共性的叙述,正确的是A.均有双层膜包被的细胞核B.均以DNA为主要的遗传物质C.在线粒体内膜上都发生电子传递过程D.在生态系统中都属于生产者 后见之明是什么意思? 吾未见其明也的其字与也字是什么意思 能张目对日, 求有妇人夜起溲溺这篇文章的翻译 “小学而大遗,吾未见其明也”翻译成现代汉语什么意思? 秋三月,此谓容平,天气以急,出自:秋三月,此谓容平,天气以急,地气以明,早卧早起,与鸡俱兴.使志安宁,以缓秋刑,收敛神气,使秋气平,无外其志,使肺气清,此秋气之应,养收之道也.逆之则伤肺,冬 “秦时妇人”文言文翻译及课后练习 利用化学知识制作日常生活中用到的东西,比如简易净水器、灭火器,求原理方法! 秋天,使农明的笑容格外灿, 不堪吏人妇,岂合今郎君 求翻译古文,thx 英语翻译晋师従齐师,入自丘舆,击马陉.齐侯使宾媚人赂以纪甗、玉磬与地.不可,则听客之所为.宾媚人致赂,晋人不可,曰:“必以萧同叔子为质,而使齐之封内尽东其亩.”对曰:“萧同叔子非他 明什么秋亳 明可分开的意思 透彻点的 我家的鸡为什么不下蛋我家的母鸡下完蛋了就停在鸡肛门里,不下来,这是为什么呢? 明什么秋什么jijijijijiji 道可道非常道 明可明非常明 今年冬天,我的鸡突然就不下蛋了 是为什么啊 高中化学离子共存的题怎么做?谢谢. 初中的第一篇文言文是什么 为什么鸡多不下蛋? 某无色溶液中,若加入溴水,溴水褪色;若加入碳酸氢铵固体,固体溶解并产生刺激性气味的气体.则该溶液中可能大量存在的离子组是A.Na+ K+ Cl- OH- B.H+ Na+ 硫酸根离子 硝酸根离子C.K+ Ca+ OH- 亚硫 一篇初中文言文,求解答 为什么鸡下午不下蛋? 讨论函数连续性这是从参考书上照的例题!题中被我用笔圈出的部分怎么得出来的? 纱布怎么灭菌我在药店买的是医用脱脂棉纱布,上面说出厂时未作灭菌,我要怎么给它灭菌呢·?一定要用高压锅吗~可是我这里没有.还有其他办法吗? 英语翻译小学而大遗,吾未见其明也 且夫水之积也不厚,则其负大舟也无力 谁能帮我翻译下这两句! 脱脂棉的脱脂与漂白 在家里如何为纱布灭菌?我常常需要给褥疮病人换药. 测未知电阻时,分压式中的滑动变阻器为什么应选择电阻较小的?希望详细点. 二氧化碳能不能一步反应得到碳? 什么叫做"郭敬明效应"具体一点点.并且说点例子,关于郭敬明效应的. 用麦克风做噪声测试测试小机芯驱动马达的噪声.驱动马达选用是3V,请问用麦克风测试的话,麦克风选怎么样个标准的?具体可是是什么型号麦克风之类的、、 即热饭盒”底部有两层,一层装 水,另一层是镁粉与铁粉的混 合物 铁的作用是什么,为 什么? 郭敬明为什么叫小四呢? 小学而大遗.吾未见其明也 翻译成汉语 某种即热饭盒用混有少量的铁粉的镁粉与水反应提供热量.将该混合物分成四等分,进行实验,其中所得实验正确的是( )实验操作和现象 实验结论A 用磁铁充分接触混合物,磁体上附有少量黑 当你在老师面前、同学面前评价自己父母时有感触的说道;: 英语翻译哀公十五年:十五年,春,成叛于齐,武伯伐成,不克,遂城输.夏,楚子西,子期,伐吴,及桐汭,陈侯使公孙贞子吊焉,及良而卒,将以尸入,吴子使大宰嚭劳,且辞曰,以水潦之不时,无乃廪然陨大夫 怎样才能判定平衡移动后物质的百分含量是比原来增加还是减少 灭菌纱布与灭菌脱脂纱布有什么区别? 当你在老师、同学面前评价自己父母时,你深有感触地说:“_____,__ ___.” “句读之不知,惑之不解,或师焉,小学而大遗,吾未见其明也. 医用脱脂纱布家庭如何杀菌?买的医用纱布说明书称为非无菌,不可直接接触创口,请问在家里如何使纱布无菌呢? 明太祖规定商人只许穿布是什么政策?对社会有利还是不利? 英语翻译九月,晋献公卒,里克、ぶ郑欲纳文公,故以三公子之徒作乱.主初,献公使荀息傅奚齐,公疾,召之,曰:“以是藐诸孤,辱在大夫,其若之何?”稽首而对曰:“臣竭其股肱之力,加之以忠贞.其 刘琨怎么读? kang康熙真的传位给十四阿哥是四阿哥改了诏书吗 《左传》原文及翻译:晋公子重耳之及于难也… 介绍一下西晋的八王之乱? 物体M沿粗糙的斜面下滑,请画出它的受力示意图.是画3个还是4个为什么不画4个,支持力 摩擦力 重力,还有一个向下的力呀如果说是3个,为什么泥石流的图就要画4个滑冰运动员传车冰鞋在冰面 英语翻译急 “何以明之”的意思 当人们在大气层外,恰好在地平线上方有一个空间站,人们希望通过发送一束激光与空间站进行联络时,应该将激光对准:A 略高空间站 B略低 C直接对准 D都不对光路可逆我觉得不对啊,这不是和 简述人体中的气体交换在肺泡内是怎样进行的今天就要 美国一航天飞机“追梦者”试飞降落时滑新加坡欲购88套美国多管制导火箭发射日媒披露日本或早已成为美情报机构窃听安倍警卫车队连续两天发生交通事故 无分析称土耳其宣布选中国导弹只是向欧美科学家在澳大利亚被捕海岸外发现新品种巴勒斯坦欲就以色列建定居点寻求国际司纳粹盖世太保头目被指埋葬于柏林犹太人马来西亚移民局前总监被判处贪污罪名成Facebook首次承认传闻:年轻人日政府开发海底资源动作迟缓引日研究机日超2成地震重建预算未使用 政府被指印度外长访澳为三年前留学生在澳被杀案澳大利亚警方追捕偷车贼 路过少年被无一驻日美军士兵涉嫌酒驾被逮捕 称已小新华国际时评:“弱冠”欧盟期待“涅槃澳大学开设全球商业学士学位课程 多语韩媒称韩国雾霾源自中国 记者实地考证巴勒斯坦四名武装分子与以军发生冲突被中美企业家共商双边合作前景男子把鸡蛋强塞女子下体后捏碎性侵 辩今天天气冀中星诉东莞市政府信息不公开案开审北京周边景点天气预报新闻热线【一周文事】先作证再扶人人类还需要更多的曼德拉书苑新生 窥密英美“自出版”浪潮“井下10年,为了孩子,我觉得值”近六成受访者:第一时间相信了“大妈讹“穴居人”家当被清 水泥封死热力井新闻资料:曼德拉的六面人生“志愿者投保”不能再拖延下去跨国万里骑行 集下各地邮戳公租房廉租房明年起并轨运行余世存:以“家世”追溯生命之源(2)国安委:排查整治全国输油管线纸上下药致人昏迷?麻醉师:不太可能云南强奸幼女官员再审 5年改判8年习近平:将永远铭记曼德拉的贡献利益分配末端的小农
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘