老铁们，大家好，相信还有很多朋友对于vb谷歌浏览器内核和谷歌游览器内核的相关问题不太懂，没关系，今天就由我来为大家分享分享vb谷歌浏览器内核以及谷歌游览器内核的问题，文章篇幅可能偏长，希望可以帮助到大家，下面一起来看看吧！

本文目录

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

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

窗体中添加一个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文件夹浏览器控件有吗

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谷歌浏览器内核和谷歌游览器内核的问题分享结束啦，以上的文章解决了您的问题吗？欢迎您下次再来哦！