关于如何VB如何调用系统默认浏览器的代码

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

2、方法1

Private Sub Command4_Click()

Dim r As Long

   r = ShellExecute(0, vbNullString, Text4.Text, vbNullString, vbNullString, vbNormalFocus) '调用系统默认IE（只要你把系统IE以外的浏览器设置为默认IE即可！）

End Sub

跟大家解释一下：

Text4.Text = 网址+Text2.Text

Text4 = "https://www.baidu.com/?play=" & Text2.Text（

其中真正的地址我用百度代替） 

为什么用这种方式？主要算怕其中的=号会让调用时出错！

不过你如果只是想打开网址的可以把Text4.Text替换成网址即可。

如果是类似搜索类的那可以尝试使用我给你的这种办法，最好是加入Timer，把时间设置成1秒即可！

3、方法2

Private Sub Command3_Click()

Shell Environ("PROGRAMFILES") & "\Internet Explorer\iexplore.exe " & "Tencent://Message/?Menu=YES&Exe=&Uin=" & Text3, vbNormalFocus

End Sub

这种方法大家一看就明白，这个是直接调用了系统自带IE浏览器，不过很多网页IE不能正常显示其需要表达的内容及形式！