POST 방식으로 IE를 실행시키는 방법

IEPostDataExecute.zip

void CIEPostDataExecuteDlg::OnBtnIeExecute()
{
  BSTR bstrURL = NULL;
  BSTR bstrHeaders = NULL;
  CString strURL = _T("http://10.201.2.95:8021/Result.asp");
  VARIANT vFlags = {0}, vTargetFrameName = {0}, vPostData = {0}, vHeaders = {0};

  HRESULT hr;
  if (FAILED(hr = CoInitialize(NULL)))
    return;

  IWebBrowserApp* pWBApp = NULL;
  if (FAILED(hr = CoCreateInstance(CLSID_InternetExplorer, NULL, CLSCTX_SERVER, IID_IWebBrowserApp, (LPVOID*)&pWBApp)))
    goto DoClean;

  bstrURL = strURL.AllocSysString();
  if (bstrURL == NULL)
    goto DoClean;

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

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

  // POST 데이터를 생서한다.
  hr = GeneratePostData(&vPostData);
  if (FAILED(hr))
    goto DoClean;

  hr = pWBApp->Navigate(bstrURL, &vFlags, &vTargetFrameName, &vPostData, &vHeaders);
  if (FAILED(hr))
    goto DoClean;

  pWBApp->put_Width(600);
  pWBApp->put_Height(400);
  pWBApp->put_Visible(VARIANT_TRUE);

DoClean:
  if (bstrURL != NULL)
    SysFreeString(bstrURL);

  if (bstrHeaders != NULL)
    SysFreeString(bstrHeaders);

  VariantClear(&vPostData);

  if (pWBApp)
    pWBApp->Release();

  CoUninitialize();
}

HRESULT CIEPostDataExecuteDlg::GeneratePostData(LPVARIANT lpvPostData)
{
  if (!lpvPostData)
    return E_POINTER;

  CString strPostData = _T("name=test_id&age=test_pwd&sys_tp=");
  LPCTSTR cszPostData = (LPCTSTR)strPostData;
  UINT cElems = lstrlen(cszPostData);

  VariantInit(lpvPostData);

  LPSAFEARRAY psa = SafeArrayCreateVector(VT_UI1, 0, cElems);
  if (!psa)
    return E_OUTOFMEMORY;

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

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

  return NOERROR;
}