自己的IE——用VB制作浏览器

原创 2001年01月19日 20:22:00

自己的IE——用VB制作浏览器

作者:钱可栋

自己做浏览器?有没有搞错?不要说像IE这样的庞然大物,就是小巧的Opera,我们大多数普通人也决计搞不出来。但如果你的机器里装有VB5.0专业版,那么事情就好办多了,想试试吗?那好,Let`s go!
  程序的主角是一个ActiveX控件:WebBrowser。当然,缺省状态下VB的工具箱中并没有它,我们得手工加入,方法是:右击工具箱,在出现的快捷菜单中选择“部件...”,确保在弹出的对话框中选中“控件”标签,找到Microsoft Internet Controls,在它前面的小框中打钩,然后确定。此时你会发现工具箱中多了两个小图标,其中,地球图标代表的控件正是我们需要的WebBrowser。
  由于许多人对WebBrowser控件不是很熟悉,VB的帮助中也没有有关它的内容(反正我没有找到),因此有必要介绍一下它的属性、方法和事件,限于篇幅,我们只涉及程序中用到的:
  属性:LocationURL 返回控件显示WEB页面的URL。
  方法:Navigate 转移到指定的URL或打开指定HTML文件。
  事件:1.DownloadBegin 下载操作开时触发。
  2.DownloadComplete 下载操作完成、终止或失败时触发。
  3.ProgressChange WebBrowser控件跟踪下载操作的过程,并定期触发此事件。其语法为:Sub WebBrowser_ProgressChange (ByVal Progress As Long, ByVal ProgressMax As Long)。Progress变元是当前已下载的数据总量,ProgressMax变元是将要下载的数据总量。
  4.TitleChange 当前文档标题改变时触发
  除了WebBrowser控件外,程序还需要一个Label控件:Label1;一个ComboBox控件:combo1,用来显示URL地址;一个StatusBar控件:StatusBar1;一个ProgressBar控件:ProgressBar1,用来显示下载进度(StatusBar控件和ProgressBar控件是ActiveX控件Microsoft Windows Common Controls5.0的成员,加入工具箱的方法同WebBrowser控件),这些控件的属性值都用缺省值。
  以下是程序清单:
  Option Explicit
  
  Private Sub Form_Load()
  Me.Caption =“My Explorer”
  Label1.Caption = “URL”
  Combo1.Text = “”
  Combo1.Top = Label1.Height
  Combo1.Left = 0
  WebBrowser1.Top = Combo1.Top + Combo1.Height
  WebBrowser1.Left = 0
  Form_Resize
  StatusBar1.Style = sbrSimple
  ProgressBar1.Zorder
  End Sub
  
  Private Sub Form_Resize()
  On Error GoTo a
  Combo1.Width = Form1.Width - 100
  WebBrowser1.Width = Combo1.Width
  WebBrowser1.Height = Form1.Height - Combo1.Height - 1000
  ProgressBar1.Top = Me.Height - StatusBar1.Height - 330
  ProgressBar1.Left = 0.25 * StatusBar1.Width
  ProgressBar1.Width = 0.75 * Me.Width - 250
  a:
  End Sub
  
  Private Sub Combo1_Click()
  `转到指定网址
  WebBrowser1.Navigate Combo1.Text
  End Sub
  
  Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
  Dim I As Long
  Dim existed As Boolean
  If KeyCode = 13 Then
  If Left(Combo1.Text, 7) <> “http://”Then
  Combo1.Text = “http://”+ Combo1.Text
  End If
  WebBrowser1.Navigate Combo1.Text
  For I = 0 To Combo1.ListCount - 1
  If Combo1.List(I) = Combo1.Text Then
  existed = True
  Exit For
  Else
  existed = False
  End If
  Next
  If Not existed Then
  Combo1.AddItem (Combo1.Text)
  End If
  End If
  End Sub
  
  Private Sub WebBrowser1_DownloadBegin()
  `下载开始时状态栏显示“Now Linking...”
  StatusBar1.SimpleText = “Now Linking...”
  End Sub
  
  Private Sub WebBrowser1_DownloadComplete()
  `下载完成时状态栏显示“Link Finished”
  StatusBar1.SimpleText = “Link Finished”
  ProgressBar1.Value = 0
  End Sub
  
  Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long,
ByVal ProgressMax As Long)
  `下载进行时进度条变化
  If ProgressMax = 0 Then Exit Sub
  ProgressBar1.Max = ProgressMax
  If Progress <> -1 And Progress <= ProgressMax Then
  ProgressBar1.Value = Progress
  End If
  End Sub
  
  Private Sub WebBrowser1_TitleChange(ByVal Text As String)
  Combo1.Text = WebBrowser1.LocationURL
  End Sub

自己的IE——用VB制作浏览器

自己做浏览器?有没有搞错?不要说像IE这样的庞然大物,就是小巧的Opera,我们大多数普通人也决计搞不出来。但如果你的机器里装有VB5.0专业版,那么事情就好办多了,想试试吗?那好,Let`s go!...
  • surro
  • surro
  • 2007年08月20日 15:16
  • 577

vb制作简单的多窗口浏览器(1)

之前由于做自动考勤的时候接触到了webbrowser这个东西,于是打算进行更深入一点的操作.制作一个简单的VB多窗口浏览器.普通的VB浏览器网上有太多的资料了.如果想知道用VB做浏览器的基础知识,那么...
  • tiandi79
  • tiandi79
  • 2009年01月04日 12:42
  • 4544

vb操作ie浏览器

相信现在绝大多数计算机上使用的是IE浏览器。如何通过编程控制IE的操作呢,本文将一步步介绍如何通过VB   调用IE的对象库来对IE进行控制。   本文使用的编程工具是VB6英文企业版,浏览器是IE5...
  • sysdzw
  • sysdzw
  • 2009年09月11日 00:07
  • 4250

利用VB实现对IE的调用与控制

随着网络应用的不断扩展,采用HTML语言编写的文档越来越多,如何在VB程序中实现对HTML文档的浏览是一个需要解决的问题。本文以一个实例说明了在VB中调用和控制Internet Explorer的方法...
  • yangguojian1985
  • yangguojian1985
  • 2006年05月27日 17:24
  • 731

[VB][测试技术应用]VB与IE交互实现WEB画面的自动测试(用VB填写IE中控件的内容和提交表单)

VB与IE交互实现WEB画面的自动测试(用VB填写IE中控件的内容和提交表单) 看这篇文件需要有VBA编程基础.我们在做WEB项目测试的时候,为了测试一个点在IE上反复的输入相同的内容,浪费了很多的时...
  • szwangdf
  • szwangdf
  • 2007年09月10日 21:17
  • 3472

自制简单浏览器

使用 jswing 自制一个简单的浏览器  实现 浏览网络 ,本地资源, 有前进 ,后退 ,刷新,文件新建等 package com.itheima.net; import java.aw...
  • luobing_csdn
  • luobing_csdn
  • 2017年03月27日 11:13
  • 390

vb6.0 清除IE浏览器缓存

Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 2" 这是 IE 清理文件的的说明 清除Internet临时文件 RunDl...
  • boys1999
  • boys1999
  • 2015年03月21日 11:22
  • 955

获取IE浏览器Cookie信息

很多人不知道如何去获取IE浏览器中的Cookie信息,其实获取Cookie的方式很简单,只需要调用InternetGetCookie这个API就可以获得了。 InternetGetCookie的...
  • rztyfx
  • rztyfx
  • 2016年12月03日 21:07
  • 744

VB与IE浏览器交互——自动填表

VB填充IE上的输入框并提交       假设登录页面的HTML代码如下:                           testPage                      ...
  • swfcsunboy
  • swfcsunboy
  • 2008年02月15日 11:34
  • 5595

VB6对象浏览器的用法

估计不少书都把这个强大的工具忽略了,这里补充一下。在VB6的IDE里按下F2,或者选择【视图】菜单的【对象浏览器】菜单项,就可以打开对象浏览器。对象浏览器可以看到一个库中的全部类,模块,枚举的定义。...
  • JiLuoXingRen
  • JiLuoXingRen
  • 2013年07月27日 02:11
  • 6513
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:自己的IE——用VB制作浏览器
举报原因:
原因补充:

(最多只允许输入30个字)