VB 浏览器

合集下载

vba 控制搜狗浏览器兼容模式

vba 控制搜狗浏览器兼容模式

vba 控制搜狗浏览器兼容模式
之前有一次我用搜狗高速浏览器输入支付宝密码的时候,密码却没法输入。

最后我却换成兼容模式就好了,今天教大家如何切换兼容模式。

首先我们打开“搜狗高速浏览器”找打自己想要切换兼容的页面
在这个网站上面网址的前面存有一个流星一样的小标志,我们页面这个标志
这里有一个灰色字样的“切换到兼容”我们点击这个字、、、、、、、、、、、、、、、、
然后再页面这个萧山点之后,灰色字样就可以显成“转换至高速”,然后蓝色字样为“相容模式”这就表明我们转换顺利啦~
end。

vb课程设计浏览器

vb课程设计浏览器

**课程设计IE浏览器课程设计报告单位 ** 分院(系) 专业**学号 **学生姓名 **指导教师 **完成日期 *年 *月*日摘要随着网络的不断发展,网页浏览器作为上网的所必需的软件之一,已经得到了广泛地应用。

在IE独霸一方的背景下,国内外各式各样的浏览器软件都如雨后春笋般孕育而生。

网页浏览器的开发与应用更是成为了计算机领域近年来的一大热点。

本文围绕着浏览器的编程与开发,讲述了在Visual Basic 6.0中进行浏览器开发的一些技术和笔者的自己的心得,着重讲解了毕业设计中所实现的一个浏览器程序。

在对浏览器的阐述中,又是以Visual Basic 6.0中含有的WebBrowser控件为核心,以程序原代码的模块分类为线索,对FrmBrowser窗体、FrmOpen窗体、FrmOptions窗体三大主要窗体文件以及本浏览器的两大特色功能—多页面显示和捕捉弹出式窗口进行了详细的介绍。

最后并把本次实现的作品与当今流行的Internet Explorer、Opera、傲游和腾讯TT浏览器相比较,做出了本次毕业设计的总结。

意在让广大读者了解浏览器开发的一系列过程,并为自己今后在计算机方面的发展道路上打下坚实的基础。

关键词:1、浏览器2、可视化程序设计3、窗体4、事件;目录1.选题的意义 (3)2.预定功能 (4)3.系统设计 (5)3.1界面设计 (5)3.2运行界面与主要功能说明 (10)4.总结 (14)4.1总结 (14)参考文献 (15)第一章选题的意义希望通过制作简易IE浏览器来掌握VB有关内容的使用方法!随着时代的发展,计算机已经不是前些年仅仅是少数人才可以运用/使用的局面,取而代之的是许许多多的家庭有了计算机,几乎所有的学校也开设了计算机课程,所以面对熟悉而又陌生的工具——计算机,教学必须开设本次课程设计,以满足学生对运用计算机的能力!这次课程设计分了许多题目,本设计是软件类——利用Microsoft Visual Basic开发IE浏览器。

VB课程设计实验报告---图片浏览器

VB课程设计实验报告---图片浏览器

VB课程设计报告课程设计题目:图片浏览器目录VB课程设计报告 ...................................................................................................... - 1 -一.内容摘要 ................................................................................................................ - 3 -二.功能描述(含流程图) (3)2.1 流程图: (3)2.2 图片浏览器描述(1)............................................................................... - 4 -2.3 图片浏览器描述(2)............................................................................... - 4 -2.4 图片浏览器描述(3)............................................................................... - 4 -2.5 图片浏览器描述(4) (4)2.6 图片浏览器描述(5) (4)三.概要设计 (4)3.1 电子式图片浏览器 (4)四.详细设计 (5)4.1盘符,文件夹和文件列表的确定 (5)4.2图片显示时,盘符,文件夹和文件列表隐藏 (5)4.3 图片放大的确定 (5)4.4 图片缩小的确定 (5)4.5图片转换到上一张的确定 (6)4.6图片转换到下一张的确定 (6)五.效果及存在问题 (6)5.1程序的效果: (6)5.2显示图片的情况:....................................................................................... - 9 -5.3:图片浏览器扩大的情况:............................................ 错误!未定义书签。

VBWebbrowser控件使用方法

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

利用VB实现多媒体播放器

利用VB实现多媒体播放器

利用VB实现多媒体播放器在VB中实现一个多媒体播放器需要以下步骤:1. 创建一个VB项目:在VB环境中,创建一个新的Windows Forms应用程序项目。

2. 添加必要的控件:在VB表单(Form)上添加所需的控件,例如播放按钮、暂停按钮、停止按钮、音量调节器、进度条等。

3. 导入多媒体库:在VB项目中导入Windows Media Player组件或其他多媒体库。

这可以通过右键单击工具箱,选择“选择项”并添加所需的组件来完成。

4. 设置播放器:在VB中创建一个Windows Media Player对象,并设置其属性和方法。

例如,设置音量、循环、播放速度等。

5.添加功能:实现按钮的点击事件和其他控件的事件处理程序。

例如,当用户单击播放按钮时,开始播放所选多媒体文件。

6.添加文件浏览器:实现文件浏览器功能,以便用户可以选择要播放的多媒体文件。

7.更新进度条:为多媒体播放器添加一个进度条控件,并在播放过程中更新其值。

8. 显示时间:在VB中,使用Timer对象来显示多媒体文件的当前播放时间。

9.处理错误:处理可能发生的错误,例如无法打开文件、播放时出现错误等。

10.完善界面:通过调整窗体大小和布局,美化播放器界面。

11.调试和测试:在VB开发环境中进行调试和测试,确保播放器正常工作以及正常处理用户输入。

12.发布应用程序:将应用程序发布为可执行文件,使其能够在其他计算机上运行。

以上步骤提供了实现一个基本的多媒体播放器所需的核心点。

然而,具体实现方式可能会因项目需求和功能扩展而有所不同。

因此,您可以根据您的需求进行进一步的自定义和扩展。

用VB设计自已的Web浏览器

用VB设计自已的Web浏览器

浏览器是阅读WWW上的信息资源的重要的客户端软件,众所周知的有Microsoft Internet Explorer和Netscape Navigator 浏览器。

它们功能强⼤,界⾯友好,是⼴⼤民在Internet上冲浪的好⼯具。

对于多媒体应⽤软件及教育软件的开发者来说,可能更希望有⾃⼰定制的浏览器集成到⾃⼰开发的产品中来,以增强应⽤软件产品的功能,扩充使⽤多媒体信息的⽅式,使⾃⼰的产品更加先进、更加具有络化特⾊,从⽽轻松平滑地融⼊到Internet世界中去。

但是,这些专业性的Web浏览器的安装配置较为复杂,程序⽂件⼜很⼤,对于应⽤软件开发者来说还有版权问题,更不具有⾃⼰需要的特⾊,要想集成到⾃⼰的应⽤产品中,有可能融合不平滑,还会产⽣很多问题,怎么办呢?Visual Basic 5.0为软件开发⼈员提供了现成的窗体和控件,只要稍稍熟悉VB编程,就可以轻松地设计出具有专业化界⾯的、有⾃⼰特⾊的Web浏览器来。

⽽且,原有的软件开发⼯具可能不⽀持的媒体元素如Gif动画、.au格式声⾳等也都能⽅便地引⽤到您的应⽤软件产品中来,⽽这些媒体元素在 Internet上⼏乎可以说是取之不尽,⽤之不竭的。

下⾯就对⽤ Visual Basic 5.0设计⼀个简单的Web浏览器的⽅法加以说明。

1.⽤Browser窗体设计浏览器 Visual Basic 5.0的专业版提供了浏览器窗体(Browser Form),⽤它来设计⾃⼰的浏览器相当⽅便,许多控件不⽤⼀个个地去设置和编写代码了,在此基础上还可以增添⾃⼰想增加的控件和菜单等。

下⾯对制作⼀个简单的浏览器的⽅法和步骤加以说明。

(1)在VB中打开⼀个新的项⽬(New Project); (2)在项⽬(Project)资源管理器窗⼝中,选定Form1窗体并按⿏标右键,弹出菜单后,⽤删除窗体(Remove Form)命令删除Form1 窗体; (3)选定项⽬Project1,单击⿏标右键,弹出菜单后选定添加 (Add)项,再选择添加窗体(Add Form)命令。

利用VB设计浏览器

利用VB设计浏览器

利用VB设计浏览器使用VB5附带的WebBrowser控件,可以非常简单地设计出一个实用的浏览器。

首先,加载“Microsoft Internet Controls”和“Microsoft Windows Controls”控件。

然后,设计好界面。

在Web浏览器里定义URL现在,已经建立了浏览器里所需的一些控件,怎么让用户导航呢?我们可使用WebBrowser控件的Navigate方法。

接下来看一看这种方法。

例如:Web浏览器首次加载时,可以通过这种方法去导航Microsoft Web页(注意在Intenet Explorroe可定义带或不带“HTTP://”):private sub form_load()webbrowser1.navigate″″…end sub当然也可以使用户能够导航新的URL,这通常使用组合框Combo1。

首先通过显示当前的URL来启动Combo1工作将其加载到组合框的下拉列表中:private sub form_load()webbrow ser1.navigate″″combo1.text=″″combo1.AddItedm combo1.textend sub用户可以从组合框下拉列表里选择过去的URLS ,当通过这种方法选择了一个URL时,相应的Click事件就产生了,用这种方法能够导航最新选择的URL:private sub combo1_load()webbrowser1.navigate combo1.textend sub另外,用户可以在组合框里定义一个新的URL 并按Enter键,正如他们能够在商业浏览器里所作的一样。

当按下Enter键时,就可以直接从Keypress事件处理器中简单地调用Combo1—Click事件处理器导航到这个新的URL:private sub combo1_keypress(keyascii as integer)if keyascii=vbkeyreturn thencombo1—clickend ifend sub最后,当下载过程结束时,WebBrowse控件激活了Downloadcomplet事件,此时就能够在浏览器的标题栏内显示当前的URL,正如任一商业浏览器一样。

vb webchrome用法

vb webchrome用法

VB WebChrome是一款功能强大的浏览器控件,它能够在Visual Basic(VB)环境中嵌入Chrome浏览器,提供更丰富的网页浏览和交互体验。

本文将介绍VB WebChrome的用法,并针对其特点和常见问题进行详细解析,帮助读者更好地使用这一控件。

一、VB WebChrome的安装和配置1. 下载和安装VB WebChrome控件在官方全球信息湾或开发者社区下载VB WebChrome控件的安装包,并进行安装。

2. 在VB项目中添加VB WebChrome控件打开VB项目,点击“工具”-“管理NuGet程序包”,搜索并安装VB WebChrome控件的相关包。

3. 配置控件属性在VB项目中使用VB WebChrome控件时,需要合理配置其属性,例如设置初始全球信息湾、控件大小等。

二、VB WebChrome的基本功能1. 加载网页通过VB WebChrome控件,可以轻松实现在VB程序中加载和显示网页的功能,用户可以浏览网页内容、点击信息等。

2. 与网页的交互VB WebChrome控件支持与网页的交互,用户可以通过编写VB代码实现对网页中元素的操作,如点击按钮、填写表单等。

3. 支持HTML5和CSS3由于VB WebChrome控件是基于Chrome浏览器内核开发的,因此支持HTML5和CSS3等最新的网页技术,能够呈现更丰富的网页内容。

三、VB WebChrome的高级功能和应用场景1. 自定义网页加载状态开发者可以通过VB代码监控网页的加载状态,并在加载完成后执行相应的操作,如显示加载完成的提示信息。

2. 与JavaScript的交互VB WebChrome控件支持与网页中的JavaScript进行交互,可以实现更复杂的网页操作和数据交互。

3. 实现网页打印功能借助VB WebChrome控件,开发者可以实现网页的打印功能,将网页内容直接打印出来。

四、VB WebChrome的常见问题和解决方法1. 控件加载失败当使用VB WebChrome控件时,有时会遇到控件加载失败的情况。

vb+Webbrowser控件详解

vb+Webbrowser控件详解

VB调用webbrowser技巧集4
1、如何使网页不出现滚动条:
Private Sub mnuScroll1_Click()
@#注意:必须在网页完全显示之后才可以运行
WebBrowser1.Document.body.Scroll = "no" @#不显示滚动条的办法
End Sub
WebBrowser1.Navigate2 "about:blank"
End Sub
Top
********************************************************************
请问:在WebBrwoser控件里提供的Navigate或者Navigate2方法中提供了传递数据
Response.Write(strName)
Response.Write(strPassword)
if strName="KingZhang" and strPassword="123456" then
Response.Write("登陆成功")
else
Response.Write("非法登陆用户!")
"hello")
End Sub
asp源码:
<%@ Language=BScript %>
<%
dim strName
dim strPassword
strName=Trim(Request.Form("name"))
strPassword=Trim(Request.Form("password"))

vbwebbrowser控件详解

vbwebbrowser控件详解

vbwebbrowser控件详解vb+webbrowser控件详解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多窗口浏览器

vb多窗口浏览器

vb制作简单的多窗口浏览器之前由于做自动考勤的时候接触到了webbrowser这个东西,于是打算进行更深入一点的操作.制作一个简单的VB多窗口浏览器.普通的VB浏览器网上有太多的资料了.如果想知道用VB做浏览器的基础知识,那么可以搜索一下这方便的内容.这里的多窗口,我用的是SSTAB来进行实现的.制作之前,先了解一下自己究竟想实现浏览器的哪些功能?平时我是用TW的,一般菜单上用得到的几个东西.1.显示源代码2.打印3.设置4.收藏夹其他的罗里罗嗦的东西,几乎都没用到或者都不需要调整,所以菜单栏可以去除了.占着空间浪费.然后轮到工具栏,也就是有图标按钮那一;排,基本上用到的是1.后退2.前进3.恢复刚关闭的页面4.主页5.URL输入框6.搜索框7.添加/关闭新页基本上关闭页面我都是DOUBLE CLICK的,但在这里我还是做了一个按钮去除停止,刷新等按钮.再然后CTRL+T加载多标签页sstab,进度条progress,以及状态栏statusbar这三个控件最后,按照需要,构建自己的form如下:(加载了skinactive.ocx的一个默认skin)框架都搭好了,现在开始主要是代码了.先定义变量'一共打开多少页Dim totalpage As Integer'当前页Dim activepage As IntegerDim i As Integer'删除了多少页Dim delflag As Integer'显示多少页Dim display As Integer'按钮不闪烁Dim noflash As Integer接下来是form_loadPrivate Sub Form_Load()Dim tmpstr As Stringactivepage = 0totalpage = 1display = 1SSTab1.Tabs = totalpage'页面留白WebBrowser1(activepage).Navigate "about:blank"'预设几个URL,方便测试Combo1.AddItem ("")Combo1.AddItem ("")Combo1.AddItem ("")Combo1.AddItem ("")Combo1.AddItem ("")Combo1.AddItem ("")'于是几个label,方便测试Label1.Caption = "总共" & totalpage & "显示" & display Label2.Caption = "当前" & activepageLabel3.Caption = "删除" & delflag'SSTab1.ZOrder 1'Picture29.ZOrder 0'Picture30.ZOrder 0StatusBar1.ZOrder 0ProgressBar1.ZOrder 0'状态栏初始化StatusBar1.Panels(1).Width = 7700StatusBar1.Panels(1).Bevel = sbrNoBevelStatusBar1.Panels.Add (2)StatusBar1.Panels(2).Width = 1000StatusBar1.Panels(2).Bevel = sbrNoBevelStatusBar1.Panels(2).Text = "当前时间:"StatusBar1.Panels.Add (3)StatusBar1.Panels(3).Width = 1000StatusBar1.Panels(3).Bevel = sbrNoBevelStatusBar1.Panels(3).Style = sbrDateStatusBar1.Panels.Add (4)StatusBar1.Panels(4).Width = 700StatusBar1.Panels(4).Bevel = sbrNoBevelStatusBar1.Panels(4).Style = sbrTimeStatusBar1.Panels.Add (5)StatusBar1.Panels(5).Width = 2700StatusBar1.Panels(5).Bevel = sbrNoBevelStatusBar1.Panels.Add (6)StatusBar1.Panels(6).Width = 900' StatusBar1.Panels(6).Bevel = sbrNoBevelStatusBar1.Panels(6).Picture = Picture29.PictureStatusBar1.Panels(6).Text = "普通"'读取ini默认引擎a = ReadIni("./gr.ini", "conf", "searchengin", tmpstr, 10)If tmpstr = 1 ThenText1.Text = "Baidu Search"ElseText1.Text = "Google Search"End IfText1.ForeColor ='皮肤定义Skin1.LoadSkin "skin/wmac.skn"Skin1.ApplySkin Me.hWndEnd Sub至少这个form_load目前来说功能是够了,接下来加入form_resize Private Sub Form_Resize()'窗口大小最小限制If Me.Width < 13000 Then Me.Width = 13000If Me.Height < 3000 Then Me.Height = 3000If Me.WindowState <> 1 ThenCombo1.Width = Me.Width - 11730Picture6.Left = Me.Width - 3530Text1.Left = Me.Width - 3000Picture3.Left = Me.Width - 800SSTab1.Width = Me.Width - 120SSTab1.Height = Me.Height - 1100For i = 0 To totalpage - 1If DoesControlExist(WebBrowser1(i)) ThenWebBrowser1(i).Top = 340WebBrowser1(i).Width = Me.Width - 120WebBrowser1(i).Height = Me.Height - 1800End IfNextEnd If'skin更新后需要调整ProgressBar1.Top = Me.Height - 800End SubPS:这里的resize不包括statusbar上的东西,因为目前正在做statusbar.制作到现在碰到的最大的难点在于SSTAB这个东西上,我的多窗口的做法是在每一个SSTAB.TAB上生成一个WEBBROWSER,当然,这个webbrowser先定义成控件组.这样就形成了一个sstab.tab(i)对应一个webbrowser(i),做窗口操作的时候比较好处理.可以在上文看到,还有一个display的变量,它是来做什么的呢?新建窗口的时候怎么处理?关闭窗口的时候又是怎么处理呢?这些当初困扰了我好久,逻辑有的,写的时候却经常犯下小失误. 先来谈谈新建窗口.'判断此次新建窗口是否要闪烁按钮If noflash <> 1 ThenPicture1.Picture = Picture15.PictureEnd If'总页面变量加1totalpage = totalpage + 1'设置当前页的变量为总页面数-1,新页面总是在尾部添加标签activepage = totalpage - 1'将页面总数赋予sstab的tab数SSTab1.Tabs = totalpage'当前显示的页面加1display = display + 1'调整标签宽度If display > 6 ThenSSTab1.TabsPerRow = displayElseSSTab1.TabsPerRow = 6End If'判断尾部是否有隐藏的标签,有的话调整当前页位置向后移,暂定总页面数100页,'虽然这个页面数包括被关闭的标签数量,但是在正常情况下应该够了.For i = activepage To 100If SSTab1.TabVisible(i) = True Thenactivepage = iSSTab1.Tab = activepageExit ForEnd IfNext'Load WebBrowser1(WebBrowser1.ubound + 1)'动态建立新的webbrowser控件Load WebBrowser1(activepage)'添加sstab超过perRow时top的自动位移For i = 0 To totalpage - 1If DoesControlExist(WebBrowser1(i)) ThenWebBrowser1(i).Top = 340WebBrowser1(i).Width = Me.Width - 120WebBrowser1(i).Height = Me.Height - 1800 End IfNextWebBrowser1(activepage).Visible = TrueWebBrowser1(activepage).Left = 0'新建窗口以空白页显示WebBrowser1(activepage).Navigate "about:blank"。

在VB中操作IE浏览器

在VB中操作IE浏览器
法。
前 进 和 停 止 功 能 。 使 用 语 句 W eB o sr . 最 后 在 程 序 中 添 加 如 下 代 码 : b rw e1
1 使 用 函 数 S el AP . h l和 I函 数 S e E eIe Na i t ht : w h I xc t I l vg e“ t /  ̄w.o u cm/ , a p / sh .o ” 即可 实 函数 S e 和 AP 函 数 S hl l I xc t eue的 现 打 开 搜 狐 主 页 。
管 WeB ooe b rzsr控 件 和 自动 化 I t n tE poe 。 并 重 点 介 绍 了 自动 化 I t n t x lrr及 一 些 实 际 ne e x lrr r n e e po e r E
的应 用 。
【 关键词 】 I E,V 自动化 , 件 B, 控
网 络 的 普 及 ,E 及 W E I B访 问 能 力 已 经 VB 中 的 W eB sr 件 大 家 都 很 熟 能 。 b mw e 控
件 , 法 : h 1ptnme , i o s e ) 函 数 ( D w l d o l e, o1ll C m. 语 s d (a a [ w n w @ ] h d 如 o no C mpe I cn e. o a t ) .l3 - t
’ 断 是 否 启 动 了 It e p r 实 判 ne t l e m Ex or
Ho , G B e me o ak)和 属 性 ( 如 D cmet ou n ,
Di m I t m e Ex l r l s I t m e Ex— ne t po e A r ne t
lr r 函 数 S e 功 能 是 执 行 一 个 可 执 行 文 W i h, oain me ,凭借 其灵 活 的事 件 po e hl l d L ct Na ) t o

VB动态添加WebBrowser控件,并拦截弹出窗口(不用引用任何组件)

VB动态添加WebBrowser控件,并拦截弹出窗口(不用引用任何组件)

VB动态添加WebBrowser控件,并拦截弹出窗⼝(不⽤引⽤任何组件)WBCustomizer.dll 这个1、注册::在开始菜单中输⼊RegSvr32路径(WBCustomizer.dll⽂件所在的绝对路径),若果注册成功,会提⽰2、引⽤:在⼯程--》引⽤中,选择microsoft webbrows customizer sample object3、使⽤:如下举例Dim CustomWB As WBCustomizerSet CustomWB = New WBCustomizerWith CustomWB.EnableAccelerator vbKeyN, vbKeyControl, True'表⽰启⽤ctrl+N键.EnableAccelerator vbKeyO, vbKeyControl, fasle '禁⽤ctrl+O键.EnableContextMenus = True'启⽤右键菜单若赋值false 禁⽤右键菜单.EnableAllAccelerators = TrueSet .WebBrowser = WebBrowser1End With新建空⽩窗体,然后粘帖下⾯代码:1Option Explicit2Public WithEvents br As VBControlExtender34Private Sub br_ObjectEvent(Info As EventInfo)5If = "NewWindow2"Then6'Dim fm As New Form17'fm.Show8'Info.EventParameters(0) = br.object ‘根据需要可实现在⾃⼰的新开窗⼝打开弹出窗⼝9 Info.EventParameters(1) = True'拦截弹出窗⼝10End If11End Sub1213Private Sub Form_Click()14 br.object.Navigate "/"15End Sub1617Private Sub Form_Load()18On Error Resume Next19If Licenses.Count = 0Then Licenses.Add "Shell.Explorer.2", "Shell.Explorer.2"20Set br = Me.Controls.Add("Shell.Explorer.2", "br")21'br.Width = 150 * Screen.TwipsPerPixelX22'br.Height = 50 * Screen.TwipsPerPixelY23 br.Visible = True24End Sub。

vb explorer 参数

vb explorer 参数

vb explorer 参数
VBScript(Visual Basic Scripting Edition)编写 Windows 资源管理器(Explorer)的参数。

如果您是在使用VBScript 脚本中启动资源管理器,可以使用Shell 对象的 Run 方法来启动资源管理器,并通过参数传递选项。

以下是一个示例:
Dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")
' 启动资源管理器并打开特定文件夹
objShell.Run "explorer.exe C:\Path\To\Your\Folder", 1, False
Set objShell = Nothing
在这个例子中,explorer.exe 是资源管理器的可执行文件,后面的参数是要打开的文件夹路径。

1 参数表示窗口以正常状态打开,False 参数表示脚本会继续执行而不等待资源管理器关闭。

请注意,VBScript 对于资源管理器的定制能力有限。

如果您需要更复杂的资源管理器定制,可能需要考虑使用更强大的编程语言,例如 C# 或 ,并使用 Windows API 调用或 Shell 扩展来实现更高级的功能。

1/ 1。

VB中WEBBROWSER技巧整理合集

VB中WEBBROWSER技巧整理合集

VB关于webbrowser相关操作大全日期:2011-2-17文档收集者:银河1、WebBrowser的方法、属性、事件------------------------------------------------------------ 22、提取网页源码 ----------------------------------------------------------------------------------- 33、防止新窗口里头打开网页 --------------------------------------------------------------------- 44、新Webbrowser控件打开链接 ----------------------------------------------------------------- 55、去掉滚动条 -------------------------------------------------------------------------------------- 56、禁止鼠标右键 ----------------------------------------------------------------------------------- 67、如何获得网页的内容 --------------------------------------------------------------------------- 68、多框架框架页面访问 --------------------------------------------------------------------------- 79、获得浏览器信息--------------------------------------------------------------------------------- 710、弹出Webbrowser消息窗口 ----------------------------------------------------------------- 811、向Webbrowser中写入HTML内容的几种方法--------------------------------------------- 812、控制页面滚动--------------------------------------------------------------------------------- 913、判断页面是否可以前进后退---------------------------------------------------------------- 914、如何获得网页中被选中部分的HTML -------------------------------------------------- 1015、Navigate的参数调用------------------------------------------------------------------------1116、本地文件收藏夹操作 -----------------------------------------------------------------------1117、让Webbrowser全屏------------------------------------------------------------------------ 1218、选择网页上的内容 ------------------------------------------------------------------------- 1219、用IE来下载文件--------------------------------------------------------------------------- 1320、Webbrowser确定窗口对话框 ------------------------------------------------------------- 1421、禁止WebBrowser控件中网页弹窗 ------------------------------------------------------ 1422、取得源码调试正常运行错误-------------------------------------------------------------- 1523、页面元素操作------------------------------------------------------------------------------- 15例0: 查看网页元素 ----------------------------------------------------------------------------- 15 例1: 给username文本框内填充内容: -------------------------------------------------------- 15 例2: 找到提交按钮并点击--------------------------------------------------------------------- 16 例3: 难度的-------------------------------------------------------------------------------------- 16 例4: 模拟鼠标点击来点击按钮 --------------------------------------------------------------- 17 例5: 根据ID直接CLICK --------------------------------------------------------------------- 17 例6: 给列表单选项赋值------------------------------------------------------------------------ 17 例7: 网页自动填写表单注册 ------------------------------------------------------------------ 18 24、网页按钮的终极控制 ---------------------------------------------------------------------- 2022、执行网页中的脚本------------------------------------------------------------------------------- 2123、提取字符串或网页源代码中指定的资源(可利用这一函数做文章采集器) ----------- 2324、中文汉字转化为URL编码--------------------------------------------------------------------- 2525、获取网页中的验证码---------------------------------------------------------------------------- 2726、WebBrowser控件中网页按钮的点击---------------------------------------------------------- 2827、其它 ----------------------------------------------------------------------------------------------- 28 1、WebBrowser的方法、属性、事件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 仅作内部使用。

VB操作网页代码

VB操作网页代码

VB操作网页(wǎnɡ yè)代码VB操作网页(wǎnɡ yè)代码1、防止新窗口里头打开(dǎ kāi)网页代码(dài mǎ)1:Private SubWebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)Dim frm As Form1Set frm = New Form1frm.Visible = TrueSet ppDisp = frm.WebBrowser1.objectEnd Sub代码(dài mǎ)2:有这段代码,有许多网页会出错,经常提示脚本错误,可以用silent属性(shǔxìng)为True来屏蔽,不过也有些不足!!!Private SubWebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)Cancel = TrueWebBrowser1.Navigate2WebBrowser1.Document.activeElement.hrefEnd Sub代码(dài mǎ)3:Private SubWebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)On Error Resume NextDim frmWB As Form1Set frmWB = New Form1frmWB.WebBrowser1.RegisterAsBrowser = TrueSet ppDisp = frmWB.WebBrowser1.object frmWB.Visible = TruefrmWB.Top = Form1.TopfrmWB.Left = Form1.LeftfrmWB.Width = Form1.WidthfrmWB.Height = Form1.HeightEnd Sub功能(gōngnéng)差不多,任选一个。

VB Webbrowser控件使用方法

VB Webbrowser控件使用方法

VB Webbrowser控件使用方法方法说明GoBack 相当于IE的“后退”按钮,使你在当前历史列表中后退一项GoForward 相当于IE的“前进”按钮,使你在当前历史列表中前进一项GoHome 相当于IE的“主页”按钮,连接用户默认的主页GoSearch 相当于IE的“搜索”按钮,连接用户默认的搜索页面Navigate 连接到指定的URLRefresh 刷新当前页面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控件顶层容器,是就返回trueType 返回已被WebBrowser控件加载的对象的类型。

相关主题
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
事件:1.DownloadBegin 下载操作开时触发。
2.DownloadComplete 下载操作完成、终止或失败时触发。
3.ProgressChange WebBrowser控件跟踪下载操作的过程,并定期触发此事件。其语法为:Sub WebBrowser_ProgressChange (ByVal Progress As Long, ByVal ProgressMax As Long)。Progress变元是当前已下载的数据总量,ProgressMax变元是将要下载的数据总量。
Combo1.Text = WebBrowser1.LocationURL
End Sub
End Sub
Private Sub Combo1_Click()
`转到指定网址
WebBrowser1.Navigate Combo1.Text
End Sub
Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
自己做浏览器?有没有搞错?不要说像IE这样的庞然大物,就是小巧的Opera,我们大多数普通人也决计搞不出来。但如果你的机器里装有VB5.0专业版,那么事情就好办多了,想试试吗?那好,Let`s go!
程序的主角是一个ActiveX控件:WebBrowser。当然,缺省状态下VB的工具箱中并没有它,我们得手工加入,方法是:右击工具箱,在出现的快捷菜单中选择“部件...”,确保在弹出的对话框中选中“控件”标签,找到Microsoft Internet Controls,在它前面的小框中打钩,然后确定。此时你会发现工具箱中多了两个小图标,其中,地球图标代表的控件正是我们需要的WebBrowser。
Combo1.Left = 0
WebBrowser1.Top = Combo1.Top + Combo1.Height
WebBrowser1.Left = 0
Form_Resize
StatusBar1.Style = sbrSimple
ProgressBar1.ZOrder
Dim i As Long
Dim existed As Boolean
If KeyCode = 13 Then
If Left(Combo1.Text, 7) &l1.Text = “http://”+ Combo1.Text
End If
WebBrowser1.Navigate Combo1.Text
For i = 0 To Combo1.ListCount - 1
If Combo1.List(i) = Combo1.Text Then
existed = True
Exit For
Else
existed = False
StatusBar1.SimpleText = “Now Linking...”
End Sub
Private Sub WebBrowser1_DownloadComplete()
`下载完成时状态栏显示“Link Finished”
StatusBar1.SimpleText = “Link Finished”
由于许多人对WebBrowser控件不是很熟悉,VB的帮助中也没有有关它的内容(反正我没有找到),因此有必要介绍一下它的属性、方法和事件,限于篇幅,我们只涉及程序中用到的:
属性:LocationURL 返回控件显示WEB页面的URL。
方法:Navigate 转移到指定的URL或打开指定HTML文件。
以下是程序清单:
Option Explicit
Private Sub Form_Load()
Me.Caption =“My Explorer”
Label1.Caption = “URL”
Combo1.Text = “”
Combo1.Top = Label1.Height
End Sub
Private Sub Form_Resize()
On Error GoTo a
Combo1.Width = Form1.Width - 100
WebBrowser1.Width = Combo1.Width
WebBrowser1.Height = Form1.Height - Combo1.Height - 1000
4.TitleChange 当前文档标题改变时触发
除了WebBrowser控件外,程序还需要一个Label控件:Label1;一个ComboBox控件:combo1,用来显示URL地址;一个StatusBar控件:StatusBar1;一个ProgressBar控件:ProgressBar1,用来显示下载进度(StatusBar控件和ProgressBar控件是ActiveX控件Microsoft Windows Common Controls5.0的成员,加入工具箱的方法同WebBrowser控件),这些控件的属性值都用缺省值。
End If
Next
If Not existed Then
Combo1.AddItem (Combo1.Text)
End If
End If
End Sub
Private Sub WebBrowser1_DownloadBegin()
`下载开始时状态栏显示“Now Linking...”
ProgressBar1.Value = 0
End Sub
Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long,
ByVal ProgressMax As Long)
`下载进行时进度条变化
If ProgressMax = 0 Then Exit Sub
ProgressBar1.Max = ProgressMax
If Progress <> -1 And Progress <= ProgressMax Then
ProgressBar1.Value = Progress
End If
End Sub
Private Sub WebBrowser1_TitleChange(ByVal Text As String)
ProgressBar1.Top = Me.Height - StatusBar1.Height - 330
ProgressBar1.Left = 0.25 * StatusBar1.Width
ProgressBar1.Width = 0.75 * Me.Width - 250
a:
相关文档
最新文档