Форум АНТИЧАТ - Удаление cookies на WinInet [DELPHI]

Удаление cookies на WinInet [DELPHI]

23.09.2009, 15:22

GlooK

Участник форума

Регистрация: 20.04.2007

Сообщений: 174

Провел на форуме:
2310282

Репутация: 149

Удаление cookies на WinInet [DELPHI]

Столкнулся с проблемкой - не могу почистить куки, когда использую wininet.
Поиск гугла и ачата ничего вразумительного не дал.

Делаю запрос используя код:

Код:

function fSendRequest(chHost, chPath: PChar):string;
  var
    hInternet: Pointer;
    hConnect: Pointer;
    hRequest: Pointer;
    BuffData: Char;
    ReadData: Cardinal;
    FullData: String;
  begin
    hInternet := InternetOpen('Approove', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
    hConnect := InternetConnect(hInternet, chHost, INTERNET_DEFAULT_HTTP_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 0);
    hRequest := HttpOpenRequest(hConnect, 'GET', chPath, nil, nil, nil, INTERNET_FLAG_KEEP_CONNECTION, 0);
    HttpSendRequest(hRequest, nil, 0, nil, 0);
    while (TRUE) do
    begin
      InternetReadFile(hRequest, @BuffData, SizeOf(BuffData), ReadData);
      if ReadData = 0 then break;
      FullData := FullData + BuffData;
    end;
    InternetCloseHandle(hRequest);
    InternetCloseHandle(hConnect);
    InternetCloseHandle(hInternet);
    result := FullData;
  end;

Проснифав трафик, запрос получается такой:

Код:

GET /index HTTP/1.1
User-Agent: Approove 
Host: pda.vkontakte.ru 
Connection: Keep-Alive 
Cookie: remixlang=0; remixchk=5; remixmid=XXX; remixemail=XXX; remixpass=XXX; remixsid=XXX; remixcookiecheck=1

Все что находится в хэдре Cookie, он видимо берет из IE, если в нем есть сохраненные эти куки.

Вопрос: Как удалить все куки этого сайта?

P.S. Пока не охота переходить с WinInet на WinSock - много кода лишнего каждый раз писать придется.