会员登录 立即注册

搜索


VB用IE浏览器打开网页源码,及用其它指定的浏览器打开网页源码。

[复制链接]
小爱 发表于 2019-8-25 15:17:24 | 显示全部楼层 |阅读模式
小爱
2019-8-25 15:17:24 51 0 看全部
VB用IE浏览器打开网页源码,及用其它指定的浏览器打开网页源码。

先在窗体模块里申明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_SHOW = 5


然后在窗体上建一个按钮,建立以下代码,以下代码是用于用默认的浏览器打开某一个网页。

Private Sub Command1_Click()
    wz = "http://bbs.aitaoji.cn"
    Call ShellExecute(0, "open", wz, "", "", SW_SHOW)
End Sub

        
如果要指定要某个浏览器来打开某个网址,如强制用IE浏览器打开某个网页,代码如下:

Private Sub Command1_Click()
    wz = "http://bbs.aitaoji.cn"
    Call ShellExecute(0, "open", "C:\Program Files\Internet Explorer\iexplore.exe", wz, "", SW_SHOW)
End Sub


假定电脑里安装了360浏览器,360浏览器安装的位置在:D:\Users\Administrator\AppData\Roaming\360se6\Application\360se.exe,那么强制用360浏览器打开网页的代码如下:

Private Sub Command1_Click()
    wz = "http://bbs.aitaoji.cn"
    Call ShellExecute(0, "open", "c:\Users\Administrator\AppData\Roaming\360se6\Application\360se.exe", wz, "", SW_SHOW)
End Sub


QQ号:2270351834    QQ群:208708074    微信号:Loner794    淘宝店铺:文宇通讯
业务:远程刷机、远程解锁、邮寄解锁;回收电子设备、出售新机、出售二手机;花呗套现、信用卡套现等。
回复

使用道具 举报

  • 您可能感兴趣
您需要登录后才可以回帖 登录 | 立即注册 |

本版积分规则 返回列表

查看:51 | 回复:0

热点排行更多
爱淘机,从事ROM开发、手机回收5年,技术行业领先,您的满意,就是我们的目标!
关于我们
公司简介
发展历程
联系我们
本站站务
友情链接
新手指南
内容审核
商家合作
广告合作
商家入驻
新闻合作

手机APP

官方微博

官方微信

联系电话:400-888-888 地址:山东省济宁市微山县夏镇街道 邮箱:aitaoji@yeah.net ICP备案号: ( 鲁ICP备18024545号 )
Copyright © 2014-2019 爱淘机官网.  
快速回复 返回顶部 返回列表