Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   удалить cookie (https://forum.antichat.xyz/showthread.php?t=58904)

elsuk 16.01.2008 22:30
удалить cookie
 
как програмно можно удалить куки IE?
копался в MSDN нашел только функцию по изменению значений
есть ли функции чтобы удалить куки, а не тупо удалять файлы в папке Cookies?

Soviet[HZ] 16.01.2008 23:45
ЛОЛ

Cервис>Свойства обозревателя>ОГРОМНАЯ КНОПКА "Удалить Сookie"

p.S>Внимательнее будь )

Macro 16.01.2008 23:47
А какая разница между удалением куков и удалением файлов кук из папки? ИМХО одно и тоже

elsuk 17.01.2008 00:26
to Soviet[HZ] Внимательнее читай!!! написал же програмно удалить а не тыкая по кнопкам и менюшкам
to Macro я спрашивал можеть более простой способ может есть одна функция по удалению или команда те послать например IE SendMessage

Soviet[HZ] 17.01.2008 00:44
В моём понимании удалить програмно, это удалить с использованием программ. Раз уж на то пошло, то понятнее выражайся)

elsuk 17.01.2008 00:48
мда в разделе КОДИНГ спрашивают и отвечают про кодинг но никак ни про программы

Jes 17.01.2008 00:54
програмно имхо при помощи написания алгоритма программы ...elsuk, все правильно

Soviet[HZ] 17.01.2008 01:11
Всё давно реализовано.

forum.sources.ru/index.php?showtopic=209828

p.S>4 ответ гугла по данному запросу.

elsuk 17.01.2008 11:53
все понятно, вообщем нет альтернативы

p.s. Soviet[HZ] опять не внимательно прочитал 1 пост

Ci5 17.01.2008 13:23
Код на Delphi.

Код:
var
        DirInfo: TSearchRec;
        r,z,c: integer;
begin
        r := FindFirst('X:\Documents and Settings\XXX\Cookies\*.*', FaAnyfile, DirInfo);
        while r = 0 do
        begin
                if ((DirInfo.Attr and FaDirectory <> FaDirectory) and
                        (DirInfo.Attr and FaVolumeId <> FaVolumeID)) then
                if DeleteFile(pChar('X:\Documents and Settings\XXX\Cookies\' + DirInfo.Name))= false then
                        z:=0;
                        r := FindNext(DirInfo);
        end;
        SysUtils.FindClose(DirInfo);
        application.Terminate;

end;


Время: 12:46