在VB中調用瀏覽器訪問頁面
發表時間:2024-02-23 來源:明輝站整理相關軟件相關文章人氣:
[摘要]調用瀏覽器訪問某一網址(頁)是軟件中常見的功能。本文總結在VB編程中調用瀏覽器訪問網頁的三種方法: Shell 函數、 ShellExecute API 函數和 Automation 對象技術。 Shell 函數:使用VB Shell 函數直接執行瀏覽器可執行文件是調用瀏覽器訪問網頁的最簡單方法...
調用瀏覽器訪問某一網址(頁)是軟件中常見的功能。本文總結在VB編程中調用瀏覽器訪問網頁的三種方法: Shell 函數、 ShellExecute API 函數和 Automation 對象技術。
Shell 函數:
使用VB Shell 函數直接執行瀏覽器可執行文件是調用瀏覽器訪問網頁的最簡單方法。 如:
Dim Result As Variant
Result = Shell("C:\Program Files\Plus!\Microsoft Internet\IExplore.exe http://www.ccw.com.cn", vbMaximizedFocus)
If Result = 0 Then
MsgBox "瀏覽器調用錯誤!", vbOKOnly + vbCritical, "錯誤!", 0, 0
End If
Shell 函數執行成功,返回代表這個程序任務ID值,若不成功,則返回0值 。
ShellExecute API 函 數:
Win32 API 函數 ShellExecute 提供了調用瀏覽器的另一種方法:
API函數聲明 :
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long,ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1
函數返回值為大于32的整數表明成功執行調用,小于或等于32表明調用失敗。
例如:
Dim Result
Result = ShellExecute(0, vbNullString, "http://www.ccw.com.cn", vbNullString, vbNullString, SW_SHOWNORMAL)
If Result <= 32 Then
MsgBox "調用瀏覽器錯誤!", vbOKOnly + vbCritical, "錯誤:", 0
End If
使用Automation對象:
微軟的 Automation 技術為調用IE瀏覽器提供了新的方法:使用 Internet Explorer 對象。 Internet Explorer 對象保存在名為 InternetExplorer 的類中,該類是 SHDocVw 對象庫的一個成員。
在 VB 中 程序中引用 Internet Explorer 對象 :在"工程"菜單中單擊"引用",在彈出對話框中選擇"Microsoft Internet Controls"(SHDOCVW.DLL),就把對 Internet Explorer對象庫的引用添加到了我們自己的工程文件中。
使用IE對象 :
Dim Browser As Object
Set Browser = CreateObject("InternetExplorer.Application")
Browser.Visible = True
Browser.Navigate ("http://www.ccw.com.cn")
即可調用瀏覽器訪問特定網頁。
上述三種方法中,Shell函數調用看似最簡單,但卻有很大缺點:定位瀏覽器可執行文件十分不易--不同的PC,瀏覽器可執行文件可能被安裝于不同的目錄下,而不一定是系統目錄或 PATH 環境變量指定的目錄。
使用ShellExecute API函數時,程序調用的是操作系統默認的瀏覽器(而無論是這一瀏覽器是IE或Netscape,以及它實際所在的位置),因而是通常情況下最為可行的方法。
Automation對象調用的方法僅適用于 IE 瀏覽器,但優點是調用成功后可以在程序中進一步使用該對象實現某些高級功能,如訪問當前加載的網頁的HTML內部元素或Form表單等。