Traverse ie Elements

1. # Include <atlbase. h> // ATL
2. # Include <atlcom. h>
3. # Include <mshtml. h> // All ihtmlxxx excuses
4. # Include <iostream>
5. # Include <exdisp. h>
7. Using namespace STD;
9. Ccommodule _ module; // to use the smart pointer of ccomdispatchdriver ATL, it must be declared
11. Void enumie (); // enumerate browser Functions
12. Void enumframe (ihtmldocument2 * pdoc); // Enumerate sub-FRAMEWORK Functions
13. Void enumform (ihtmldocument2 * pdoc); // enumerated form function
15. Int main ()
16. {
17. : Coinitialize (null );
19. : Enumie ();
21. : Couninitialize ();
23. Return 0;
24. }
26. Void enumie ()
27. {
28. Ccomptr <ishellwindows> spshellwin;
29. Hresult hR = s_false;
30. Long ncount = 0;
31. Long I = 0;
33. Cout <"start to traverse ie instances running in the system" <Endl;
35. HR = spshellwin. cocreateinstance (clsid_shellwindows );
37. If (failed (HR ))
38. {
39. Cout <"An error occurred while obtaining the ishellwindows interface! "<Endl;
40. Return;
41. }
43. Spshellwin-> get_count (& ncount );
45. If (ncount <= 0)
46. {
47. Cout <"no running browser! "<Endl;
48. Return;
49. }
51. For (I = 0; I <ncount; I ++)
52. {
53. Ccomptr <idispatch> Spie;
55. HR = spshellwin-> item (ccomvariant (long) I), & Spie );
57. If (failed (HR ))
58. {
59. Continue;
60. }
62. Ccomqiptr <iwebbrowser2> spbrowser = Spie;
63. If (! Spbrowser)
64. {
65. Continue;
66. }
68. Ccomptr <idispatch> spdisp;
69. HR = spbrowser-> get_document (& spdisp );
71. If (failed (HR ))
72. {
73. Continue;
74. }
76. Ccomqiptr <ihtmldocument2> spdoc = spdisp;
78. If (! Spdoc)
79. {
80. Continue;
81. }
83. Spdoc-> put_bgcolor (ccomvariant ("blue "));
85. : Enumform (spdoc );
86. }
88. }
90. Void enumframe (ihtmldocument2 * pdoc)
91. {
92. Hresult hR = s_false;
93. Long ncount = 0;
94. Long I = 0;
96. If (! Pdoc)
97. {
98. Return;
99. }
101. Ccomptr <ihtmlframescollection2> spcollfrm;
102. Pdoc-> get_frames (& spcollfrm );
104. HR = spcollfrm-> get_length (& ncount );
106. If (failed (HR) | (ncount <= 0 ))
107. {
108. Return;
109. }
111. For (I = 0; I <ncount; I ++)
112. {
113. Ccomvariant VT;
115. HR = spcollfrm-> item (& ccomvariant (I), & VT );
117. If (failed (HR ))
118. {
119. Continue;
120. }
122. Ccomqiptr <ihtmlwindow2> spwin2 = vt. pdispval;
124. If (! Spwin2)
125. {
126. Continue;
127. }
129. Ccomptr <ihtmldocument2> spdoc2;
130. Spwin2-> get_document (& spdoc2 );
132. : Enumform (spdoc2 );
133. }
134. }
136. Void enumform (ihtmldocument2 * pdoc)
137. {
138. Hresult hR = s_false;
139. Ccombstr bstrtitle;
140. Long ncount = 0;
141. Long I = 0;
143. If (! Pdoc)
144. {
145. Return;
146. }
148. Pdoc-> get_title (& bstrtitle );
150. Uses_conversion;
151. Cout <"Start enumeration" <ole2ct (bstrtitle) <"form" <Endl;
153. Ccomqiptr <ihtmlelementcollection> spcollelm;
154. HR = pdoc-> get_forms (& spcollelm );
156. If (failed (HR ))
157. {
158. Cout <"An error occurred while obtaining the form set! "<Endl;
159. Return;
160. }
162. HR = spcollelm-> get_length (& ncount );
164. If (failed (HR ))
165. {
166. Cout <"incorrect form input! "<Endl;
168. Return;
169. }
171. For (I = 0; I <ncount; I ++)
172. {
173. Idispatch * Pdisp = NULL;
174. HR = spcollelm-> item (ccomvariant (I), ccomvariant (), & Pdisp );
176. If (failed (HR ))
177. {
178. Continue;
179. }
181. Ccomqiptr <ihtmlformelement> spele = Pdisp;
182. Pdisp-> release ();
184. Long nelemcount = 0;
185. Long J = 0;
187. HR = spele-> get_length (& nelemcount );
189. If (failed (HR ))
190. {
191. Continue;
192. }
194. For (j = 0; j <nelemcount; j ++)
195. {
196. Ccomdispatchdriver spinputelem;
197. HR = spele-> item (ccomvariant (J), ccomvariant (), & spinputelem );
199. If (failed (HR ))
200. {
201. Continue;
202. }
204. Ccomvariant vname, vval, vtype;
206. HR = spinputelem. getpropertybyname (L "name", & vname );
207. If (failed (HR ))
208. {
209. Continue;
210. }
212. HR = spinputelem. getpropertybyname (L "value", & vval );
213. If (failed (HR ))
214. {
215. Continue;
216. }
218. HR = spinputelem. getpropertybyname (L "type", & vtype );
219. If (failed (HR ))
220. {
221. Continue;
222. }
224. Lpctstr lpname = vname. bstrval? Ole2ct (vname. bstrval): "null ";
225. Lpctstr lpval = vval. bstrval? Ole2ct (vval. bstrval): "null ";
226. Lpctstr lptype = vval. bstrval? Ole2ct (vtype. bstrval): "null ";
228. Cout <"[" <lptype <"]" <lpname <"=" <lpval <Endl;
229. }
230. }
231. }