IE编程技巧大全

天云上人

1.实现Ctrl＋C:
4 B5 a' Q+ l) S! l* h( h  r  j
    ExecWB(OLECMDID_COPY,OLECMDEXECOPT_DONTPROMPTUSER,NULL,NULL);
& G. T) D" I$ r1 d/ Z% ?5 I: y8 ^6 x) {
2.实现Ctrl＋V:

: J. O8 _# e9 z% M    ExecWB(OLECMDID_PASTE,OLECMDEXECOPT_DONTPROMPTUSER,NULL,NULL);
# i/ g, b+ B- ^+ M1 n) }
3.实现查找:

6 i" H7 ]2 ~4 L; G" c9 u( G7 s: fMSHTML::IHTMLDocument2Ptr pdoc;
) M% L* x) u  c" U" Z- U+ ?7 F_variant_t varinput,varoutput;
/ l6 v& u! Z; ?# C$ xIOleCommandTarget *pCmd;
$ I: M9 T/ d* q5 F( r, b- h% t! u3 s, `HRESULT hr;
: Y) W$ F9 y$ |9 z. l: e) M. z' [# fpdoc=GetHtmlDocument();
4 R. ~- S& |$ f4 mhr=pdoc.QueryInterface(IID_IOleCommandTarget,&pCmd);
4 D: b" R9 L" H9 n* N- Cif(SUCCEEDED(hr))
{
0 N; c8 _; X- c8 u8 I# Ovarinput=_T("");
# [6 \! a+ s4 ohr=pCmd->Exec(&CGID_MSHTML,IDM_FIND,OLECMDEXECOPT_DODEFAULT,&varinput,&varoutput);
% @" I0 q6 Z' ~2 O* c5 p( l0 B, n}

4.实现显示源程序:
/ w* o. u# _  j( C1 p! p. _0 N; ]. q
& Y$ h, Q% K- Q' N: E$ q. ]) mMSHTML::IHTMLDocument2Ptr pdoc;
& |) g( M8 M" q% |0 |_variant_t varinput,varoutput;
% D3 x! ~8 n+ c# LIOleCommandTarget *pCmd;
3 [  G# J& }, t7 q3 xHRESULT hr;
7 g+ P  Z" S# u! O2 o! ipdoc=GetHtmlDocument();
) @  P! i. X/ K+ U9 chr=pdoc.QueryInterface(IID_IOleCommandTarget,&pCmd);
if(SUCCEEDED(hr))
& K+ x/ s# d  F+ c! @{
$ g- e# H8 k6 y8 X5 j  Vvarinput=_T("");
1 A4 ?5 S% ^7 yhr=pCmd->Exec(&CGID_MSHTML,IDM_VIEWSOURCE,OLECMDEXECOPT_DODEFAULT,&varinput,&varoutput);
}

5.实现显示Internet选项:

MSHTML::IHTMLDocument2Ptr pdoc;
, [* j. N" u( u3 _6 ~_variant_t varinput,varoutput;
IOleCommandTarget *pCmd;
HRESULT hr;
/ w. p: U) T2 |7 {pdoc=GetHtmlDocument();
hr=pdoc.QueryInterface(IID_IOleCommandTarget,&pCmd);
. F6 [# j+ [% E) X3 z6 zif(SUCCEEDED(hr))
{
; z) d6 W/ C7 ?/ d8 `5 s8 q3 rvarinput=_T("");
hr=pCmd->Exec(&CGID_MSHTML,IDM_OPTIONS,OLECMDEXECOPT_DODEFAULT,&varinput,&varoutput);
}
& [# s$ o/ F2 J5 f) e
6.下载事件说明：
4 ~, j& K; S/ n5 h$ `% C4 z7 W, @
OnDownloadBegin <--开始下载
OnDownloadComplete <--下载结束
0 T( p6 G, R8 @" {OnDocumentComplete <--页面下载完毕
# `- w6 u# C$ Q& C
对于每个HTML页面,顺序都是如此.如果是Frame或IFrame的文件都会当成HTML页面处理.也就是说如果一个页面中有3个IFrame,那么总共会触发4次BeforeNavigate2事件.

对于每个连接且需要显示出来的二进制文件(如*.gif,*.bmp,*.jpg...)都会触发一个DownloadBegin和DownloadComplete事件.
2 s$ {/ I+ D, I, O. t# @$ S9 _
那我们怎么判断是否全部下载完毕呢?嘿嘿,TWebBrowser控件不是有一个Busy属性的吗?
8 V# H; a6 ^, `0 M
7.点击链接产生的事件：
* Z1 @6 I  `; Q% W( G. ]% I
9 z/ r9 U7 x% n% _) _OnBeforeNavigate2 <--开始链接时会触发此事件
OnNavigateComplete2 <--成功的链接到此网页(以后才会有上面的事件)


/ I- x4 ^* W( q; h/ ~8.包括相关文件：
2 }# I% \$ I& U9 J& Q, i8 E4 b
8 p3 g9 C: ?, d4 ~0 `- E! P6 h; q#include <mshtmhst.h>
1 \; P  \" J1 k( S5 a9 B#include <mshtmcid.h>//这里面有很多实现IE功能的XXID，请看一看！
#import <mshtml.tlb>
" X) V* [) S' A& ^
请充分发挥资料管理器的查找功能呀！，这都不会用还学VC！

2 x7 c4 L" o8 g) U先告一个段落，下次再来。

3 A3 M2 t8 _3 y) p2 e黄森堂著