Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Как програмно удалить IE Cookes и сохраненные пароли?   Найти похожие ветки 

 
@!!ex ©   (2010-04-25 09:10) [0]

Нашел вот это:

procedure DeleteUserCookies;
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) AND (lpEntryInfo^.CacheEntryType = (lpEntryInfo^.CacheEntryType OR COOKIE_CACHE_ENTRY)) 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
       begin
       if lpEntryInfo^.CacheEntryType = (lpEntryInfo^.CacheEntryType OR COOKIE_CACHE_ENTRY) then
         DeleteUrlCacheEntry(lpEntryInfo^.lpszSourceUrlName);
       end;
     FreeMem(lpEntryInfo);
   end;
 until (dwLastError = ERROR_NO_MORE_ITEMS);
end;


Но оно же кэш чистит,  ане куки!
Да и пароли остаются...


 
@!!ex ©   (2010-04-25 09:12) [1]

Есть еще такой вариант:
function DeleteUserCookies: Boolean;
var
UserProfileDirectory: ShortString;
SR: TSearchRec;
i:integer;
begin
 i:=0;
Byte(UserProfileDirectory[0]):=GetEnvironmentVariable("USERPROFILE",PChar(@UserP rofileDirectory[1]), 255);

if FindFirst(UserProfileDirectory + "\Cookies\*.txt", faAnyFile, SR) = 0 then
 begin
 repeat
   if (SR.Attr <> faDirectory) then begin
     DeleteFile(PChar(UserProfileDirectory + "\Cookies\" + SR.Name));
     inc(i);
   end;
 until FindNext(SR) <> 0;
 FindClose(SR);
 result:=true;
 end
else result:=false;
end;


Но на висте он ничего не удаляет. Прав не хватает?


 
Игорь Шевченко ©   (2010-04-25 12:47) [2]

для сохраненных паролей есть такой инструмент - protected storage explorer.
Он же чистит.

Кстати, советую погуглить по слову pasco


 
@!!ex ©   (2010-04-25 13:23) [3]

> [2] Игорь Шевченко ©   (25.04.10 12:47)
> protected storage explorer

Его надо ручками запускать. Не годится. Тоже самое про pasco.
Надоть чтобы пользователь кликал на кнопку, и чистилась вся инфа IE, будто с него никогда никуда не лазили.
Желательно чтобы это происходило под правами пользователя и прога не требовала прав админа.


 
Игорь Шевченко ©   (2010-04-25 14:14) [4]

@!!ex ©   (25.04.10 13:23) [3]

pasco с исходниками.

механизм доступа к protected storage тоже документирован.


> Надоть чтобы пользователь кликал на кнопку, и чистилась
> вся инфа IE, будто с него никогда никуда не лазили.


в IE8 вроде есть такой механизм. А раз есть механизм, значит, есть интерфейс.



Страницы: 1 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.063 c
2-1271962588
Сергей
2010-04-22 22:56
2010.08.27
Замена и уберине лишнего (Делфи)


3-1238243754
Ivan8511
2009-03-28 15:35
2010.08.27
Индексация даты в обратном порядке


2-1268377125
Oleksiy
2010-03-12 09:58
2010.08.27
Размер Шрифта


3-1238361532
TheEd
2009-03-30 01:18
2010.08.27
как "вытянуть" описаниея полей в DisplayLabel


15-1266769968
TUser
2010-02-21 19:32
2010.08.27
Суворов о деле Пеньковского





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский