vbwebbrowser控件:VB Webbrowser控件使用方法

新加内容:

提交表单form1:
Private Sub Command1_Click
WebBrowser1.Document.Forms(\"form1\").submit
End Sub

将form1中名为u属性设为不可用:
Private Sub Command2_Click
WebBrowser1.Document.Forms(\"form1\").u.Attribute \"disabled\", \"disabled\"
End Sub

将form1中名为uText框中内容设为abc:
Private Sub Command2_Click
WebBrowser1.Document.Forms(\"form1\").u.Attribute \"value\", \"abc\"
End Sub



1、获得浏览器信息:
Private Sub Command1_Click
WebBrowser1.Navigate \"http://www.applevb.com\"
End Sub
Private Sub Command2_Click
Dim oWindow
Dim _disibledevent=>Set _disibledevent=>Debug.Pr _disibledevent=>Set _disibledevent=>End Sub
点击Command1浏览网页点击Command2在立即窗口中输出浏览器信息

2、弹出Webbrowser消息窗口

Dim oWindow
Set oWindow = WebBrowser1.Document.parentWindow
oWindow.confirm \"abcd\"

VBwebbrowser窍门技巧集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.Pr 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\"

vbWebbrowser窍门技巧集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) [Page]
If (Command = CSC_NAVIGATEBACK) Then
Command2.Enabled = Enable
End If
If (Command = CSC_NAVIGATEFORWARD) Then
Command1.Enabled = Enable
End If
End Sub

VBwebbrowser窍门技巧集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.Pr 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 是Unorm Resource Locator 缩 写 是 在Internet WWW 服 务 程 序 上 用 于 指 定 信 息 位 置 表 示 方 法

使用WebBrowserNavigator或者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, [Page]

\"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)
strName=\"KingZhang\" and strPassword=\"123456\" then
Response.Write(\"登陆成功\")

Response.Write(\"非法登陆用户！\")
end

%>

*********************************************************************

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


********************************************************************

请问:在WebBrwoserControl控件里提供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

WebBrowser8个思路方法和13个属性

WebBrowser8个思路方法和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头请求发送到服务器 [Page]

　Stop 相当于IE“停止”按钮停止当前页面及其内容载入
属性 介绍说明
　Application 如果该对象有效则返回掌管WebBrowserControl控件应用实现自动化对象(IDispatch)如果在宿主对象中自动化对象无效这个将返回WebBrowser
Control控件自动化对象
　Parent 返回WebBrowserControl控件父自动化对象通常是个容器例如是宿主或IE窗口
　Container 返回WebBrowserControl控件容器自动化对象通常该值和Parent属性返回值相同
　Document 为活动文档返回自动化对象如果HTML当前正被显示在WebBrowser中则
Document属性提供对DHTML Object Model访问途径
　TopLevelContainer 返回个Boolean值表明IE是否是WebBrowserControl控件顶层容器是就返回true

　Type 返回已被WebBrowserControl控件加载对象类型例如:如果加载.doc文件就会返
回Microsoft Word Document
　Left 返回或设置WebBrowserControl控件窗口内部左边和容器窗口左边距离
　Top 返回或设置WebBrowserControl控件窗口内部左边和容器窗口顶边距离
　Width 返回或设置WebBrowser窗口宽度以像素为单位
　Height 返回或设置WebBrowser窗口高度以像素为单位
　LocationName 返回个串该串包含着WebBrowser当前显示资源名称如果资源
是网页就是网页标题；如果是文件或文件夹就是文件或文件夹名称
　LocationURL 返回WebBrowser当前正在显示资源URL
　Busy 返回个Boolean值介绍说明WebBrowser当前是否正在加载URL如果返回true
就可以使用stop思路方法来撤销正在执行访问操作



如何利用 WebBrowser Control控件,显示 .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 \"\" [Page]
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

WebBrowserControl控件介绍说明
思路方法 介绍说明
　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 如果该对象有效则返回掌管WebBrowserControl控件应用实现自动化对象(IDispatch)如果在宿主对象中自动化对象无效这个将返回WebBrowser
Control控件自动化对象
　Parent 返回WebBrowserControl控件父自动化对象通常是个容器例如是宿主或IE窗口
　Container 返回WebBrowserControl控件容器自动化对象通常该值和Parent属性返回值相同
　Document 为活动文档返回自动化对象如果HTML当前正被显示在WebBrowser中则
Document属性提供对DHTML Object Model访问途径
　TopLevelContainer 返回个Boolean值表明IE是否是WebBrowserControl控件顶层容器是就返回true

　Type 返回已被WebBrowserControl控件加载对象类型例如:如果加载.doc文件就会返
回Microsoft Word Document
　Left 返回或设置WebBrowserControl控件窗口内部左边和容器窗口左边距离
　Top 返回或设置WebBrowserControl控件窗口内部左边和容器窗口顶边距离
　Width 返回或设置WebBrowser窗口宽度以像素为单位
　Height 返回或设置WebBrowser窗口高度以像素为单位
　LocationName 返回个串该串包含着WebBrowser当前显示资源名称如果资源
是网页就是网页标题；如果是文件或文件夹就是文件或文件夹名称
　LocationURL 返回WebBrowser当前正在显示资源URL [Page]
　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 窍门技巧(收藏)

看到很多有关WebBrowserControl控件禁止右键提问回复思路方法很多其中有提到使用微软提供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 好了右键菜单没有了

=

Control控件和获得收藏夹里面

基本上用 specialfolder(6 ) 就可以得到收藏夹路径, 然后你可以用dir去循环读入每个目录,然后dir里面file, file名字就是你要收藏名字, 路径可以自己根据从上面得到路径去得到.
如果你不用dir也可以用vbdirControl控件.
Private Type SHITEMID
cb As Long
abID As Byte
End Type

Public Type ITEMIDLIST [Page]
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本生是个Control控件, 你要它全屏,就是要它所在窗体全屏, 可以用windowlong取消窗体 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{;}\" ’对showModalDialog引起对话框进行确定 [Page]
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
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
End Sub

延伸阅读

• 2009-2-12-- vbwebbrowser:WEBBROWSER 技巧一（收藏）-vb教程
• 2008-9-25-- vbwebbrowser:保存webbrowser中的HTML内容-vb教程
• 2009-2-12-- vbwebbrowser:webbrowser 技巧2　（收藏）-vb教程
• 2009-2-12-- vbwebbrowser控件:获取webbrowser控件 网页的源码（收藏）-vb教程
• 2008-12-28-- webbrowser控件:webBrowserControl控件(浏览器)的简单使用
• 2008-9-24-- webbrowser:怎么样使WebBrowser得到焦点
• 2009-2-12-- webbrowser:Dephi中获取webbrowser选取区域的html代码
• 2009-2-12-- vbwebbrowser控件:直接访问WebBrowser控件中的HTML源码 (收藏)-vb教程
• 2009-1-9-- webbrowser事件:如何让WebBrowser获取单击事件
• 2009-2-12-- webbrowser控件:直接访问WebBrowser控件中的HTML源码