vb中，怎样点击MsgBox窗口的“确定”后自动打开一个网页？

Question

vb中，怎样点击MsgBox窗口的“确定”后自动打开一个网页？比如，打开http://zhidao.baidu.com

Answer 1

If MsgBox("想要打开百度吗？", vbYesNo) = vbYes Then Shell "iexplore.exe www.baidu.com"追问

出现实时错误53：文件未找到。怎样解决？

追答

If MsgBox("想要打开百度吗？", vbYesNo) = vbYes Then Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE www.baidu.com"

追问

这下可用了。谢谢。但问题是不能以默认的浏览器打开，只能以ie打开。可以用默认的浏览器打开吗？

追答

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 Image1_Click()
ret& = ShellExecute(Me.hwnd, "Open", "http://www.51dangao.com", "", App.Path, 1)
End Sub