IE编程技巧大全

天云上人

1.实现Ctrl＋C:
: x! m' `2 m" ~6 V
6 j, n6 D4 I) H3 g! [) T" S$ q    ExecWB(OLECMDID_COPY,OLECMDEXECOPT_DONTPROMPTUSER,NULL,NULL);

! i. R& `3 O: r- n( j$ Y2.实现Ctrl＋V:

$ r( R8 }0 G. k2 k6 j. ^- m/ q    ExecWB(OLECMDID_PASTE,OLECMDEXECOPT_DONTPROMPTUSER,NULL,NULL);

& f" g6 J# s5 S# V3.实现查找:

$ a5 D8 E8 g3 k/ p6 `MSHTML::IHTMLDocument2Ptr pdoc;
_variant_t varinput,varoutput;
IOleCommandTarget *pCmd;
HRESULT hr;
) U1 |+ t; x2 G. x* opdoc=GetHtmlDocument();
; ?; O2 L& \3 [$ }/ v7 zhr=pdoc.QueryInterface(IID_IOleCommandTarget,&pCmd);
if(SUCCEEDED(hr))
* g0 k& y0 i: D' t7 z{
& m. c8 a" S# i. Y+ F6 Lvarinput=_T("");
hr=pCmd->Exec(&CGID_MSHTML,IDM_FIND,OLECMDEXECOPT_DODEFAULT,&varinput,&varoutput);
}

4.实现显示源程序:
7 W0 o0 B# ~5 p! [
$ d: @- R' |9 ]: c+ RMSHTML::IHTMLDocument2Ptr pdoc;
2 @2 R4 [- }) f3 d2 ?_variant_t varinput,varoutput;
IOleCommandTarget *pCmd;
0 s) m) c& f0 D( k: BHRESULT hr;
pdoc=GetHtmlDocument();
8 x1 m( e: c6 s9 Y: G! E' ihr=pdoc.QueryInterface(IID_IOleCommandTarget,&pCmd);
3 v2 G1 f3 [9 m" J+ \if(SUCCEEDED(hr))
& V7 y+ h. X) ^* {* s% Q) P{
varinput=_T("");
, H6 @( m$ ]: i6 S* c  ~hr=pCmd->Exec(&CGID_MSHTML,IDM_VIEWSOURCE,OLECMDEXECOPT_DODEFAULT,&varinput,&varoutput);
}

5.实现显示Internet选项:
! J" ~7 \$ y* h* a  p5 k
MSHTML::IHTMLDocument2Ptr pdoc;
_variant_t varinput,varoutput;
IOleCommandTarget *pCmd;
9 k' c1 j& ?' h4 W0 sHRESULT hr;
# ]4 p! [. Z) K, a: T4 xpdoc=GetHtmlDocument();
hr=pdoc.QueryInterface(IID_IOleCommandTarget,&pCmd);
. t% y  u- \: `if(SUCCEEDED(hr))
+ I# G/ U  i0 G! c( c4 `{
varinput=_T("");
' A1 ]3 Z' g/ {; p2 m6 u# Ihr=pCmd->Exec(&CGID_MSHTML,IDM_OPTIONS,OLECMDEXECOPT_DODEFAULT,&varinput,&varoutput);
, ]3 @" p2 A  a& B/ U( {, x}

8 o$ V' b% S: ]# p; v" c6.下载事件说明：

OnDownloadBegin <--开始下载
OnDownloadComplete <--下载结束
7 g6 y9 G6 E  o/ }3 H: tOnDocumentComplete <--页面下载完毕
/ n# J5 U; |6 b+ G' Y% C$ }
8 a5 U7 z0 m: h; F对于每个HTML页面,顺序都是如此.如果是Frame或IFrame的文件都会当成HTML页面处理.也就是说如果一个页面中有3个IFrame,那么总共会触发4次BeforeNavigate2事件.

对于每个连接且需要显示出来的二进制文件(如*.gif,*.bmp,*.jpg...)都会触发一个DownloadBegin和DownloadComplete事件.
3 g2 p: c1 I& A8 Y
那我们怎么判断是否全部下载完毕呢?嘿嘿,TWebBrowser控件不是有一个Busy属性的吗?
& S3 u: ~3 c9 v  ?
7.点击链接产生的事件：
$ X, j/ V2 H& ]" c, K* {
OnBeforeNavigate2 <--开始链接时会触发此事件
OnNavigateComplete2 <--成功的链接到此网页(以后才会有上面的事件)


7 U( q2 k5 R. K2 p, e( g2 U8.包括相关文件：
4 |; N- R- L. S
#include <mshtmhst.h>
#include <mshtmcid.h>//这里面有很多实现IE功能的XXID，请看一看！
#import <mshtml.tlb>
( X# i; d5 r2 f# l: e  k% r' X! ]
请充分发挥资料管理器的查找功能呀！，这都不会用还学VC！

* \: l4 i1 I/ T7 r先告一个段落，下次再来。

7 h. h; p6 f: w+ S黄森堂著