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

Question

1、如何设置webbrowser控件，使它打开的网页不跳出那些广告框？
比如：
Private Sub Command1_Click()
WebBrowser1.Navigate2 "www.163.com"
End Sub会跳出很多广告框。如何屏蔽掉？
2、如何屏蔽当提交网页后，网页弹出的反馈框？
比如：当填写
      http://.yalaso.net/_post1.asp
后，按“提交资料”，则会返回类似“你的信息已经发表成功，稍后会发表在跳蚤市场”的信息，如何在VB里用webbrowser控件屏蔽掉该网页的反馈信息框？谢谢先！

Answer 1

我也想要，有的话给我，谢谢
[email protected]

Answer 2

在 OnNewWindow事件
 Cancel = true

Answer 3

newwindow2事件中
Cancel = true

Answer 4

主要采用如下
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:[email protected]

Answer 5

谢谢楼上几位大侠!
    但我加了下面的代码
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
    Cancel=Flag
End Sub
加到我的代码里后，好像也屏蔽不了问题2的那个跳出来的提示框.(“你的信息已经发表成功，稍后会发表在跳蚤市场”)怎么办？

Answer 6

啊，sorry,我其实是
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
    Cancel=true
End Sub
的，只是copy时copy错了地方。但就是这个代码也是不行.请教！

Answer 7

这可是我从delphi里面看到的，本人对网络非常喜欢,建议做网络编程以后大家不要用vb了，没用的，就学delphi吧，强烈推荐呀

Answer 8

应该是findwindow然后sendkeys("(enter)")就可以了

Answer 9

我发现下面的代码：
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://.yalaso.net/_post1.asp
后，按“提交资料”，则会返回类似“你的信息已经发表成功，稍后会发表在跳蚤市场”的信息，如何在VB里用webbrowser控件屏蔽掉该网页的反馈信息框？
就算用了
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
    Cancel=true
End Sub
也是不行。不知哪位大侠可以到该网站试一试，帮找到办法。
谢谢先！

Answer 10

呵呵。。你的VB这么牛。。
帮你up

Answer 11

dim lwnd as long
lwnd = FindWindow(vbNullString, "Microsoft Internet Explorer")
If lwnd > 0 Then
        Call SendMessage(lwnd, WM_CLOSE, 0, ByVal 0&)
End If