Вверх ↑
Ответов: 893
Рейтинг: 18
#1: 2010-11-19 00:28:54 ЛС | профиль | цитата
Ivann писал(а):
Научил

Огромное спасибо , ато приходилось всё задним числом удалять куки.
------------ Дoбавленo в 00.59:

Ivann писал(а):
Научил
возникли определённые сложности при использовании
1. после трёх нажатий Clear программа высыпается в хлам.
2. не на всех сайтах удаляет куки , особенно если на сайте жава скрипт.


Ivann,Нашол интересную инфо. по поводу удаления куков.
http://vvy.me/12-delphi-ochishhaem-cookies-v-twebbrowser.html
Как пишет автор

Второй метод очистки cookies использует функции управления кэшем IE и работает без рестарта приложения.

procedure EmptyIECache;
Var
lpEntryInfo : PInternetCacheEntryInfo;
hCacheDir : LongWord;
dwEntrySize : LongWord;
dwLastError : LongWord;
Begin
dwEntrySize := 0;
FindFirstUrlCacheEntry( NIL, TInternetCacheEntryInfo( NIL^ ), dwEntrySize );
GetMem( lpEntryInfo, dwEntrySize );
hCacheDir := FindFirstUrlCacheEntry( NIL, lpEntryInfo^, dwEntrySize );
If ( hCacheDir <> 0 ) Then
DeleteUrlCacheEntry( lpEntryInfo^.lpszSourceUrlName );
FreeMem( lpEntryInfo );
Repeat
dwEntrySize := 0;
FindNextUrlCacheEntry( hCacheDir, TInternetCacheEntryInfo( NIL^ ), dwEntrySize );
dwLastError := GetLastError();
If ( GetLastError = ERROR_INSUFFICIENT_BUFFER ) Then Begin
GetMem( lpEntryInfo, dwEntrySize );
If ( FindNextUrlCacheEntry( hCacheDir, lpEntryInfo^, dwEntrySize ) ) Then
DeleteUrlCacheEntry( lpEntryInfo^.lpszSourceUrlName );
FreeMem(lpEntryInfo);
End;
Until ( dwLastError = ERROR_NO_MORE_ITEMS );
End;


Стоит отметить, что первый параметр FindFirstUrlCacheEntry и FindNextUrlCacheEntry принимает три значения (первые два пишутся именно с двоеточием):

* cookie: – поиск только cookie,
* visited: – поиск сохраненных копий страниц,
* NULL – поиск и того и другого.


Я выбираю именно третье значение, что б убить все следы наверняка, ведь вот такой код на сайте сайт1.ру

<script src="http://сайт2.ру/script.js"></script>


Позволит нам поймать cookie не только с сайта сайт1.ру, но и с сайта сайт2.ру, что естественно может привести к нежелательным последствием.


Вот только я сам не смог запихнуть ето в IC

Кто поможет ?
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0