扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
VB.NET调用IE代码示例:
专注于为中小企业提供成都网站设计、网站制作服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业磐石免费做网站提供优质的服务。我们立足成都,凝聚了一批互联网行业人才,有力地推动了成百上千企业的稳健成长,帮助中小企业通过网站建设实现规模扩充和转变。
Dim p As New Process
'获得URL
aURL = GetURL()
'获得IE路径
p.StartInfo.FileName =
System.Environment.
GetFolderPath( _
Environment.SpecialFolder.
ProgramFiles).Trim() _
"\Internet Explorer\
IEXPLORE.EXE"
p.StartInfo.Arguments
= aDenURL
'启动IE
'p.Start(aDenURL)
p.Start()
'主程序开始等待IE结束
p.WaitForExit()
另一种VB.NET调用IE的方法
Imports System.Threading
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e
As System.EventArgs) Handles
Button1.Click
Dim webobj As Object
webobj = CreateObject("Internet
Explorer.Application")
With webobj
.visible = True
.Navigate2(";)
Do While (.busy Or .readyState 4)
Thread.Sleep(100)
Loop
.Document.f.q.Value = Me.TextBox1.Text
.Document.f.btng.Click()
End With
MsgBox("completed.")
End Sub
首先,必须有COM的基础知识,因为IE本身就是COM技术的典型应用。我们看到最上层是WebBrowser的宿主(Host),也就是任何你想重用 (ReUse)webbrowser control的应用程序,可以是vb程序,也可以是vc或者任何其他语言的应用程序。应用程序必须是可容纳activex控件的容器。
Webbrowser control既是activex control也是activex document 的宿主。作为控件,它可以置于任何activex容器,作为文档容器,它针对特殊的类型,调用特殊类型注册的文档server以显示文档。如果你想显示一 个.doc文档,webbrowser control装载windows word,,对于html文档,webbrowser装载名为mshtml的组件(如图所示)。针对不同的文档,你不需要开发不同的应用,仅仅是调用 webbrowser control即可。
Shdocvw
Shdocvw.dll包含了webbrowser control ,控制webbrowser control (就像控制其他任何activex com 控件一样),提供浏览能力给上层宿主。请注意webbrowser control位于第二级中。甚至IE也不直接而是通过shdocw.dll来使用webbrowser control的。尽管shdocvw提供了大部分的浏览功能,但是并不提供IE窗口的呈现功能。尽管如此,shdocvw还是提供了简单创建web 应用程序的能力。之后章节会讲到如何将ie的高级特性加入到你的应用程序。
MSHTML
早期的mshtml具有读取显示html的功能。MSHTML实际上是一个active 文档服务器,但是却可以作为其他控件的容器(如图中所示的)。记得吗,你可以将activex控件置于html中,此时mshtml就是一个 activex宿主,还可以控制其他的控件如vbscript 脚本引擎和javas
我前一段时间也做了个自动登录记录考勤的程序,可以使用WebBrowser控件。以下是当时在CSDN上查到的说明文档,希望对你有所帮助。
32.WebBrowser 控件-说明
很多地方还是空白,我还不知道用法。望各位赐教,谢谢
这是我自己编制浏览器时的资料,供各位参考。
控件文件:system32\shdocvw.oca shdocvw.dll
注册:regsvr32 shdocvw.dll
WebBrowser 是 IE 内核做的 VB 控件,
WebBrowser.Document 为活动的文档返回自动化对象,引用 Microsoft HTML Object Library 可查看详细属性和方法
下面的解说假设窗体中有一个名称为 Web1 的 WebBrowser 控件
■■方法 ==============================
▲GoBack 相当于IE的“后退”按钮,使你在当前历史列表中后退一项
▲GoForward 相当于IE的“前进”按钮,使你在当前历史列表中前进一项
▲GoHome 相当于IE的“主页”按钮,连接用户默认的主页
▲GoSearch 相当于IE的“搜索”按钮,连接用户默认的搜索页面
▲Navigate 连接到指定的 URL,并显示网页
▲Navigate2 与 Navigate 作用同?
▲Refresh 刷新当前页面
▲Refresh2 同上,只是可以指定刷新级别,所指定的刷新级别的值来自RefreshConstants枚举表,
该表定义在ExDisp.h中,可以指定的不同值如下:
REFRESH_NORMAL 执行简单的刷新,不将HTTP pragma: no-cache头发送给服务器
REFRESH_IFEXPIRED 只有在网页过期后才进行简单的刷新
REFRESH_CONTINUE 仅作内部使用。在MSDN里写着DO NOT USE! 请勿使用
REFRESH_COMPLETELY 将包含pragma: no-cache头的请求发送到服务器
▲Stop 相当于IE的“停止”按钮,停止当前页面及其内容的载入
■■属性===================================
▲Document 为活动的文档返回自动化对象。如果HTML当前正被显示在 Web1 中,则 Document 提供
对DHTML Object Model的访问途径。下面有详细介绍
▲TopLevelContainer 返回一个Boolean值,表明 IE 是否是 Web1 控件顶层容器,是就返回 true
▲Type 返回已被 Web1 控件加载的对象的类型。例如:
如果加载.doc文件,就会返回 Microsoft Word Document
▲LocationName 返回一个字符串,该字符串包含着 Web1 当前显示的资源的名称,
如果资源是网页就是网页的标题;
如果是文件或文件夹,就是文件或文件夹的名称
▲LocationURL 返回 Web1 当前正在显示的资源的 URL
▲Busy 返回一个Boolean值,说明 Web1 当前是否正在加载 URL,如果返回 true
就可以使用 stop 方法来撤销正在执行的访问操作
▲Object 设置返回一个显现网页的 SHDocVwCtl.WebBrowser_V1 对象。参见下文。
▲MenuBar
▲StatusBar
▲ToolBar
▲Visible
▲
■■事件===================================
▲BeforeNavigate2 导航发生前触发(打开网页前),刷新时不触发
▲CommandStateChange 当命令的激活状态改变时触发。它表明何时激活或关闭Back和Forward菜单项或按钮
▲DocumentComplete 当整个文档完成是触发,刷新页面不触发
▲DownloadBegin 当某项下载操作已经开始后触发,刷新也可触发此事件
▲DownloadComplete 当某项下载操作已经完成后触发,刷新也可触发此事件
▲NavigateComplete2 导航完成后触发,刷新时不触发
▲NewWindow2 弹出新窗口以前触发
可在此事件中设置 ppDisp 参数新网页显示对象,同时不会出现 SHDocVwCtl.WebBrowser_V1 的 NewWindow 事件
▲OnFullScreen 当 FullScreen 属性改变时触发。该事件采用 VARIENT_BOOL 的一个输入参数来指示 IE 是全
屏显示方式(VARIENT_TRUE)还是普通显示方式(VARIENT_FALSE)
▲OnMenuBar 改变 MenuBar 属性时触发,标示参数是 VARIENT_BOOL 类型的。
VARIANT_TRUE 可见,VARIANT_ FALSE 隐藏
▲OnQuit 无论是用户关闭浏览器还是开发者调用Quit方法,当IE退出时就会触发
▲OnStatusBar 改变 StatusBar 属性时触发,标示状态栏是否可见。
▲OnToolBar 改变 ToolBar 属性时触发,标示工具栏是否可见。
▲OnVisible 改变 Visible 属性时触发
▲StatusTextChange 控件的状态信息改变时触发。
▲TitleChange 网页标题改变时触发。参数 Text 是新标题,Web1.LocationName 属性是旧标题
■■SHDocVwCtl.WebBrowser_V1 对象==================
在窗体声明部分加入:Private WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1
在 Form_Load 加入:Set Web_V1 = Web1.Object
这样,Web_V1 就会有如下事件:
▲NewWindow 弹出新窗口以前触发
如果在 Web1_NewWindow2 设置了 ppDisp 为新显示对象,就不会出现此事件
★例子1,用自己开发的程序的新窗口显示弹出网页:
Dim nForm As New FormMain 'FormMain 为你的放有 Web1 控件的窗体
Processed = True '阻止控件调用 IE 弹出窗口
nForm.Show
nForm.Web1.Navigate URL
★例子2,在同一窗口显示网页:
Processed = True '阻止控件调用 IE 弹出窗口
Web1.Navigate URL
■■■■■■■■■■■■■■■■■■■■■■■■
■■Web1.Document 对象(HTMLDocument 对象)=======================
▲All(1)集合,已加载到 Web1 中的 html 文档包含的所有标签对象:HTMLAreaElement
集合对象索引起点为0,总个数为 All.length
可以用索引访问其中对象,如:All(1)
也可以用 Html 头元素名称访问对象,如:All("body")
All(0) 一般是自身的 outerHTML,可以这样返回文档代码(查看源文件):
Text1.Text = Web1.Document.All(0).outerhtml
但上一条语句并不可靠,有的网页开头的代码不是html,而是其他,例如:!--STATUS OK--
All()集合有 HTMLAreaElement 对象的大多数属性,有的元素还有特有的属性。
注意 某元素的 sourceIndex 属性就是该对象在 Document.All() 集合中的编号
▲body 主体元素对象:IHTMLElement
▲activeElement 活动元素:IHTMLElement
▲anchors 锚集合:IHTMLElementCollection
▲appendChild 方法:附加子对象(newChild As IHTMLDOMNode) As IHTMLDOMNode
▲applets 程序集合Java:IHTMLElementCollection
▲attachEvent 方法:隶属事件(event As String, pdisp As object) As Boolean
▲attributes 属性对象:object
▲bgColor 背景色:Variant
▲childNodes 子节点:object
▲clear 方法:清除
▲cloneNode 方法:复制节点(fDeep As Boolean) As IHTMLDOMNode
▲close 方法:关闭
▲compatMode
▲cookie 缓存
▲createAttribute 方法:创建属性(bstrattrName As String) As IHTMLDOMAttribute
▲createComment 方法:创建注释(bstrdata As String) As IHTMLDOMNode
▲createDocumentFragment 方法:创建文档片段() As IHTMLDocument2
▲createDocumentFromUrl 方法:从URL创建文档(bstrUrl As String, bstrOptions As String) As IHTMLDocument2
▲createElement 方法:创建元素(eTag As String) As IHTMLElement
▲CreateEventObject 方法:创建事件对象([pvarEventObject]) As IHTMLEventObj
▲createRenderStyle 方法:(v As String) As IHTMLRenderStyle
▲createStyleSheet 方法:创建方式表([bstrHref As String], [lIndex As Long = -1]) As IHTMLStyleSheet
▲createTextNode 方法:创建文本节点(text As String) As IHTMLDOMNode
▲defaultCharset 默认字符集?
▲detachEvent 方法:分离事件(event As String, pdisp As object)
▲dir
▲doctype 文档类型:IHTMLDOMNode
▲documentElement 文档元素:IHTMLElement
▲domain
▲elementFromPoint 方法:点所属组(x As Long, y As Long) As IHTMLElement
▲embeds :IHTMLElementCollection
▲execCommand 方法:实行命令(cmdID As String, [showUI As Boolean = False], [value]) As Boolean
▲execCommandShowHelp 方法:帮助命令(cmdID As String) As Boolean
▲fgColor 前景色:Variant
▲fileCreatedDate 文件创建日期
▲file Modified Date 文件修改日期
▲fileSize 文件大小
▲fileUpdatedDate 文件更新日期
▲FireEvent 方法:首事件(bstrEventName As String, [pvarEventObject]) As Boolean
▲firstChild 首子对象:IHTMLDOMNode
▲focus 方法:
▲forms 窗体:IHTMLElementCollection
▲frames 框架结构:FramesCollection
▲getElementById 方法:获取指定的 ID 元素(v As String) As IHTMLElement
▲getElementsByName 方法:获取指定的 Name 元素集合(v As String) As IHTMLElementCollection
▲getElementsByTagName 方法:获取指定的 TagName 元素集合(v As String) As IHTMLElementCollection
▲hasChildNodes 方法:
▲hasFocus 方法:() As Boolean
▲images 图像集合:IHTMLElementCollection
▲implementation 执行:IHTMLDOMImplementation
▲insertBefore 方法:插入前面(newChild As IHTMLDOMNode, [refChild]) As IHTMLDOMNode
▲lastChild
▲lastModified 上一修改
▲linkColor 链接色
▲alinkColor A 链接色:
▲vlinkColor V 链接色:
▲links 连接集合:IHTMLElementCollection
▲location 位置:HTMLLocation
▲media 媒体
▲mimeType
▲nameProp
▲namespaces 名称空间:object
▲nextSibling 下一相同对象
▲nodeName
▲nodeType
▲nodeValue
▲open 方法:打开([url As String = "text/html"], [name], [features], [replace]) As object
▲ownerDocument 所有者文档:object
▲parentNode 父节点:IHTMLDOMNode
▲parentWindow 父窗口:IHTMLWindow2
▲plugins 插件集合?:IHTMLElementCollection
▲previousSibling 前一兄弟:IHTMLDOMNode
▲protocol 协议
▲queryCommandEnabled 方法:查询命令能否执行(cmdID As String) As Boolean
▲queryCommandIndeterm 方法:查询命令? (cmdID As String) As Boolean
▲queryCommandState 方法:查询命令状态(cmdID As String) As Boolean
▲queryCommandSupported 方法:查询命令支持(cmdID As String) As String
▲queryCommandText 方法:查询命令文本(cmdID As String) As Boolean
▲queryCommandValue 方法:查询命令值 (cmdID As String)
▲readyState
▲recalc 方法:([fForce As Boolean = False])
▲referrer
▲releaseCapture 方法:
▲removeChild 方法:
▲removeNode 方法:
▲replaceChild 方法:
▲replaceNode 方法:替换节点(replacement As IHTMLDOMNode) As IHTMLDOMNode
▲scripts script集合:IHTMLElementCollection
▲security 安全:String
▲selection 已选择的对象集合:IHTMLSelectionObject
▲styleSheets 方式表单:HTMLStyleSheetsCollection
▲swapNode 方法:交换节点(otherNode As IHTMLDOMNode) As IHTMLDOMNode
▲title
▲toString 方法:
▲url
▲URLUnencoded
▲write 方法:(ParamArray psarray() As Variant)
▲writeln 方法:(ParamArray psarray() As Variant)
▲onstop 既是属性,又是事件
▲共有属性和事件
■■共有属性和事件:既是属性,又是事件。面带 on 的=======================
▲onactivate onActivate 激活
▲onafterupdate onAfterUpdate 更新后
▲onbeforeactivate onBeforeActivate 激活前
▲onbeforecopy onBeforeCopy 复制前
▲onbeforecut onBeforeCut 剪切前
▲onbeforedeactivate onBeforeDeactivate 无效前
▲onbeforeeditfocus onBeforeEditFocus 获得编辑焦点前
▲onbeforepaste onBeforePaste 粘贴前
▲onbeforeupdate onBeforeUpdate 更新前
▲onblur onBlur 模糊
▲oncellchange onCellChange 单元改变
▲onclick onClick 单击
▲oncontextmenu onContextMenu 上下文菜单
▲oncontrolselect onControlSelect 控件选定
▲oncopy onCopy 复制
▲oncut onCut 剪切
▲ondataavailable onDataAvailable 有用数据
▲ondatasetchanged onDataSetChanged 数据设置改变
▲ondatasetcomplete onDataSetComplete 数据设置完成
▲ondblclick onDblClick 双击
▲ondeactivate onDeactivate 变为非活动
▲ondrag onDrag 拖
▲ondragend onDragEnd 拖结束
▲ondragenter onDragEnter 拖进
▲ondragleave onDragLeave 拖离
▲ondragover onDragOver 拖过
▲ondragstart onDragStart 拖开始
▲ondrop onDrop
▲onerrorupdate onErrorUpdate 更新错误
▲onfilterchange onFilterChange 过滤器改变
▲onfocus onFocus
▲onfocusin onFocusIn 焦点进入
▲onfocusout onFocusOut 焦点离开
▲onhelp onHelp
▲onkeydown onKeyDown
▲onkeypress onKeyPress
▲onkeyup onKeyUp
▲onlayoutcomplete onLayoutComplete 版面完成
▲onlosecapture onLoseCapture 失去捕获
▲onmousedown onMouseDown
▲onmouseenter onMouseEnter
▲onmouseleave onMouseLeave
▲onmousemove onMouseMove
▲onmouseout onMouseOut
▲onmouseover onMouseOver
▲onmouseup onMouseUp
▲onmousewheel onMouseWheel 鼠标滚轮
▲onmove onMove
▲onmoveend onMoveEnd
▲onmovestart onMoveStart
▲onpage onPage
▲onpaste onPaste 粘贴
▲onpropertychange onPropertyChange 性质改变
▲onreadystatechange onSeadyStateChange 准备状态改变
▲onresize onResize
▲onresizeend onResizeEnd
▲onresizestart onResizeStart
▲onrowenter onRowEnter 行进入
▲onrowexit onRowExit
▲onrowsdelete onRowsDelete
▲onrowsinserted onRowsInserted
▲onscroll onScroll
▲onselectstart onSelectStart
-------
■■HTMLDivElement 对象:div 元素特有的属性=======================
▲align 排列:String
▲dataFld 数据流体:String
▲dataFormatAs 数据格式:String
▲dataSrc 数据Src:String
▲noWrap
■■HTMLAreaElement 对象:区域元素 大多数元素共有的属性=======================
一个 HTMLAreaElement 可以包含多个 HTMLAreaElement 对象,用 all() 集合访问
▲sourceIndex 对象在 Document.All() 集合中的编号
▲accessKey String:访问键
▲addBehavior 方法:添加行为(bstrUrl As String, [pvarFactory]) As Long
▲addFilter 方法:添加过滤器(pUnk As Unknown)
▲all 【参 HTMLAreaElement】
▲alt
▲appendChild 【参 HTMLAreaElement】
▲applyElement 方法:申请元素(apply As IHTMLElement, where As String) As IHTMLElement
▲attachEvent 方法:隶属事件(event As String, pdisp As object) As Boolean
▲attributes 【参 HTMLAreaElement】
▲behaviorUrns 行为缸对象:object
▲blur 方法:模糊
▲canHaveChildren 是否能拥有子对象
▲canHaveHTML 是否能拥有HTML
▲childNodes 子节点:object
▲children 是否子对象
▲className 类名
▲clearAttributes 方法:清除属性
▲click 方法:单击
▲clientHeight 内部高度?
▲clientLeft
▲clientTop
▲clientWidth
▲cloneNode 方法:克隆节点(fDeep As Boolean) As IHTMLDOMNode
▲componentFromPoint 方法:点所属组(x As Long, y As Long) As String
▲contains 方法:包含contains(pChild As IHTMLElement) As Boolean
▲contentEditable
▲coords
▲createControlRange 方法:创建控制山脉(行列)() As object
▲currentStyle 当前样式:IHTMLCurrentStyle
▲detachEvent 方法:分离事件(event As String, pdisp As object)
▲dir
▲disabled 不可用
▲document 文档对象:object
▲doScroll 方法([component])
▲dragDrop 方法:拖放
▲filters 过滤器: IHTMLFiltersCollection
▲FireEvent 方法FireEvent(bstrEventName As String, [pvarEventObject]) As Boolean
▲firstChild 首子对象:IHTMLDOMNode
▲focus 方法
▲getAdjacentText 方法:获取临近文本(where As String) As String
▲getAttribute 方法:获取属性(strAttributeName As String, [lFlags As Long])
▲getAttributeNode 方法:获取属性节点(bstrName As String) As IHTMLDOMAttribute
▲getBoundingClientRect 方法:获取内部范围矩形() As IHTMLRect
▲getClientRects 方法:获取委托矩形() As IHTMLRectCollection
▲getElementsByTagName 【参 HTMLAreaElement】
▲getExpression 方法:获取表达(propname As String)
▲hasChildNodes 【参 HTMLAreaElement】
▲hash 无用信息
▲hideFocus
▲host 主人
▲hostname 主人名称
▲href 默认属性
▲id 标示字符串
▲innerHTML 元素内的 html 代码
▲innerText 内部的纯文本,可以显示到网页上的文字
▲insertAdjacentElement 方法:插入临近元素(where As String, insertedElement As IHTMLElement) As IHTMLElement
▲insertAdjacentHTML 方法:(where As String, html As String)
▲insertAdjacentText 方法:(where As String, text As String)
▲insertBefore 方法:(newChild As IHTMLDOMNode, [refChild]) As IHTMLDOMNode
▲isContentEditable
▲isDisabled
▲isMultiLine
▲isTextEdit
▲lang
▲language
▲lastChild
▲mergeAttributes 方法:合并属性(mergeThis As IHTMLElement, [pvarFlags])
▲nextSibling 下一同级对象
▲nodeName
▲nodeType
▲nodeValue
▲noHref
▲normalize 方法:规格化
▲offsetHeight 偏移(缩进)高度
▲offsetLeft
▲offsetParent
▲offsetTop
▲offsetWidth
▲outerHTML 包含元素本身及内部的 html 代码
▲outerText
▲ownerDocument
▲parentElement
▲parentNode
▲parentTextEdit
▲pathname
▲port
▲previousSibling
▲protocol
▲readyState
▲recordNumber
▲releaseCapture 方法:释放捕获
▲removeAttribute 方法:移除属性
▲removeAttributeNode 方法
▲removeBehavior 方法:移除行为
▲removeChild 方法
▲removeExpression 方法
▲removeFilter 方法
▲removeNode 方法
▲replaceAdjacentText 方法:替换临近文本
▲replaceChild 方法
▲replaceNode 方法
▲runtimeStyle 运行方式:IHTMLStyle
▲scopeName 范围名称
▲scrollHeight
▲scrollIntoView 方法
▲scrollLeft
▲scrollTop
▲scrollWidth
▲search
▲setActive 方法
▲setAttribute 方法
▲setAttributeNode 方法
▲setCapture 方法
▲setExpression 方法
▲shape
▲style
▲swapNode 方法:交换节点
▲tabIndex
▲tagName 标签名
▲tagUrn 标签缸
▲target 目标
▲title
▲toString
■■Web1 应用例子
▲在网页加裁完毕后,运行其中某层的链接,当然事先必须知道该层链接的TagName:
WebBrowser1.Document.getElementsByname("TagName").click。
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流