ShellExecute指定IE浏览器打开网页

ShellExecute(NULL,L"open", L"iexplore.exe", L"www.baidu.com", NULL, SW_MAXIMIZE);

  注意:第3个参数不需要绝对路径,就可以打开IE浏览器。

  如果用Windows默认浏览器打开,可以如下所示:

  ShellExecute(NULL,L"open",NULL, L", NULL, SW_MAXIMIZE);

  第4个参数有http即可。

转载于:https://www.cnblogs.com/chenzuoyou/p/3508277.html

在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函数来指定打开谷歌浏览器了。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值