vb.net if webbrowser控件上的语句

时间:2014-09-28 12:35:11

标签: vb.net

早! (早上在美国至少)。

我有一个带有多个按钮的应用程序,可以使用webbrowser控件加载不同的网站。我有以下代码自动登录电子邮件网站。但是,如果我浏览到另一个站点,然后单击电子邮件登录按钮以执行以下代码,则会出错。它出错是因为它已经第一次将我签到了网站,现在由于凭据被缓存,它会立即登录并绕过登录页面。

如何检查登录页面是否不存在,然后退出sub。

WebBrowser1.Navigate(My.Settings.emailURL)
            WaitForPageLoad()
            WebBrowser1.Document.GetElementById("user").InnerText = My.Settings.emailUN
            WebBrowser1.Document.GetElementById("passwd").InnerText = My.Settings.emailPW
            'WebBrowser1.Document.GetElementById("remember_me").SetAttribute("checked", "false")
            WebBrowser1.Document.DomDocument.forms(0).submit()

我尝试过以下但是没有用:

If WebBrowser1.Navigate(My.Settings.emailURL) <> My.Settings.emailURL

我认为它不起作用,因为它是一个导航命令

1 个答案:

答案 0 :(得分:0)

想出来。如果您已登录并显示静态网址,则该网址是唯一的,因此我做了一个小的if语句。

If WebBrowser1.Url.AbsoluteUri.StartsWith(My.Settings.webmailURL)
Exit Sub
Else
Sign in......
end if

汉斯感谢你的帮助,你让我思考。