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

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

编辑:说三道四文库 发布时间:2017-02-23 03:54
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
为站点添加投票功能 -PHP初学入门教程9 广告条轮播-PHP初学入门教程10 操作MySQL数据库实现简单的留言板-PHP初学入门教程11 使用PHP来操作Oracle数据库 -PHP初学入门教程12 技术杂项PHP教程结束篇 -PHP初学入门教程13 .NET中DataSet和DataReader的区别与转换 CGI技术及其开发(二)-Delphi资料 CGI技术及其开发(一)-Delphi资料 COM/DCOM中如何传递数组-Delphi资料 COM与DCOM的区别与联系-Delphi资料 Cookie的建立使用-Delphi资料 Delphi 3中Cookie的建立使用 Delphi 中 串 行 通 信 的 实 现 Delphi4.0 开发WEBMAIL程序 Delphi4的Winsocket编程 Delphi4开发WEBMAIL程序 Delphi编写网络程序的安全措施 DELPHI 和 THE INTERNET Delphi开发Web Server程序如何返回图像 Delphi开发Web Server程序响应用户的输入 DELPHI与INTERNET(二) DELPHI与INTERNET(一) Delphi中串行通信的实现 Email 服务器的简单实现-Delphi资料 Internet编程技巧-Delphi资料 SMTP组件的使用方法-Delphi资料 Web Server程序开发环境的建立-Delphi资料 WEB数据库的开发-Delphi资料 Win32 行程通讯的观念与技术-Delphi资料 编程发送E-mail-Delphi资料 调用那个函数得到本机的IP-Delphi资料 请帮我修改一下源代码(delphi)请帮忙改一下,让它打印了不往里(数据库)存。 BIOS设置,用电脑是不是可以当闹钟呢? 五笔输入法忽然不能用了 救就我,为什么Frame的客户区变小了?关于切分窗口 怎样查找某一个目录下一个表是否存在? 请问有用过李阳疯狂英语的朋友吗?请说说到底怎么样? 我想向各位大侠请教一个问题? 如何屏蔽TEXTBOX的回车响应? 关于《各位学习编程的目的是什么》的总结 m_pusrrcdset->m_pDatabase->ExecuteSQL("")为什么不行?老是ASSERT错误 请问我刚入bcb的大门,有什么好的参考书可以看看吗? 有没有人知道计算机等级考试四级怎么查分啊? 如何将几个数组的信息写成一个.txt文本文件 笔试题请教? 请教一个小问题! 好难呀好难呀!!!!! 今天狠了狠心买了一本<>,花了我十分之一的工资!心疼啊!散点分! 请问有谁知道如何在C#中使用DirectX? 我在Picturebox中用Picture1.print打了200行数据,可我只能看到前20行 pb数据窗口中的列名在win2000 server里为什么显示不了中文? God save me,help...... tcl手机所使用的是那种操作系统,能否告知小弟,重分相谢! 异常中的问题 刷新对话框的背景图片(基于对话框的程序,而且刷新不只一次)! 请问? 急急急!!上网后的图标不见了!!! 为什么我写了个JSP写入数据库中的中文在数据库中查看是乱码? 用vb制作动态网页 怎么给分给别人? 怎么获得光驱的倍数,设定光驱的倍数啊 怎么破解WIN2000的管理员密码!急!!!! SDK、API、MFC到底是什么? 本人想做给一个网络管理方面的软件,谁能跟我讲讲这方面的原理么? 请问有谁知道如何在VB.net中使用DirectX? 求救:我在 JAVA 中用 TextField 输入文字时发现,在汉字方式下敲不了标点符号,而我用 VC 的 EDIT 却可以,为什么? 大虾帮帮忙,一个关于bpl的问题,十万火急!能给的分我都拿出来了 请问怎么截获对动态链接库的调用? 关于数据库的问题!我搞了几天拉!天啊!我不想学java拉!! 请问我在window98上写html,asp文件,需要安装那些软件,pws我已安装,其它还要什么 请问有谁知道如何在VC.net中使用DirectX? 一个关于realplayer的问题! 请问怎样记录程序运行时间呢,记得好像有一个函数.... ?求一道数学思想题 各位大虾,我想在DELPHI5.0中调用W9X下的超级终端中的传输命令来传输文件??? ■■请教不知怎么回事,我现在打开*.txt文件,WIN98系统提示框:windows不能发现sysexplr.exe,如何解决呀?请热心的C++同事解决■■ 请问有谁知道如何在.net中使用DirectX? 到那里学习SQL语言 关于树!他妈的树! 关于黄色网站的另外一个问题 请问在VB中能否实现COMBOX的自动保存功能? 如何include根目录的文件 太阳能量对地球环境和人类活动的影响?共四条 . 大海诞生生命时间写作文用的,只要时间(几年前),准确的, 关于数学物理的1kg/m3=?g/cm31楼的好像答错了 地球距太阳的位置,给地球带来的好处是什么? 原始生命诞生在原始海洋中,所以地球上最早出现的是水生动物,这句话对吗?为什么? 15.5KN/m3等于多少g/cm3 地球距太阳的位置给地球带来什么好处 原始生命诞生的重要标志是什么 我想要"古铜色"_(小麦色)皮肤``!该死的`!我的皮肤` 黑不黑` 黄不黄` 真不知道算什么` 我特想要小麦色(古铜色)的皮肤` 很性感又冷酷` 哎` 难道除了天生的之外` 就没有别的办法能使肤色变 细胞的成长过程 分裂、生长、分化 是这样吗 某地强风的风速为20m/s,空气密度是p=1.3kg/m3,一风力发电机的有效受风面积为S=20m2,如经过风力发电机后风速变为12m/s 改风力发电机的效率为80% 则风力发电机的电功率多大 小麦色和古铜色哪个更好一点、更帅气一点.我是一个男生、不属于健将型皮肤颜色 我不要太粗犷的颜色啊、也不要太深太深的颜色、匀和一点的那种。就是追求的 健康肤色 、比常人稍稍深 360千牛换算成兆帕是多少?加力面积是0.00785平方米 某地风速为v=20m/s,设空气的密度为ρ=1.3kg/m³,如果通过截面面积S=20m²的风的动能全部转化为动某地风速为v=20m/s,设空气的密度为ρ=1.3kg/m³,如果通过截面面积S=20m²的风的动能全部转 请问这是古铜色还是小麦色? 细胞分裂的子细胞体积小,需要从周围环境中吸收营养,使()体积增大 跨经度最多的大洲和大洋是?扬沙、沙尘暴发生在什么季节?赤道为轴向南北方向有哪些气候类型.分布的特点? 比较1kg/m3和1g/cm3,谁的密度大 一个细胞分裂成两个新细胞后,体积很小,通过不断从周围环境中吸收(),并且转变成组成自身的物质,体积增大,即细胞()到一定大小,就进行细胞(). 赤道穿过大洲大洋 1kg/m3=0.001g/cm3怎么化过来的啊要仔细描述啊!本人不知道怎么换过来的?怎么1kg换g变小啊? 生命起源于原始海洋还是原始大气?为什么? 细胞分裂三次为什么是2^3将15N标记DNA的大肠杆菌培养在14N培养基中,经三次分裂后含15N的DNA占DNA总数的多少? 物理单位转换 1KWh=3.6×106J 1m/s=3.6km/h 1g/cm3=103kg/m3 1kg/m3=0.001g/cm31m/s=3.6km/h 如果是2m/s转化成km/s 怎么算呢? 与现代海洋、大气相比较,原始海洋和大气中之所以有利于生命的诞生,是因为( )A.含丰富的无机物、氧气和臭氧B. 含丰富的有机物、氧气和臭氧C.含丰富的无机物,没有氧气和臭氧D.含丰富 细胞分裂4到底多大为什么游侠的才1.4G 而游民的4.7G 1Kg/m3= g/cm3 1m/s= km/h 判断:细胞分裂产生的新细胞比原细胞小.( )判断:细胞分裂产生的新细胞比原细胞小.( )分裂后的细胞内DNA只有原细胞的一半.( )两个新细胞所含的遗传物质是一样的.( )分析说明 lng加气站就是气化站么? 是海洋生态系统的自动调节能力强还是森林生态系统调节能力强?为什么? 细胞分裂产生的新细胞与生长成熟的细胞,它们的细胞结构有哪些发生了变化? 海洋气候河湖对人类分别有什么作用 谁知道鲨鱼对于海洋生态的平衡所起的重要作用吗? 细胞只能有细胞分裂产生吗? 欧洲气候具有显著的海洋说特点请你分析一下哪些因素起了重要作用 海洋生态系统 森林生态系统谁自动调节能力强 细胞分裂形成的两个新细胞 相同,新细胞与原细胞的 也相同 细胞分裂时产生的子细胞与母细胞结构和功能相同吗?试着分析一下原因.今晚就要. 海洋生态系统 森林生态系统 自我调节能力哪个强最强的是不是生物圈? 将下面文字概括为表明海洋重要性的两个比喻句,每句不得超过12个字.大约在三十二亿年前,原始的生命在海洋里诞生.在海洋里,这些原始生命与大自然的搏斗中生存,发展,经过亿万年的进化,逐 在细胞分裂过程中,有的子细胞长到与母细胞一般大小时能继续分裂;而有的子细胞则发生变化,形成具有不同__________和__________的细胞,这种过程叫做____________ 森林生态系统和海洋生态系统那个调解能力更强 原始生命形成诞生的场所的原始大气,对还是错 一个细胞分裂5次后产生几个子代细胞 为何海洋有吸收二氧化碳的作用植物呼出二氧化碳也会吸收氧气,那么他的吸氧量是多大啊,听说一棵大树的吸氧一年才是6Kg啊?那么是不是海洋才是真正的贡献啊我想知道植物的贡献到底有多 48000牛顿换算成兆帕是多少 厄尔尼诺现象发生时,太平洋赤道地区的大洋环流与大气环流是怎样的. 把二氧化碳直接通入海底有什么影响 180牛顿换算等于多少兆帕 200牛顿换算等于多少兆帕 圣婴现象出现时太平洋赤道海区的大气是怎样流动的 海洋吸收二氧化碳"从大气中吸收二氧化碳,同时释放氧气,在这一点上,海洋有着和森林一样的作用.海洋仿佛一只巨大的二氧化碳沉淀池,目前已经储存了1500亿吨的碳;仅在去年一年,海洋就吸 生命的起源在海洋吗物种起源 描述正常年和厄尔尼诺年时赤道附近太平洋地区海水温度的分布特点,说出其上空大气环流的状况及对印度尼西亚和厄瓜多尔气候的影响 海洋中铁等元素的增加可使浮游植物增加,从而消耗大气中大量的二氧化碳,这有利于缓解( )这一环境问题. 海洋生命的起源和早期进化 关于地理厄尔尼诺现象 太平洋西岸气候变化! 作文——走复兴路 圆中国梦 800字.明天就要交了!是要一篇叙事文!明天就要交了啊! 最早的生命是在哪里诞生的,是海洋么》?为啥? 1kg/m3等于多少g/cm3 关于海洋吸收二氧化碳的问题,这是正确的吗?海洋可以吸收大量的二氧化碳,随着海洋生物种类的减少,吸收二氧化碳的能力逐渐增强,对于现在日益严重的温室效应应有所缓解.这是正确的吗?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn