其实vb内置谷歌浏览器吗的问题并不复杂，但是又很多的朋友都不太了解vb嵌入谷歌浏览器到窗体，因此呢，今天小编就来为大家分享vb内置谷歌浏览器吗的一些知识，希望可以帮助到大家，下面我们一起来看看这个问题的分析吧！

本文目录

1. VB如何获得浏览器地址栏全部内容。
2. VB制作图浏览器
3. VB有人有办法控制Chrome内核的浏览器吗
4. 怎么用VB制作一个浏览器啊
5. VB文件夹浏览器控件有吗

一、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制作图浏览器

创建浏览器程序1)在File菜单上单击“NewProject”对话框，然后单击OK按钮创建新的标准可执行文件。HelloWorld程序从屏幕上消失了，一个空白的窗体出现在屏幕上（在程序关闭之前，你还有机会保存HelloWorld程序中任何未保存部分）。2)在Tools（工具）菜单中单击Options（选项）菜单项，然后单击Editor（编辑器）选项卡。如果RequireVariableDeclaration（要求变量声明）复选框被选中，那么单击该复选框去掉选中符号（第4课中将讨论该选项）。单击OK按钮。3)增加窗体的尺寸，以便能够放置下文件系统控件以便能更好地查看图像。滚动条显示在窗体周围，使用滚动条可以查看开发过程中窗体的任何被遮挡部分。4)单击工具箱中的DriveListBox（驱动器列表框）控件。5)将鼠标指针移动到窗体的左上角，然后绘出驱动器列表框，如下图所示：

创建驱动器列表框对象后，VisualBasic在该对象中显示当前驱动器以及卷标。这些信息帮助用户使用程序时查看当前选择的驱动器。它也帮助你在设计时验证该驱动器列表框是否能够显示所有的驱动器以及卷标信息，这样就可以根据情况调整驱动器列表框的大小。6)单击工具箱中的DirListBox（目录列表框）控件，然后把目录列表框添加到窗体上，放置在驱动器列表框的下方。保证该列表框中至少能够显示4个或五个文件夹。目录列表框对象提供了访问文件系统中文件夹的方法。当把目录列表框对象放置到窗体上后，文件夹如程序运行时那样显示在目录列表框中。现在如果单击其中的文件夹，由于该列表框处于不活动状态，因此什么动作也没有。现在显示的文件夹只是为了方便开发人员调整目录列表框的大小。7)单击工具箱中的FileListBox（文件列表框）控件，然后把文件列表框添加到窗体上，放置在目录列表框的下方。保证该列表框中至少能够显示4个或五个文件名。文件列表框对象让用户从文件系统中选择指定的文件。当用户选择了一个文件后，VisualBasic把文件名放置到文件列表框对象的Filename属性中。类似地，驱动器列表框对象的Drive属性和目录列表框对象的Path属性分别保存用户在驱动器和目录列表框中选择的驱动器和目录。浏览器程序使用这三个属性来打开用户选择的图像文件名。上述方式是程序中使用对象和属性的典型方式。程序运行时用户改变对象的设置，这种变化反映在属性中，属性在代码中处理。提示Drive、Path和Filename属性只在程序运行时可以使用（它们的值在使用文件系统列表框时被赋予）。不能在属性窗口中设置这几个属性的值。

8)单击工具箱中的图像控件，然后在窗体上绘制出一个较大的图像框，图像框放置到驱动器、目录和文件列表框的右部。添加了图像对象后，屏幕应该与下图相似：

9)现在在属性窗口中设置下述属性：

在本例的情况下，文件列表框的Pattern属性设置尤其重要。它列出了VisualBasic能够使用图像框在程序中显示的有效图片格式。如果该属性的值为空，那么文件列表框将列出文件夹下的所有文件；当用户选择了VisualBasic某个不支持的图像格式（比如TIFF）时，选择结果会导致系统崩溃或运行时出错。可能情况下，最好把这类问题挡在发生之前。现在在与文件系统对象相关的过程中写上几行代码。由于这些过程在程序运行后该对象上发生某个事件（比如鼠标单击）时执行，因此把它们称做事件过程。10)双击窗体上的驱动器列表框，然后在Drive1_Change事件过程中PrivateSub和EndSub语句之间键入下述程序段：dir1.path=Drive1.Drive注双击某个对象可以显示该对象的缺省事件过程。这条语句当用户在驱动器列表框中选择驱动器时修改目录列表框的Path属性。该语句把两个对象联系在一起，这样目录列表框中列出当前驱动器下的目录。11)关闭代码窗口（单击右上角的Close按钮即可）。然后双击窗体上的目录列表框，在Dir1_Change事件过程中增加下述代码：

File1.Path=Dir1.Path这条语句将文件列表框与目录列表框联系在一起，这样，就能够在文件列表框中显示所选文件夹下的文件。12)关闭代码窗口。现在双击窗体上的文件列表框，然后在File1_Click事件过程中增加下述代码：SelectedFile=File1.Path&"\"&File1.FilenameImage1.Picture=LoadPicture(SelectedFile)这两条语句是本程序的核心。第一行语句使用&运算符把File1的Path属性、\字符以及File1的Filename属性拼接在一起，然后把得到的路径名保存到变量SelectedFile中。变量是程序中存放信息的临时空间。本课中，SelectedFile变量保存了用户选择的文件名的完整名称（包括驱动器名和文件夹名）。事件过程中的第2条语句使用了SelectedFile变量，这条语句使用LoadPicture函数把SelectedFile变量指定的文件加载到图像框的Picture属性中。注第4课中将详细学习运算符、变量以及函数。输入了File1_Click事件过程的代码后，代码窗口的显示内容应该与下图相似。（图中的代码窗口使用了最大化显示方式）。

注完整的浏览器程序Browser.vbp放置在硬盘的\Vb6Sbs\Less03文件夹下。现在准备运行浏览器程序并把它保存到磁盘上。

运行浏览器程序1)单击工具条上的Start（启动）按钮。

浏览器程序在开发环境中启动运行。2)使用目录列表框打开文件夹\Vb6Sbs\Less03。所选文件夹下的Windows图元文件显示在文件列表框中。3)单击文件名answmach.wmf。所选文件（一幅应答机图片）显示在图像框中，如下图所示：

4)向下滚动列表，并单击Poundbag.wmf文件名。一个英国钱币袋的图像显示在图像框中。5)使用驱动器列表框、目录列表框以及文件列表框查看系统中其它位图、Windows图元文件以及图标。

在Windows文件夹下你会找到一些有趣的位图。试用完浏览器后，终止程序的运行，并将其保存到磁盘上。6)单击窗体上的Close按钮。7)在File菜单中单击“SaveProjectAs”菜单项，将窗体保存为Browser，将工程也保存为Browser。

三、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制作一个浏览器啊

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

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文件夹浏览器控件有吗

Visual Basic 6.0WebBrowser控件（也称作 Microsoft Internet控件或 Shdocvw.dll）是一种 ActiveX控件，使用它可以在应用程序内承载 Internet Explorer。

Visual Basic 2008WebBrowser控件为WebBrowserActiveX控件提供了托管包装。这样，便可以在 Windows窗体客户端应用程序中显示网页。使用WebBrowser控件，可以复制应用程序中的 Internet Explorer Web浏览功能，还可以禁用默认的 Internet Explorer功能，并将该控件用作简单的 HTML文档查看器。此外，可以使用该控件将基于 DHTML的用户界面元素添加到窗体中，还可以隐瞒这些元素在WebBrowser控件中承载的事实。通过这种方法，可以将 Web控件和 Windows窗体控件无缝地整合到一个应用程序中。

Visual Basic 6.0 Microsoft Internet控件由两个组件组成：WebBrowser控件和Internet Explorer对象，使用它们可以通过 OLE自动化来控制 Internet Explorer的实例。

Visual Basic 2008中没有Internet Explorer对象的等效项，与其相关的属性、方法和事件也不再存在。不再支持 OLE自动化；使用类似 VBScript的脚本语言可以控制 Internet Explorer的外部实例。

在 Visual Basic 6.0中，Document属性返回包含 HTML文档名称的字符串；在 Visual Basic 2008中，该属性返回 HTML文档本身。

Visual Basic 6.0Refresh2方法带有一个用于指定刷新级别的参数；Visual Basic 2008Refresh方法带有一个可用于指定刷新级别的可选参数。

WebBrowser控件的属性、方法和事件的等效项

关于本次vb内置谷歌浏览器吗和vb嵌入谷歌浏览器到窗体的问题分享到这里就结束了，如果解决了您的问题，我们非常高兴。