如何分析网页元素并进行相应处理

如何分析网页元素，然后进行相应处理，比如填表，递交等等: a5 V  x5 e7 x2 B: A3 y
! W- l  P. {1 X1 a) N3 T
#include + b% B8 F, D' Z
AnsiString __fastcall TForm3::Submit(void)2 g1 w# j% y# W" s& c; W( g2 x: q  n
{
: ~$ I( m7 Q$ rIHTMLDocument2 *pHTMLDoc = NULL;% h( \  E  G( n. b, W5 ?
LPDISPATCH pDisp = NULL;! u. A$ m1 L8 R. X8 O
pDisp =CppWebBrowser1->Document;
; ~, C- l, s$ N% h" aif(pDisp)$ L8 p* p8 Y5 R7 k- L+ X
{
, t7 O3 U! n' ^8 d& u% @4 Cif (SUCCEEDED(pDisp->QueryInterface(IID_IHTMLDocument2, (void**)&pHTMLDoc)))2 ~' X' U- o! D8 |# z& k
{- R) J4 M, n, l. g+ A0 Z. U. d. T, e2 q
pDisp->Release();. X7 S2 ~  m5 y( y7 x. M5 y% m
IHTMLElementCollection *pelement;' H  r$ M: A# u% A4 [! I
if(pHTMLDoc->get_forms(&pelement)!=S_OK)
" x/ Z% Q6 ?  \8 N{; w" C. K6 t; d) X6 e- b( }+ ~
pHTMLDoc->Release();" j+ H- y0 y+ J# h& D6 p  c
pDisp->Release();' v: c, A9 d8 n& y4 ^; A
pelement->Release();* `1 Y# u- W4 k" M, b7 A% ?
return "1发送失败";* p' V$ K+ ?1 u) r# s/ k* V
}) N6 n& d' M; R9 r3 T- V
pDisp->Release();1 J, n. k5 f7 ^
tagVARIANT a,i;: ]+ `; M0 Q& N" w* E- J' D9 @
a.vt=VT_UI4;0 q$ D# @% C6 x2 K8 D
a.lVal=0;//这个值为你所要填写的表单在整个网页中的顺序，0为第一个表单' d: u) l5 B% ?% ~7 f+ t7 g
if(pelement->item(a,i,&pDisp)!=S_OK)
: {- J9 I& r+ r% v5 V2 h" q{- }6 X5 ^) r6 H, T3 ~  X5 c
pelement->Release();) |+ ~& n  {, t+ ]8 }
pDisp->Release();9 k' K4 |; m' K3 l2 u6 E0 A. D
return "2发送失败";
5 u) _; m+ @! P8 Z}0 B! I/ K! M& [3 h
pelement->Release();
' a, Q# o; {: C) |, P7 \IHTMLFormElement* pFormElem=NULL;
4 u9 a9 c; E& g! W. {; ?+ `if(pDisp)) K8 g2 k( r# b0 X1 g
{
- _+ u5 ]3 L  V) U/ F1 n9 Aif(!SUCCEEDED(pDisp->QueryInterface(IID_IHTMLFormElement,(LPVOID*)&pFormElem)))" @* V& G4 |3 P( r. Z# y9 ]  k6 r
{
' n. O2 \0 C1 S$ k* @; L8 `/ H6 W$ X# mpFormElem->Release();/ n& G0 A9 o" F
pDisp->Release();/ x0 F2 c. q+ E
return "3发送失败";5 |, K( ]/ L& B* f( T; A; p. Q) ~
}& J+ q% \/ V0 t) i: H
}3 g( ?2 B" t6 k& M; o
else
4 ^  b3 w( x! V8 e# N7 c0 S{4 R9 Z0 R, c2 w! q3 s
return "31发送失败";
' F# l. L+ w4 T0 I}+ U; j- v7 E+ u1 b/ L) @: `
pDisp->Release();
7 _: Q2 v2 e. d5 TLPDISPATCH pDisp_msg = NULL;
, _1 @1 D2 R2 BtagVARIANT phone,msg,empty;9 o  H: k3 V& L( U. ]7 a9 u! v
phone.vt=VT_UI4;
! T) q* b8 K; S* p1 V+ Gphone.lVal=0;//这个值为Input框在表单中的顺序! n' D/ }  O6 W, D5 d& b( T. P
msg.vt=VT_UI4;
  G' J+ H2 Y3 _. r2 t/ R1 d0 r7 \msg.lVal=1;//这个值为Text文本框在表单中的顺序. c) G2 r& R1 O# w8 L
if((pFormElem->item(phone,empty,&pDisp)!=S_OK)||(pFormElem->item(msg,empty,&pDisp_msg)!=S_OK))
- N/ U0 P# i& C{
+ u+ z0 `2 H5 s/ apFormElem->Release();9 W0 M7 C0 G- i- g5 `
if(pDisp)
) {& A( Y3 a+ d) w3 g; Q8 m" lpDisp->Release();/ B. R! _/ A2 y
if(pDisp_msg)
% E0 F6 N# @/ R: jpDisp_msg->Release();
+ ?) \1 N& u, r0 u( T% _return "4发送失败";6 o# K: b2 j, Y" k  `. `) x
}
( `# R/ C# E% w4 {1 |) oIHTMLInputTextElement* phoneElem=NULL;! v! U2 s5 K* f6 `  v
IHTMLTextAreaElement* msgElem;  k$ T- G! V# @. [- D- a
if(!pDisp||!pDisp_msg)' l# H+ U* l. L6 p- N3 o
return "11失败";$ @1 V! G4 N% J
if (!SUCCEEDED(pDisp->QueryInterface(IID_IHTMLInputTextElement, (void**)&phoneElem))||(!SUCCEEDED(pDisp_msg->QueryInterface(IID_IHTMLTextAreaElement, (void**)&msgElem))))% {/ F! q$ j( F0 ^) D  P2 k1 Z
{
! T" ~- s$ ]  _6 }0 h4 iif(phoneElem)  `1 A+ y+ F$ m' ?& b
phoneElem->Release();
; P4 {# \, R; {+ f# P( d0 \0 Dif(msgElem)
5 ?+ X( }: L3 f1 emsgElem->Release();/ K& t8 z  I& D: D$ i* K; T5 r
if(pDisp)
2 v# y2 j. e) j  v# S# `9 bpDisp->Release();
. ?% R; G# h5 J* m# c6 s8 ~if(pDisp_msg)
  O. _- `. F6 u" r6 m4 d( E# {pDisp_msg->Release();1 B# ~$ `& a3 k8 m, k. X& Z
return "5发送失败";
" [+ b- M' k) Z9 s}( f4 D9 ?# f. A# H+ R
WideString s_phone,s_msg;2 o* n/ S. ]* ]2 J# S
s_phone="888888"
4 C( T  ?5 y# U& N* |8 P8 g; y1 ns_msg="你好";
/ T( L) ~# A2 WphoneElem->put_value(s_phone.c_bstr());//填写
" C* Y( i3 ^0 c& A0 A4 L/ q: omsgElem->put_value(s_msg.c_bstr());//填写" o4 s  v: b% {: u9 c' a- u$ t" E
pFormElem->submit();//提交* W' _1 g8 s" B. M/ m2 p- Q
phoneElem->Release();6 ^- `" c3 r4 i/ y/ H7 p0 ^) F, o
msgElem->Release();. v3 L0 E+ B4 Y% L; O' j3 R. x
pDisp->Release();: H1 `/ N' q' S1 k, l
pDisp_msg->Release();
6 I  _2 t* J' t! G0 ^+ d4 vpFormElem->Release();
" y  E. U' [$ P4 O6 y& h- C8 freturn "发送成功";
& \# f/ x7 P1 ?4 x8 W}, i1 C1 C- n% ^: h1 p! R+ L" V
}. w; `+ J* T+ ^9 @+ t. O  n
return "发送失败";1 b. I5 X, a0 O7 |- n