大家好，如果您还对vb如何打开谷歌浏览器不太了解，没有关系，今天就由本站为大家分享vb如何打开谷歌浏览器的知识，包括vb调用谷歌浏览器的问题都会给大家分析到，还望可以解决大家的问题，下面我们就开始吧！

本文目录

1. 在VB中~如何调用windows自带的图片浏览器打开指定的文件呀~
2. VB有人有办法控制Chrome内核的浏览器吗
3. VB如何获得浏览器地址栏全部内容。
4. 怎么用VB制作一个浏览器啊
5. vb在ie不是默认浏览器的情况下怎样打开网页
6. 怎么用VB打开网页

一、在VB中~如何调用windows自带的图片浏览器打开指定的文件呀~

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

strFloder="H:\accessmdb1\图片库\联合一车间\四蒸馏\"

ShellExecute Me.hwnd,"open","6377.jpg", 0, strFloder, SW_SHOW

----------------------------------------

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

查找与指定文件关联在一起的程序的文件名

Long，非零表示成功，零表示失败。会设置GetLastError

hwnd Long，指定一个窗口的句柄，有时候，windows程序有必要在创建自己的主窗口前显示一个消息框

lpOperation String，指定字串“open”来打开lpFlie文档，或指定“Print”来打印它

lpFile String，想用关联程序打印或打开一个程序名或文件名

lpParameters String，如lpszFlie是可执行文件，则这个字串包含传递给执行程序的参数

lpDirectory String，想使用的完整路径

nShowCmd Long，定义了如何显示启动程序的常数值。参考ShowWindow函数的nCmdShow参数

二、VB有人有办法控制Chrome内核的浏览器吗

首先为什么需要使用webkit或chrome浏览器内核？本人之前一直使用IE控件中的IE浏览器，对于简单的开发已经够用了，但是IE有它的诟病，特立独行，对HTML5新特性兼容性非常差，由于近期在研究HTML5以及2.5D和3D地图相关技术，所以一开始就摒弃了使用IE内核的想法。关于windows下使用chrome浏览器内核或webkit内核，已经专研了好几天，一直在碰壁，我相信也有不少网友也跟我一样，查阅了几天都没有任何进展，下面我说说这几天查阅资料遇到的问题：

（1）关于webkit或chrome相关源码都需要编译，而且编译环境相当复杂，很多时候按照文章流程走，要么走不通，要么出一连串解决不了的错误，最终心灰意冷，直到放弃（大多数搞windows开发的在编译这块都缺少相关经验，不比linux开发员）；

（2）能找到人家已经编译好的webkit或chrome内核库，但是不是最新的库，很多都是2012年之前的，太老的，对于近几年HTML5的飞速发展，我想那些陈旧的库已经不再适用了。

三、VB如何获得浏览器地址栏全部内容。

窗体中添加一个List控件一个按钮

EnumWindows AddressOf enumproc, 0

Public Declare Function EnumWindows Lib"user32"(ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

''枚举窗口列表中的所有父窗口（顶级和被所有窗口）

Public Declare Function GetWindowText Lib"user32" Alias"GetWindowTextA"(ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long'取得指定窗口的司法题

Public Declare Function GetClassName Lib"user32" Alias"GetClassNameA"(ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long'为指定的窗口取得类名

Public Declare Function GetWindow Lib"user32"(ByVal hwnd As Long, ByVal wCmd As Long) As Long'取得窗口句柄

Declare Function SendMessage Lib"user32" Alias"SendMessageA"(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long'发送消息

Public Function enumproc(ByVal app_hwnd As Long, ByVal lParam As Long) As Boolean

length= GetWindowText(app_hwnd, buf, Len(buf))

If InStr(title,"Internet Explorer") Then

Public Function getziwin(window_hwnd As Long) As String

buflen= GetClassName(window_hwnd, buf, buflen)

buf= Left$(buf, buflen)'取得子窗口的类名

If Right(buf, 4)="Edit" Then'判断是否为地址栏子窗口

getziwin= getwintext(window_hwnd)

child_hwnd= GetWindow(window_hwnd, gw_child)'取得第 1个子窗口的句柄

Do While child_hwnd<> 0'如果有子窗口

num_children= num_children+ 1

ReDim Preserve children(1 To num_children)

children(num_children)= child_hwnd

child_hwnd= GetWindow(child_hwnd, gw_hwndnext)'取得下一个兄弟窗口的句柄

Public Function getwintext(window_hwnd As Long) As String'取得子窗口的值

'通过 sendmessage发送 wm_gettext取得 ie地址栏的值

If window_hwnd= 0 Then Exit Function

txtlen= SendMessage(window_hwnd, wm_gettextlength, 0, 0)

If txtlen= 0 Then Exit Function

txtlen= SendMessage(window_hwnd, wm_gettext, txtlen, ByVal txt)

getwintext= Left$(txt, txtlen)

Form1.List1.AddItem getwintext

四、怎么用VB制作一个浏览器啊

这里是简单的代码，你要做比较完整的浏览器自己可以添加些功能

Dim int_i As Integer'当前页面在历史中的个数

Dim intSum As Integer'总的浏览过的页面数

Me.WebBrowser1.Navigate(Me.Text1.Text)'这里连接的网站地址是文本框输入的地址,要专门访问你的网页将这一句放入你的窗体装载事件里面,并先设置me.text1.text="这里填写要专门访问的网页"

Me.WebBrowser1.Width= Me.ScaleWidth- 200

Me.WebBrowser1.Height= Me.ScaleHeight- 600

Private Sub Text1_KeyPress(KeyAscii As Integer)

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)

五、vb在ie不是默认浏览器的情况下怎样打开网页

默认浏览器不是IE浏览器，VB可以打开自行设置的默认浏览器来浏览网页。

代码1）用Shell函数直接调用explorer.exe来打开网页。

strOpen=Shell("explorer.exe"&Text1,1)

Text1=""

EndSub

代码2）使用Api函数ShellExecute实现打开网页。

代码2）使用Api函数ShellExecute实现打开网页。

PrivateDeclareFunctionShellExecuteLib"shell32.dll"Alias"ShellExecuteA"(ByValhwndAsLong,ByVallpOperationAsString,ByVallpFileAsString,ByVallpParametersAsString,ByVallpDirectoryAsString,ByValnShowCmdAsLong)AsLong

PrivateSubOpenUrl(tUrlAsString)

ShellExecuteMe.hwnd,"Open",tUrl,0,0,0

Text1=""

EndSub

两种方式都能在设置谷歌浏览器为默认浏览器状况下，打开想看的网页。

两种方式都能在设置谷歌浏览器为默认浏览器状况下，打开想看的网页。

六、怎么用VB打开网页

方法1)可用Shell函数执行一个可执行文件explorer.exe来打开网页。

执行一个可执行文件，返回一个 Variant

(Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。

Shell"explorer.exe "

方法2)使用WebBrowser直接建立浏览器。

在 Visual Basic里还可以向工程中增加其它类型的 Internet功能，包括：

Visual Basic应用程序的 Internet扩展。可以使用一些特殊控件，它们提供了和Internet有关的功能。这些控件包括

Internet Transfer控件、 WebBrowser控件，以及 WinSock控件。

WebBrowser1.Navigate""

好了，文章到这里就结束啦，如果本次分享的vb如何打开谷歌浏览器和vb调用谷歌浏览器问题对您有所帮助，还望关注下本站哦！