大家好，关于vb调用谷歌浏览器很多朋友都还不太明白，今天小编就来为大家分享关于vb打开谷歌浏览器的知识，希望对各位有所帮助！

本文目录

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

一、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中~如何调用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在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

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

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

四、vb6调用edge浏览器

vb6不支持edge浏览器。根据查询相关公开信息显示，VisualBasic6.0（vb6）不支持谷歌浏览器的调用，网上找到的浏览器自动化VB代码，大多都是对IE的操作，而IE浏览器由于效率低下速度慢，被微软抛弃了，在IE11版以后，微软宣布不再更新IE。目前有些网站都不再支持IE浏览器，以后会有更多的网站不再支持IE。

五、怎么用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如何获得浏览器地址栏全部内容。

窗体中添加一个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

OK，本文到此结束，希望对大家有所帮助。