InternetConnect で取得したハンドル hConnect  を使って色々な要求を出します。
その要求の方式”GET”、”POST”だとかを lpszVerb に、サーバー側のどのオブジェクトに対するリクエストかを lpszObjectName に記述してゆきます。”GET" Method を指定している場合には
- サーバー側のどのプログラムを起動し、?でSymbol=Value の形でプログラムに渡すパラメータとその値を記述します。urlencode する必要がありますが StockPrice&Chart では渡すフォーマットが決まっていますから”/”、”：”は直接”%2F”とか”%3A”として設定しています。

PPC、WMでは内部は Widechar が標準のため Multibyte に変換しています。

RequestHeader に指定する情報を一度に複数指定できないので、HttpAddRequestHeaders で一つずつ指定してゆきます。ここでは指定する文字列は"\r\n"のペアで終端する必要があります。

"Accept-Encoding: gzip, inflate\r\n"　はデバイスの”￥Windows”の下に zlib1.dll がある場合、gzip、inflate のフォーマットで圧縮して送るよう指示するための指定です。

zlib を使った解凍が今朝4:00前に動くようになったので別トピックに書きます。

”POST” method を指示した場合のパラメータは HttpSendRequest の lpOptional に "Symbol=Value"
で記述して”＆”でつないで一つの文字列にして渡します。ここでもurlencodeが必要です。

一つのリクエストが終わって結果をすべて受け取ると次のリクエストを投げます。ただ次のリクエストを投げる前に一旦 hRequest をクローズしないとサーバーの応答がなかったのでクローズを毎回挟んでいます。

正常にリクエストを出して正常に結果を受け取っている間はリクエストを投げてクローズの繰り返しですが、エラーを検出した場合や回線の切断を行った場合 "InternetOpen" から実行するようにしています。

”POST”の場合に必要なパラメータは Fiddler2 を使ってIEの実際のページからデータを取得して見つけています。

ソースです。

/***********************************************************************
 *
 * FUNCTION:
 *  Prepare_Symbols
 *
 *  PURPOSE:
 *   Prepare Symbols for SendRequest.
 *
 ***********************************************************************/
static void Prepare_symbols(LPVOID lpOptional,
      LPCTSTR lpszCountry,
      LPCTSTR lpszStockId,
      DWORD dwIndex)
{
 LPCSTR lpszOpt[12];
 char strSymbol[64];
 char strCountry[16], strStockId[32];
 char *lpszCheck;   // For the sake of Debug

 // Wide to ANSI
 memset(strCountry, 0, sizeof(strCountry));
 memset(strStockId, 0, sizeof(strStockId));
 WideCharToMultiByte(CP_UTF8, 0, lpszCountry, -1, strCountry, sizeof(strCountry), 0, 0);
 WideCharToMultiByte(CP_UTF8, 0, lpszStockId, -1, strStockId, sizeof(strStockId), 0, 0);

 // Format them
 memset(strSymbol, 0, sizeof(strSymbol));
 if (wcscmp(lpszCountry, L"/")) { // Not Match
  sprintf(strSymbol, "&Symbol=%s%%3A%s", strCountry, strStockId);

 } else {       // Match
  sprintf(strSymbol, "&Symbol=%%2F%s", strStockId);
 }

 lpszOpt[0]  = "__VIEWSTATE=%2FwEPDwUKMTE2MTU4MjY1MA8WBB4TSGlzdG9yaWNUYWJsZVBhZ2VOb2YeGEhpc3RvcmljVGFibGVNYXhQYWdlU2l6ZQICFgJmD2QWAgIDD2QWCmYPZBYCZg9kFgQCAw8PZBYCHgZvbmJsdXIFFFNlbGVjdFByaWNlc0J1dHRvbigpZAIFDxYCHglpbm5lcmh0bWwF6AE8YSBocmVmPSJodHRwOi8vanAubW9uZXljZW50cmFsLm1zbi5jb20vc2hhcmVkc3RvY2svYWRkdG9zaHN0b2NrLmFzcD9TeW1ib2xzPUpQOjEwMDAwMDAxOCZydT1odHRwJTNhJTJmJTJmanAubW9uZXljZW50cmFsLm1zbi5jb20lMmZpbnZlc3RvciUyZmNoYXJ0cyUyZmhpc3RvcmljZGF0YS5hc3B4JTNmU3ltYm9sJTNkSlAlM2ExMDAwMDAwMTgiPuODneODvOODiOODleOCqeODquOCquOBq%2Bi%2FveWKoDwvYT4gZAIBDxYCHgdWaXNpYmxlaGQCAg9kFgJmD2QWAgIBDw8WAh4EVGV4dGVkZAIDD2QWAmYPZBYCAgEPFgIfBGcWBGYPZBYCZg9kFgICAQ8PFgIfBQUe5pel57WMIDIyNTog5pmC57O75YiX44OH44O844K%2FZGQCAQ9kFgJmD2QWAgIBDw8WAh8FBVPoqK3lrprjgZfjgZ%2FmnJ%2FplpPjga4g5qCq5L6h44Gu5pmC57O75YiX44OH44O844K%2F44KSIOOBlOWPgueFp%2BOBhOOBn%2BOBoOOBkeOBvuOBmeOAgmRkAgQPZBYCZg9kFgICAQ8WAh8EZxYCAgEPZBYCZg9kFgwCAw8QD2QWAh4Hb25jbGljawUYRGlzYWJsZUludGVydmFsT3B0aW9ucygpZGRkAgUPZBYCZg8QD2QWAh4Ib25jaGFuZ2UFDlNlbGVjdEN1c3RvbSgpZBYBAgFkAgcPD2QWAh4Hb25mb2N1cwUZU2VsZWN0Q3VzdG9tUmFkaW9CdXR0b24oKWQCCQ8PFgIfBQUQJm5ic3A7WVlZWS9NTS9ERGRkAgsPD2QWAh8IBRlTZWxlY3RDdXN0b21SYWRpb0J1dHRvbigpZAINDw8WAh8FBRAmbmJzcDtZWVlZL01NL0REZGRkkaldBWJ8jvSKL%2FSPxhmWhvAju1Q%3D";
 lpszOpt[1]  = (dwIndex == 0)? "&__EVENTTARGET="  : "&__EVENTTARGET=NewPageNo";
 lpszOpt[2]  = (dwIndex == 0)? "&__EVENTARGUMENT=": "&__EVENTARGUMENT=1";
 lpszOpt[3]  = "&__JavascriptTest1_State=True";
 lpszOpt[4]  =  &strSymbol[0];
 lpszOpt[5]  = "&rblTabelType=0";
 lpszOpt[6]  = "&rbDateRange=1";
 lpszOpt[7]  = "&txtStartDate=";
 lpszOpt[8]  = "&txtEndDate=";
 lpszOpt[9]  = "&rblPeriod=0";
 lpszOpt[10] = (dwIndex == 0)? "&btnGetPrices=%E6%9B%B4%E6%96%B0": NULL;
 lpszOpt[11] = "&__EVENTVALIDATION=%2FwEWFgKm9cjiDgKFv4fvBgK3tfuPBgLikYnqDgL9nO2QAwLinO2QAwLt88f%2BDwLjnuzBDQL8nuzBDQL9nuzBDQL%2BnuzBDQL%2FnuzBDQL4nuzBDQL5nuzBDQL6nuzBDQLg2ZN%2BAsKGtEYCt43P1gECqI3P1gECqY3P1gECp%2BLluA0C3Y%2FW9gGmF0uTw40V%2B93G%2FlvB11GpB2jmSQ%3D%3D";

 int i;
 for (i = 0; i < 12; i++) {
  if (lpszOpt[i])
   lpszCheck = strcat((char *)lpOptional, lpszOpt[i]);
 }
}

/***********************************************************************
 *
 * FUNCTION:
 *  SC_Make_Request
 *
 *  PURPOSE:
 *   Set up request and send it.
 *
 ***********************************************************************/
BOOL SC_MakeSendRequest(HWND hDlg, LPCTSTR lpszCountry, LPCTSTR lpszStockId, UINT uSpec, DWORD dwPage) {
 BOOL bResult;
 DWORD dwResult;

 //**********************************************
 //******* Inquire handle of HTTP request. ******
 //******* hRequest = HttpOpenRequest()   ******
 //**********************************************
 StepProgressbar(NULL); // 4. Increase Progressbar
 {
  TCHAR lpszObj[512], lpszReferer[512], szBuf[64];

  // "GET" (1 month history data) or "POST" (others)
  LPCTSTR lpszVerb = ((uSpec == 0) || (uSpec == 1))? L"GET": L"POST";

  // Prepare stockID and CountryID for ObjectName to kick.
  LPCTSTR lpszObjName = (uSpec == 0)? s_lpszObjNameQuo: s_lpszObjNameHis;

  if (!wcscmp(lpszCountry, L"/")) {   // Foreign Exchange
   wsprintf(szBuf, L"%s", lpszStockId);
   wsprintf(lpszObj, lpszObjName, L"%2F", szBuf);

  } else if (!wcscmp(lpszCountry, L"A")) { // Mutual Funds
   wsprintf(lpszObj, lpszObjName, lpszStockId, L"&Funds=1");

  } else {
   wsprintf(szBuf, L"%%3a%s", lpszStockId);
   wsprintf(lpszObj, lpszObjName, lpszCountry, szBuf);

  }

  // Prepare Referer URL
  wsprintf(lpszReferer, L"http://%s%s", s_lpszServerName, lpszObj);

  // Prepare Accept-Types.
  LPCWSTR lpszAcceptTypes[2];
  lpszAcceptTypes[0] = L"text/html";
  lpszAcceptTypes[1] = NULL;

  DWORD dwFlags = INTERNET_FLAG_RELOAD | INTERNET_FLAG_KEEP_CONNECTION | INTERNET_FLAG_NO_CACHE_WRITE;
  hRequest = HttpOpenRequest(
      hConnect,    // HINTERNET hConnect
      lpszVerb,    // LPCWSTR lpszVerb ("GET" or "POST")
      lpszObj,    // LPCWSTR lpszObjectName
      L"HTTP/1.1",   // LPCWSTR lpszVersion NULL: HTTP/1.0
      lpszReferer,   // LPCWSTR lpszReferer
      &lpszAcceptTypes[0], // LPCWSTR *lplpszAcceptTypes NULL: Only Text
      dwFlags,    // DWORD dwFlags
      2);      // DWORD_PTR dwContext (Connection handle's Context)
  if (!hRequest) {
   if (GetLastError() != ERROR_IO_PENDING) {
    SP_DispError(hDlg, L"Asynch Inet: HttpOpenRequest Error");

    // Close Event and Inet handles
    Close_Handles();

    return FALSE;
   }
   // Wait until we get the connection handle
   dwResult = WaitForSingleObject(hReqOpenedEvent, g_dwOpenReqTimeOut); //TIMEOUT_CONNECTION);
   if ((dwResult != WAIT_OBJECT_0) || (pAsyncRes->dwError != ERROR_SUCCESS)) {
    if (dwResult == WAIT_TIMEOUT) {
     SP_ErrorPopUp(hDlg, IDS_ERR118);

    } else {
     TCHAR szBuf[MAX_LOADSTRING+1];

     wsprintf(szBuf, L"Asynch Inet: WaitForSingleObj(OpenReq) AsyncRes:%d ", pAsyncRes->dwError);
     SP_DispError(hDlg, szBuf);
    }

    // Close Event and Inet handles
    Close_Handles();

    return FALSE;
   }
  }
 } // End of HttpOpenRequest

 //**********************************************
 //************ Set Request headers *************
 //**********************************************
 StepProgressbar(NULL); // 5. Increase Progressbar
 {
  LPCWSTR lpszHeaders[4];
  int iNoOfHeaders = 0;

  if (s_hInstzlib)
   lpszHeaders[iNoOfHeaders++] = L"Accept-Encoding: gzip, deflate\r\n";

  lpszHeaders[iNoOfHeaders++] = L"Accept-Language: ja\r\n";
  lpszHeaders[iNoOfHeaders++] = L"User-Agent: Mozilla/4.0\r\n";

  int i;
  for (i = 0; i < iNoOfHeaders; i++) {
   bResult = HttpAddRequestHeaders(
      hRequest,    // HINTERNET hRequest
      lpszHeaders[i],   // LPCWSTR lpszHeaders
      wcslen(lpszHeaders[i]), // DWORD dwHeaderLength
      HTTP_ADDREQ_FLAG_ADD); // DWORD dwModifiers
  }
 }

 //**********************************************
 //**************** Send Request ****************
 //**********************************************
 StepProgressbar(NULL); // 6. Increase Progressbar
 {
  LPVOID lpOptional;
  char Optional[2048];
  //
  // Prepare Header information
  //
  LPCTSTR lpszHeaders = L"Content-Type: application/x-www-form-urlencoded";
  DWORD dwHeaderLength = wcslen(lpszHeaders);

  //
  // Prepare Option
  //
  DWORD dwOptionalLength = 0;

  if ((uSpec == 0) || (uSpec == 1)) {  // Get Quote or 1 Month History page by "GET" Method
   lpOptional = NULL;

  } else {        // Get 3 Months History page by "POST" Method
   memset(Optional, 0, sizeof(Optional));
   lpOptional = &Optional[0];

   Prepare_symbols(
      lpOptional,    // LPVOID lpOptional
      lpszCountry,   // LPCTSTR lpszCountry
      lpszStockId,   // LPCTSTR lpszStockId
      dwPage);    // DWORD dwIndex 0: First Page, 1: SecondPage

   dwOptionalLength = strlen(Optional);

  }

  bResult = HttpSendRequest(
      hRequest,    // HINTERNET hRequest
      lpszHeaders,   // LPCTSTR lpszHeaders
      dwHeaderLength,   // DWORD dwHeaderLength
      lpOptional,    // LPVOID lpOptional
      dwOptionalLength);  // DWORD lpOptionalLength

  if (!bResult) {
   if (GetLastError() != ERROR_IO_PENDING) {
    SP_DispError(hDlg, L"Asynch Inet: HttpSendRequest Error");

    // Close Event and Inet handles
    Close_Handles();

    return FALSE;
   }
   // Wait until we get the connection handle
   dwResult = WaitForSingleObject(hReqCompleEvent, g_dwRequestTimeOut);  //TIMEOUT_CONNECTION);
   if ((dwResult != WAIT_OBJECT_0)  || (pAsyncRes->dwError != ERROR_SUCCESS)) {
    if (dwResult == WAIT_TIMEOUT) {
     SP_ErrorPopUp(hDlg, IDS_ERR119);

    } else {
     TCHAR szBuf[MAX_LOADSTRING+1];

     wsprintf(szBuf, L"Asynch Inet: WaitForSingleObj(SendReq) AsyncRes:%d ", pAsyncRes->dwError);
     SP_DispError(hDlg, szBuf);
    }

    // Close Event and Inet handles
    Close_Handles();

    return FALSE;
   }
  }
 }
 return TRUE;
}