使用vb.net在每个页面加载上执行特定功能

Question

我正在vb.net2008中创建一个应用程序。我正在使用webbrowser控件打开一个网站。我想在网站的每个网页加载，我的应用程序以编程方式执行特定的功能。像

1）当我们打开www.yahoo.com然后在页面完全加载后，我的程序应该以编程方式单击登录按钮。

2）之后，当加载提示用户名和密码的下一页时，我的程序应该自动输入用户名和密码。

3）登录后，我的程序应以编程方式单击邮件链接。

Answer 1

Private Sub Command1_Click()
'Operation 1
WebBrowser1.Navigate "http://www.yahoo.com/"
Do Until WebBrowser1.ReadyState = WebBrowserReadyState.Complete    
 DoEvents
Loop


'Operation 2, signing in
WebBrowser1.Document.getElementById("Username").Value = "MyUsername"
WebBrowser1.Document.getElementById("Password").Value = "Password"
WebBrowser1.Document.getElementById("buttonLogOn").Click


Do Until WebBrowser1.ReadyState = WebBrowserReadyState.Complete 
DoEvents
Loop

'Operation 3
Dim link as HtmlElement = webBrowser1.Document.GetElementByID("mailLink")
link.InvokeMember("Click")

End Sub

使用web浏览器控件的DocumentCompleted事件代替Do Until WebBrowser1.ReadyState =，而不是{{1}}。我会把这个练习留给你。