[Microsoft Visual Basic 2010 Express]登入網頁

開發環境：Microsoft Visual Basic 2010 Express

原        理：利用查詢HTML處理元件，達到登入網頁的目的

Public Class Form1

    Public Sub loading() '等待網頁讀取完成

        Do Until WebBrowser1.ReadyState = WebBrowserReadyState.Complete

            Application.DoEvents()

        Loop

    End Sub

    Public Sub insertText(ByRef element As String, ByRef str As String, ByRef result As String) '輸入欄位

        Try

            WebBrowser1.Document.Body.All(element).InnerText = str

        Catch

            MsgBox(result)

        End Try

    End Sub

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

        WebBrowser1.Navigate("http://tw.yahoo.com/")

        loading()

        '輸入帳號

        insertText(TextBox1.Text, TextBox3.Text, "")

        '輸入密碼

        insertText(TextBox2.Text, TextBox5.Text, "")

        Try

            WebBrowser1.Document.GetElementById(TextBox4.Text).DomElement.click()

        Catch

            MsgBox("Error:找不到登入按鈕")

            MsgBox("您已經登入")

            Exit Sub

        End Try

    End Sub

End Class