技术支持
好物推荐

VB利用API函数调用默认浏览器打开网址

API函数声明如下 :

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 Const SW_SHOWNORMAL = 1

函数返回值为大于32的整数表明成功执行调用,小于或等于32表明调用失败。
例如:

Dim Result
Result = ShellExecute(0, vbNullString, "http://www.ccw.com.cn", vbNullString, vbNullString, SW_SHOWNORMAL)
If Result <= 32 Then
MsgBox "调用浏览器失败!", vbOKOnly + vbCritical, "错误:", 0
End If


微信扫描下方的二维码阅读本文

未经允许不得转载:桔子雨 » VB利用API函数调用默认浏览器打开网址
分享到: 生成海报
一个数字化服务提供商

本站承接外贸建站,小工具和行业软件定制

部分产品联系我们
切换注册

登录

忘记密码 ?

您也可以使用第三方帐号快捷登录

切换登录

注册

微信扫一扫关注
如已关注,请回复“登录”二字获取验证码