Как вытащить куки из idcookiemanager?

Проще говоря хочу посмотреть, что цепляет idcookiemanager + нужно достать одно значение. Я в ручную я не могу его отловить. Как отобразить сохранённые куки например в мемо?

 

Смотри свойство IdcookieItem.

 

В общем мучаю маил, авторизируюсь постом по http://win.mail.ru/cgi-bin/auth. как я подозреваю в этот момент передаётся в куках значение mid, которое как выяснилось, и менеджер куков не может отловить, в без него отправка сообщения на ответ маил не возможно. как быть? Руками пробывал, тоже не ловится. Это видимо при авторизации выдаётся после чего редерект идёт и куки перезаписываются, и его нет. Что делать, несколько часов мучаюсь, уже не знаю.

 

Сниффером смотри где кукисы через хедеры ставяться а где js-om.

 

Да не помогает снифер, страница авторизации https, не снифается.

 

Все снифаеться, FierFox->TemplerData

 

Видимо я туплю, обновил фаерфокс и установил TemplerData, но не могу найти как его запустить. Как запустить TemplerData в новом фаерфокс?

 

Не TemplerData, a Tamper Data.
Инструменты > Перехватка данных

 

Да это понятно, я просто скопипастил. У тебя какая версия фаерфокс? У меня инструментов вообще нет!

 

http analyzer тоже норм инструмент

 

Да вот он как раз https точно не видит. Вот только его юзал. Ебучий Tamper Data, фаерфокс обновили хер, что найдёш! Похоже в новом фаире вообще не где не прописали Tamper Data. Просто установил и всё, а пользоваться не обязательно!

 

Есть он надо просто панельку с инструментами вкл..

 

Да я фаерфоксом пользовался последний раз очень давно)

Нашёл, просто туплю видимо уже. Tamper Data вообще не увидела передачу параметра mid в куках, хотя ХТТП аналайзер увидил, точнее не как мне его дают, а как я его передаю.

 

переходи на wininet и ни каких проблем с куками и т.п. не будет

Code:

uses wininet

Code:

      function GetHostName(url : string) : string;
      begin
        result := '';
        if pos('https://',url) > 0 then
          begin
            delete(url,1,length('https://'));
            SetLength(url,pos('/',url) - 1);
            result := url;
          end
        else
          if pos('http://',url) > 0 then
            begin
              delete(url,1,length('http://'));
              SetLength(url,pos('/',url) - 1);
              result := url;
            end;
      end;

Code:

  function postdata(Url: AnsiString; post: AnsiString; prox : String):string;
        var
          hInternet: Pointer;
          hConnect: Pointer;
          hRequest: Pointer;
          AHeader: String;
          BuffData: array [0..1023] of AnsiChar;
          ReadData: Cardinal;
          FullData,FHost,FScript: String;
        begin
        AHeader :='User-Agent:'+useragent(Random(20))+ #13#10
        +'Accept-Language:ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3'+#13#10
        +'Accept:text/javascript'+#13#10
        +'Content-Type:application/x-www-form-urlencoded; charset=UTF-8'+#13#10
        +'X-Requested-With:XMLHttpRequest';
            FHost := GetHostName(Url);
        FScript := Url;
        Delete(FScript, 1, Pos(FHost, FScript) + Length(FHost));
         if form12.CheckBox1.Checked
          then
            begin
             hInternet := InternetOpen('Approove',INTERNET_OPEN_TYPE_PROXY ,PChar('socks='+prox), nil, 0);
            end
          else
          begin
             hInternet := InternetOpen('Approove', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
          end;
          hConnect := InternetConnect(hInternet, PChar(FHost), INTERNET_DEFAULT_HTTP_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 0);
         hRequest := HttpOpenRequest(hConnect, 'POST', PChar(FScript), nil, nil, nil, INTERNET_FLAG_NO_AUTO_REDIRECT, 0);
         HttpSendRequest(hRequest, PChar(Aheader), Length(AHeader), PChar(post), Length(post));
          FillChar(BuffData, SizeOf(BuffData), 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;

Естественно хедеры под себя подделай

 

Зато появяться с не доверенными https соеденениями.

 

Использую wininet где-то пол года, я вообще забыл что такое куки, и проблем с не доверием не возникало

 

С куками которые jsom ставяться не сталкивался?)

 

Да причём тут виннет, авторизируюсь я нормально,хоть с кукименеджером, хоть в ручную обрабатывать. Дело в другом, где - то передаётся кук mid, дак вот мне его не просто надо отправить серверу, а достать и в пост запрос добавить. В теории всё легко но на практике, выходит так, что я не могу найти где мне его передаёт сервер.