Web浏览器无法打开vb.net系列中的页面

时间:2011-08-10 08:27:53

标签: vb.net browser webbrowser-control

我是VB.net编程和制作应用程序的新手

我之前问了一个问题(http://stackoverflow.com/questions/6989042/facebook-logout-and-like)

现在我有了新问题。我正在尝试创建一个应用程序,登录在FB页面写在墙上或像页面,并注销。我想在系列中这样做,但我无法做到这一点。

所以我试着做一些调试并发现问题。它的编译器移动太快,在能够登录之前,注销链接被激活。

所以我试着用 做

循环直到(web1.isBusy)

但上面的代码不起作用,所以为了确保我做了其他表格并在那里编写了以下代码

Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles Button1.Click

    WebBrowser1.Navigate("http://google.com")

    Do Until WebBrowser1.IsBusy

    Loop

    WebBrowser1.Navigate("http://yahoo.com")
    Do Until WebBrowser1.IsBusy

    Loop


    WebBrowser1.Navigate("http://bing.com")
    Do Until WebBrowser1.IsBusy

    Loop



    WebBrowser1.Navigate("http://facebook.com")
    Do Until WebBrowser1.IsBusy

    Loop

End Sub

此代码直接打开facebook.com。

我希望这些页面能够连续打开,我该怎么办才能让页面连续打开。上面的代码中有什么错误

由于

1 个答案:

答案 0 :(得分:0)

您是否可以在每页完成加载时使用DocumentCompleted事件通知您?如果需要,您可以将此项与Navigating事件结合使用,以取消或延迟任何进一步的页面加载。