各位老铁们，大家好，今天由我来为大家分享vb怎样连接谷歌浏览器，以及vbs调用谷歌浏览器的相关问题知识，希望对大家有所帮助。如果可以帮助到大家，还望关注收藏下本站，您的支持是我们最大的动力，谢谢大家了哈，下面我们开始吧！

本文目录

1. 在VB如何模仿浏览器地址输入
2. VB如何获得浏览器地址栏全部内容。
3. VB有人有办法控制Chrome内核的浏览器吗

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

窗体中添加一个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有人有办法控制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怎样连接谷歌浏览器的内容到此结束，希望对大家有所帮助。