IE编程技巧大全

天云上人

1.实现Ctrl＋C:

    ExecWB(OLECMDID_COPY,OLECMDEXECOPT_DONTPROMPTUSER,NULL,NULL);
0 K- W. l; Q0 o5 b0 H1 {
2.实现Ctrl＋V:

/ B/ n( [+ Z4 _+ Q5 d2 K1 K# E3 Z/ e    ExecWB(OLECMDID_PASTE,OLECMDEXECOPT_DONTPROMPTUSER,NULL,NULL);

3.实现查找:
9 n5 l, `# `9 i( Z$ [, {
MSHTML::IHTMLDocument2Ptr pdoc;
_variant_t varinput,varoutput;
  o" f2 O! F, `8 L/ D% ]IOleCommandTarget *pCmd;
HRESULT hr;
pdoc=GetHtmlDocument();
$ U8 u$ j* j2 F$ i  {- y3 d8 ehr=pdoc.QueryInterface(IID_IOleCommandTarget,&pCmd);
if(SUCCEEDED(hr))
{
3 U* I7 }+ q+ G5 f3 x5 fvarinput=_T("");
hr=pCmd->Exec(&CGID_MSHTML,IDM_FIND,OLECMDEXECOPT_DODEFAULT,&varinput,&varoutput);
}
2 E; `5 P. U% ]/ ^! s6 x7 y; x
4.实现显示源程序:

MSHTML::IHTMLDocument2Ptr pdoc;
_variant_t varinput,varoutput;
3 a/ }2 t8 p9 h6 K: I( Q7 rIOleCommandTarget *pCmd;
7 u- `1 H3 F* c+ y& `- ?HRESULT hr;
/ o; z7 K" i9 {) J! Apdoc=GetHtmlDocument();
hr=pdoc.QueryInterface(IID_IOleCommandTarget,&pCmd);
& C  P; h2 H, m* ?! ]; B- ?6 Sif(SUCCEEDED(hr))
{
varinput=_T("");
8 ~# q! W/ z; L/ @hr=pCmd->Exec(&CGID_MSHTML,IDM_VIEWSOURCE,OLECMDEXECOPT_DODEFAULT,&varinput,&varoutput);
}

& z# {: o" _2 G2 d7 r% R0 L5.实现显示Internet选项:

0 T) C( B% a: B! PMSHTML::IHTMLDocument2Ptr pdoc;
8 f# p4 k9 {+ ?9 s6 Q* e" j$ o3 O0 P_variant_t varinput,varoutput;
IOleCommandTarget *pCmd;
1 `6 s" ~( n3 b! U( X; {" aHRESULT hr;
% ]& X5 q( U0 J5 J& u5 O# S. t* i- B: m+ [pdoc=GetHtmlDocument();
hr=pdoc.QueryInterface(IID_IOleCommandTarget,&pCmd);
7 b4 C/ [$ I7 O. ^if(SUCCEEDED(hr))
- E8 E: y0 o( l6 v& v{
, s# K2 o* `6 S4 T( r. c) Nvarinput=_T("");
; A. A" ]) z# y" l% b0 ghr=pCmd->Exec(&CGID_MSHTML,IDM_OPTIONS,OLECMDEXECOPT_DODEFAULT,&varinput,&varoutput);
) d2 G2 u  \* a. a* l- i4 o9 U}
* G) m: [% ]; e: l! k
6.下载事件说明：

OnDownloadBegin <--开始下载
OnDownloadComplete <--下载结束
* K( m* d5 t3 V4 ^/ dOnDocumentComplete <--页面下载完毕

- x6 x, J* z( k( Y/ [对于每个HTML页面,顺序都是如此.如果是Frame或IFrame的文件都会当成HTML页面处理.也就是说如果一个页面中有3个IFrame,那么总共会触发4次BeforeNavigate2事件.

# Z7 ^" ~; Q( _: e: P4 ~对于每个连接且需要显示出来的二进制文件(如*.gif,*.bmp,*.jpg...)都会触发一个DownloadBegin和DownloadComplete事件.

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

7.点击链接产生的事件：
+ ^" J5 n: z( o; q7 v
$ q& o9 U7 `: Z5 I- QOnBeforeNavigate2 <--开始链接时会触发此事件
( g2 b! A- _( `OnNavigateComplete2 <--成功的链接到此网页(以后才会有上面的事件)
3 r1 {8 g) l0 O, |/ x" V5 @

6 H+ {' W+ j( [  W' c! @- q0 N$ y+ W8.包括相关文件：

8 }0 }8 ^& Y2 g# S* Z#include <mshtmhst.h>
#include <mshtmcid.h>//这里面有很多实现IE功能的XXID，请看一看！
, h- b! ^: Y- m1 `$ z* A0 [#import <mshtml.tlb>

& T0 L7 T  B& P6 F0 b0 E) _& b请充分发挥资料管理器的查找功能呀！，这都不会用还学VC！
9 c4 W# ~2 I1 V% `
先告一个段落，下次再来。

黄森堂著