VBWebbrowser控件使用方法

1、VB Webbrowser控件使用方法方法說(shuō)明GoBack相當(dāng)于IE的“后退”按鈕，使你在當(dāng)前歷史列表中后退一項(xiàng)GoForward相當(dāng)于IE的“前進(jìn)”按鈕，使你在當(dāng)前歷史列表中前進(jìn)一項(xiàng)GoHome相當(dāng)于IE的“主頁(yè)”按鈕，連接用戶默認(rèn)的主頁(yè)GoSearch相當(dāng)于IE的“搜索”按鈕，連接用戶默認(rèn)的搜索頁(yè)面Navigate連接到指定的URLRefresh刷新當(dāng)前頁(yè)面Refresh2同上，只是可以指定刷新級(jí)別，所指定的刷新級(jí)別的值來(lái)自RefreshConstants枚舉表， 該表定義在ExDisp.h中，可以指定的不同值如下： REFRESH_NORMAL 執(zhí)行簡(jiǎn)單的刷

2、新，不將HTTP pragma: no-cache頭發(fā)送給服務(wù)器 REFRESH_IFEXPIRED 只有在網(wǎng)頁(yè)過(guò)期后才進(jìn)行簡(jiǎn)單的刷新 REFRESH_CONTINUE 僅作內(nèi)部使用。在MSDN里寫(xiě)著DO NOT USE! 請(qǐng)勿使用 REFRESH_COMPLETELY 將包含pragma: no-cache頭的請(qǐng)求發(fā)送到服務(wù)器Stop相當(dāng)于IE的“停止”按鈕，停止當(dāng)前頁(yè)面及其內(nèi)容的載入屬性說(shuō)明Application如果該對(duì)象有效，則返回掌管WebBrowser控件的應(yīng)用程序?qū)崿F(xiàn)的自動(dòng)化對(duì)象(IDispatch。如果在宿主對(duì)

3、象中自動(dòng)化對(duì)象無(wú)效，這個(gè)程序?qū)⒎祷豔ebBrowser 控件的自動(dòng)化對(duì)象Parent返回WebBrowser控件的父自動(dòng)化對(duì)象，通常是一個(gè)容器，例如是宿主或IE窗口Container返回WebBrowser控件容器的自動(dòng)化對(duì)象。通常該值與Parent屬性返回的值相同Document為活動(dòng)的文檔返回自動(dòng)化對(duì)象。如果HTML當(dāng)前正被顯示在WebBrowser中，則 Document屬性提供對(duì)DHTML Object Model的訪問(wèn)途徑TopLevelContainer返回一個(gè)Boolean值，表明IE是否是WebBrowser控件頂層容器，是就返回trueType返回已被We

4、bBrowser控件加載的對(duì)象的類型。例如：如果加載.doc文件，就會(huì)返 回Microsoft Word DocumentLeft返回或設(shè)置WebBrowser控件窗口的內(nèi)部左邊與容器窗口左邊的距離Top返回或設(shè)置WebBrowser控件窗口的內(nèi)部左邊與容器窗口頂邊的距離Width返回或設(shè)置WebBrowser窗口的寬度，以像素為單位Height返回或設(shè)置WebBrowser窗口的高度，以像素為單位LocationName返回一個(gè)字符串，該字符串包含著WebBrowser當(dāng)前顯示的資源的名稱，如果資源 是網(wǎng)頁(yè)就是網(wǎng)頁(yè)的標(biāo)題；如果是文件或文件夾，就是文件或文件夾的名稱Loca

5、tionURL返回WebBrowser當(dāng)前正在顯示的資源的URLBusy返回一個(gè)Boolean值，說(shuō)明WebBrowser當(dāng)前是否正在加載URL，如果返回true 就可以使用stop方法來(lái)撤銷正在執(zhí)行的訪問(wèn)操作WebBrowser 的事件Private EventsDescriptionBeforeNavigate2導(dǎo)航發(fā)生前激發(fā)，刷新時(shí)不激發(fā)CommandStateChange當(dāng)命令的激活狀態(tài)改變時(shí)激發(fā)。它表明何時(shí)激活或關(guān)閉Back和Forward 菜單項(xiàng)或按鈕DocumentComplete當(dāng)整個(gè)文檔完成是激發(fā)，刷新頁(yè)面不激發(fā)DownloadBegin當(dāng)某項(xiàng)下載操作已經(jīng)

6、開(kāi)始后激發(fā)，刷新也可激發(fā)此事件DownloadComplete當(dāng)某項(xiàng)下載操作已經(jīng)完成后激發(fā)，刷新也可激發(fā)此事件NavigateComplete2導(dǎo)航完成后激發(fā)，刷新時(shí)不激發(fā)NewWindow2在創(chuàng)建新窗口以前激發(fā)OnFullScreen當(dāng)FullScreen屬性改變時(shí)激發(fā)。該事件采用VARIENT_BOOL的一個(gè)輸 入?yún)?shù)來(lái)指示IE是全屏顯示方式(VARIENT_TRUE還是普通顯示方式(VARIENT_FALSEOnMenuBar改變MenuBar的屬性時(shí)激發(fā)，標(biāo)示參數(shù)是VARIENT_BOOL類型的。 VARIANT_TRUE是可見(jiàn)，VARIANT_ FALSE是隱藏O

7、nQuit無(wú)論是用戶關(guān)閉瀏覽器還是開(kāi)發(fā)者調(diào)用Quit方法，當(dāng)IE退出時(shí)就會(huì)激發(fā)OnStatusBar與OnMenuBar調(diào)用方法相同，標(biāo)示狀態(tài)欄是否可見(jiàn)。OnToolBar調(diào)用方法同上，標(biāo)示工具欄是否可見(jiàn)。OnVisible控制窗口的可見(jiàn)或隱藏，也使用一個(gè)VARIENT_BOOL類型的參數(shù)StatusTextChange如果要改變狀態(tài)欄中的文字，這個(gè)事件就會(huì)被激發(fā)，但它并不理會(huì)程序是否有狀態(tài)欄TitleChangeTitle有效或改變時(shí)激發(fā)新加內(nèi)容：提交表單form1： Private Sub Command1_Click( WebBrowser1.Document.For

8、ms("form1".submit End Sub將form1中的名為u的屬性設(shè)為不可用： Private Sub Command2_Click( WebBrowser1.Document.Forms("form1".u.setAttribute "disabled", "disabled" End Sub將form1中的名為u的Text框中的內(nèi)容設(shè)為abc： Private Sub Command2_Click( WebBrowser1.Document

9、.Forms("form1".u.setAttribute "value", "abc" End Sub1、獲得瀏覽器信息： Private Sub Command1_Click( WebBrowser1.Navigate "" End Sub Private Sub Command2_Click( Dim oWindow Dim oNav Set oWindow = WebBrowser1.Document.parentWindow&

10、#160;Set oNav = oWindow.navigator Debug.Print oNav.userAgent Set oWindow = Nothing Set oNav = Nothing End Sub 點(diǎn)擊Command1瀏覽網(wǎng)頁(yè)，點(diǎn)擊Command2在立即窗口中輸出瀏覽器信息。2、彈出Webbrowser消息窗口Dim oWindow Set oWindow = WebBrowser1.Document.parentWindow oWindow.confirm "abcd"VB調(diào)用we

11、bbrowser技巧集2向Webbrowser中寫(xiě)入HTML內(nèi)容的幾種方法首先在Form_Load中加入WebBrowser1.Navigate "about:blank"確保Webbrowser1可用方法1：Dim s As String Dim stream As IStreams = "" s = s + "" s = s + "" s = s + "hello world" s = s + "" s = s

12、+ " WebBrowser1.Document.Write s方法2：Dim oSet o = WebBrowser1.Document.selection.createrange Debug.Print o If (Not o Is Nothing Then o.pasteHTML "哈哈" Set o = Nothing End If方法3：插入文本框 Dim oSet o = WebBrowser1.Document.selection.createrangeo.execCommand

13、"InsertTextArea", False, "xxx"vb調(diào)用Webbrowser技巧集3 1、頁(yè)面滾動(dòng)：Private Sub Command2_Click( WebBrowser1.Document.parentwindow.scrollby 0, 30 End SubPrivate Sub Form_Load( WebBrowser1.Navigate "" End Sub點(diǎn)擊Command2就可以使當(dāng)前頁(yè)面向下滾動(dòng)30像素2、判斷頁(yè)面是否可以前進(jìn)后退Private Sub

14、 Command1_Click( WebBrowser1.GoForward End SubPrivate Sub Command2_Click( WebBrowser1.GoBack End SubPrivate Sub Form_Load( WebBrowser1.Navigate "" End SubPrivate Sub WebBrowser1_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean PageIf (Command

15、= CSC_NAVIGATEBACK Then Command2.Enabled = Enable End If If (Command = CSC_NAVIGATEFORWARD Then Command1.Enabled = Enable End If End SubVB調(diào)用webbrowser技巧集41、如何使網(wǎng)頁(yè)不出現(xiàn)滾動(dòng)條：Private Sub mnuScroll1_Click( #注意：必須在網(wǎng)頁(yè)完全顯示之后才可以運(yùn)行 WebBrowser1.Document.body.Scroll = "

16、no" #不顯示滾動(dòng)條的辦法 End Sub Private Sub mnuScroll2_Click( #注意：必須在網(wǎng)頁(yè)完全顯示之后才可以運(yùn)行 WebBrowser1.Document.body.Scroll = "Auto" #顯示滾動(dòng)條的辦法 End Sub2、如何獲得網(wǎng)頁(yè)中被選中部分的HTML：Private Sub Command1_Click( Dim objSelection Dim objTxtRangeSet objSelection = WebBrowser1.Docume

17、nt.selection If Not (objSelection Is Nothing Then Set objTxtRange = objSelection.createRange If Not (objTxtRange Is Nothing Then Debug.Print objTxtRange.htmlTextSet objTxtRange = Nothing End If Set objSelection = Nothing End If End SubPrivate Sub Form_Load(

18、60;WebBrowser1.Navigate "" End SubNavigate 方 法 的 語(yǔ) 法 格 式 為：WebBrowser 控 件 名.Navigate URL Flags,TargetFrameName,PostData,Headers- WebBrowser 控 件 支 持 的 主 要 方 法 有:GoBack 回 退 到 上 一 屏。 GoForward 進(jìn) 入 到 下 一 屏。 GoHome 回 家。 即 回 到 主 頁(yè)。 Stop 停 止 導(dǎo) 航。 Refresh 刷 新。 Na

19、vigate 導(dǎo) 航。- WebBrowser 控 件 所 響 應(yīng) 的 事 件:- BeforeNavigate 事 件 在 開(kāi) 始 導(dǎo) 航 前 發(fā) 生。 一 般 在 此 獲 取 完 整 的URL 字 符 串。- WebBrowser 控 件 最 主 要 的 參 數(shù):- URL 獲 得 導(dǎo) 航 用 的 標(biāo) 準(zhǔn)URL 字 符 串。 例 如： 它 能 將”www.MicroSoft.Com” 自 動(dòng) 翻 譯 為”http:/www.MicroSoft.Com”.URL 是Uniform Resource Locator 的 縮 寫(xiě)， 是 在Internet 的WWW 服 務(wù) 程 序 上 用 于 指

20、 定 信 息 位 置 的 表 示 方 法。使用WebBrowser的Navigator或者Navigator2方法打開(kāi)一個(gè)asp文檔并且傳遞參數(shù)進(jìn)去，但是asp文檔無(wú)法獲得參數(shù)，請(qǐng)教是什么原因？vb源碼： Private Sub cmdSubmit_Click( Dim strURL As String, strFormData As String Dim strData As String strURL = Trim$(txtURL.Text strFormData = "name=" & Trim$(txtNam

21、e.Text &"&password=" & Trim$(txtPassword.Text Call WBTest.Navigate2(strURL, 64, "_blank", strFormData, Page"hello" End Subasp源碼：<% Language=VBScript %> <% dim strName dim strPassword strName=Trim(Request.Form("name

22、" strPassword=Trim(Request.Form("password" Response.Write(strName Response.Write(strPassword if strName="KingZhang" and strPassword="123456" then Response.Write("登陸成功" else Response.Write("非法登陸用戶！" end if%

23、>*Option ExplicitPrivate Sub Command1_Click( Dim szValue As String WebBrowser1.Document.body.innerHTML = "method=post action=http:/地址/xxx.php> " WebBrowser1.Document.Forms("post".submit End SubPrivate Sub Form_Load( WebBrowser1.Navigate2 "

24、about:blank" End Sub Top*請(qǐng)問(wèn)：在WebBrwoser控件里提供的Navigate或者Navigate2方法中提供了傳遞數(shù)據(jù)的參數(shù)，調(diào)用方式為：WebBrowser1.Navigate2(URL,Flags,TargetFrameName,PostData,Headers 其中PostData參數(shù)就是一個(gè)提交參數(shù)字符串，例如"name=aaa&password=123"，但問(wèn)題是為什么這個(gè)方法并不是有效的，服務(wù)器端不能取得數(shù)據(jù)？ 如果這個(gè)方法是有效的話就不需要用一段html代碼模擬這種調(diào)用了。

25、下面代碼能檢測(cè)出程序post出去的消息Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean MsgBox PostData End SubWebBrowser的8個(gè)方法和13個(gè)屬性WebBrowser的8個(gè)方法和13個(gè)屬性，以及它們的功能：方法 說(shuō)明 Go

26、Back 相當(dāng)于IE的“后退”按鈕，使你在當(dāng)前歷史列表中后退一項(xiàng)GoForward 相當(dāng)于IE的“前進(jìn)”按鈕，使你在當(dāng)前歷史列表中前進(jìn)一項(xiàng) GoHome 相當(dāng)于IE的“主頁(yè)”按鈕，連接用戶默認(rèn)的主頁(yè) GoSearch 相當(dāng)于IE的“搜索”按鈕，連接用戶默認(rèn)的搜索頁(yè)面 Navigate 連接到指定的URL Refresh 刷新當(dāng)前頁(yè)面 Refresh2 同上，只是可以指定刷新級(jí)別，所指定的刷新級(jí)別的值來(lái)自RefreshConstants枚舉表， 該表定義在ExDisp.h中，可以指定的不同值如下： REFRESH_NORMAL 執(zhí)行簡(jiǎn)單的刷新，不將HTTP pragma: no-cache頭發(fā)送給服務(wù)器 REFRESH_IFEXPIRED 只有在網(wǎng)頁(yè)過(guò)期后才進(jìn)行簡(jiǎn)單的刷新 REFRESH_CONTINUE 僅作內(nèi)部使用。在MSDN里寫(xiě)著DO NOT USE! 請(qǐng)勿使用 REFRESH_COMPLETELY 將包含pragma: no-cache頭的請(qǐng)求發(fā)送到服務(wù)器 PageStop 相當(dāng)于IE的“停止