【By.笠小誠】官方網站

無聊來發個最簡單的新手都會的程式碼-------

-----------------------------

需要的控件:WebBrowser1、Button1、TextBox1.Text、TextBox2.Text

------------------------------

點擊窗口2下後填入
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://www.raidcall.com.tw/v2/dialog/login/")
    End Sub

在創建2個TextBox，並再創1個按鈕，對著按鈕雙擊2下加入

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Document.All("user_name").InnerText = TextBox1.Text
        WebBrowser1.Document.All("user_pwd").InnerText = TextBox2.Text
        WebBrowser1.Document.GetElementById("btnLogin").DomElement.click()
    End Sub

----------------------------------

可以測試登入狀態