大家好，今天小编来为大家解答vb控制谷歌浏览器这个问题，vb控制chrome很多人还不知道，现在让我们一起来看看吧！

本文目录

1. vb6调用edge浏览器
2. VB有人有办法控制Chrome内核的浏览器吗
3. 在VB如何模仿浏览器地址输入

一、vb6调用edge浏览器

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

二、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控制谷歌浏览器的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb控制chrome、vb控制谷歌浏览器的信息别忘了在本站进行查找哦。