IE编程技巧大全

天云上人

1.实现Ctrl＋C:

7 B2 H3 C  B7 ]9 y% |% r" X; |1 l    ExecWB(OLECMDID_COPY,OLECMDEXECOPT_DONTPROMPTUSER,NULL,NULL);
6 k' Z& Y' Q; A3 p3 ^$ Y2 _7 u
6 z" [! A* U% W! l4 J- W2.实现Ctrl＋V:

    ExecWB(OLECMDID_PASTE,OLECMDEXECOPT_DONTPROMPTUSER,NULL,NULL);
4 F1 c  P* y! X) A
  r0 O6 m6 z4 U3 d3 G4 u5 B& Q+ v3.实现查找:
# D: E0 h- N+ d% G0 n) B& ?& v4 }
5 Y6 o  k1 c" B4 p8 B: OMSHTML::IHTMLDocument2Ptr pdoc;
1 W3 \. o# Z* l_variant_t varinput,varoutput;
IOleCommandTarget *pCmd;
HRESULT hr;
pdoc=GetHtmlDocument();
, O1 t& n, m# j% W  C1 Mhr=pdoc.QueryInterface(IID_IOleCommandTarget,&pCmd);
' i7 P% p/ s3 n& g" `# \/ v+ \if(SUCCEEDED(hr))
{
varinput=_T("");
: y/ B# B" @/ {3 W; ^hr=pCmd->Exec(&CGID_MSHTML,IDM_FIND,OLECMDEXECOPT_DODEFAULT,&varinput,&varoutput);
- B$ G) M9 G  s" v}
/ r* i9 |4 F- v% o8 |
4.实现显示源程序:
4 ~$ M& C1 E. D( s8 i
MSHTML::IHTMLDocument2Ptr pdoc;
_variant_t varinput,varoutput;
- L9 I5 r0 ?/ @8 ~9 e) d0 F# jIOleCommandTarget *pCmd;
9 o. P- B; b5 _: KHRESULT hr;
pdoc=GetHtmlDocument();
, |0 h, j/ C9 phr=pdoc.QueryInterface(IID_IOleCommandTarget,&pCmd);
' Y# b; l& p, L1 B; r" Iif(SUCCEEDED(hr))
{
. ?& M3 H  d& U( xvarinput=_T("");
hr=pCmd->Exec(&CGID_MSHTML,IDM_VIEWSOURCE,OLECMDEXECOPT_DODEFAULT,&varinput,&varoutput);
}
5 ^0 D9 Q+ X1 L) k/ s& Z9 y! l
# X/ c7 |) p4 T2 K6 w' @3 [& I( Z5.实现显示Internet选项:
: q* g. O- k/ j2 y; U7 d( d, K5 L
& f, y' B; m4 S" AMSHTML::IHTMLDocument2Ptr pdoc;
_variant_t varinput,varoutput;
6 c, j$ ]/ H  H' p2 O/ QIOleCommandTarget *pCmd;
HRESULT hr;
pdoc=GetHtmlDocument();
/ ]9 }' T0 ^* Q( f4 N1 i8 hhr=pdoc.QueryInterface(IID_IOleCommandTarget,&pCmd);
if(SUCCEEDED(hr))
" E. x8 |8 a+ d- A1 Z{
% [7 ?2 d# ~( j! s& W/ Cvarinput=_T("");
hr=pCmd->Exec(&CGID_MSHTML,IDM_OPTIONS,OLECMDEXECOPT_DODEFAULT,&varinput,&varoutput);
3 N+ I$ s& B1 y  f1 A+ D$ |7 \$ _0 H}
1 @7 P* \/ D! X$ h7 V8 Q6 X
! g" j( u6 c/ z6 a* [8 U6.下载事件说明：
' y( I0 v- {( J5 Y" v
OnDownloadBegin <--开始下载
OnDownloadComplete <--下载结束
( O6 {. n8 V* d3 c# v2 sOnDocumentComplete <--页面下载完毕
: Q8 C- ~/ u. b" A& ~1 k- S
对于每个HTML页面,顺序都是如此.如果是Frame或IFrame的文件都会当成HTML页面处理.也就是说如果一个页面中有3个IFrame,那么总共会触发4次BeforeNavigate2事件.
6 K: [5 M: q# A; r% q" M* H
# B0 `7 D' M* z  P( ]* H9 F$ f对于每个连接且需要显示出来的二进制文件(如*.gif,*.bmp,*.jpg...)都会触发一个DownloadBegin和DownloadComplete事件.

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

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

( ?# R  d( N6 k$ _$ k# R! UOnBeforeNavigate2 <--开始链接时会触发此事件
OnNavigateComplete2 <--成功的链接到此网页(以后才会有上面的事件)

$ f) k$ c' [8 ]1 m9 Q. H
7 n& c5 c( H: q5 e8.包括相关文件：

$ ^4 G( D' H* z#include <mshtmhst.h>
#include <mshtmcid.h>//这里面有很多实现IE功能的XXID，请看一看！
( d4 }6 _! [/ R6 `#import <mshtml.tlb>
% D3 i$ e! u7 l* {. }. t. I( O$ A
请充分发挥资料管理器的查找功能呀！，这都不会用还学VC！
% C+ a! R. [' h) M; w
9 T9 y, G9 R  t: P先告一个段落，下次再来。
" W$ C/ d# u' Y- a2 X' o
% r4 B1 [8 e3 L9 Q# a# v9 G. t黄森堂著