vb+Webbrowser控件详解

合集下载

WebBrowser

WebBrowser 的事件Private Events DescriptionBeforeNavigate2导航发生前激发，刷新时不激发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有效或改变时激发新加内容：提交表单form1：Private Sub Command1_Click()WebBrowser1.Document.Forms("form1").submitEnd Sub将form1中的名为u的属性设为不可用：Private Sub Command2_Click()WebBrowser1.Document.Forms("form1").u.setAttribute "disabled", "disabled"End Sub将form1中的名为u的Text框中的内容设为abc：Private Sub Command2_Click()WebBrowser1.Document.Forms("form1").u.setAttribute "value", "abc"End Sub1、获得浏览器信息：Private Sub Command1_Click()WebBrowser1.Navigate ""End SubPrivate Sub Command2_Click()Dim oWindowSet oWindow = WebBrowser1.Document.parentWindowSet oNav = oWindow.navigatorDebug.Print erAgentSet oWindow = NothingSet oNav = NothingEnd Sub点击Command1浏览网页，点击Command2在立即窗口中输出浏览器信息。

网络应用5

13
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 WebBrowser1.GoBack Case 2 WebBrowser1.GoForward Case 3 WebBrowser1.Refresh Case 4 WebBrowser1.home Case 5 WebBrowser1.Stop End Select End Sub
使用格式:object.GoHome 功能：装入设定的起始页。
（2）Navigate方法
使用格式:object.Navigate URL 功能：装入指定的页面。
4
（3）GoBack方法使用格式：object.GoBack 功能：返回上一个页面。（4）GoForward方法使用格式：object.GoForward 功能：进入下一个页面。
功能：页面下载完成后触发该事件。
（3）NavigateComplete2事件功能：当浏览一个新的页面时触发该事件。
7
【例】利用WebBrowser控件制作一个简单的浏览器，程序运行时的界面如图14.1所示。窗体上有一个标签、一个文本框和一个WebBrowser控件。标签的Caption属性如图所示，文本框的Tex t属性置空，其它属性均为缺省设置。
2
WebBrowser控件的属性、方法和事件 1．WebBrowser控件的属性
属性 LocationName LocationURL Busy Offline 说明返回控件显示WEB页面的页面标题返回控件显示WEB页面的URL 返回控件是否正在下载网页返回控件是否处于脱机状态

vbwebbrowser控件详解

vbwebbrowser控件详解1、获得浏览器信息private sub command1_click()webbrowser1.navigate ""end subprivate sub command2_click()dim owindowdim onavset owindow = webbrowser1.document.parentwindowset onav = owindow.navigatordebug.print eragentset owindow = nothingset onav = nothingend sub点击command1浏览网页，点击command2在立即窗口中输出浏览器信息。

2、弹出webbrowser消息窗口dim owindowset owindow = webbrowser1.document.parentwindowowindow.confirm "abcd"vb调用webbrowser技巧集2向webbrowser中写入html内容的几种方法首先在form_load中加入webbrowser1.navigate "about:blank"确保webbrowser1可用方法1：dim s as stringdim stream as istreams = "hello world "webbrowser1.document.write s方法2：dim oset o = webbrowser1.document.selection.createrangedebug.print oif (not o is nothing) theno.pastehtml "哈哈"set o = nothingend if方法3：'插入文本框dim oset o = webbrowser1.document.selection.createrangeo.execcommand "inserttextarea" false "xxx"vb调用webbrowser技巧集31、页面滚动：private sub command2_click()webbrowser1.document.parentwindow.scrollby 0 30end subprivate sub form_load()webbrowser1.navigate ""end sub点击command2就可以使当前页面向下滚动30像素2、判断页面是否可以前进后退private sub command1_click()webbrowser1.goforwardend subprivate sub command2_click()webbrowser1.gobackend subprivate sub form_load()webbrowser1.navigate ""end subprivate sub webbrowser1_commandstatechange(byval command as long byval enable as boolean) if (command = csc_navigateback) thencommand2.enabled = enableend ifif (command = csc_navigateforward) thencommand1.enabled = enableend ifend subvb调用webbrowser技巧集41、如何使网页不出现滚动条：private sub mnuscroll1_click()@#注意：必须在网页完全显示之后才可以运行webbrowser1.document.body.scroll = "no" @#不显示滚动条的办法end subprivate sub mnuscroll2_click()@#注意：必须在网页完全显示之后才可以运行webbrowser1.document.body.scroll = "auto" @#显示滚动条的办法end sub2、如何获得网页中被选中部分的html：private sub command1_click()dim objselectiondim objtxtrangeset objselection = webbrowser1.document.selectionif not (objselection is nothing) thenset objtxtrange = objselection.createrangeif not (objtxtrange is nothing) thendebug.print objtxtrange.htmltextset objtxtrange = nothingend ifset objselection = nothingend ifend subprivate sub form_load()webbrowser1.navigate ""end subnavigate 方法的语法格式为：webbrowser1.navigate url[flags][targetframename][postdata][headers]webbrowser 控件支持的主要方法有:goback———回退到上一屏。

VB中WebBrowser控件使用方法总结1

VB中WebBrowser控件使用方法总结1 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有效或改变时激发一些使用技巧1.禁止右键看到很多关于WebBrowser控件禁止右键的提问，回复的方法很多，其中有提到使用微软提供的Webbrowser扩展COM服务器对象（WBCustomizer.dll），但是该方法在我们想使用Webbrowser编辑网页（Webbrowser1.Document.execCommand "editMode"）的时候有很多弊端，比如不能显示选中的文本等。

vb

hanzishu = (UBound(a) * 2 - UBound(b) + 1) / 2
End Function
贴吧显IP归属地源码！！
文章分类：VB/Visual Basic
'作者：烟花飘飘
'修改：换号多次修改内容地址换行显示避免错位太严重增加全屏显示方便测试。
DoEvents
Loop
End Sub
VB代码,图片转换为32×32的24位图标
文章分类：VB/Visual Basic
On Error GoTo cancel
file0 = InputBox("请输入要转换的图片文件名")
If file0 = "" Then GoTo cancel
Dim t As String
IP = Replace(IP, "*", "0")
t = GetText("/ips8.asp?ip=" & IP & "&action=1")
Set k = RegExpTest("本站主数据：.+?(?=<)", t)
Private Declare Function GetLastInputInfo Lib "user32 " (plii As LASTINPUTINFO) As Boolean
Private Declare Function GetTickCount Lib "kernel32 " () As Long
Dim ico(3261) As Byte

vba webbrowser控件实例

VBA WebBrowser控件实例01. 简介VBA (Visual Basic for Applications) 是一种用于创建自定义软件解决方案的编程语言，它通常用于Microsoft Office应用程序中，比如Excel、Word等。

在VBA中，WebBrowser控件是一种非常强大的工具，它可以用来显示Web页面、执行脚本和与网页进行交互。

在本文中，我们将介绍如何在VBA中使用WebBrowser控件，并且给出一些实例来演示其功能和用法。

02. WebBrowser控件的引用我们需要确保已经在VBA项目中引用了“Microsoft Internet Controls”和“Microsoft HTML Object Library”这两个组件。

这样才能在VBA中使用WebBrowser控件。

引用这两个组件的方法很简单，在VBA项目中点击“工具” -> “引用”，然后勾选这两个组件即可。

03. WebBrowser控件的创建和基本设置接下来，我们需要在VBA中创建一个新的UserForm，并在UserForm中添加一个WebBrowser控件。

添加WebBrowser控件的方法是，打开VBA编辑器，双击UserForm，在工具箱中选择“Microsoft Web Browser”，然后在UserForm中拖动鼠标绘制WebBrowser控件的大小。

在VBA中给WebBrowser控件取一个适当的名称，比如“WebBrowser1”。

接下来，我们需要设置WebBrowser控件的一些基本属性，比如URL、高度、宽度等。

可以通过VBA代码来实现这些设置，比如：```vbaPrivate Sub UserForm_Initialize()WebBrowser1.Height = 500WebBrowser1.Width = 800WebBrowser1.Navigate ""End Sub```04. WebBrowser控件的基本功能一旦WebBrowser控件被创建并设置好，就可以开始实现其基本功能了。

VBWebbrowser控件使用方法

VB Webbr‎ owser‎控件使用方‎ 法
方法
说明
GoBac‎k 相当于 IE‎的“后退”按钮，使你在当前‎历史列表中‎后退一项
GoFor‎ward 相当于 IE‎的“前进”按钮，使你在当前‎历史列表中‎前进一项 GoHom‎e 相当于 IE‎的“主页”按钮，连接‎的“搜索”按钮，连接用户默‎认的搜索页‎面 Navig‎ate 连接到指定‎的 URL
返回一个 B‎oolea‎n 值，说明 Web‎Brows‎er 当前是‎否正在加载‎URL，如果返回 t‎rue 就可以使用‎stop 方‎法来撤销正‎在执行的访‎问操作
WebBr‎owser‎ 的事件
Priv a‎te Ev ent‎s
Descr‎iptio‎n
Befor‎eNavi‎gate2‎
Priva‎te Sub Comma‎nd2_C‎lick() WebBr‎owser‎1.Docum‎ent.paren‎twind‎ow.scrol‎lby 0, 30 End Sub
Priva‎te Sub Form _‎Load() WebBr‎owser‎1.Navig‎ate "http://www.apple‎" End Sub
VB 调用 w‎ebbro‎wser 技‎巧集 4
1、如何使网页‎不出现滚动‎条：
Priva‎te Sub mnuSc ‎roll1‎_Clic‎k() @#注意：必须在网页‎完全显示之‎后才可以运‎行 WebBr‎owser‎1.Docum‎ent.body.Scrol‎l = "no" @#不显示滚动‎条的办法 End Sub Priva‎te Sub mnuSc ‎roll2‎_Clic‎k() @#注意：必须在网页‎完全显示之‎后才可以运‎行 WebBr‎owser‎1.Docum‎ent.body.Scrol‎l = "Auto" @#显示滚动条‎的办法 End Sub

Visual Basic 6.0 的 WebBrowser 控件

Visual Basic 6.0 的 WebBrowser 控件可以同时显示solidworks的工具栏及文档，并且能够对已建立的solidworks文档进行修改。

WebBrowser 控件不是 Visual Basic 6.0 的内置控件，所以要把它添加到Visual Basic 6.0界面的【工程】选项卡中。

具体的添加方法是：【工程】→【部件】，然后选择【Microsoft Internet Controls】。

使用WebBrowser 的Navigator方法打开文档,用以下代码即可显示文档内容。

WebBrowser1.Navigate "Solidworks文档的位置\文档的名称. 文档的类型"
例如：WebBrowser1.Navigate "文档的位置\螺旋棒.SLDPRT "→（打开零件文档）WebBrowser1.Navigate "文档的位置\机头装配体.SLDASM"→（打开装配体文档）
WebBrowser1.Navigate "文档的位置\活塞装配体.SLDDRW "→（打开工程图文档）。

在VB中使用IE的WebBrowser控件

在VB中使用IE的WebBrowser控件在程序设计中，如何设计出美观、实用，有个性的界面是每个程序设计者在界面设计中追求的目标。

随着Windows XP的推出，各种与众不同的华丽界面越来越被程序设计者和软件使用者所认同。

利用Windows中的WebBrowser控件，可以把华丽的网页设计技术应用到界面设计中去，例如微软著名的MSN浏览器的许多界面其实就是一个Web页，Windows XP中的帮助中心、Microsoft Encarta（微软百科全书）等许多软件中的一些界面也是利用WebBrowser控件显示的Web页。

利用WebBrowser控件显示一个网页，制作一个简单的浏览器已经有很多文章介绍，实现也不复杂，但如何实现程序与Web页的交互则是将其应用到界面设计中的关键。

ActiveX控件和WebBrowser控件的使用用Visual Basic 创建一个应用程序的第一步是创建界面。

而控件则是创建界面的基本模块，是包括在窗体对象内的对象。

每种类型的控件都有自己的属性、方法和事件，属性一般控制控件的外观、大小等性质，方法则是控件的能力或者功能，事件则代表与用户的交互，例如鼠标的移动点击、键盘的输入等都会触发相应的事件。

WebBrowser控件是随IE 3.0以上版本提供的一个可编程的ActiveX控件，利用WebBrowser控件可以显示、控制、分析Web 页，除了IE，chm格式的帮助的浏览，还广泛应用在以IE为核心的许多浏览器和其他程序中。

WebBrowser控件在VB中的使用很简单。

启动VB，创建一个标准EXE工程，选择工程——部件，打开部件对话框，从中找到Microsoft Internet Controls，选中后单击应用，然后关闭对话框（下图），可以看到WebBrowser控件已经添加到工具栏。

将WebBrowser控件拖至窗体，调整到相应大小，打开代码窗口，在Form_Load过程中键入如下代码：Private Sub Form_Load()WebBrowser1.Navigate ""End Sub运行程序，可以看到搜狐的主页显示在了相应的对话框中了。

WebBrowser用法总结

WebBrowser⽤法总结简单⽤了⼀下记录⼀下：private void button1_Click(object sender, EventArgs e){MessageBox.Show(webBrowser1.Document.Body.InnerHtml);//得到浏览器html内容，还可以⽤GetElementById();}private void Form2_Load(object sender, EventArgs e){webBrowser1.Navigate("");}url:教你在C#中WebBrowser的使⽤其实⽹络上这类⽂章很多，我⼤致从头说说我⾃⼰的经验。

1、加⼊引⽤在控件栏按右键，选择“添加/移除项”，选COM组件，选中“Microsoft Web Browser”。

然后就可以往窗体上拖出⼀个该控件（下⾯把该控件⼀个对象称为webBrowser）。

控件属性中可以调整的不多，从⼀些资料中得知WebBrowser中的MenuBar、StatusBar等其实都没实现。

2、控件的函数由于是COM过来的控件，它的⼀些函数就⽐较怪，基本的Navigate函数除了第⼀个参数外，其它都是ref类型的，需要显式地写ref才能调⽤。

⼀般要使之导向到某个页⾯，先设置⼀个空对象，object objNull=null;然后webBrowser.Navigate(strPage, ref objNull, ref objNull, ref objNull, ref objNull);即可。

具体其它四个参数可参考相关⽂档。

还有⼀个常⽤的功能，就是怎么让浏览器显⽰⾃⼰的html⽂档，⼀个⽅法是⽤DOM⾥根元素的innerText：((mshtml.HTMLDocumentClass)webBrowser.Document).documentElement.innerText=sHTML;相当⽤于Javascript设置⽹页的代码。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

vb+Webbrowser控件详解2007-12-22 18:221、获得浏览器信息：Private Sub Command1_Click()WebBrowser1.Navigate ""End SubPrivate Sub Command2_Click()Dim oWindowDim oNavSet oWindow = WebBrowser1.Document.parentWindowSet oNav = oWindow.navigatorDebug.Print erAgentSet oWindow = NothingSet oNav = NothingEnd Sub点击Command1浏览网页，点击Command2在立即窗口中输出浏览器信息。

2、弹出Webbrowser消息窗口Dim oWindowSet oWindow = WebBrowser1.Document.parentWindowoWindow.confirm "abcd"VB调用webbrowser技巧集2向Webbrowser中写入HTML内容的几种方法首先在Form_Load中加入WebBrowser1.Navigate "about:blank"确保Webbrowser1可用方法1：Dim s As StringDim stream As IStreams = ""s = s + ""s = s + ""s = s + "hello world"s = s + ""s = s + "WebBrowser1.Document.Write s方法2：Dim oSet o = WebBrowser1.Document.selection.createrange Debug.Print oIf (Not o Is Nothing) Theno.pasteHTML "哈哈"Set o = NothingEnd If方法3：'插入文本框Dim oSet o = WebBrowser1.Document.selection.createrangeo.execCommand "InsertTextArea", False, "xxx"vb调用Webbrowser技巧集31、页面滚动：Private Sub Command2_Click()WebBrowser1.Document.parentwindow.scrollby 0, 30 End SubPrivate Sub Form_Load()WebBrowser1.Navigate ""End Sub点击Command2就可以使当前页面向下滚动30像素2、判断页面是否可以前进后退Private Sub Command1_Click()WebBrowser1.GoForwardEnd SubPrivate Sub Command2_Click()WebBrowser1.GoBackEnd SubPrivate Sub Form_Load()WebBrowser1.Navigate ""End SubPrivate Sub WebBrowser1_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean)If (Command = CSC_NAVIGATEBACK) ThenCommand2.Enabled = EnableEnd IfIf (Command = CSC_NAVIGATEFORWARD) ThenCommand1.Enabled = EnableEnd IfEnd SubVB调用webbrowser技巧集41、如何使网页不出现滚动条：Private Sub mnuScroll1_Click()@#注意：必须在网页完全显示之后才可以运行WebBrowser1.Document.body.Scroll = "no" @#不显示滚动条的办法End SubPrivate Sub mnuScroll2_Click()@#注意：必须在网页完全显示之后才可以运行WebBrowser1.Document.body.Scroll = "Auto" @#显示滚动条的办法End Sub2、如何获得网页中被选中部分的HTML：Private Sub Command1_Click()Dim objSelectionDim objTxtRangeSet objSelection = WebBrowser1.Document.selectionIf Not (objSelection Is Nothing) ThenSet objTxtRange = objSelection.createRangeIf Not (objTxtRange Is Nothing) ThenDebug.Print objTxtRange.htmlTextSet objTxtRange = NothingEnd IfSet objSelection = NothingEnd IfEnd SubPrivate Sub Form_Load()WebBrowser1.Navigate ""End SubNavigate 方法的语法格式为：WebBrowser 控件名.Navigate URL[Flags,][TargetFrameName,][PostData,][Headers]---- WebBrowser 控件支持的主要方法有:GoBack ———回退到上一屏。

GoForward ———进入到下一屏。

GoHome ———回家。

即回到主页。

Stop ———停止导航。

Refresh ———刷新。

Navigate ———导航。

---- WebBrowser 控件所响应的事件:---- BeforeNavigate 事件———在开始导航前发生。

一般在此获取完整的URL 字符串。

---- WebBrowser 控件最主要的参数:---- URL ———获得导航用的标准URL 字符串。

例如：它能将”” 自动翻译为””.URL 是Uniform Resource Locator 的缩写，是在Internet 的WWW 服务程序上用于指定信息位置的表示方法。

使用WebBrowser的Navigator或者Navigator2方法打开一个asp文档并且传递参数进去，但是asp文档无法获得参数，请教是什么原因？vb源码：Private Sub cmdSubmit_Click()Dim strURL As String, strFormData As StringDim strData As StringstrURL = Trim$(txtURL.Text)strFormData = "name=" & Trim$(txtName.Text) &"&password=" & Trim$(txtPassword.Text)Call WBTest.Navigate2(strURL, 64, "_blank", strFormData,"hello")End Subasp源码：<%@ Language=VBScript %><%dim strNamedim strPasswordstrName=Trim(Request.Form("name"))strPassword=Trim(Request.Form("password"))Response.Write(strName)Response.Write(strPassword)if strName="KingZhang" and strPassword="123456" thenResponse.Write("登陆成功")elseResponse.Write("非法登陆用户！")end if%>********************************************************************* Option ExplicitPrivate Sub Command1_Click()Dim szValue As StringWebBrowser1.Document.body.innerHTML = "method=post action=http://地址/xxx.php>"WebBrowser1.Document.Forms("post").submitEnd SubPrivate Sub Form_Load()WebBrowser1.Navigate2 "about:blank"End SubTop********************************************************************请问：在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 PostDataEnd SubWebBrowser的8个方法和13个属性WebBrowser的8个方法和13个属性，以及它们的功能：方法说明GoBack 相当于IE的“后退”按钮，使你在当前历史列表中后退一项GoForward 相当于IE的“前进”按钮，使你在当前历史列表中前进一项GoHome 相当于IE的“主页”按钮，连接用户默认的主页GoSearch 相当于IE的“搜索”按钮，连接用户默认的搜索页面Navigate 连接到指定的URLRefresh 刷新当前页面Refresh2 同上，只是可以指定刷新级别，所指定的刷新级别的值来自RefreshConstants枚举表，该表定义在ExDisp.h中，可以指定的不同值如下：REFRESH_NORMAL 执行简单的刷新，不将HTTP pragma: no-cache头发送给服务器REFRESH_IFEXPIRED 只有在网页过期后才进行简单的刷新REFRESH_CONTINUE 仅作内部使用。