[VB] WebBrowser 瀏覽器

轉貼  VB6之迴光返照- WebBrowser

WebBrowser在一般書上比較少介紹，一般就是要做擷取網頁原始碼或自動輸入文字
自動按按鈕填表格之類的功能，goggle搜尋vb webbrowser也能找到許多範例。
 

 
先設定使用元件shodocvw.dll
從控制項拉出WebBrowser1
然後程式碼如下，開啟程式就會直接載入到yahoo首頁了，載入完就會顯示出
網頁的原始碼在即時運算視窗了
Private Sub Form_Load()
WebBrowser1.Navigate "http://tw.yahoo.com"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Debug.Print WebBrowser1.Document.body.innerHTML
End Sub