IE框架表单遍历

 // HtmlWeb.cpp : 定义控制台应用程序的入口点。
 //

 #include "stdafx.h"
 #include <atlbase.h>
 #include <MsHTML.h>
 #include <oleacc.h>
 #pragma comment(lib,"oleacc.lib")
 int main()
 {
     BSTR sztitle;
     long lFramesLength = ;
     HWND hwnd = (HWND);
     HRESULT hr = ::CoInitialize(NULL);
     UINT nMsg = ::RegisterWindowMessage(_T("WM_HTML_GETOBJECT"));
     LRESULT result;
     SendMessageTimeout(hwnd, nMsg, 0l, 0l, SMTO_ABORTIFHUNG, , (PDWORD)&result);
     CComPtr <IHTMLDocument2> spDoc;
     hr = ::ObjectFromLresult(result, IID_IHTMLDocument2, , (LPVOID *)&spDoc);
     if (SUCCEEDED(hr))
     {
         CComPtr<IHTMLFramesCollection2> frames;
         CComPtr<IHTMLElementCollection> ElementCoole;
         spDoc->get_URL(&sztitle);
         wprintf_s(L"title:%s\r\n", sztitle);
         spDoc->get_cookie(&sztitle);
         wprintf_s(L"title:%s\r\n", sztitle);
         hr = spDoc->get_forms(&ElementCoole);
         if (SUCCEEDED(hr))
         {
             hr = ElementCoole->get_length(&lFramesLength);
             if (SUCCEEDED(hr))
             {
                 VARIANT varIndex, varResult;
                 VariantInit(&varIndex);
                 VariantInit(&varResult);
                 varResult.vt = VT_I4;
                 varResult.vt = VT_I4;
                 IDispatch *pDispatch;
                 for (long i =;i<lFramesLength;i++)
                 {
                     varIndex.lVal = i;
                     if (ElementCoole->item(varIndex, varResult, &pDispatch) == S_OK)
                     {
                         CComQIPtr<IHTMLFormElement> spFormElement = pDispatch;
                         pDispatch->Release();
                         spFormElement->get_name(&sztitle);
                         wprintf_s(L"title:%s\r\n", sztitle);
                         IDispatch* spInputElement;
                         hr = spFormElement->get_length(&lFramesLength);
                         if (SUCCEEDED(hr))
                         {
                             for (long k=;k<lFramesLength;k++)
                             {
                                 if (spFormElement->item(CComVariant(k), CComVariant(), &spInputElement) == S_OK)
                                 {
                                     CComQIPtr<IHTMLInputElement> spInputEle = spInputElement;
                                     spInputElement->Release();
                                     BSTR vName, vVal, vType;  //取得表单域的 名，值，类型
                                     hr = spInputEle->get_name(&vName);
                                     if (FAILED(hr))
                                         continue;
                                     hr = spInputEle->get_type(&vType);
                                     if (FAILED(hr))
                                         continue;
                                     hr = spInputEle->get_value(&vVal);
                                     if (FAILED(hr))
                                         continue;
                                     wprintf_s(L"name:%s \t value:%s \t type:%s \r\n", vName,vVal,vType);
                                 }
                             }
                         }
                     }
                 }
             }
         }
 #if 0
         hr = spDoc->get_frames(&frames);
         if (SUCCEEDED(hr))
         {
             VARIANT varIndex, varResult;
             VariantInit(&varIndex);
             VariantInit(&varResult);
             varIndex.vt = VT_I4;
             varResult.vt = VT_DISPATCH;
             IDispatch *pDispatch;
             hr = frames->get_length(&lFramesLength);
             if (SUCCEEDED(hr))
             {
                 for (long i = ; i < lFramesLength; i++)
                 {
                     varIndex.lVal = i;
                     hr = frames->item(&varIndex, &varResult);
                     if (SUCCEEDED(hr))
                     {
                         pDispatch = varResult.pdispVal;
                     }
                 }
             }

         }
 #endif
     }
     ::CoUninitialize();
     return ;
 }