230问答网 > vb 如何自动用系统默认的浏览器打开指定网页，类似于hao123.com 的桌面版

vb 如何自动用系统默认的浏览器打开指定网页，类似于hao123.com 的桌面版

2025-02-25 03:16:11

推荐回答（1个）

回答1：

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

'常用窗口显示控制枚举类型
Public Enum eSEShowWinStyle
SEWinHide = SW_HIDE
SEWinNormal = SW_SHOWNORMAL
SEWinShow = SW_SHOW
SEWinMax = SW_MAXIMIZE
SEWinMinNotActive = SW_SHOWMINNOACTIVE
SEWinMinActive = SW_SHOWMINIMIZED
SEWinRestore = SW_RESTORE
End Enum

Public Function SEShellRun(sFileOrURL As String, _
Optional ByVal bWithParam As Boolean = False, _
Optional ByVal winShowStyle As eSEShowWinStyle = SEWinNormal) As Boolean
'执行一个程序、打开一个文档或打开一个URL
'若bWithParam=true，则将 sFileOrURL 的第一个空格前看做程序的文件名， _
'之后看作参数；否则都看作程序文件名，参数为空
'winShowStyle 表示窗口显示状态（最大化、最小化、隐藏等）

Dim strFileOrExe As String, strParam As String
strFileOrExe = sFileOrURL
strParam = vbNullString

If bWithParam Then
'分出 sFileOrURL 中的程序文件名和参数
Dim intSpacePos As Integer
intSpacePos = InStr(sFileOrURL, " ")
If intSpacePos Then
strFileOrExe = Left$(sFileOrURL, intSpacePos - 1)
strParam = Mid$(sFileOrURL, intSpacePos + 1)
End If
End If
'调用 ShellExecute 函数
SEShellRun = ShellExecute(0&, "open", strFileOrExe, _
strParam, vbNullString, CLng(winShowStyle)) > 32
End Function

SEShellRun这个函数使用起来很方便的，用法举例：
运行程序 SEShellRun "C:\Windows\System32\mspaint.exe"
打开文件夹 SEShellRun "C:\Windows"
自动启动关联程序打开文档 SEShellRun "E:\my\abc.txt"
打开网页：SEShellRun "http://www.163.com"
发送邮件：SEShellRun "mailto:abc@def.com"

你问的就是打开网页的功能那是它其中的一个功能而已。

这段代码取自新书“老兵新传：Visual Basic核心编程及通用模块开发”（清华大学出版社），书中像类似这种方便调用、增强VB功能的代码还有很多很多，感兴趣就看看
你不是需要工程源代码吗？那里可能正有你需要的，不是修改后就能用，而是不需修改直接调用！

最新问答

工伤级别鉴定标准工伤级别鉴定标准是什么

焦点访谈什么时候播出

求中文广播剧cv轻薄的假相、多多等等等等的照片，尤其是相爷的！！！保证不外传！！！

脸的颧骨高留什么发型好看

清华北大本科毕业生大部分能在北京找到好工作么?

我是10年退伍的大学生士兵，报考陕西省政法干警，请问我的条件报考年龄能放宽到多大？

联想a750支持otg吗

关于法学专业的就业问题

头顶略稀，额头两边靠后，到底还能长出头发吗？

北京大学哪一年成立的啊？