[VB.net]利用WebBrowser達成『帳密回傳』

此程式碼以Web填入表單資料達成回傳。﹝此處使用Google雲端空間來作範例﹞

範例Google雲端空間之提供表單：點我進入

 Public Class Form1
    
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            WebBrowser1.Document.GetElementById("entry.1008084241").SetAttribute("value", TextBox1.Text)
            WebBrowser1.Document.GetElementById("entry.716033583").SetAttribute("value", TextBox2.Text)
            WebBrowser1.Document.GetElementById("login_form").InvokeMember("submit")
        End Sub

        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            WebBrowser1.Navigate("http://goo.gl/forms/uqaQljnmIz")
        End Sub
    End Class