Vb 怎么调用IE
Posted
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了Vb 怎么调用IE相关的知识，希望对你有一定的参考价值。
Call Shell("explorer.exe http://show.qq.com/p/f?t=10&i=462848", vbNormalFocus)
Shell "explorer http://show.qq.com/p/f?t=10&i=462848"
这两句在VB里面调用的时候，打开都出现问题，说是462849.htlm 找不到，唉
谁会呀
我奖励！！
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。
参考资料：CSDN博客
参考技术A 最佳答案在窗体中放置WebBrowser控件可以显示网页内容然后在Form_Load事件写下面的内容
WebBrowser1.Navigate ("www.baidu.com")
VB操作IE浏览器
相信现在绝大多数计算机上使用的是IE浏览器。如何通过编程控制IE的操作呢，本文将一步步介绍如何通过VB
调用IE的对象库来对IE进行控制。
本文使用的编程工具是VB6英文企业版，浏览器是IE5，以下的代码只能在IE4及以上版本下运行。另外为了能深
入了解程序代码，最好能安装MSDN。文中的所有对象、函数、事件在其中都可以查到。
一、如何获得Windows中所有打开的浏览器窗口
首先打开VB，建立一个新工程，点击菜单 Projects | References 项，在Available References 列表中选择
Microsoft Internet Controls项将Internet对象引用介入到工程中。添加一个ListBox到Form1，然后在Form1中添
加如下代码：
Dim dWinFolder As New ShellWindows
Private Sub Form_Load()
Dim objIE As Object
For Each objIE In dWinFolder
If InStr(1, objIE.FullName, "IEXPLORE.EXE", vbTextCompare) <> 0 Then
List1.AddItem objIE.LocationURL
End If
Next
End Sub
打开几个浏览器窗口，然后运行程序，可以看到所有浏览窗口中的URL地址都在List1中列了出来。
上面程序中的ShellWindows对象是描述当前所有打开的“浏览窗口”对象集合的对象，利用For...Each语句可以
获得其中所有的浏览窗口对象。这是一个WebBrowser对象，在MSDN索引中通过“WebBrowser Object”中可以找到该
对象的详细介绍
在ShellWindows中的浏览窗口对象不仅包含IE，还包含Explore窗口（向资源管理器或者“我的电脑”窗口就是
Explore）。只不过它们的宿主程序一个是IEXPLORE.EXE，一个是EXPLORE.EXE。所以对每一个对象首先根据其FulName
属性来判断窗口是IE浏览器，如果是，则将该窗口的URL地址列出来。
通过WebBrowser对象可以获得和设置浏览器窗口中的很多属性，例如窗口大小、工具栏、状态栏状态以及控制
窗口的浏览等，大家通过MSDN都可以查到。
二、如何得到每一个浏览窗口的内容
在上面程序的Form1中再添加一个TextBox控件，将MultiLine属性设置为True，然后在List1的Click事件中添加如
下代码：
Dim objDoc As Object
Dim objIE As Object
For Each objIE In dWinFolder
If objIE.LocationURL = List1.List(List1.ListIndex) Then
Set objDoc = objIE.Document
For i = 1 To objDoc.All.length - 1
If objDoc.All(i).tagname = "BODY" Then
Text1.Text = objDoc.All(i).innerText
End If
Next
Exit For
End If
Next
运行程序，点击ListBox中的一个列表，所对应的浏览器窗口中的文本内容就会显示在TextBox中。
在上面的程序中，首先根据ListBox中选择的URL获得Webrowser对象，然后根据Document属性获得文档对象。我们知道
一个页面中包括HEAD、TITLE、BODY部分，页面中还可能包括Applet、Script、连接、表单等，这些在文档中都是一个对象
在程序中就是循环文档对象下的所有对象，如果对象的名称是“BODY”，说明对象代表HTML文档的正文部分，那么访问对象
的innerText属性获得文档正文。关于Document对象更详细的信息，大家可以参考MSDN中Webbrowser object帮助中的
Document属性连接。
三、响应IE事件
上面的部分只是介绍了如何访问Webbrowser对象的属性，下面介绍如何监控IE事件。
在Form1中再添加一个CommandButton。在代码窗口的 [Gengeral]-[Declaration]添加下面的定义：
Dim WithEvents eventIE As WebBrowser_V1
这样就在Form1中新添加了一个对象，然后在Command1的Click事件中添加如下代码：
Dim objIE As Object
For Each objIE In dWinFolder
If objIE.LocationURL = List1.List(List1.ListIndex) Then
Set eventIE = objIE
Command1.Enabled = False
Text1.Text = ""
Exit For
End If
Next
在eventIE的NavigateComplete事件中添加如下代码：
Text1.Text = Text1.Text + Chr(13) + Chr(10) + URL
在Form的UnLoad事件中添加下面一句代码：
Set dWinFolder = Nothing
运行程序，在ListBox中选择一个URL后点击Command1，然后转到与所选项向对应的浏览窗口输入网站地址进行浏览，可以
看到所浏览过的站点地址在TextBox中一一列出。
上面的程序实现起来也很简单。首先定义一个可响应事件的Webbrowser对象，然后将它与在ListBox中选择的Webbrowser对
象联系起来，当浏览器发生变化时，eventIE对象就能响应相应的事件。
根据IE版本的不同，Webbrowser对象也不同，作者的浏览器是IE5.0，在上面将eventIE定义为WebBrowser_V1运行通过，如
果你的浏览器版本为4.0的话，可能在执行 Set eventIE = objIE 时，可能产生 Type mistake 错误，这时你可以尝试将
eventIE定义为:Dim WithEvents eventIE As WebBrowser
以上是关于Vb 怎么调用IE的主要内容，如果未能解决你的问题，请参考以下文章