vb6 shellexecute 指定谷歌浏览器

在VB6中使用Shellexecute函数打开指定的谷歌浏览器，可以通过以下方式实现：

首先，我们需要在VB6的代码中引用Shell32.dll库文件，在项目中选择“工具”->“引用”，然后勾选“Shell32”。这样我们就可以使用ShellExecute函数。

接下来，在代码中使用ShellExecute函数来打开指定的谷歌浏览器，方法如下：

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

Sub OpenGoogleChrome()
    Dim chromePath As String
    Dim url As String
    Dim ret As Long
    
    chromePath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe" '指定谷歌浏览器的路径
    
    url = "https://www.google.com" '指定要打开的网址
    
    ret = ShellExecute(0, "open", chromePath, url, "", 1) '调用ShellExecute函数打开谷歌浏览器
    
    If ret > 32 Then
        MsgBox "谷歌浏览器已成功打开"
    Else
        MsgBox "打开谷歌浏览器失败"
    End If
End Sub

以上代码中，我们将Chrome浏览器的路径指定为chromePath变量，将要打开的网址指定为url变量。然后，使用ShellExecute函数，指定打开方式为“open”，传递谷歌浏览器路径和网址作为参数，再传递空字符串表示当前目录，最后传递1表示最大化窗口显示。

最后，根据ShellExecute函数的返回值，判断是否成功打开谷歌浏览器，并通过消息框显示相应的提示信息。

这样，我们就可以使用VB6中的Shellexecute函数来指定打开谷歌浏览器了。