1、獲得瀏覽器信息：
Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.applevb.com"
End Sub
Private Sub Command2_Click()
Dim oWindow
Dim oNav
Set oWindow = WebBrowser1.Document.parentWindow
Set oNav = oWindow.navigator
Debug.Print oNav.userAgent
Set oWindow = Nothing
Set oNav = Nothing
End Sub
點擊Command1瀏覽網頁，點擊Command2在立即窗口中輸出瀏覽器信息。
2、彈出Webbrowser消息窗口
Dim oWindow
Set oWindow = WebBrowser1.Document.parentWindow
oWindow.confirm "abcd"
VB調用webbrowser技巧集2
向Webbrowser中寫入HTML內容的幾種方法
首先在Form_Load中加入
WebBrowser1.Navigate "about:blank"
確保Webbrowser1可用
方法1：
Dim s As String
Dim stream As IStream
s = ""
s = s + ""
s = s + ""
s = s + "
hello world
"
s = s + ""
s = s + "
WebBrowser1.Document.Write s
方法2：
Dim o
Set o = WebBrowser1.Document.selection.createrange
Debug.Print o
If (Not o Is Nothing) Then
o.pasteHTML "哈哈"
Set o = Nothing
End If
方法3：
'插入文本框
Dim o
Set o = WebBrowser1.Document.selection.createrange
o.execCommand "InsertTextArea", False, "xxx"
vb調用Webbrowser技巧集3
1、頁面滾動：
Private Sub Command2_Click()
WebBrowser1.Document.parentwindow.scrollby 0, 30
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.applevb.com"
End Sub
點擊Command2就可以使當前頁面向下滾動30像素
2、判斷頁面是否可以前進后退
Private Sub Command1_Click()
WebBrowser1.GoForward
End Sub
Private Sub Command2_Click()
WebBrowser1.GoBack
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.applevb.com"
End Sub
Private Sub WebBrowser1_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean)
If (Command = CSC_NAVIGATEBACK) Then
Command2.Enabled = Enable
End If
If (Command = CSC_NAVIGATEFORWARD) Then
Command1.Enabled = Enable
End If
End Sub
VB調用webbrowser技巧集4
1、如何使網頁不出現滾動條：
Private Sub mnuScroll1_Click()
@#注意：必須在網頁完全顯示之后才可以運行
WebBrowser1.Document.body.Scroll = "no" @#不顯示滾動條的辦法
End Sub
Private Sub mnuScroll2_Click()
@#注意：必須在網頁完全顯示之后才可以運行
WebBrowser1.Document.body.Scroll = "Auto" @#顯示滾動條的辦法
End Sub
2、如何獲得網頁中被選中部分的HTML：
Private Sub Command1_Click()
Dim objSelection
Dim objTxtRange
Set objSelection = WebBrowser1.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()
WebBrowser1.Navigate "http://www.applevb.com"
End Sub
Navigate 方 法 的 語 法 格 式 為：
WebBrowser 控 件 名.Navigate URL
[Flags,][TargetFrameName,][PostData,][Headers]
---- WebBrowser 控 件 支 持 的 主 要 方 法 有:
GoBack — — — 回 退 到 上 一 屏。
GoForward — — — 進 入 到 下 一 屏。
GoHome — — — 回 家。 即 回 到 主 頁。
Stop — — — 停 止 導 航。
Refresh — — — 刷 新。
Navigate — — — 導 航。
---- WebBrowser 控 件 所 響 應 的 事 件:
---- BeforeNavigate 事 件 — — — 在 開 始 導 航 前 發 生。 一 般 在 此 獲 取 完 整 的URL 字 符 串。
---- WebBrowser 控 件 最 主 要 的 參 數:
---- URL — — — 獲 得 導 航 用 的 標 準URL 字 符 串。 例 如： 它 能 將”www.MicroSoft.Com” 自 動 翻 譯 為”http://www.MicroSoft.Com”.URL 是Uniform Resource Locator 的 縮 寫， 是 在Internet 的WWW 服 務 程 序 上 用 于 指 定 信 息 位 置 的 表 示 方 法。
使用WebBrowser的Navigator或者Navigator2方法打開一個asp文檔并且傳遞
參數進去，但是asp文檔無法獲得參數，請教是什么原因？
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.Navigate2(strURL, 64, "_blank", strFormData,
"hello")
End Sub
asp源碼：
<%@ Language=VBScript %>
<%
dim strName
dim strPassword
strName=Trim(Request.Form("name"))
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
%>
*********************************************************************
Option Explicit
Private Sub Command1_Click()
Dim szValue As String
WebBrowser1.Document.body.innerHTML = "
method=post action=http://地址/xxx.php>
"
WebBrowser1.Document.Forms("post").submit
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate2 "about:blank"
End Sub
Top
********************************************************************
請問：在WebBrwoser控件里提供的Navigate或者Navigate2方法中提供了傳遞數據
的參數，調用方式為：WebBrowser1.Navigate2(URL,[Flags],
[TargetFrameName],[PostData],[Headers])
其中PostData參數就是一個提交參數字符串，例如"name=aaa&password=123"，
但問題是為什么這個方法并不是有效的，服務器端不能取得數據？
如果這個方法是有效的話就不需要用一段html代碼模擬這種調用了。
下面代碼能檢測出程序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 Sub
WebBrowser的8個方法和13個屬性
WebBrowser的8個方法和13個屬性，以及它們的功能：
方法 說明
GoBack 相當于IE的“后退”按鈕，使你在當前歷史列表中后退一項
GoForward 相當于IE的“前進”按鈕，使你在當前歷史列表中前進一項
GoHome 相當于IE的“主頁”按鈕，連接用戶默認的主頁
GoSearch 相當于IE的“搜索”按鈕，連接用戶默認的搜索頁面
Navigate 連接到指定的URL
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的“停止”按鈕，停止當前頁面及其內容的載入
屬性 說明
Application 如果該對象有效，則返回掌管WebBrowser控件的應用程序實現的自動化對象(IDispatch)。如果在宿主對象中自動化對象無效，這個程序將返回WebBrowser
控件的自動化對象
Parent 返回WebBrowser控件的父自動化對象，通常是一個容器，例如是宿主或IE窗口
Container 返回WebBrowser控件容器的自動化對象。通常該值與Parent屬性返回的值相同
Document 為活動的文檔返回自動化對象。如果HTML當前正被顯示在WebBrowser中，則
Document屬性提供對DHTML Object Model的訪問途徑
TopLevelContainer 返回一個Boolean值，表明IE是否是WebBrowser控件頂層容器，是就返回true
Type 返回已被WebBrowser控件加載的對象的類型。例如：如果加載.doc文件，就會返
回Microsoft Word Document
Left 返回或設置WebBrowser控件窗口的內部左邊與容器窗口左邊的距離
Top 返回或設置WebBrowser控件窗口的內部左邊與容器窗口頂邊的距離
Width 返回或設置WebBrowser窗口的寬度，以像素為單位
Height 返回或設置WebBrowser窗口的高度，以像素為單位
LocationName 返回一個字符串，該字符串包含著WebBrowser當前顯示的資源的名稱，如果資源
是網頁就是網頁的標題；如果是文件或文件夾，就是文件或文件夾的名稱
LocationURL 返回WebBrowser當前正在顯示的資源的URL
Busy 返回一個Boolean值，說明WebBrowser當前是否正在加載URL，如果返回true
就可以使用stop方法來撤銷正在執行的訪問操作
如何利用 WebBrowser 控件,顯示 .GIF 動畫?
要有一定的網頁知識(HTML、JavaScript、CSS)
注意細節:
沒有"滾動條"和"鼠標右鍵彈出的 IE 上下文菜單",".HTM 源文件" ...
我寫了一個,效果還真不錯!
'Objects: Form1、Command1、CommonDialog1、WebBrowser1
Option Explicit
Private Sub Command1_Click()
CommonDialog1.ShowOpen
If VBA.Len(VBA.Trim(CommonDialog1.FileName)) > 0 Then
Dim p As stdole.StdPicture
Dim sPath As String
sPath = VBA.Trim(VBA.Trim(CommonDialog1.FileName))
Set p = VB.LoadPicture(sPath)
WebBrowser1.Width = p.Width * 16 / 26
WebBrowser1.Height = p.Height * 16 / 26
' WebBrowser1.Navigate "about:blank"
WebBrowser1.Document.open
WebBrowser1.Document.writeln ""
WebBrowser1.Document.writeln ""
WebBrowser1.Document.writeln ""
WebBrowser1.Document.writeln ""
WebBrowser1.Document.writeln "WebBrowser1.Document.writeln "
WebBrowser1.Document.writeln "WebBrowser1.Document.writeln "
"
WebBrowser1.Document.writeln ""
WebBrowser1.Document.writeln ""
End If
End Sub
Private Sub Form_Load()
Command1.Caption = "&Open"
WebBrowser1.Navigate "about:blank"
WebBrowser1.Document.open
WebBrowser1.Document.writeln ""
WebBrowser1.Document.writeln ""
WebBrowser1.Document.writeln ""
WebBrowser1.Document.writeln ""
WebBrowser1.Document.writeln "WebBrowser1.Document.writeln ""
WebBrowser1.Document.writeln ""
WebBrowser1.Document.Close
End Sub
WebBrowser控件說明
方法 說明
GoBack 相當于IE的“后退”按鈕，使你在當前歷史列表中后退一項
GoForward 相當于IE的“前進”按鈕，使你在當前歷史列表中前進一項
GoHome 相當于IE的“主頁”按鈕，連接用戶默認的主頁
GoSearch 相當于IE的“搜索”按鈕，連接用戶默認的搜索頁面
Navigate 連接到指定的URL
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的“停止”按鈕，停止當前頁面及其內容的載入
屬性 說明
Application 如果該對象有效，則返回掌管WebBrowser控件的應用程序實現的自動化對象(IDispatch)。如果在宿主對象中自動化對象無效，這個程序將返回WebBrowser
控件的自動化對象
Parent 返回WebBrowser控件的父自動化對象，通常是一個容器，例如是宿主或IE窗口
Container 返回WebBrowser控件容器的自動化對象。通常該值與Parent屬性返回的值相同
Document 為活動的文檔返回自動化對象。如果HTML當前正被顯示在WebBrowser中，則
Document屬性提供對DHTML Object Model的訪問途徑
TopLevelContainer 返回一個Boolean值，表明IE是否是WebBrowser控件頂層容器，是就返回true
Type 返回已被WebBrowser控件加載的對象的類型。例如：如果加載.doc文件，就會返
回Microsoft Word Document
Left 返回或設置WebBrowser控件窗口的內部左邊與容器窗口左邊的距離
Top 返回或設置WebBrowser控件窗口的內部左邊與容器窗口頂邊的距離
Width 返回或設置WebBrowser窗口的寬度，以像素為單位
Height 返回或設置WebBrowser窗口的高度，以像素為單位
LocationName 返回一個字符串，該字符串包含著WebBrowser當前顯示的資源的名稱，如果資源
是網頁就是網頁的標題；如果是文件或文件夾，就是文件或文件夾的名稱
LocationURL 返回WebBrowser當前正在顯示的資源的URL
Busy 返回一個Boolean值，說明WebBrowser當前是否正在加載URL，如果返回true
就可以使用stop方法來撤銷正在執行的訪問操作
WebBrowser 的事件
Private Events Description
BeforeNavigate2 導航發生前激發，刷新時不激發
CommandStateChange 當命令的激活狀態改變時激發。它表明何時激活或關閉Back和Forward
菜單項或按鈕
DocumentComplete 當整個文檔完成是激發，刷新頁面不激發
DownloadBegin 當某項下載操作已經開始后激發，刷新也可激發此事件
DownloadComplete 當某項下載操作已經完成后激發，刷新也可激發此事件
NavigateComplete2 導航完成后激發，刷新時不激發
NewWindow2 在創建新窗口以前激發
OnFullScreen 當FullScreen屬性改變時激發。該事件采用VARIENT_BOOL的一個輸
入參數來指示IE是全屏顯示方式(VARIENT_TRUE)還是普通顯示方式(VARIENT_FALSE)
OnMenuBar 改變MenuBar的屬性時激發，標示參數是VARIENT_BOOL類型的。
VARIANT_TRUE是可見，VARIANT_ FALSE是隱藏
OnQuit 無論是用戶關閉瀏覽器還是開發者調用Quit方法，當IE退出時就會激發
OnStatusBar 與OnMenuBar調用方法相同，標示狀態欄是否可見。
OnToolBar 調用方法同上，標示工具欄是否可見。
OnVisible 控制窗口的可見或隱藏，也使用一個VARIENT_BOOL類型的參數
StatusTextChange 如果要改變狀態欄中的文字，這個事件就會被激發，但它并不理會程序是否有狀態欄
TitleChange Title有效或改變時激發
WEBBROWSER 技巧（收藏）
看到很多關于WebBrowser控件禁止右鍵的提問，回復的方法很多，其中有提到使用微軟提供的Webbrowser擴展COM服務器對象（WBCustomizer.dll），但是該方法在我們想使用Webbrowser編輯網頁（Webbrowser1.Document.execCommand editMode）的時候有很多弊端，比如不能顯示選中的文本等。另有些方法也就不用一一列舉了。
這兒我想提到的是關于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 Webbrowser1_DownloadComplete()
Set M_Dom = Webbrowser1.Document
End Sub
Rem 好了，右鍵菜單沒有了
=======================================================================
控件調用和獲得收藏夾里面
基本上用 specialfolder(6 ) 就可以得到收藏夾的路徑, 然后你可以用dir去循環讀入每個目錄,然后dir里面的file, file的名字就是你要的收藏的名字, 路徑可以自己根據從上面得到的路徑去得到.
如果你不用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 = 0
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) - 1)
End If
End If
End Function
================================================================
是的,webbrowser本生是一個控件, 你要它全屏,就是要它所在的窗體全屏, 可以用setwindowlong取消窗體的 title, 用Call ShowWindow(FindWindow(Shell_traywnd, ), 0) 隱藏tray,就是下邊那個包含開始那一行. 用Call ShowWindow(FindWindow(Shell_traywnd, ), 9) 恢復. 夠詳細了吧.
然后在form1.windowstate = 2 就可以了.
====================================================================
選擇網頁上的內容。
Private Sub Command1_Click()
請先選中一些內容
Me.WebBrowser1.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
MsgBox Clipboard.GetText
End Sub
=============================================================
用IE來下載文件
Private Declare Function DoFileDownload Lib shdocvw.dll (ByVal lpszFile As String) As Long
Private Sub Command1_Click()
Dim sDownload As String
sDownload = StrConv(Text1.Text, vbUnicode)
Call DoFileDownload(sDownload)
End Sub
保存webbrowser中的HTML內容
Dim oPF As IPersistFile
Set oPF = WebBrowser1.Document
oPF.Save "TheFileNameHere.htm", False
WebBrowser1.ExecWB怎么用
下面是我測試的參數
WB.ExecWB(4,1)
4,1 保存網頁
4,2 保存網頁(可以重新命名)
6,1 直接打印
6,2 直接打印
7,1 打印預覽
7,2 打印預覽
8,1 選擇參數
8,2 選擇參數
10,1 查看頁面屬性
10,2 查看頁面屬性
17,1 全選
17,2 全選
22,1 重新載入當前頁
22,2 重新載入當前頁
webbrowser確定對話框的正確方法
webbrowser確定窗口對話框
某些網頁出于各種考慮會彈出對話框要求信息確認，往往會中斷我們的webbrowser過程，可以使用如下方法：
1.加入Microsoft Html Object
2.加入語句
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
Dim obj As HTMLDocument
Set obj = pDisp.Document
obj.parentWindow.execScript "function showModalDialog(){return;}" '對showModalDialog引起的對話框進行確定
End Sub
而confirm引發的對話確定框可用confirm替換showModalDialog即可，Alert等同理~
WebBrowser取得網頁源碼Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.sdqx.gov.cn/sdcity.php"
End Sub
Private Sub WebBrowser1_DownloadComplete()
'頁面下載完畢
Dim doc, objhtml
Set doc = WebBrowser1.Document
Set objhtml = doc.body.createtextrange()
If Not IsNull(objhtml) Then
Text1.Text = objhtml.htmltext
End If
End Sub
我用WebBrowser取得網頁源碼，直接運行正常，但在編譯后出錯
提示：實時錯誤“91” Object 變量或 with 塊變量沒有設置
可能是沒有下載完所致，
Private Sub WebBrowser1_DownloadComplete()
if webbrowser.busy=false then
Dim doc, objhtml
Set doc = WebBrowser1.Document
Set objhtml = doc.body.createtextrange()
If Not IsNull(objhtml) Then
Text1.Text = objhtml.htmltext
End If
end if
End Sub
400 186 1886
