Авторизация

void __fastcall TMyIEExtentionImpl::WebPostData(String sPostData)
{
    BSTR bstrHeaders = NULL;
    TVariant vFlags = {0}, vTargetFrameName={0}, vPostData={0}, vHeaders={0};
    LPSAFEARRAY psa;
    LPCTSTR cszPostData = sPostData.c_str();
    UINT cElems = lstrlen(cszPostData);

    LPSTR pPostData;
    LPVARIANT pvPostData;

    bstrHeaders = SysAllocString(L"Content-Type: application/x-www-form-urlencoded\r\n");

    if (!bstrHeaders){
        ShowMessage("Could not allocate bstrHeaders");
        return;
    }

    V_VT(&vHeaders) = VT_BSTR;
    V_BSTR(&vHeaders) = bstrHeaders;

    pvPostData = vPostData;

    if(pvPostData){
        VariantInit(pvPostData);

        psa = SafeArrayCreateVector(VT_UI1, 0, cElems);
        if(!psa){
            return;
        }

        SafeArrayAccessData(psa, (LPVOID*)&pPostData);
        memcpy(pPostData, cszPostData, cElems);

        SafeArrayUnaccessData(psa);

        V_VT(pvPostData) = VT_ARRAY | VT_UI1;
        V_ARRAY(pvPostData) = psa;

    }

    m_pWebBrowser2->Navigate(WideString("http://ps.mycompany.ru/cgi-bin/status.pls"), &vFlags, &vTargetFrameName, &vPostData, &vHeaders);
}
...

String sPostData="user=MyAccount";
WebPostData(sPostData);

void __fastcall TMyIEExtentionImpl::WIGetStat(String user)
{
    //TODO: Add your source code here
    //iieo?aiea noaoenoeee ?a?ac WinInet
    //http://ps.company.ru/cgi-bin/status.pls
    // for POST
    // char *pTarget = "/cgi-bin/status.pls";
    // char *pOptHeaders = "user=gizmo";

    // for GET
    //char *pTarget = "/cgi-bin/status.pls?user=gizmo";
    //char *pOptHeaders = NULL;

    String Line, Msg;

    HINTERNET hInternet = InternetOpen("CGI AGENT",
            INTERNET_OPEN_TYPE_DIRECT, NULL, NULL, 0);

    HINTERNET hConnection = InternetConnect(hInternet, "ps.company.ru",
            80, NULL, NULL, INTERNET_SERVICE_HTTP, 0, 0);

    HINTERNET hRequest = HttpOpenRequest(hConnection , "POST",
      "/cgi-bin/status.pls",
      NULL, NULL, NULL,
      INTERNET_FLAG_RELOAD | INTERNET_FLAG_DONT_CACHE, NULL);

    if(TRUE == ::HttpSendRequest( hRequest,
                              NULL,
                              0,
                              user.c_str(),
                              user.Length()))
    {
        //... ?eoaai ...
        DWORD dwRead;
        TCHAR szTemp[1024];
        while (InternetReadFile(hRequest, (LPVOID)szTemp, 1023, &dwRead))
        {
            if (!dwRead) break;
                szTemp[dwRead]='\0';

            Line = Line + String(szTemp);
        }
    }

    InternetCloseHandle(hRequest);
    InternetCloseHandle(hConnection);
    InternetCloseHandle(hInternet);
    // ... ia?nei ...
    int startpos = Line.Pos ( "" ) + AnsiString("").Length();
    int endpos   = Line.Pos ( "" );
    // ... oi?ie?oai niiauaiea ...
    Line = Line.SubString ( startpos, endpos-startpos );
    Msg.printf("Iauai iieo?aiiie eioi?iaoee:\n\r%s aaeo", Line.c_str());
    // ... iieo?aai HWND Browser-a ...
    HWND hBrowser=NULL;
    long lBrowser;
    if ( SUCCEEDED (m_pWebBrowser2->get_HWND(&lBrowser)))
        hBrowser=(HWND)lBrowser;

    MessageBox(hBrowser, Msg.c_str(), "Noaoenoeea cn2-mdm", MB_OK);
...
WIGetStat(sPostData);
...

}

void WebPostData(TCppWebBrowser *CppWebBrowser, String sURL, String sPostData)
{
  BSTR bstrHeaders = NULL;
  TVariant vFlags = {0}, vTargetFrameName={0}, vPostData={0}, vHeaders={0};
  LPSAFEARRAY psa;
  LPCTSTR cszPostData = sPostData.c_str();
  UINT cElems = lstrlen(cszPostData);
  LPSTR pPostData;
  LPVARIANT pvPostData;

  bstrHeaders = SysAllocString(L"Content-Type: application/x-www-form-urlencodedrn");
  if (!bstrHeaders){
    Application->MessageBox("Could not allocate bstrHeaders", "Warning", MB_OK | MB_ICONWARNING);
    return;
  }

  V_VT(&vHeaders) = VT_BSTR;
  V_BSTR(&vHeaders) = bstrHeaders;

  pvPostData = vPostData;

  if(pvPostData){
    VariantInit(pvPostData);

    psa = SafeArrayCreateVector(VT_UI1, 0, cElems);
    if(!psa){
      return;
    }

    SafeArrayAccessData(psa, (LPVOID*)&pPostData);
    memcpy(pPostData, cszPostData, cElems);
    SafeArrayUnaccessData(psa);

    V_VT(pvPostData) = VT_ARRAY | VT_UI1;
    V_ARRAY(pvPostData) = psa;
  }

   CppWebBrowser->Navigate((TVariant)sURL, &vFlags, &vTargetFrameName, &vPostData, &vHeaders);
}

...
<FORM METHOD="POST"  action="http://ps.mycompany.ru/cgi-bin/status.pls">
Учетная запись:<INPUT TYPE="text" NAME="user" >


<INPUT TYPE="submit" value="Запрос">
...

String sPostData="user=gizmo";
WebPostData(CppWebBrowser1, "http://ps.mycompany.ru/cgi-bin/status.pls", sPostData);

WideString  wsName = InputBox("Имя", "Введите имя", "Пупкин");

    CComQIPtr<IHTMLDocument2, &IID_IHTMLDocument2>                  pDoc;
    CComQIPtr<IHTMLElementCollection, &IID_IHTMLElementCollection>  pColl;
    CComQIPtr<IDispatch, &IID_IDispatch>                            pTmpDisp;
    CComQIPtr<IHTMLInputElement, &IID_IHTMLInputElement>            pElement1;
    CComQIPtr<IDispatch, &IID_IDispatch>                            pDisp1;
    CComQIPtr<IHTMLInputElement, &IID_IHTMLInputElement>            pElement2;
    CComQIPtr<IDispatch, &IID_IDispatch>                            pDisp2;
   
    if ( SUCCEEDED (WB->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*)&pDoc)))
    {
        if ( SUCCEEDED (pDoc->get_all(&pColl)))
        {
            if ( SUCCEEDED (pColl->tags(TVariant("INPUT"), &pTmpDisp)))
            {
                pColl=pTmpDisp;
                TVariant v1("string"),  v12("Only"), v2;
                pColl->item( v1, v2, &pDisp1);
                pElement1 = pDisp1;
                pElement1->put_value(wsName);

                pColl->item( v12, v2, &pDisp2);
                pElement2 = pDisp2;
                pElement2->put_checked(1);

                // нажать на кнопку //click SUBMIT Button
                IHTMLElementCollection *HTMLForms = NULL;

                if ( SUCCEEDED ( pDoc->get_forms ( &HTMLForms ) ) && HTMLForms )
                {
                //  slHtmlFormName <form name=...>
                    TVariant vName5(0);
                    TVariant vIndex5;
                    IDispatch *pDisp5 = NULL;

                    if ( SUCCEEDED ( HTMLForms->item (vName5, vIndex5, &pDisp5 ) ) && pDisp5 )
                    {
                        IHTMLFormElement *HTMLForm = NULL;

                        if ( SUCCEEDED ( pDisp5 -> QueryInterface ( IID_IHTMLFormElement, ( LPVOID* )&HTMLForm ) ) && HTMLForm )
                        {
                            HTMLForm -> submit ();
                            HTMLForm -> Release ();
                        }

                        pDisp5 -> Release ();
                    }

                    HTMLForms -> Release ();
                }
            }
        }
    }