VB.Net WebBrowser - 基本運用 - .Navigate方法可載入JavaScript函數 | dincht55 - 點部落

2015-02-18

VB.Net WebBrowser - 基本運用 - .Navigate方法可載入JavaScript函數

摘要:VB.Net WebBrowser - 基本運用 - .Navigate方法可載入JavaScript函數

以下是簡單載入網頁的程式模型
在TextBox1輸入URL按下Enter就可以瀏覽了

但重點是讀取後的網頁如104外包網，此網頁有很多的JavaScript.XXX("XXX")函數可以使用，

如 javascript:chgCat('0','1'); 此函數及值的功能為 "顯示所有資料夾"。
直接把函數名稱及值導入TextBox1.text 輸出給 WebBrowser.Navigate 即可出現第三張圖片的結果了！

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress   '此為KeyPress事件
        If e.KeyChar = Chr(13) Then  '按下Enter
            LoadPage(TextBox1.Text)
        End If
    End Sub

    Private Sub LoadPage(ByVal url As String)
        WB.ScriptErrorsSuppressed = True
        WB.Navigate(url)

        Do
            Application.DoEvents()
        Loop While WB.ReadyState = WebBrowserReadyState.Loading
    End Sub

回首頁