VC访问IE浏览器中的某个控件

最新推荐文章于 2019-05-21 14:57:21 发布

pjchen

最新推荐文章于 2019-05-21 14:57:21 发布

阅读量1.1k

点赞数

CC 4.0 BY-SA版权

文章标签：浏览器 ie null forms

本文链接：https://blog.youkuaiyun.com/pjchen/article/details/5831433

本文展示了一段使用COM接口自动打开网页并填充表单的C++代码示例。通过创建IE浏览器实例，获取文档对象及表单元素，实现了对特定输入框的定位与填写。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

HINSTANCE h= ShellExecute(NULL,NULL,"iexplore","http://reg.sxzhibo.com",NULL,SW_SHOWNORMAL);
Sleep(1000);
if (m_spSHWinds == NULL){
   if (m_spSHWinds.CreateInstance(__uuidof(SHDocVw::ShellWindows)) != S_OK){
    MessageBox("Failed");
    CoUninitialize();
   }
}
VARIANT id, index;
CComPtr<IDispatch> spDispatch;
CComQIPtr<IHTMLDocument2, &IID_IHTMLDocument2> pDoc2;
CComPtr<IHTMLElement> pElement;
CComPtr<IHTMLElementCollection> pElementCol;
CComPtr<IHTMLFormElement> pFormElement;
CComPtr<IHTMLInputTextElement> pInputElement;
TCHAR szStr[255];
_bstr_t bStr;
if (m_spSHWinds)
{
   int n = m_spSHWinds->GetCount()-1;
_variant_t v = (long)n;
   IDispatchPtr spDisp = m_spSHWinds->Item(v);
   SHDocVw::IWebBrowser2Ptr spBrowser(spDisp);   //生成一个IE窗口的智能指针
   spDisp.Release();

   bStr = spBrowser->GetLocationName();
   _stprintf(szStr, _T("%s"), (LPCTSTR)bStr);
   spBrowser->get_Document(&spDispatch);
   if (spDispatch!=NULL)
   {
    spDispatch->QueryInterface(IID_IHTMLDocument2, (void**)&pDoc2);
    if ( pDoc2 )
    {
     pDoc2->get_forms(&pElementCol);
     spDispatch.Release();
     long p=0;
     SUCCEEDED(pElementCol->get_length(&p));
     for(long i=0;i<=(p-1);i++)
     {
      V_VT(&id) = VT_I4;
      V_I4(&id) = i;
      V_VT(&index) = VT_I4;
      V_I4(&index) = 0;
      SUCCEEDED(pElementCol->item(id,index, &spDispatch));
      SUCCEEDED(spDispatch->QueryInterface(IID_IHTMLFormElement,(void**)&pFormElement));
      spDispatch.Release();
      long q=0;
      SUCCEEDED(pFormElement->get_length(&q));
      for(long j=0;j<=(q-1);j++)
      {
       V_VT(&id) = VT_I4;
       V_I4(&id) = j;
       V_VT(&index) = VT_I4;
       V_I4(&index) = 0;
       SUCCEEDED(pFormElement->item(id,index, &spDispatch));
       if(SUCCEEDED(spDispatch->QueryInterface(IID_IHTMLInputTextElement,(void**)&pInputElement)))
       {
        spDispatch.Release();
        CComBSTR value;
        CComBSTR type;
        pInputElement->get_type(&type);
        pInputElement->get_name(&type);
        CString strtype(type);
        strtype.MakeUpper();
        if(m_inputName.Compare(strtype)==0)
        {
         _bstr_t str;
         CString ctemp;
         m_edtCharacterCode.GetWindowText(ctemp);
         str=ctemp;
         BSTR bstr= SysAllocString(str);
         pInputElement->put_value(bstr);
         SysFreeString(bstr);
        }
       }
      }
     }
    }

   }

}
m_spSHWinds.Release();