步驟 說(shuō)明
GoBack 無(wú)異于IE的“退后”旋鈕，使你在目前歷史列表中退后一項(xiàng)
GoForward 等同于IE的“前行”旋鈕，使你在目前歷史列表中前行一項(xiàng)
GoHome 等同于IE的“首頁(yè)”旋鈕，聯(lián)接用戶(hù)默許的首頁(yè)
GoSearch 無(wú)異于IE的“搜尋”旋鈕，聯(lián)接用戶(hù)默許的搜尋頁(yè)面
Navigate 聯(lián)接到指定的URL
Refresh 刷新現(xiàn)階段頁(yè)面
Refresh二 同上，只是可以指定刷新級(jí)別，所指定的刷新級(jí)別的值來(lái)源于RefreshConstants枚舉表，
該表定義在ExDisp.h中，可以指定的不同值如次：
REFRESH_NORMAL 實(shí)施簡(jiǎn)略的刷新，不將HTTP pragma: no-cache毛發(fā)送給服務(wù)器
REFRESH_IFEXPIRED 惟獨(dú)在網(wǎng)頁(yè)逾期后才開(kāi)展簡(jiǎn)略的刷新
REFRESH_CONTINUE 僅作內(nèi)部運(yùn)用。在MSDN里寫(xiě)著DO NOT USE! 切莫運(yùn)用
REFRESH_COMPLETELY 將包孕pragma: no-cache頭的請(qǐng)求發(fā)送到服務(wù)器
Stop 無(wú)異于IE的“終止”旋鈕，終止現(xiàn)階段頁(yè)面及其內(nèi)容的載入
屬性 說(shuō)明
Application 如其該對(duì)象有效，則回到主持WebBrowser控件的應(yīng)用程序兌現(xiàn)的自動(dòng)化對(duì)象(IDispatch)。如果在宿主對(duì)象中自動(dòng)化對(duì)象無(wú)效，這個(gè)程序?qū)⒒貋?lái)WebBrowser
控件的自動(dòng)化對(duì)象
Parent 回來(lái)WebBrowser控件的父自動(dòng)化對(duì)象，通常是一個(gè)器皿，比如是宿主或IE窗口
Container 回來(lái)WebBrowser控件器皿的自動(dòng)化對(duì)象。正常該值與Parent屬性回到的值雷同
Document 為活動(dòng)的文檔回到自動(dòng)化對(duì)象。如其HTML目前正被展示在WebBrowser中，則
Document屬性提供對(duì)DHTML Object Model的訪問(wèn)路徑
TopLevelContainer 回來(lái)一個(gè)Boolean值，表明IE是不是是WebBrowser控件高層器皿，是便回來(lái)true
Type 回到已被WebBrowser控件加載的對(duì)象的部類(lèi)。比如：如若加載.doc資料，就會(huì)返
來(lái)Microsoft Word Document
Left 回到或設(shè)立WebBrowser控件窗口的內(nèi)部左面與器皿窗口左面的距離
Top 回來(lái)或設(shè)立WebBrowser控件窗口的內(nèi)部左首與器皿窗口頂邊的距離
Width 回來(lái)或設(shè)立WebBrowser窗口的寬度，以像素為組織
Height 回到或設(shè)立WebBrowser窗口的高度，以像素為機(jī)構(gòu)
LocationName 回到一個(gè)字符串，該字符串包含著WebBrowser現(xiàn)階段展示的資源的姓名，如若資源
是網(wǎng)頁(yè)乃是網(wǎng)頁(yè)的題目；如果是資料或文件夾，乃是資料或文件夾的姓名
LocationURL 回到WebBrowser現(xiàn)階段在展示的資源的URL
Busy 回來(lái)一個(gè)Boolean值，說(shuō)明WebBrowser目前是不是在加載URL，如若回來(lái)true
就可以施用stop步驟來(lái)撤消在實(shí)施的訪問(wèn)操作
http://hi.baidu.com/lovemoe/creat/blog/
Document 屬性
回到包孕 HTML 文檔姓名的字符串。
Silent 屬性
禁止展示任何部類(lèi)的對(duì)話框。
DocumentText屬性
獲取或設(shè)立現(xiàn)階段網(wǎng)頁(yè)的 HTML 內(nèi)容
Url 屬性
獲取或設(shè)立現(xiàn)階段網(wǎng)頁(yè)的 URL。設(shè)立該屬性時(shí)，會(huì)將該控件定位到新的 URL。
DocumentCompleted 事件
網(wǎng)頁(yè)完成加載時(shí)產(chǎn)生。
BeforeNavigate 事 件
開(kāi) 始 導(dǎo) 航 前 發(fā) 生。 1 般 在 此 獲 取 完 整 的URL 字 符 串。
GoBack GoForward GoHome步驟
定位到歷史記錄中的上一頁(yè)和下一頁(yè)和首頁(yè)。
Refresh步驟
刷新目前頁(yè)
Navigate 步驟
定位到指定的 URL。Navigate 方 法 的 語(yǔ) 法 格 式 為：
[Flags,][TargetFrameName,][PostData,][Headers]
URL 參數(shù)
Uniform Resource Locator獲 得 導(dǎo) 航 用 的 標(biāo) 準(zhǔn)URL 字 符 串。 例 如： 它 會(huì) 將”www.MicroSoft.Com” 從 動(dòng) 翻 譯 為”http://www.MicroSoft.Com”.
webBrowser運(yùn)用
http://hi.baidu.com/lovemoe/creat/blog/
摘引Microsoft HTML Object Library和Microsoft Internet Controls控件
'獲取Document對(duì)象
Set WBD = WebBrowser一.Document
獲取網(wǎng)頁(yè)源代碼
WebBrowser一.Document.body.createtextrange().htmltext
最簡(jiǎn)略的登陸
Set WBD = WebBrowser一.Document
WBD.body.All('name').Value =' '
WBD.body.All('PASS').Value = ' '
WBD.Forms(零).submit
調(diào)用帶參數(shù)的javascript
WBD.parentWindow.execScript 'document.login.submit()', 'javascript'
障蔽網(wǎng)頁(yè)的alert對(duì)話框
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 - 一 '輸出每個(gè)FORM
Print mDocument.Forms(mIndex).Name
lstLinks.AddItem '輸出聯(lián)接'
For mIndexEx = 零 To mDocument.links.length - 一 '輸出聯(lián)接
lstLinks.AddItem mDocument.links(mIndexEx)
Next
lstLinks.AddItem '圖片地址'
For mIndexEx = 零 To mDocument.images.length - 一 '輸出圖片
lstLinks.AddItem mDocument.images(mIndexEx).src '圖片地址
Next
Next
數(shù)據(jù)下載完畢后操作
Private Sub WebBrowser一_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If URL <> 'Do
If Not WebBrowser一.Busy Then Exit Do
DoEvents
Loop
取得瀏覽器信息：
Private Sub Command一_Click()
WebBrowser一.Navigate 'End Sub
Private Sub Command二_Click()
Dim oWindow
Dim oNav
Set oWindow = WebBrowser一.Document.parentWindow
Set oNav = oWindow.navigator
Debug.Print oNav.userAgent
Set oWindow = Nothing
Set oNav = Nothing
End Sub
（點(diǎn)擊Command一瀏覽網(wǎng)頁(yè)，點(diǎn)擊Command二在立地窗口中輸出瀏覽器信息。）
彈出Webbrowser訊息窗口
Dim oWindow
Set oWindow = WebBrowser一.Document.parentWindow
oWindow.confirm 'abcd'
頁(yè)面滾動(dòng)：
Private Sub Command二_Click()
WebBrowser一.Document.parentwindow.scrollby 零, 30
End Sub
Private Sub Form_Load()
WebBrowser一.Navigate 'End Sub
（點(diǎn)擊Command二就可以使目前頁(yè)面臨下滾動(dòng)30像素）
判斷頁(yè)面是不是可此前進(jìn)退后
Private Sub Command一_Click()
WebBrowser一.GoForward
End Sub
Private Sub Command二_Click()
WebBrowser一.GoBack
End Sub
Private Sub Form_Load()
WebBrowser一.Navigate 'End Sub
Private Sub WebBrowser一_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean)
If (Command = CSC_NAVIGATEBACK) Then
Command二.Enabled = Enable
End If
If (Command = CSC_NAVIGATEFORWARD) Then
Command一.Enabled = Enable
End If
End Sub
向Webbrowser中寫(xiě)下HTML內(nèi)容的幾種步驟：
首先在Form_Load中加入
WebBrowser一.Navigate 'about:blank'
保準(zhǔn)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
步驟三：
'安插文本框
Dim o
Set o = WebBrowser一.Document.selection.createrange
o.execCommand 'InsertTextArea', False, 'xxx'
何以使網(wǎng)頁(yè)不出現(xiàn)滾動(dòng)條：
Private Sub mnuScroll一_Click()
@#注意：務(wù)須在網(wǎng)頁(yè)完全展示以后才可以運(yùn)作
WebBrowser一.Document.body.Scroll = 'no' @#不展示滾動(dòng)條的辦法
End Sub
Private Sub mnuScroll二_Click()
@#注意：務(wù)必在網(wǎng)頁(yè)完全展示以后才可以運(yùn)作
WebBrowser一.Document.body.Scroll = 'Auto' @#展示滾動(dòng)條的辦法
End Sub
何以取得網(wǎng)頁(yè)中被選中一部分的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 objTxtRange.htmlText
Set objTxtRange = Nothing
End If
Set objSelection = Nothing
End If
End Sub
Private Sub Form_Load()
WebBrowser一.Navigate 'End Sub
==================
運(yùn)用WebBrowser的Navigator也許Navigator二步驟打開(kāi)一個(gè)asp文檔而且傳送
參數(shù)進(jìn)入，但是asp文檔沒(méi)法取得參數(shù)，討教是什么原因？
vb源碼：
Private Sub cmdSubmit_Click()
Dim strURL As String, strFormData As String
Dim 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.body.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二步驟中提供了傳送數(shù)據(jù)
的參數(shù)，調(diào)用形式為：WebBrowser一.Navigate二(URL,[Flags],
[TargetFrameName],[PostData],[Headers])
內(nèi)中PostData參數(shù)乃是一個(gè)交付參數(shù)目字符串，比如'name=aaa&password=123'，
但問(wèn)題是為何這個(gè)步驟并不是有效的，服務(wù)器端不能獲得數(shù)據(jù)？
如其這個(gè)步驟是有效的話就不需要用一段html代碼模擬這種調(diào)用了。
下邊代碼能檢測(cè)出程序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 As Boolean)
MsgBox PostData
End Sub
何以利用 WebBrowser 控件,展示 .GIF 卡通?
要有一定的網(wǎng)頁(yè)常識(shí)(HTML、JavaScript、CSS)
注意細(xì)節(jié):
沒(méi)'滾動(dòng)條'和'鼠標(biāo)右鍵彈出的 IE 前后文菜單','.HTM 源文件' ...
我寫(xiě)了一個(gè),成效還真不錯(cuò)!
'Objects: Form一、Command一、CommonDialog一、WebBrowser一
Option Explicit
Private Sub Command一_Click()
CommonDialog一.ShowOpen
If VBA.Len(VBA.Trim(CommonDialog一.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一.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 ''
WebBrowser一.Document.writeln ''
End If
End Sub
Private Sub 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 ''
WebBrowser一.Document.Close
End Sub
WebBrowser控件說(shuō)明
步驟 說(shuō)明
GoBack 等同于IE的“退后”旋鈕，使你在現(xiàn)階段歷史列表中退后一項(xiàng)
GoForward 等同于IE的“前行”旋鈕，使你在現(xiàn)階段歷史列表中前行一項(xiàng)
GoHome 無(wú)異于IE的“首頁(yè)”旋鈕，聯(lián)接用戶(hù)默許的首頁(yè)
GoSearch 無(wú)異于IE的“搜尋”旋鈕，聯(lián)接用戶(hù)默許的搜尋頁(yè)面
Navigate 聯(lián)接到指定的URL
Refresh 刷新目前頁(yè)面
Refresh二 同上，只是可以指定刷新級(jí)別，所指定的刷新級(jí)別的值來(lái)源于RefreshConstants枚舉表，
該表定義在ExDisp.h中，可以指定的不同值如次：
REFRESH_NORMAL 施行容易的刷新，不將HTTP pragma: no-cache毛發(fā)送給服務(wù)器
REFRESH_IFEXPIRED 惟獨(dú)在網(wǎng)頁(yè)逾期后才開(kāi)展簡(jiǎn)略的刷新
REFRESH_CONTINUE 僅作內(nèi)部運(yùn)用。在MSDN里寫(xiě)著DO NOT USE! 切莫應(yīng)用
REFRESH_COMPLETELY 將包孕pragma: no-cache頭的請(qǐng)求發(fā)送到服務(wù)器
Stop 等同于IE的“終止”旋鈕，終止目前頁(yè)面及其內(nèi)容的載入
屬性 說(shuō)明
Application 如若該對(duì)象有效，則回到主持WebBrowser控件的應(yīng)用程序兌現(xiàn)的自動(dòng)化對(duì)象(IDispatch)。如果在宿主對(duì)象中自動(dòng)化對(duì)象無(wú)效，這個(gè)程序?qū)⒒氐絎ebBrowser
控件的自動(dòng)化對(duì)象
Parent 回來(lái)WebBrowser控件的父自動(dòng)化對(duì)象，通常是一個(gè)器皿，比如是宿主或IE窗口
Container 回到WebBrowser控件器皿的自動(dòng)化對(duì)象。正常該值與Parent屬性回到的值雷同
Document 為活動(dòng)的文檔回到自動(dòng)化對(duì)象。如其HTML現(xiàn)階段正被展示在WebBrowser中，則
Document屬性提供對(duì)DHTML Object Model的訪問(wèn)路徑
TopLevelContainer 回來(lái)一個(gè)Boolean值，表明IE是不是是WebBrowser控件中上層器皿，是便回來(lái)true
Type 回來(lái)已被WebBrowser控件加載的對(duì)象的門(mén)類(lèi)。比如：如其加載.doc資料，就會(huì)返
來(lái)Microsoft Word Document
Left 回來(lái)或設(shè)立WebBrowser控件窗口的內(nèi)部左側(cè)與器皿窗口左面的距離
Top 回到或設(shè)立WebBrowser控件窗口的內(nèi)部左側(cè)與器皿窗口頂邊的距離
Width 回來(lái)或設(shè)立WebBrowser窗口的寬度，以像素為部門(mén)
Height 回來(lái)或設(shè)立WebBrowser窗口的高度，以像素為組織
LocationName 回來(lái)一個(gè)字符串，該字符串包含著WebBrowser目前展示的資源的姓名，如其資源
是網(wǎng)頁(yè)便是網(wǎng)頁(yè)的題目；如果是資料或文件夾，便是資料或文件夾的姓名
LocationURL 回來(lái)WebBrowser現(xiàn)階段在展示的資源的URL
Busy 回來(lái)一個(gè)Boolean值，說(shuō)明WebBrowser現(xiàn)階段是不是在加載URL，如若回來(lái)true
就可以應(yīng)用stop步驟來(lái)取消在施行的訪問(wèn)操作
WebBrowser 的事件
Private Events Description
BeforeNavigate二 領(lǐng)航發(fā)作前激起，刷新時(shí)不激起
CommandStateChange 應(yīng)下令的激活狀態(tài)改變時(shí)激起。它表明幾時(shí)激活或封閉Back和Forward
菜單項(xiàng)或旋鈕
DocumentComplete 應(yīng)整個(gè)文檔完成是激起，刷新頁(yè)面不激起
DownloadBegin 應(yīng)某項(xiàng)下載操作已經(jīng)開(kāi)始后激起，刷新也可激起此事件
DownloadComplete 應(yīng)某項(xiàng)下載操作已經(jīng)完成后激起，刷新也可激起此事件
NavigateComplete二 領(lǐng)航完成后激起，刷新時(shí)不激起
NewWindow二 在創(chuàng)造新窗口早先激起
OnFullScreen 應(yīng)FullScreen屬性改變時(shí)激起。該事件采取VARIENT_BOOL的一個(gè)輸
進(jìn)參數(shù)來(lái)指示IE是全屏展示形式(VARIENT_TRUE)仍是普普通通展示形式(VARIENT_FALSE)
OnMenuBar 改變MenuBar的屬性時(shí)激起，標(biāo)志參數(shù)是VARIENT_BOOL部類(lèi)的。
VARIANT_TRUE是足見(jiàn)，VARIANT_ FALSE是暗藏
OnQuit 無(wú)論用戶(hù)封鎖瀏覽器仍是開(kāi)發(fā)者調(diào)用Quit步驟，應(yīng)IE退出時(shí)就會(huì)激起
OnStatusBar 與OnMenuBar調(diào)用步驟雷同，標(biāo)志狀態(tài)欄是不是顯見(jiàn)。
OnToolBar 調(diào)用步驟同上，標(biāo)志工具欄是不是足見(jiàn)。
OnVisible 統(tǒng)制窗口的足見(jiàn)或掩藏，也運(yùn)用一個(gè)VARIENT_BOOL門(mén)類(lèi)的參數(shù)
StatusTextChange 如若要改變狀態(tài)欄中的文字，這個(gè)事件就會(huì)被激起，但它并不顧會(huì)程序是不是有狀態(tài)欄
TitleChange Title有效或改變時(shí)激起
WEBBROWSER 技藝（保藏）
看到很多對(duì)于WebBrowser控件禁止右鍵的提問(wèn)，恢復(fù)的步驟很多，其中有談到應(yīng)用微軟提供的 Webbrowser擴(kuò)張COM服務(wù)器對(duì)象（WBCustomizer.dll），但是該步驟在我們念施用Webbrowser編者網(wǎng)頁(yè)（Webbrowser一.Document.execCommand editMode）的時(shí)分有很多弊病，例如不能展示選中的文本等。另有點(diǎn)步驟也就不要一一列舉了。
這會(huì)兒我想談到的是至于MSHTML.HTMLDocument
引述Microsoft HTML OBject Library
Rem ＃窗體代碼＃
Dim WithEvents M_Dom As MSHTML.HTMLDocument
Private Function M_Dom_oncontextmenu() As Boolean
M_Dom_oncontextmenu = False
End Function
Private Sub Webbrowser一_DownloadComplete()
Set M_Dom = Webbrowser一.Document
End Sub
Rem 好了，右鍵菜單沒(méi)了
=======================================================================
控件調(diào)用和取得收藏夾里頭
大抵用 specialfolder(六 ) 就可以失去收藏夾的途徑, 其后你可以用dir去循環(huán)讀入每個(gè)索引,其后dir里頭的file, file的名字便是你要的歸藏的名字, 途徑可以自各兒依據(jù)從上頭失去的途徑去失去.
如其你不要dir也可以用vb的dir控件.
Private Type SHITEMID
cb As Long
abID As Byte
End Type
Public Type ITEMIDLIST
mkid As SHITEMID
End Type
Public Function SpecialFolder(ByRef CSIDL As Long) As String
locate the favorites folder
Dim R As Long
Dim sPath As String
Dim IDL As ITEMIDLIST
Const NOERROR = 零
Const MAX_LENGTH = 260
R = SHGetSpecialFolderLocation(MDIMain.hwnd, CSIDL, IDL)
If R = NOERROR Then
sPath = Space$(MAX_LENGTH)
R = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal sPath)
If R Then
SpecialFolder = Left$(sPath, InStr(sPath, vbNullChar) - 一)
End If
End If
End Function
================================================================
是的,webbrowser本生是一個(gè)控件, 你要它全屏,乃是要它所在的窗體全屏, 可以用setwindowlong撤除窗體的 title, 用Call ShowWindow(FindWindow(Shell_traywnd, ), 零) 掩藏tray,乃是底下那個(gè)包孕開(kāi)始那一起. 用Call ShowWindow(FindWindow(Shell_traywnd, ), 九) 回復(fù). 夠詳細(xì)了吧.
其后在form一.windowstate = 二 就可以了.
====================================================================
取舍網(wǎng)頁(yè)上的內(nèi)容。
Private Sub Command一_Click()
請(qǐng)先選中一些內(nèi)容
Me.WebBrowser一.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
MsgBox Clipboard.GetText
End Sub
=============================================================
用IE來(lái)下載資料
Private Declare Function DoFileDownload Lib shdocvw.dll (ByVal lpszFile As String) As Long
Private Sub Command一_Click()
Dim sDownload As String
sDownload = StrConv(Text一.Text, vbUnicode)
Call DoFileDownload(sDownload)
End Sub
保留webbrowser中的HTML內(nèi)容
Dim oPF As IPersistFile
Set oPF = WebBrowser一.Document
oPF.Save 'TheFileNameHere.htm', False
WebBrowser一.ExecWB怎么用
下部是我測(cè)試的參數(shù)
WB.ExecWB(四,一)
四,一 封存網(wǎng)頁(yè)
四,二 保留網(wǎng)頁(yè)(可以重新命名)
六,一 直接打印
六,二 直接打印
七,一 打印預(yù)覽
七,二 打印預(yù)覽
八,一 抉擇參數(shù)
八,二 取舍參數(shù)
十,一 查看頁(yè)面屬性
十,二 查看頁(yè)面屬性
17,一 全選
17,二 全選
22,一 從新載入現(xiàn)階段頁(yè)
22,二 從新載入現(xiàn)階段頁(yè)
webbrowser確定對(duì)話框的準(zhǔn)確步驟
webbrowser確定窗口對(duì)話框
某些網(wǎng)頁(yè)鑒于各種思忖會(huì)彈出對(duì)話框要求信息確認(rèn)，往往會(huì)中止我們的webbrowser進(jìn)程，可以施用如次步驟：
一.加入Microsoft Html Object
二.加入話語(yǔ)
Private Sub WebBrowser一_NavigateComplete二(ByVal pDisp As Object, URL As Variant)
Dim obj As HTMLDocument
Set obj = pDisp.Document
obj.parentWindow.execScript 'function showModalDialog(){return;}' '對(duì)showModalDialog喚起的對(duì)話框進(jìn)展確定
End Sub
而confirm挑動(dòng)的會(huì)話確定框可用confirm輪換showModalDialog即可，Alert同等理~
WebBrowser獲得網(wǎng)頁(yè)源碼Private Sub Command一_Click()
WebBrowser一.Navigate 'End Sub
Private Sub WebBrowser一_DownloadComplete()
'頁(yè)面下載完畢
Dim doc, objhtml
Set doc = WebBrowser一.Document
Set objhtml = doc.body.createtextrange()
If Not IsNull(objhtml) Then
Text一.Text = objhtml.htmltext
End If
End Sub
我用WebBrowser獲得網(wǎng)頁(yè)源碼，直接運(yùn)作通常，但在編譯后疏失
揭示：實(shí)時(shí)差錯(cuò)“91” Object 變量或 with 塊變量沒(méi)設(shè)立
可能是沒(méi)下載完所致，
Private Sub WebBrowser一_DownloadComplete()
if webbrowser.busy=false then
Dim doc, objhtml
Set doc = WebBrowser一.Document
Set objhtml = doc.body.createtextrange()
If Not IsNull(objhtml) Then
Text一.Text = objhtml.htmltext
End If
end if
End Sub
a.htm
----------------------
asdasdsad
建立一個(gè)EXE再窗體上置放一個(gè)WebBrowser控件，易名為web
Private Sub Form_Load()
web.Navigate 'c:/a.htm'
DoEvents
Do
While
web.Busy
DoEvents
Loop
Set web.Document.ParentWindow.obj = Me
End Sub
Public Sub w()
MsgBox 'haha'
End Sub
post形式交付數(shù)據(jù)
Option Explicit
Private Sub Command一_Click()
Dim szValue As String
WebBrowser一.Document.body.innerHTML = '
'
WebBrowser一.Document.Forms('post').submit
End Sub
Private Sub Form_Load()
WebBrowser一.Navigate二 'about:blank'
End Sub
本文來(lái)源：
我的異常網(wǎng)
Java Exception
Dotnet Exception
Oracle Exception
3116 - checkout報(bào)error
3117 - HibernateException
3118 - eclipse3.2啟動(dòng)報(bào)錯(cuò)
3119 - Function is not supported
3120 - STRUTS1.1中html:errors中文不能正確顯示
3121 - html:errors中文不能正確顯示
3122 - ActionErrors如何在頁(yè)面上顯示
3123 - ActionErrors沒(méi)有提示信息
3124 - struts關(guān)于html:text錯(cuò)誤
3125 - Struts截獲response.sendError
本文來(lái)自CSDN博客，轉(zhuǎn)載請(qǐng)標(biāo)明出處：http://blog.csdn.net/liangdiwei/archive/2010/01/04/5132480.aspx
聯(lián)系客服
