Question

在VB中，如何使用shellexecute，使得用默认浏览器打开网页

Answer 1

url = "http://www.baidu.com"
Shell "cmd.exe /c start " & url, 0

看看这个方法是不是更简单，连API都不用

Answer 2

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 Command1_Click()
Dim r As Long
r = ShellExecute(0, "open", "http://www.baidu.com", 0, 0, 1)
End Sub