IE编程技巧大全

天云上人

1.实现Ctrl＋C:
1 ^2 c9 V: H. L1 k/ D9 E
    ExecWB(OLECMDID_COPY,OLECMDEXECOPT_DONTPROMPTUSER,NULL,NULL);

% ~" ?' x7 e' Y2.实现Ctrl＋V:
, W4 x6 r% d3 D8 T' t. }: T
! y2 E! q5 F, S' _  k+ d, e    ExecWB(OLECMDID_PASTE,OLECMDEXECOPT_DONTPROMPTUSER,NULL,NULL);
4 ]5 m: F$ w' Y( i. H7 s; e
3.实现查找:
/ Y: O( ]7 |. S( M! z! @
: E$ j% k* |# {9 B6 |, TMSHTML::IHTMLDocument2Ptr pdoc;
_variant_t varinput,varoutput;
IOleCommandTarget *pCmd;
& X1 r+ A& i; B( C5 r' yHRESULT hr;
+ ]  R; i0 g) u8 k4 {% C0 n' Hpdoc=GetHtmlDocument();
3 H+ @- o. K' f" Y6 ]7 Lhr=pdoc.QueryInterface(IID_IOleCommandTarget,&pCmd);
1 f, U% R* h; P2 E: c; Wif(SUCCEEDED(hr))
. z* s( Y0 J. i8 r6 h* d! Z{
varinput=_T("");
hr=pCmd->Exec(&CGID_MSHTML,IDM_FIND,OLECMDEXECOPT_DODEFAULT,&varinput,&varoutput);
& T. }8 w3 O$ X7 j6 A- Z2 }}
7 d3 \+ L! u- o
8 h4 l. h& Q% [) U( e4.实现显示源程序:

MSHTML::IHTMLDocument2Ptr pdoc;
_variant_t varinput,varoutput;
IOleCommandTarget *pCmd;
HRESULT hr;
+ a6 T0 V- f6 U$ ?/ Y! l, gpdoc=GetHtmlDocument();
hr=pdoc.QueryInterface(IID_IOleCommandTarget,&pCmd);
( m: k$ e7 V4 y$ w8 Z4 Aif(SUCCEEDED(hr))
{
varinput=_T("");
* o1 J& v8 F9 x: @# |hr=pCmd->Exec(&CGID_MSHTML,IDM_VIEWSOURCE,OLECMDEXECOPT_DODEFAULT,&varinput,&varoutput);
6 l/ ?, L9 S: U8 y# K) b& @% ?' i}

5.实现显示Internet选项:
+ F! C  K) I0 u, i% D( b' }
' S/ r( M5 k0 g: [9 Y9 WMSHTML::IHTMLDocument2Ptr pdoc;
) ~) s3 ]- O! _# P_variant_t varinput,varoutput;
IOleCommandTarget *pCmd;
# |! k# H( ]' J- d6 V4 AHRESULT hr;
" t) h" g& V* Wpdoc=GetHtmlDocument();
: V2 V% e- l) Hhr=pdoc.QueryInterface(IID_IOleCommandTarget,&pCmd);
if(SUCCEEDED(hr))
' K7 ]5 ]& i5 g8 F9 A% b{
varinput=_T("");
; f9 F+ ^8 W4 B6 A9 ghr=pCmd->Exec(&CGID_MSHTML,IDM_OPTIONS,OLECMDEXECOPT_DODEFAULT,&varinput,&varoutput);
}
: N) X/ a2 d8 g
6.下载事件说明：

OnDownloadBegin <--开始下载
; E; d3 X  r, q: T" H" D. ]6 \! [OnDownloadComplete <--下载结束
! m; y5 H, v( Q# A1 uOnDocumentComplete <--页面下载完毕
1 Y# @+ j* f' @5 w( j
9 N4 A6 x  h" f& O0 K8 [% @8 R9 {对于每个HTML页面,顺序都是如此.如果是Frame或IFrame的文件都会当成HTML页面处理.也就是说如果一个页面中有3个IFrame,那么总共会触发4次BeforeNavigate2事件.

对于每个连接且需要显示出来的二进制文件(如*.gif,*.bmp,*.jpg...)都会触发一个DownloadBegin和DownloadComplete事件.

) b; s' ?1 C+ g: D# g那我们怎么判断是否全部下载完毕呢?嘿嘿,TWebBrowser控件不是有一个Busy属性的吗?

% ]: s. G' H2 r, L* M5 w7.点击链接产生的事件：
9 _0 U8 z- p# a" Q8 c4 Z  P8 M
OnBeforeNavigate2 <--开始链接时会触发此事件
0 X! D; \" \8 R) I. Q" VOnNavigateComplete2 <--成功的链接到此网页(以后才会有上面的事件)

3 c: A# c/ ?* s6 ~
' `, A) t- |) c( i# B8.包括相关文件：

#include <mshtmhst.h>
6 N: ?* g6 j* S* Y#include <mshtmcid.h>//这里面有很多实现IE功能的XXID，请看一看！
$ |: M- t0 S1 d#import <mshtml.tlb>
  U# U3 N1 A% W2 k- _4 V
$ c/ u# L# p) a4 t1 U# W请充分发挥资料管理器的查找功能呀！，这都不会用还学VC！

! e& X" O1 W. V$ D) x8 L先告一个段落，下次再来。
: h% t- d" J: j: p
黄森堂著