枚举所有IE窗口，实现自动登录

来源：互联网发布：ipadpro专用软件编辑：程序博客网时间：2024/05/02 03:09

//定义IE程序处理函数指针
typedef void (*ProcessWebBrowser)( const IWebBrowser2Ptr pBrowser );
/*
* 枚举当前打开的IE窗口,并输出网页的标题
*/
BOOL EnumInternetExplorer( ProcessWebBrowser pHander )
{
   Sleep(500);

   //IE属于shell的一个应用程序,再次需要枚举ShellWindows集合
   IShellWindowsPtr spSHWinds;
   if( FAILED( spSHWinds.CreateInstance( __uuidof( ShellWindows ) ) ) )
       return FALSE;

   //获取ShellWindows集合的数目
   long nCount=0;
   spSHWinds->get_Count(&nCount);
   for ( long lIndex = 0; lIndex < nCount; lIndex++ )
   {
       //枚举每个项
       IDispatchPtr spDisp;
       _variant_t var( lIndex, VT_I4 );
       spSHWinds->Item( var, &spDisp );

       if ( spDisp != NULL )
       {
           //Query网页接口
           IWebBrowser2Ptr spBrowser( spDisp );
           if( ( spBrowser != NULL ) && ( pHander != NULL ) )
           {
               //调用处理函数
               pHander( spBrowser );
           }
       }
   }

   return TRUE;
}

//   这里需要事先设置好 LPCTSTR lpszUserNameID, LPCTSTR lpszUser, LPCTSTR lpszPwdID, LPCTSTR lpszPwd, LPCTSTR lpszSubmitID
LPCTSTR lpszUserNameID="loginname";
LPCTSTR lpszUser="87426628123456@sina.com";
LPCTSTR lpszPwdID="password";
LPCTSTR lpszPwd="123456";
LPCTSTR lpszSubmitID="login_submit_btn";
void AutoLogin(const IWebBrowser2Ptr pBrowser)
{
   MSHTML::IHTMLDocument3Ptr ptrDoc3;

   IDispatch* pDocDisp;
   HRESULT hResult = pBrowser->get_Document((IDispatch **)&pDocDisp);
   if (FAILED(hResult))
   {
       _TRACE("获取IE里面的文档失败\n");

       return;
   }

   hResult = pDocDisp->QueryInterface(__uuidof(IHTMLDocument3), (void**)&ptrDoc3);
   if (FAILED(hResult))
   {
       _TRACE("获取IHTMLDocument3    失败\n");

       return;
   }

   MSHTML::IHTMLDocument2Ptr ptrDoc2 = ptrDoc3;

   MSHTML::IHTMLInputElementPtr ptrUserName = NULL;
   MSHTML::IHTMLInputElementPtr ptrPwd = NULL;
   MSHTML::IHTMLElementPtr pstrSubmit = NULL;

   try
   {
       //   为什么这里老崩溃呢
       //#pragma implementation_key(9490)
//        inline VARIANT_BOOL MSHTML::DispHTMLSelectElement::GetisTextEdit ( ) {
//            VARIANT_BOOL _result = 0;o
//            _com_dispatch_method(this, 0x8001040a, DISPATCH_PROPERTYGET, VT_BOOL, (void*)&_result, NULL);
//            return _result;
//        }
       MSHTML::IHTMLElementPtr elePtr;

       elePtr = ptrDoc3->getElementById(lpszUserNameID);
       if (!elePtr.GetInterfacePtr())
       {
           return;
       }
       ptrUserName = (MSHTML::IHTMLInputElementPtr)(elePtr);
   }
   catch(...)
   {

   }
   if (ptrUserName==NULL)
   {
       return;
   }

   ptrUserName->value = lpszUser;
   ptrUserName->put_value(ptrUserName->value);

   ptrPwd = ptrDoc3->getElementById(lpszPwdID);
   if (ptrPwd==NULL)
   {
       return;
   }

   ptrPwd->value = lpszPwd;
   ptrPwd->put_value(ptrPwd->value);

   CComBSTR bstrMember("toggleLogin");
   DISPID dispid = NULL;

   IDispatchPtr ptrDisp = ptrDoc2->Script;
   HRESULT hr=ptrDisp->GetIDsOfNames(IID_NULL, &bstrMember, 1, LOCALE_SYSTEM_DEFAULT, &dispid);
   if (SUCCEEDED(hr))
   {
       DISPPARAMS paraDisp = {0,0,0,0};
       ptrDisp->Invoke(dispid, IID_NULL, LOCALE_SYSTEM_DEFAULT, DISPATCH_METHOD, &paraDisp, NULL, NULL, NULL);
   }

   pstrSubmit = ptrDoc3->getElementById(lpszSubmitID);
   if (pstrSubmit==NULL)
   {
       return;
   }

   pstrSubmit->click();
}

0 0