IE编程技巧大全

天云上人

1.实现Ctrl＋C:

    ExecWB(OLECMDID_COPY,OLECMDEXECOPT_DONTPROMPTUSER,NULL,NULL);
) s6 k- W+ D) p/ d& Z
# T. @: B/ h8 g" Q2.实现Ctrl＋V:
: O1 a) w" S6 V$ }
. M" ~( W9 S/ s) i    ExecWB(OLECMDID_PASTE,OLECMDEXECOPT_DONTPROMPTUSER,NULL,NULL);
3 X) y0 i) z" e1 _
3.实现查找:
8 M% I% ~3 g$ s: ^
MSHTML::IHTMLDocument2Ptr pdoc;
9 t2 h* v5 `+ L! S_variant_t varinput,varoutput;
IOleCommandTarget *pCmd;
HRESULT hr;
pdoc=GetHtmlDocument();
hr=pdoc.QueryInterface(IID_IOleCommandTarget,&pCmd);
* b6 a+ Q6 l$ {' j6 m9 W) H5 y: @if(SUCCEEDED(hr))
) a: O) [8 O! O0 |  m  m{
8 s; S& c* Q& B0 z1 e2 X$ V/ T- uvarinput=_T("");
# ^* j! `5 ~) a6 R! v: zhr=pCmd->Exec(&CGID_MSHTML,IDM_FIND,OLECMDEXECOPT_DODEFAULT,&varinput,&varoutput);
}

4.实现显示源程序:
7 Y9 k# b9 N4 @2 K$ U8 X
MSHTML::IHTMLDocument2Ptr pdoc;
3 |1 X0 _7 Y) ^8 X# F_variant_t varinput,varoutput;
9 Y1 y- [/ w3 t' gIOleCommandTarget *pCmd;
& B) E- O  y# t: qHRESULT hr;
3 _4 ^) B+ y6 G5 D# r/ \pdoc=GetHtmlDocument();
hr=pdoc.QueryInterface(IID_IOleCommandTarget,&pCmd);
if(SUCCEEDED(hr))
3 q! k/ Q- L1 M" O{
varinput=_T("");
hr=pCmd->Exec(&CGID_MSHTML,IDM_VIEWSOURCE,OLECMDEXECOPT_DODEFAULT,&varinput,&varoutput);
5 K$ k3 ~0 j: |/ @$ n1 F) W}
' `) P& i) @8 w! p
' C4 ^# h! {! b/ {- b5.实现显示Internet选项:
3 ?0 x6 ?/ t$ g: Z  Z$ Y
: N( ~) q) e8 kMSHTML::IHTMLDocument2Ptr pdoc;
) P7 i' L% c# ~/ r_variant_t varinput,varoutput;
  j8 h5 h5 Q1 }$ G: \IOleCommandTarget *pCmd;
HRESULT hr;
pdoc=GetHtmlDocument();
) y: j$ m$ Q' m9 p1 `* W; ehr=pdoc.QueryInterface(IID_IOleCommandTarget,&pCmd);
" |# @1 d2 L/ G% l4 E( j3 kif(SUCCEEDED(hr))
6 n2 U0 |( W9 |; \8 O* z! c8 [: q{
varinput=_T("");
hr=pCmd->Exec(&CGID_MSHTML,IDM_OPTIONS,OLECMDEXECOPT_DODEFAULT,&varinput,&varoutput);
) m9 |* n1 ^; C4 r+ k  P}
! T$ d, j' T( Y
6.下载事件说明：
0 v3 k6 B$ e  ^- I" U& _0 Q5 ~- ?
& B; _6 c# F; `5 dOnDownloadBegin <--开始下载
9 w4 A; d* b8 ^* J9 F3 k; H% x) nOnDownloadComplete <--下载结束
OnDocumentComplete <--页面下载完毕
3 v: B- l% \: b' R
( j: R- b- b+ o; h& J对于每个HTML页面,顺序都是如此.如果是Frame或IFrame的文件都会当成HTML页面处理.也就是说如果一个页面中有3个IFrame,那么总共会触发4次BeforeNavigate2事件.
1 [+ h3 t$ }( E
  ]- u  s, r, A  [& b5 ?对于每个连接且需要显示出来的二进制文件(如*.gif,*.bmp,*.jpg...)都会触发一个DownloadBegin和DownloadComplete事件.

那我们怎么判断是否全部下载完毕呢?嘿嘿,TWebBrowser控件不是有一个Busy属性的吗?

7.点击链接产生的事件：

. ]/ E1 c  y+ k* f0 }OnBeforeNavigate2 <--开始链接时会触发此事件
OnNavigateComplete2 <--成功的链接到此网页(以后才会有上面的事件)


8.包括相关文件：

9 F& Y( q+ v' J1 a8 w( ?#include <mshtmhst.h>
#include <mshtmcid.h>//这里面有很多实现IE功能的XXID，请看一看！
#import <mshtml.tlb>

请充分发挥资料管理器的查找功能呀！，这都不会用还学VC！

先告一个段落，下次再来。

: R; Q9 ]1 d, x黄森堂著