关于webbrower控件的使用.docx

1、关于webbrower控件的使用关于webbrower控件的使用 步骤 说明 GoBack 无异于IE的“退后”旋钮，使你在目前历史列表中退后一项 GoForward 等同于IE的“前行”旋钮，使你在目前历史列表中前行一项 GoHome 等同于IE的“首页”旋钮，联接用户默许的首页 GoSearch 无异于IE的“搜寻”旋钮，联接用户默许的搜寻页面 Navigate 联接到指定的URL Refresh 刷新现阶段页面 Refresh二 同上，只是可以指定刷新级别，所指定的刷新级别的值来源于RefreshConstants枚举表， 该表定义在ExDisp.h中，可以指定的不同值如次： REFRE

2、SH_NORMAL 实施简略的刷新，不将HTTP pragma: no-cache毛发送给服务器 REFRESH_IFEXPIRED 惟独在网页逾期后才开展简略的刷新 REFRESH_CONTINUE 仅作内部运用。在MSDN里写着DO NOT USE! 切莫运用 REFRESH_COMPLETELY 将包孕pragma: no-cache头的请求发送到服务器 Stop 无异于IE的“终止”旋钮，终止现阶段页面及其内容的载入 属性 说明 Application 如其该对象有效，则回到主持WebBrowser控件的应用程序兑现的自动化对象(IDispatch)。如果在宿主对象中自动化对象无效，这

3、个程序将回来WebBrowser 控件的自动化对象 Parent 回来WebBrowser控件的父自动化对象，通常是一个器皿，比如是宿主或IE窗口 Container 回来WebBrowser控件器皿的自动化对象。正常该值与Parent属性回到的值雷同 Document 为活动的文档回到自动化对象。如其HTML目前正被展示在WebBrowser中，则 Document属性提供对DHTML Object Model的访问路径 TopLevelContainer 回来一个Boolean值，表明IE是不是是WebBrowser控件高层器皿，是便回来true Type 回到已被WebBrowser控件

4、加载的对象的部类。比如：如若加载.doc资料，就会返 来Microsoft Word Document Left 回到或设立WebBrowser控件窗口的内部左面与器皿窗口左面的距离 Top 回来或设立WebBrowser控件窗口的内部左首与器皿窗口顶边的距离 Width 回来或设立WebBrowser窗口的宽度，以像素为组织 Height 回到或设立WebBrowser窗口的高度，以像素为机构 LocationName 回到一个字符串，该字符串包含着WebBrowser现阶段展示的资源的姓名，如若资源 是网页乃是网页的题目；如果是资料或文件夹，乃是资料或文件夹的姓名 LocationURL

5、回到WebBrowser现阶段在展示的资源的URL Busy 回来一个Boolean值，说明WebBrowser目前是不是在加载URL，如若回来true 就可以施用stop步骤来撤消在实施的访问操作 Document 属性 回到包孕 HTML 文档姓名的字符串。 Silent 属性 禁止展示任何部类的对话框。 DocumentText属性 获取或设立现阶段网页的 HTML 内容 Url 属性 获取或设立现阶段网页的 URL。设立该属性时，会将该控件定位到新的 URL。 DocumentCompleted 事件 网页完成加载时产生。 BeforeNavigate 事 件 开 始 导 航 前 发

6、生。 1 般 在 此 获 取 完 整 的URL 字 符 串。 GoBack GoForward GoHome步骤 定位到历史记录中的上一页和下一页和首页。 Refresh步骤 刷新目前页 Navigate 步骤 定位到指定的 URL。Navigate 方 法 的 语 法 格 式 为： Flags,TargetFrameName,PostData,Headers URL 参数 Uniform Resource Locator获 得 导 航 用 的 标 准URL 字 符 串。 例 如： 它 会 将”www.MicroSoft.Com” 从 动 翻 译 为”http:/www.MicroSoft.C

7、om”. webBrowser运用摘引Microsoft HTML Object Library和Microsoft Internet Controls控件 获取Document对象Set WBD = WebBrowser一.Document 获取网页源代码 WebBrowser一.Document.body.createtextrange().htmltext 最简略的登陆 Set WBD = WebBrowser一.DocumentWBD.body.All(name).Value = WBD.body.All(PASS).Value = WBD.Forms(零).submit 调用带参数的

8、javascript WBD.parentWindow.execScript document.login.submit(), javascript 障蔽网页的alert对话框 Private Sub WebBrowser一_NavigateComplete二(ByVal pDisp As Object, URL As Variant) pDisp.Document.parentWindow.execScript window.alert=null; End Sub 遍历 For mIndex = 零 To mDocument.Forms.length - 一 输出每个FORMPrint mD

9、ocument.Forms(mIndex).NamelstLinks.AddItem 输出联接For mIndexEx = 零 To mDocument.links.length - 一 输出联接lstLinks.AddItem mDocument.links(mIndexEx)NextlstLinks.AddItem 图片地址For mIndexEx = 零 To mDocument.images.length - 一 输出图片lstLinks.AddItem mDocument.images(mIndexEx).src 图片地址NextNext 数据下载完毕后操作 Private Sub

10、WebBrowser一_DocumentComplete(ByVal pDisp As Object, URL As Variant)If URL Then Exit SubDoIf Not WebBrowser一.Busy Then Exit DoDoEventsLoop 取得浏览器信息： Private Sub Command一_Click() WebBrowser一.Navigate End Sub Private Sub Command二_Click() Dim oWindow Dim oNav Set oWindow = WebBrowser一.Document.parentWind

11、ow Set oNav = oWindow.navigator Debug.Print oNav.userAgent Set oWindow = Nothing Set oNav = Nothing End Sub （点击Command一浏览网页，点击Command二在立地窗口中输出浏览器信息。） 弹出Webbrowser讯息窗口 Dim oWindow Set oWindow = WebBrowser一.Document.parentWindow oWindow.confirm abcd 页面滚动： Private Sub Command二_Click()WebBrowser一.Docume

12、nt.parentwindow.scrollby 零, 30End SubPrivate Sub Form_Load()WebBrowser一.Navigate End Sub（点击Command二就可以使目前页面临下滚动30像素） 判断页面是不是可此前进退后 Private Sub Command一_Click()WebBrowser一.GoForwardEnd SubPrivate Sub Command二_Click()WebBrowser一.GoBackEnd SubPrivate Sub Form_Load()WebBrowser一.Navigate End SubPrivate S

13、ub WebBrowser一_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean)If (Command = CSC_NAVIGATEBACK) ThenCommand二.Enabled = EnableEnd IfIf (Command = CSC_NAVIGATEFORWARD) ThenCommand一.Enabled = EnableEnd IfEnd Sub 向Webbrowser中写下HTML内容的几种步骤： 首先在Form_Load中加入 WebBrowser一.Navigate about:blan

14、k 保准Webbrowser一可用 步骤一： Dim s As String Dim stream As IStream s = s = s + s = s + s = s + hello world s = s + s = s + WebBrowser一.Document.Write s 步骤二： Dim o Set o = WebBrowser一.Document.selection.createrange Debug.Print o If (Not o Is Nothing) Then o.pasteHTML 哈哈哈 Set o = Nothing End If 步骤三： 安插文本框 D

15、im o Set o = WebBrowser一.Document.selection.createrange o.execCommand InsertTextArea, False, xxx 何以使网页不出现滚动条： Private Sub mnuScroll一_Click() #注意：务须在网页完全展示以后才可以运作 WebBrowser一.Document.body.Scroll = no #不展示滚动条的办法 End Sub Private Sub mnuScroll二_Click() #注意：务必在网页完全展示以后才可以运作 WebBrowser一.Document.body.Scr

16、oll = Auto #展示滚动条的办法 End Sub 何以取得网页中被选中一部分的HTML： Private Sub Command一_Click() Dim objSelection Dim objTxtRange Set objSelection = WebBrowser一.Document.selection If Not (objSelection Is Nothing) Then Set objTxtRange = objSelection.createRange If Not (objTxtRange Is Nothing) Then Debug.Print objTxtRan

17、ge.htmlText Set objTxtRange = Nothing End If Set objSelection = Nothing End If End Sub Private Sub Form_Load() WebBrowser一.Navigate End Sub =运用WebBrowser的Navigator也许Navigator二步骤打开一个asp文档而且传送 参数进入，但是asp文档没法取得参数，讨教是什么原因？ vb源码： Private Sub cmdSubmit_Click() Dim strURL As String, strFormData As String D

18、im strData As String strURL = Trim$(txtURL.Text) strFormData = name= & Trim$(txtName.Text) & &password= & Trim$(txtPassword.Text) Call WBTest.Navigate二(strURL, 64, _blank, strFormData, hello) End Sub asp源码： * Option Explicit Private Sub Command一_Click() Dim szValue As String WebBrowser一.Document.bod

19、y.innerHTML = method=post action=http:/地址/xxx.php WebBrowser一.Document.Forms(post).submit End Sub Private Sub Form_Load() WebBrowser一.Navigate二 about:blank End Sub Top * 在WebBrwoser控件里提供的Navigate或许Navigate二步骤中提供了传送数据 的参数，调用形式为：WebBrowser一.Navigate二(URL,Flags, TargetFrameName,PostData,Headers) 内中Post

20、Data参数乃是一个交付参数目字符串，比如name=aaa&password=123， 但问题是为何这个步骤并不是有效的，服务器端不能获得数据？ 如其这个步骤是有效的话就不需要用一段html代码模拟这种调用了。 下边代码能检测出程序post出去的讯息 Private Sub WebBrowser一_BeforeNavigate二(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel A

21、s Boolean) MsgBox PostData End Sub 何以利用 WebBrowser 控件,展示 .GIF 卡通? 要有一定的网页常识(HTML、JavaScript、CSS) 注意细节: 没滚动条和鼠标右键弹出的 IE 前后文菜单,.HTM 源文件 . 我写了一个,成效还真不错! Objects: Form一、Command一、CommonDialog一、WebBrowser一 Option Explicit Private Sub Command一_Click() CommonDialog一.ShowOpen If VBA.Len(VBA.Trim(CommonDialog

22、一.FileName) 零 Then Dim p As stdole.StdPicture Dim sPath As String sPath = VBA.Trim(VBA.Trim(CommonDialog一.FileName) Set p = VB.LoadPicture(sPath) WebBrowser一.Width = p.Width * 16 / 26 WebBrowser一.Height = p.Height * 16 / 26 WebBrowser一.Navigate about:blank WebBrowser一.Document.open WebBrowser一.Docum

23、ent.writeln WebBrowser一.Document.writeln WebBrowser一.Document.writeln WebBrowser一.Document.writeln WebBrowser一.Document.writeln WebBrowser一.Document.writeln WebBrowser一.Document.writeln WebBrowser一.Document.writeln WebBrowser一.Document.writeln WebBrowser一.Document.writeln End If End Sub Private Sub

24、Form_Load() Command一.Caption = &Open WebBrowser一.Navigate about:blank WebBrowser一.Document.open WebBrowser一.Document.writeln WebBrowser一.Document.writeln WebBrowser一.Document.writeln WebBrowser一.Document.writeln WebBrowser一.Document.writeln WebBrowser一.Document.writeln WebBrowser一.Document.writeln W

25、ebBrowser一.Document.Close End Sub WebBrowser控件说明 步骤 说明 GoBack 等同于IE的“退后”旋钮，使你在现阶段历史列表中退后一项 GoForward 等同于IE的“前行”旋钮，使你在现阶段历史列表中前行一项 GoHome 无异于IE的“首页”旋钮，联接用户默许的首页 GoSearch 无异于IE的“搜寻”旋钮，联接用户默许的搜寻页面 Navigate 联接到指定的URL Refresh 刷新目前页面 Refresh二 同上，只是可以指定刷新级别，所指定的刷新级别的值来源于RefreshConstants枚举表， 该表定义在ExDisp.h中，

26、可以指定的不同值如次： REFRESH_NORMAL 施行容易的刷新，不将HTTP pragma: no-cache毛发送给服务器 REFRESH_IFEXPIRED 惟独在网页逾期后才开展简略的刷新 REFRESH_CONTINUE 仅作内部运用。在MSDN里写着DO NOT USE! 切莫应用 REFRESH_COMPLETELY 将包孕pragma: no-cache头的请求发送到服务器 Stop 等同于IE的“终止”旋钮，终止目前页面及其内容的载入 属性 说明 Application 如若该对象有效，则回到主持WebBrowser控件的应用程序兑现的自动化对象(IDispatch)。如

27、果在宿主对象中自动化对象无效，这个程序将回到WebBrowser 控件的自动化对象 Parent 回来WebBrowser控件的父自动化对象，通常是一个器皿，比如是宿主或IE窗口 Container 回到WebBrowser控件器皿的自动化对象。正常该值与Parent属性回到的值雷同 Document 为活动的文档回到自动化对象。如其HTML现阶段正被展示在WebBrowser中，则 Document属性提供对DHTML Object Model的访问路径 TopLevelContainer 回来一个Boolean值，表明IE是不是是WebBrowser控件中上层器皿，是便回来true Typ

28、e 回来已被WebBrowser控件加载的对象的门类。比如：如其加载.doc资料，就会返 来Microsoft Word Document Left 回来或设立WebBrowser控件窗口的内部左侧与器皿窗口左面的距离 Top 回到或设立WebBrowser控件窗口的内部左侧与器皿窗口顶边的距离 Width 回来或设立WebBrowser窗口的宽度，以像素为部门 Height 回来或设立WebBrowser窗口的高度，以像素为组织 LocationName 回来一个字符串，该字符串包含着WebBrowser目前展示的资源的姓名，如其资源 是网页便是网页的题目；如果是资料或文件夹，便是资料或文件

29、夹的姓名 LocationURL 回来WebBrowser现阶段在展示的资源的URL Busy 回来一个Boolean值，说明WebBrowser现阶段是不是在加载URL，如若回来true 就可以应用stop步骤来取消在施行的访问操作 WebBrowser 的事件 Private Events Description BeforeNavigate二 领航发作前激起，刷新时不激起 CommandStateChange 应下令的激活状态改变时激起。它表明几时激活或封闭Back和Forward 菜单项或旋钮 DocumentComplete 应整个文档完成是激起，刷新页面不激起 DownloadBegin 应某项下载操作已经开始后激起，刷新也可激起此事件 DownloadComplete 应某项下载操作已经完成后激起，刷新也可激起此事件 NavigateComplete二 领航完成后激起，刷新时不激起 NewWindow二 在创造新窗口早先激起 OnFullScreen 应FullScreen属性改变时激起。该事件采取VARIENT_BOOL的一个输 进参数来指示IE是全屏展示形式(VARIENT_TRUE)仍是普普通通展示形式(VARIENT_FALSE) OnMenuBar 改变MenuBar的属性时激