VB中调用浏览器的api是什么？

[flyidd]

比如我点击一个按钮，就用浏览器打开了一个站点。
谢谢

[griefforyou]

呵呵。。。

[smartluwei]

UP

[zqfleaf]

Shell "explorer.exe http://www.sina.com.cn"

[wzhjs]

我觉得可以这么做

首先建一个run.bat

run.bat 的内容:

start %1

在程序里：

Shell "run.bat 你要打开的网址"

这样就会用系统默认的浏览器打开网址了！！

[EpopeeLei]

同意zqfleaf(啊风)，另外还可以调用WinExec和ShellExecutep这两个API函数。

[13161795500]

ShellExcuteEx

[山顶洞人-平]

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


'************************************************
'打开Web网页
'************************************************
Public Function GoToWeb(WebAddress As String) As Long
On Error GoTo ErrDescription
Dim lRet As Long
lRet = ShellExecute(0&, vbNullString, WebAddress, vbNullString, vbNullString, vbNormalFocus)
GoToWeb = lRet
Exit Function
ErrDescription:
MsgBox err.Description
End Function