VB 如何调用系统默认程序打开指定网页?
vb如何调用系统默认的浏览器打开指定网页,类似于hao123的桌面版,单击图标后什么也不提示,直接用系统默认的浏览器去打开设置好的网址地址。如果有工程源代码,修改后网站编...
vb 如何调用系统默认的浏览器打开指定网页,类似于hao123的桌面版,单击图标后什么也不提示,直接用系统默认的浏览器去打开设置好的网址地址。
如果有工程源代码,修改后网站编译就能用,那是最好的。如果有的希望分享一下,nl745200@163.com,先谢啦 展开
如果有工程源代码,修改后网站编译就能用,那是最好的。如果有的希望分享一下,nl745200@163.com,先谢啦 展开
4个回答
展开全部
首先你得找到浏览器的路径。然后在vb中使用如下代码,例如用猎豹浏览器打开指定网页:
Private Sub Command1_Click()
Shell "F:\Program Files\liebao\LBBrowser\liebao.exe 网页绝对地址"
End Sub
路径和地址之间有一空格。
Private Sub Command1_Click()
Shell "F:\Program Files\liebao\LBBrowser\liebao.exe 网页绝对地址"
End Sub
路径和地址之间有一空格。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Shell "C:\Windows\explorer.exe http://zhidao.baidu.com"
这里用了Windows自带的运行程序(就是Windows徽标键+R出现的那个程序),在这个程序里面输入网址(URL)可以自动用默认浏览器来打开。
这里用了Windows自带的运行程序(就是Windows徽标键+R出现的那个程序),在这个程序里面输入网址(URL)可以自动用默认浏览器来打开。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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 Sub Command1_Click()
ShellExecute 0, "open", "http://zhidao.baidu.com", 0, 0, 1
End Sub
Private Sub Command1_Click()
ShellExecute 0, "open", "http://zhidao.baidu.com", 0, 0, 1
End Sub
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询