VB控件WEBBROWSER基本及进阶技巧合集.docx

VB控件WEBBROWSER基本及进阶技巧合集.docx

《VB控件WEBBROWSER基本及进阶技巧合集.docx》由会员分享，可在线阅读，更多相关《VB控件WEBBROWSER基本及进阶技巧合集.docx（28页珍藏版）》请在冰豆网上搜索。

VB控件WEBBROWSER基本及进阶技巧合集

VB关于webbrowser相关操作大全

1、WebBrowser的方法、属性、事件2

2、提取网页源码3

3、防止新窗口里头打开网页4

4、新Webbrowser控件打开链接5

5、去掉滚动条5

6、禁止鼠标右键6

7、如何获得网页的内容6

8、多框架框架页面访问7

9、获得浏览器信息7

10、弹出Webbrowser消息窗口8

11、向Webbrowser中写入HTML内容的几种方法8

12、控制页面滚动9

13、判断页面是否可以前进后退9

14、如何获得网页中被选中部分的HTML10

15、Navigate的参数调用11

16、本地文件收藏夹操作11

17、让Webbrowser全屏12

18、选择网页上的内容12

19、用IE来下载文件13

20、Webbrowser确定窗口对话框14

21、禁止WebBrowser控件中网页弹窗14

22、取得源码调试正常运行错误15

23、页面元素操作15

例0:

查看网页元素15

例1:

给username文本框内填充内容:

15

例2:

找到提交按钮并点击16

例3:

难度的16

例4:

模拟鼠标点击来点击按钮17

例5:

根据ID直接CLICK17

例6:

给列表单选项赋值17

例7:

网页自动填写表单注册18

24、网页按钮的终极控制20

22、执行网页中的脚本21

23、提取字符串或网页源代码中指定的资源（可利用这一函数做文章采集器）23

24、中文汉字转化为URL编码25

25、获取网页中的验证码27

26、WebBrowser控件中网页按钮的点击28

27、其它28

1、WebBrowser的方法、属性、事件

WebBrowser的8个方法和13个属性，以及它们的功能：

方法说明

　GoBack相当于IE的“后退”按钮，使你在当前历史列表中后退一项

　GoForward相当于IE的“前进”按钮，使你在当前历史列表中前进一项

　GoHome相当于IE的“主页”按钮，连接用户默认的主页

　GoSearch相当于IE的“搜索”按钮，连接用户默认的搜索页面

　Navigate连接到指定的URL

　Refresh刷新当前页面

　Refresh2同上，只是可以指定刷新级别，所指定的刷新级别的值来自RefreshConstants枚举表，

该表定义在ExDisp.h中，可以指定的不同值如下：

REFRESH_NORMAL执行简单的刷新，不将HTTPpragma:

no-cache头发送给服务器

REFRESH_IFEXPIRED只有在网页过期后才进行简单的刷新

REFRESH_CONTINUE仅作内部使用。

在MSDN里写着DONOTUSE!

请勿使用

REFRESH_COMPLETELY将包含pragma:

no-cache头的请求发送到服务器

　Stop相当于IE的“停止”按钮，停止当前页面及其内容的载入

属性说明

　Application如果该对象有效，则返回掌管WebBrowser控件的应用程序实现的自动化对象（IDispatch）。

如果在宿主对象中自动化对象无效，这个程序将返回WebBrowser

控件的自动化对象

　Parent返回WebBrowser控件的父自动化对象，通常是一个容器，例如是宿主或IE窗口

　Container返回WebBrowser控件容器的自动化对象。

通常该值与Parent属性返回的值相同

　Document为活动的文档返回自动化对象。

如果HTML当前正被显示在WebBrowser中，则

Document属性提供对DHTMLObjectModel的访问途径

　TopLevelContainer返回一个Boolean值，表明IE是否是WebBrowser控件顶层容器，是就返回true

　Type返回已被WebBrowser控件加载的对象的类型。

例如：

如果加载.doc文件，就会返

回MicrosoftWordDocument

　Left返回或设置WebBrowser控件窗口的内部左边与容器窗口左边的距离

　Top返回或设置WebBrowser控件窗口的内部左边与容器窗口顶边的距离

　Width返回或设置WebBrowser窗口的宽度，以像素为单位

　Height返回或设置WebBrowser窗口的高度，以像素为单位

　LocationName返回一个字符串，该字符串包含着WebBrowser当前显示的资源的名称，如果资源

是网页就是网页的标题；如果是文件或文件夹，就是文件或文件夹的名称

　LocationURL返回WebBrowser当前正在显示的资源的URL

　Busy返回一个Boolean值，说明WebBrowser当前是否正在加载URL，如果返回true

就可以使用stop方法来撤销正在执行的访问操作

事件说明

PrivateEventsDescription

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如果要改变状态栏中的文字，这个事件就会被激发，但它并不理会程序是否有状态栏

TitleChangeTitle有效或改变时激发

2、提取网页源码

方法1：

XMLHTTP对象

PublicFunctionHtmlStr$（URL$）    '提取网页源码函数

 DimXmlHttp

 SetXmlHttp=CreateObject（"Microsoft.XMLHTTP"）

 XmlHttp.Open"GET",URL,False

 XmlHttp.Send

 IfXmlHttp.ReadyState=4ThenHtmlStr=StrConv（XmlHttp.Responsebody,vbUnicode）

EndFunction

方法2:

WEBBROWSER控件

PublicFunctionWebDaima（WebBrowser,BuFen）'获取WebBrowser控件中网页源代码

 SelectCaseBuFen

   Case"Body"   '只获取与之间的代码

     WebDaima=WebBrowser.Document.body.innerhtml

   Case"All"    '获取整个网页源代码

     WebDaima=WebBrowser.Document.documentelement.outerhtml

   CaseElse

     WebDaima=WebBrowser.Document.documentelement.outerhtml

 EndSelect

EndFunction

DimstrwebAsString

strweb=WebDaima（frmIndex.WebBrowser1,"All"）  '获取整个网页源代码

strweb=WebDaima（frmIndex.WebBrowser1,"Body"）  '只获取body中源代码

3、防止新窗口里头打开网页

代码1：

PrivateSubWebBrowser1_NewWindow2（ppDispAsObject,CancelAsBoolean）

DimfrmAsForm1

Setfrm=NewForm1

frm.Visible=True

SetppDisp=frm.WebBrowser1.object

EndSub

代码2：

有这段代码，有许多网页会出错，经常提示脚本错误，可以用silent属性为True来屏蔽，不过也有些不足！

！

！

PrivateSubWebBrowser1_NewWindow2（ppDispAsObject,CancelAsBoolean）

Cancel=True

WebBrowser1.Navigate2WebBrowser1.Document.activeElement.href

EndSub

代码3：

PrivateSubWebBrowser1_NewWindow2（ppDispAsObject,CancelAsBoolean）

OnErrorResumeNext

DimfrmWBAsForm1

SetfrmWB=NewForm1

frmWB.WebBrowser1.RegisterAsBrowser=True

SetppDisp=frmWB.WebBrowser1.object

frmWB.Visible=True

frmWB.Top=Form1.Top

frmWB.Left=Form1.Left

frmWB.Width=Form1.Width

frmWB.Height=Form1.Height

EndSub

功能差不多，任选一个。

4、新Webbrowser控件打开链接

 PrivateSubWebBrowser1_NewWindow2（ppDispAsObject,CancelAsBoolean）

 SetppDisp=WebPageAd.Object

EndSub

5、去掉滚动条

PrivateSubWebBrowser1_DocumentComplete（ByValpDispAsObject,URLAsVariant）

WebBrowser1.Document.Body.Scroll="no"

EndSub

实际上上面的效果不咋地，如果懂得HTML知识，你可以在读取网页的时候，读取HTML源码，查找替换，再写入只需在之间插入代码：

hidden;overflow-y:

hidden">即可。

其中x表示水平滚动条，将其改为y的话就可以隐藏垂直滚动条。

当然也有其他方法，比如修改网页的尺寸呀？

有的时候部分元素的居中改为左对齐也能有效果

将WebBrower放在PictureBox控件中，用PictureBox的边框挡住WebBrower的边框。

例如,将WebBrowser1放大点,将PictureBox变小点...PictureBox的appearance设置为0-flat，呵呵，OK~~

6、禁止鼠标右键

PrivateFunctionM_Dom_oncontextmenu（）AsBoolean

Webbrowser1.Document.oncontextmenu=False

EndFunction

'引用MicrosoftHTMLOBjectLibrary

DimWithEventsM_DomAsMSHTML.HTMLDocument

PrivateFunctionM_Dom_oncontextmenu（）AsBoolean

M_Dom_oncontextmenu=False

EndFunction

PrivateSubWebbrowser1_DownloadComplete（）

SetM_Dom=Webbrowser1.Document

EndSub

7、如何获得网页的内容

先给个例子：

innerHTML:

设置或获取位于对象起始和结束标签内的HTML

测试一下：

#ff9966">这是一个层