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)
'************************************************
'打开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
'************************************************
'打开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
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货