VB 如何调用系统默认程序打开指定网页?

首先你尘迅耐得找到浏昌毕览器的路径。然后在vb中使用如下代码，例如用猎豹浏览器打开指定网页：

Private Sub Command1_Click()

Shell "F:\Program Files\liebao\LBBrowser\liebao.exe 网页绝对地址派春"

End Sub

路径和地址之间有一空格。

用VB打开网页有多种方法：

方法1)可用Shell函数执行一个可执行文件explorer.exe来打开网页。

Shell 函数，

执行一个可执行塌虚州文件，返回一个 Variant

(Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。

Private Sub Command2_Click()

    Shell "explorer.exe http://www.baidu.com"

End Sub

方法2)使用WebBrowser直接建立浏览器。

在 Visual Basic 里还可以向誉梁工程中增加其它类型的 Internet 功能，包括：

Visual Basic 应用程序的 Internet 扩展。可以使用一些特殊控件，它团蔽们提供了和Internet 有关的功能。这些控件包括

Internet Transfer 控件、 WebBrowser 控件，以及 WinSock 控件。

Private Sub Command1_Click()

    WebBrowser1.Navigate "http://www.baidu.com"

End Sub

将下面这句放在代码毁穗第一行:

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 Sub OpenUrl(tUrl As String)

'用ie打开主页

ShellExecute Me.hwnd, "Open", tUrl, 0, 0, 0

End Sub

在你需要用到的地方,如单击事件里加塌饥上:

OpenUrl "http://*"

就可以了

---