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

本文目录

1. 怎么用VB制作一个浏览器啊
2. 在VB如何模仿浏览器地址输入
3. VB文件夹浏览器控件有吗

一、怎么用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如何模仿浏览器地址输入

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

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控件的属性、方法和事件的等效项

好了，文章到此结束，希望可以帮助到大家。