Location:
Search - WebBrowser1
Search list
Description: unit Cweb2
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw, StdCtrls, ActiveX
type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser
procedure FormCreate(Sender: TObject)
procedure WebBrowser1DocumentComplete(Sender: TObject
const pDisp: IDispatch var URL: OleVariant)
procedure DemoEventSink(Sender: TObject)
private
public
{ Public declarations }
end
var
Form1: TForm1
implementation
{$R *.dfm}
uses MSHTML, IEDocHostUIHandler, IEConst, DHTMLEvent,comobj
var
FDocHostUIHandler: TDocHostUIHandler //为屏蔽右键菜单
Doc : IHTMLDocument2
Element : IHTMLElement
EventSink: TDHTMLEvent
procedure TForm1.FormCreate(Sender: TObject)
begin
FDocHostUIHandler := TDocHostUIHandler.Create //为屏蔽右键菜单
EventSink := TDHTMLEvent.Create
WebBrowser1.Navigate(GetCurrentDir + \\index.htm )
end
procedure TForm1.DemoEventSink(Sender: TObject)
Var
S:String
-unit Cweb2 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls. SHDocVw, StdCtrls. ActiveX type TForm1 = class (TForm) WebBrowser 1 : TWebBrowser procedure FormCreate (Sender : TObject) procedure WebBrowser1DocumentComp lete (Sender : TObject const pDisp : IDispatch var URL : OleVariant) procedure DemoEventSink (Sender : TObject) private public (Public declaration s) var end Form1 : TForm1 implementation ($ R *. dfm) uses MSHTML , IEDocHostUIHandler, IEConst, DHTMLEven t, comobj var FDocHostUIHandler : TDocHostUIHandler / / right-click menu for shielding Doc : IHTMLDocument2 Element : IHTMLElement EventSink : TDHTMLEvent procedure TForm1.FormCreate ( Sender : TObject) begin FDocHostUIHandler : = TDocHostUIHandler.Create / / right-clic
Platform: |
Size: 19867 |
Author: sbl |
Hits:
Description: 我在网上找到使用rft控件保存webbrowse文本 txtHtml是RichTextBox
txtHTML.Text = WebBrowser1.document.body.innerText
flag ：rsftext 保存为txt文件，strtmp文件路径
txtHTML.saveFile strtmp, rtfText
Platform: |
Size: 7254 |
Author: 高晓斌 |
Hits:
Description: 用窗体打开新窗口... ...
/* 弹出新窗口在本窗体打开
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim NewWindow As frmMain
Set NewWindow = New frmMain
NewWindow.Show
Set ppDisp = NewWindow.WebBrowser1.Object
End Sub
Platform: |
Size: 6739 |
Author: 渝村洪波 |
Hits:
Description: 以前一直在用这个来通过互联星空刷qb，现在没用了，发出来共享了。主要通过WebBrowser1控件来对网页操作！
Platform: |
Size: 212092 |
Author: 滔滔 |
Hits:
Description: 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.FileN欢迎光临学网,点击这里查看更多文章教程 [1] [2] [3] [4] [5] [6] [7] [8]
ame)) > 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
Platform: |
Size: 3992 |
Author: weidonglingsir@163.com |
Hits:
Description: vb 做的文件下载程序-vb do download documents
Platform: |
Size: 24576 |
Author: 贾利伟 |
Hits:
Description: unit Cweb2
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw, StdCtrls, ActiveX
type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser
procedure FormCreate(Sender: TObject)
procedure WebBrowser1DocumentComplete(Sender: TObject
const pDisp: IDispatch var URL: OleVariant)
procedure DemoEventSink(Sender: TObject)
private
public
{ Public declarations }
end
var
Form1: TForm1
implementation
{$R *.dfm}
uses MSHTML, IEDocHostUIHandler, IEConst, DHTMLEvent,comobj
var
FDocHostUIHandler: TDocHostUIHandler //为屏蔽右键菜单
Doc : IHTMLDocument2
Element : IHTMLElement
EventSink: TDHTMLEvent
procedure TForm1.FormCreate(Sender: TObject)
begin
FDocHostUIHandler := TDocHostUIHandler.Create //为屏蔽右键菜单
EventSink := TDHTMLEvent.Create
WebBrowser1.Navigate(GetCurrentDir + \index.htm )
end
procedure TForm1.DemoEventSink(Sender: TObject)
Var
S:String
-unit Cweb2 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls. SHDocVw, StdCtrls. ActiveX type TForm1 = class (TForm) WebBrowser 1 : TWebBrowser procedure FormCreate (Sender : TObject) procedure WebBrowser1DocumentComp lete (Sender : TObject const pDisp : IDispatch var URL : OleVariant) procedure DemoEventSink (Sender : TObject) private public (Public declaration s) var end Form1 : TForm1 implementation ($ R*. dfm) uses MSHTML , IEDocHostUIHandler, IEConst, DHTMLEven t, comobj var FDocHostUIHandler : TDocHostUIHandler// right-click menu for shielding Doc : IHTMLDocument2 Element : IHTMLElement EventSink : TDHTMLEvent procedure TForm1.FormCreate ( Sender : TObject) begin FDocHostUIHandler : = TDocHostUIHandler.Create// right-clic
Platform: |
Size: 19456 |
Author: |
Hits:
Description: 我在网上找到使用rft控件保存webbrowse文本 txtHtml是RichTextBox
txtHTML.Text = WebBrowser1.document.body.innerText
flag ：rsftext 保存为txt文件，strtmp文件路径
txtHTML.saveFile strtmp, rtfText-I find the use of online control rft text webbrowse Save txtHtml is RichTextBoxtxtHTML.Text = WebBrowser1.document.body.innerText flag: rsftext save it as a txt file, strtmp file path txtHTML.saveFile strtmp, rtfText
Platform: |
Size: 7168 |
Author: 高晓斌 |
Hits:
Description: 用窗体打开新窗口... ...
/* 弹出新窗口在本窗体打开
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim NewWindow As frmMain
Set NewWindow = New frmMain
NewWindow.Show
Set ppDisp = NewWindow.WebBrowser1.Object
End Sub-Open a new window with the form ... .../* pop a new window open in the form Private Sub WebBrowser1_NewWindow2 (ppDisp As Object, Cancel As Boolean) Dim NewWindow As frmMain Set NewWindow = New frmMain NewWindow.Show Set ppDisp = NewWindow.WebBrowser1.ObjectEnd Sub
Platform: |
Size: 6144 |
Author: 渝村洪波 |
Hits:
Description: 以前一直在用这个来通过互联星空刷qb，现在没用了，发出来共享了。主要通过WebBrowser1控件来对网页操作！-Had previously been in use this to brush through ChinaVnet qb, now useless, to share the issue. WebBrowser1 primarily through the operation control to the page!
Platform: |
Size: 211968 |
Author: 滔滔 |
Hits:
Description: 自己做的精简浏览器，实现了所有基本功能。-The streamlining of its own browser, to achieve all the basic features.
Platform: |
Size: 132096 |
Author: 快 |
Hits:
Description: Private Sub Command1_Click
WebBrowser1.Navigate "http://localhost/"
-Private Sub Command1_ClickWebBrowser1.Navigate
Platform: |
Size: 43008 |
Author: 张现崇 |
Hits:
Description: 本程序旨在演示如何使用vb来完成自动填表并提交,包括程序自建浏览器和调用系统IE浏览器2种情形
所用到的VB与IE浏览器的交互过程尽量做到不重复,以多种方法展示给大家
两款用来测试的游戏登录入口,纵横天下和矩阵
本程序中完成提交的方法提供两种,直接提交表单和点击登录按钮提交
还有第三种方法填表完成后直接用WebBrowser1.Document.Forms("login还有第三种方法填表完成后直接用WebBrowser1.Document.Forms("login").Submit
如果您安装的是IE7,在VB开发环境下运行可能会遇到莫名其妙的浏览器错误
-This procedure aims to demonstrate how to use vb to automatically fill in a form completed and submitted, including the procedures for self-built browser and IE browser called the system two kinds of cases used by VB and IE browser as far as possible the interaction of non-repetition, to more than Ways to demonstrate to you two used to test the game log on the entrance, and vertical and horizontal matrix world and the completion of this program offers two ways to submit, directly to the form and click the login button there is a third possible way to fill in a form submitted after the completion of the direct with WebBrowser1.Document.Forms ( "login There is a third way to fill in a form directly after the completion of WebBrowser1.Document.Forms (" login "). Submit If you install IE7, in the VB development environment running under may encounter inexplicable browser error
Platform: |
Size: 14336 |
Author: 熊宇靖 |
Hits:
Description: 本程序旨在演示如何使用vb来完成自动填表并提交,包括程序自建浏览器和调用系统IE浏览器2种情形
所用到的VB与IE浏览器的交互过程尽量做到不重复,以多种方法展示给大家
两款用来测试的游戏登录入口,纵横天下和矩阵
本程序中完成提交的方法提供两种,直接提交表单和点击登录按钮提交
还有第三种方法填表完成后直接用WebBrowser1.Document.Forms("login").Submit
如果您安装的是IE7,在VB开发环境下运行可能会遇到莫名其妙的浏览器错误-' This procedure aims to demonstrate how to use vb to automatically fill in a form completed and submitted, including the procedures for self-built browser and IE browser called the system two kinds of circumstances' which used VB and IE browser as far as possible the interaction of non-repetition, a number of ways to show you ' two to sign in the entrance test of the game, China the world and the Matrix' to complete the program offers two ways to submit, directly to the form and click the login button to submit ' There is a third method to fill in a form directly after the completion of WebBrowser1.Document.Forms ( " login" ). Submit ' If you install IE7, in the VB development environment may have run under the browser inexplicable error
Platform: |
Size: 14336 |
Author: alpha |
Hits:
Description: 本程序旨在演示如何使用vb来完成自动填表并提交,包括程序自建浏览器和调用系统IE浏览器2种情形.所用到的VB与IE浏览器的交互过程尽量做到不重复,以多种方法展示给大家
两款用来测试的游戏登录入口,纵横天下和矩阵.本程序中完成提交的方法提供两种,直接提交表单和点击登录按钮提交.还有第三种方法填表完成后直接用WebBrowser1.Document.Forms("login").Submit
如果您安装的是IE7,在VB开发环境下运行可能会遇到莫名其妙的浏览器错误
但是编译为本地代码后运行无任何问题,目前还未找到原因为何...有谁知道烦请告知-This procedure aims to demonstrate how to use vb to automatically fill in a form completed and submitted, including the procedures for self-built browser and IE browser called the system two kinds of cases. The use of VB and IE browser as far as possible the interaction of non-repetition, in order to display a number of ways for everyone to test two of the game log entrance, and vertical and horizontal world and the matrix. the completion of the process to provide the two directly to the form and click the login button to submit. There is a third way to fill in a form directly after the completion of WebBrowser1.Document.Forms ( " login" ). Submit If you install IE7, in the VB development environment to run may have inexplicable error but the browser code compiler for the local operation without any problems, the current have not found the reasons for that ... who knows please inform
Platform: |
Size: 14336 |
Author: 659 |
Hits:
Description: Private Sub Command1_Click()
直接用鼠标点击连接按钮
WebBrowser1.Navigate Text1
End Sub
Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
用快捷方式Enter激活连接按钮
If KeyCode = 13 Then Call Command1_Click
End Sub-Private Sub Command1_Click () ' directly connected with the mouse to click the button WebBrowser1.Navigate Text1 End Sub Private Sub Command1_KeyDown (KeyCode As Integer, Shift As Integer)' use shortcut to Enter to activate the Connect button If KeyCode = 13 Then Call Command1_Click End Sub
Platform: |
Size: 32768 |
Author: 李煜辉 |
Hits:
Description: Text1.Text取WebBrowser1原始碼-WebBrowser1 Source Code Text1.Text
Platform: |
Size: 59392 |
Author: 1234 |
Hits:
Description: 用VB制作的一个简单的网页浏览器Private Sub Form_Load()
Label2.Left = 0
Label2.Top = Toolbar1.Height
Combo1.Top = Toolbar1.Height
Label2.Caption = "地址: "
Label2.Height = 315
Combo1.Left = Label1.Width
Combo1.Width = Form1.Width - Label2.Width
WebBrowser1.Width = Form1.ScaleWidth
WebBrowser1.Top = Combo1.Top + 500
WebBrowser1.Height = Form1.ScaleHeight - Combo1.Height - StatusBar1.Height - 200
WebBrowser1.Left = 0
Download by http://www.codefans.net
StatusBar1.Panels(1).Width = Form1.Width / 2
StatusBar1.Panels(2).Width = Form1.Width / 4
StatusBar1.Panels(3).Width = Form1.Width / 4
StatusBar1.Panels(2).Text = "我的电脑"
StatusBar1.Panels(3).Text = Str$(Time)
On Error Resume Next
Me.Show
内详-VB produced a simple web browser
Platform: |
Size: 5120 |
Author: 李贤山 |
Hits:
Description: 一款在ipad上运行的 浏览器，它有浏览器该有的基本功能，易于扩展。-A browser running on the ipad, it has the basic functionality of the browser, easy to expand.
Platform: |
Size: 96256 |
Author: linchao |
Hits:
Description: 用高级Swing编写的WEB网页浏览器，希望对大家有帮助-Written in a high-level Swing WEB web browser, and I hope for all of us to help
Platform: |
Size: 20480 |
Author: zhangwei |
Hits: