大家好，今天给各位分享vb嵌入谷歌浏览器的一些知识，其中也会对vb调用谷歌浏览器进行解释，文章篇幅可能偏长，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在就马上开始吧！

本文目录

1. VB有人有办法控制Chrome内核的浏览器吗
2. 在VB如何模仿浏览器地址输入
3. 怎么用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如何模仿浏览器地址输入

可以使用API函数ShellExcute,我给您写了一个简单的程序,您运行后可以看到结果和关于ShellExcute的说明,望加分！

3.另存为“frmMain.frm”（注意,保存为frm后缀名）

4.双击“frmMain.frm”将自动调用VB6打开.

注意:我的代码是frm文件的源文件,不要直接粘贴在VB6的IDE里面双击出来的文本框里！

代码如下>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Caption="Search Assistant Demo"

StartUpPosition= 3'窗口缺省

Begin VB.Frame fraQueryEngine

Begin VB.OptionButton optQueryEngine

Caption="雅虎: "

Begin VB.OptionButton optQueryEngine

Caption="Google: "

Begin VB.OptionButton optQueryEngine

Caption="百度: "

Begin VB.TextBox txtQueryText

Begin VB.CommandButton cmdQuery

Attribute VB_GlobalNameSpace= False

Attribute VB_PredeclaredId= True

'**************************************************************************************************************

' 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参数

'**************************************************************************************************************

'**************************************************************************************************************

' Declare Function GetLastError Lib"kernel32"() As Long

'针对之前调用的api函数，用这个函数取得扩展错误信息（在vb里使用：在vb中，用Err对象的GetLastError属性获取

'GetLastError的值。这样做是必要的，因为在api调用返回以及vb调用继续执行期间，vb有时会重设GetLastError的值）

' Long，由api函数决定。请参考api32.txt文件，其中列出了一系列错误常数；都以ERROR_前缀起头。

' ERROR_INVALID_HANDLE无效的句柄作为一个参数传递

' ERROR_CALL_NOT_IMPLEMENTED在win 95下调用专为win nt设计的win32 api函数

' ERROR_INVALID_PARAMETER函数中有个参数不正确

' GetLastError返回的值通过在api函数中调用SetLastError或SetLastErrorEx设置。函数并无必要设置上一次错误信息，所

'以即使一次GetLastError调用返回的是零值，也不能担保函数已成功执行。只有在函数调用返回一个错误结果时，这个函数指

'出的错误结果才是有效的。通常，只有在函数返回一个错误结果，而且已知函数会设置GetLastError变量的前提下，才应访问

'GetLastError；这时能保证获得有效的结果。SetLastError函数主要在对api函数进行模拟的dll函数中使用，所以对vb应用程

'**************************************************************************************************************

'**************************************************************************************************************

' Declare Function ShowWindow Lib"user32"(ByVal hwnd As Long, _

' ByVal nCmdShow As Long) As Long

'控制窗口的可见性（在vb里使用：针对vb窗体及控件，请使用对应的vb属性）

' Long，如窗口之前是可见的，则返回TRUE（非零），否则返回FALSE（零）

' hwnd Long，窗口句柄，要向这个窗口应用由nCmdShow指定的命令

' nCmdShow Long，为窗口指定可视性方面的一个命令。

' SW_HIDE隐藏窗口，活动状态给令一个窗口

' SW_MINIMIZE最小化窗口，活动状态给令一个窗口

' SW_RESTORE用原来的大小和位置显示一个窗口，同时令其进入活动状态

' SW_SHOW用当前的大小和位置显示一个窗口，同时令其进入活动状态

' SW_SHOWMAXIMIZED最大化窗口，并将其激活

' SW_SHOWMINIMIZED最小化窗口，并将其激活

' SW_SHOWMINNOACTIVE最小化一个窗口，同时不改变活动窗口

' SW_SHOWNA用当前的大小和位置显示一个窗口，不改变活动窗口

' SW_SHOWNOACTIVATE用最近的大小和位置显示一个窗口，同时不改变活动窗口

' SW_SHOWNORMAL与SW_RESTORE相同

'**************************************************************************************************************

Private Declare Function ShellExecute Lib"shell32.dll" Alias"ShellExecuteA"(ByVal hwnd As Long, _

ByVal lpOperation As String, _

ByVal lpParameters As String, _

ByVal lpDirectory As String, _

ByVal nShowCmd As Long) As Long

Dim szQueryEngine As String'搜索引擎代码

'载入窗体时初始化搜索引擎代码,默认为optQueryEngine的默认引擎,即百度搜索的搜索代码

szQueryEngine=""

'使用Option数组来选择搜索引擎,Option数组的名字为"optQueryEngine",分别代表三个不同搜索引擎,可另行添加

Private Sub optQueryEngine_Click(Index As Integer)

szQueryEngine=""

szQueryEngine=""

szQueryEngine=""

'使用TextBox来输入待查询的词,TextBox的名字为"txtQueryText",以下过程使txtQueryText获取焦点时自动全选

Private Sub txtQueryText_GotFocus()

txtQueryText.SelLength= Len(txtQueryText.Text)

Debug.Print IIf((ShellExecute(Me.hwnd,"open", szQueryEngine& txtQueryText.Text, vbNullString, vbNullString, 0))> 32,"Successed","Failed")

三、怎么用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)

好了，本文到此结束，如果可以帮助到大家，还望关注本站哦！