出现实时错误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