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

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

编辑:说三道四文库 发布时间:2018-06-23 10:12
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
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘