CodeBus
www.codebus.net
Search
Sign in
Sign up
Hot Search :
Source
embeded
web
remote control
p2p
game
More...
Location :
Home
Search - WebBrowser1
Main Category
SourceCode
Documents
Books
WEB Code
Develop Tools
Other resource
Sub Category
GUI Develop
Windows Kernel
WinSock-NDIS
Driver Develop
ADO-ODBC
GDI-Bitmap
CSharp
.net
Multimedia Develop
Communication
Shell api
ActiveX/DCOM/ATL
IME Develop
ISAPI-IE
Hook api
Screen saver
DirextX
Process-Thread
Console
File Operate
Printing program
Multi Monitor
DNA
Other
Search - WebBrowser1 - List
[
ISAPI-IE
]
IE4SinkDemo
DL : 0
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
Date
: 2025-12-19
Size
: 19kb
User
:
[
ISAPI-IE
]
ShuaQB
DL : 0
以前一直在用这个来通过互联星空刷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!
Date
: 2014-01-07
Size
: 207kb
User
:
滔滔
CodeBus
is one of the largest source code repositories on the Internet!
Contact us :
1999-2046
CodeBus
All Rights Reserved.