用VB开发IE

原创 2001年09月09日 22:15:00
用VB开发IE

    随着网络用户的增加和Internet的普及与发展,浏览器已成为最受网络用户欢迎的软件之一。广大软件研制者特别是MIS开发者都希望把浏览器集成到自己的软件中来,使自己的软件能浏览WEB页面而功能更强大、更具特色。目前市场上流行的浏览器软件种类及版本很多。但要把它方便地集成到自己的软件中去,却受到以下几个方面的限制:浏览器带有各自的运行环境和配置文件;浏览器很大,集成到自己的软件中后运行效率低;开发者更想让浏览器具有自己的特色。

    因此,软件研制者都想开发自己的浏览器,而Visual Basic 5.0就提供了这种功能。笔者曾经用Visual Basic 5.0开发出简单的浏览器,编译出可执行文件后很小(只有33K),并成功地把它集成到其它软件中。下面给出制作步骤和程序清单,稍加修改就可做出自己喜欢的浏览器。

    1.打开一应用,打开一个Form(brower);

    2.在Brower里加入Toolbar控件toolbar1,增加常用的命令按钮(如back、next、stop、refresh、home、Search、open、exit等),同时加入Imagelist控件imagelist1,并加入自己喜欢的图形,然后和toolbar1中的命令按钮对应起来。

    3.加入定时器Timer控件timer1,并设置好;

    4.加入Label控件label1,Caption设为“Web地址”,加入Combobox控件combo1,加入Statusbar控件statusbar1.加入Webbrowser控件browser1;

    5.然后写入以下程序代码:

PublicStartingAddressAsString
DimflagAsBoolean
PrivateSubForm—Load()
OnErrorResumeNext
Me.Show
ToolBar1.Refresh
Open″d:/vb5/brow.ini″ForInputAs#2
′打开上次的WEBIP地址
Input#2,StartingAddress
Close#2
IfLen(StartingAddress)>0Then
combo1.Text=StartingAddress
combo1.AddItemStartingAddress
webbrowser1.NavigateStartingAddress
EndIf
EndSub
PrivateSubwebbrowser1—DownloadComplete()
OnErrorResumeNext
Me.Caption=webbrowser1.LocationName
EndSub
PrivateSubwebbrowser1—NavigateComplete(ByValURLAsString)
DimiAsInteger
DimbFoundAsBoolean
Me.Caption=webbrowser1.LocationName
Fori=0Tocombo1.ListCount-1
Ifcombo1.List(i)=webbrowser1.LocationURL
Then
bFound=True
ExitFor
EndIf
Nexti
flag=True
IfbFoundThen
combo1.RemoveItemi
EndIf
combo1.AddItemwebbrowser1.LocationURL,0
combo1.ListIndex=0
MousePointer=0
webbrowser1.Navigatecombo1.Text
StatusBar1.Panels(1).Text=″当前页面″+combo1.Text
flag=False
EndSub
PrivateSubcombo1—Click()
IfflagThenExitSub
Timer1.Enabled=True
MousePointer=11
StatusBar1.Panels(1).Text=″正在连接″+combo1.Text+″......″
webbrowser1.Navigatecombo1.Text
EndSub
PrivateSubcombo1—KeyPress(KeyAsciiAsInteger)
OnErrorResumeNext
IfKeyAscii=vbKeyReturnThen
combo1—Click
End If
End Sub
PrivateSubTimer1-Timer()
Ifwebbrowser1.Busy=FalseThen
Timer1.Enabled=False
Me.Caption=webbrowser1.LocationName
Else
Me.Caption=″Working...″
EndIf
EndSub
PrivateSubToolBar1-ButtonClick(ByValButtonAsButton)
OnErrorResumeNext
Timer1.Enabled=True
SelectCaseButton.Key
Case″exit″
UnloadMe
Case″Back″
webbrowser1.GoBack
Case″Forward″
webbrowser1.GoForward
Case″Refresh″
webbrowser1.Refresh
Case″Home″
webbrowser1.GoHome
Case″Search″
webbrowser1.GoSearch
Case″open″
CommonDialog1.ShowOpen
combo1.Text=CommonDialog1.filename
Case″Stop″
Timer1.Enabled=False
MousePointer=0
webbrowser1.Stop
Me.Caption=webbrowser1.LocationName
EndSelect
EndSub

    该程序经编译后即是一简单普通浏览器,可方便地集成到其他软件中去。

BHO开发浏览器插件-Hello Word

利用ATL框架开发BHO浏览器插件网上有不少资料,具体的过程就不写了。参考资料如下: MSDN:https://msdn.microsoft.com/en-us/library/bb250489(v=...
  • anda0109
  • anda0109
  • 2015年12月08日 22:34
  • 2675

调用 IE 浏览器的开发者工具

本文介绍了借助于 Spy++、Process Explorer、WinDbg 和 IDA 等工具来分析 IE 开发者工具调用接口的整个过程。...
  • titilima
  • titilima
  • 2013年11月22日 10:06
  • 5029

【ahk】用标题名称激活IE指定tab

;功能:激活IE指定tab /* 测试方法: 打开IE 依次访问 http://www.baidu.com/ http://cn.bing.com/ 百度处于不激活状态、必应处于激活状态。 */ ;...
  • liuyukuan
  • liuyukuan
  • 2015年01月18日 01:12
  • 2204

VB6对象浏览器的用法

估计不少书都把这个强大的工具忽略了,这里补充一下。在VB6的IDE里按下F2,或者选择【视图】菜单的【对象浏览器】菜单项,就可以打开对象浏览器。对象浏览器可以看到一个库中的全部类,模块,枚举的定义。...
  • JiLuoXingRen
  • JiLuoXingRen
  • 2013年07月27日 02:11
  • 6442

手把手教你用VB制作ActiveX控件

随着控件在可视化编程中地位地位提高,控件也成了编程中最重要的一部分。许多VB编程者也许苦于没有好看的控件,今天登高望远来教大家如何制作ActiveX控件。 一、新建工程       1.选择Acti...
  • qq_33582668
  • qq_33582668
  • 2016年06月11日 19:41
  • 3952

如何用VB编写自己的DLL文件,并调用其中的函数

如何用VB编写自己的DLL文件,并调用其中的函数?
  • sillyboy1104
  • sillyboy1104
  • 2015年03月09日 22:54
  • 2582

基于IE内核的多标签浏览器开发过程

By Fanxiushu  2014 转载或引用请注明原作者 原文链接:http://blog.csdn.net/fanxiushu/article/details/21837859 在W...
  • huasonl88
  • huasonl88
  • 2015年04月04日 09:29
  • 7219

使用JS开发IE、360浏览器、chrome浏览器插件

互联网资料整理
  • u012670530
  • u012670530
  • 2014年09月09日 10:56
  • 2726

不重启IE修改代理服务器的设置

IE通过Internet选项进行代理服务器的设置相信大家很熟悉,但是有的情况下,需要有一堆代理IP进行切换,这样就显得很不方便。那我们就弄小工具实现下切换先介绍下注册表下的两个键    HKEY_CU...
  • longzhiwen888
  • longzhiwen888
  • 2015年06月19日 15:47
  • 534

芯钰科运动控制卡--VB 快速搭建软件平台(运动控制卡编程示范)

首先,将函数包放入系统 找到VB函数包,复制 将YK8A04VB函数包放入C盘windows/system32     1定长运动控制示范程序 2 打开或初始化卡 /**************...
  • evenou
  • evenou
  • 2014年03月23日 22:47
  • 2469
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用VB开发IE
举报原因:
原因补充:

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