Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2010.08.27;
Скачать: [xml.tar.bz2];

Вниз

Как програмно удалить 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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.064 c
2-1267552320
HRustBB
2010-03-02 20:52
2010.08.27
Виртуальный диск с источником FTP


15-1270794656
Den
2010-04-09 10:30
2010.08.27
Тип дистрибутива


2-1268626597
NBAH1990
2010-03-15 07:16
2010.08.27
Как сделать исчезающую панель?


11-1216289923
BMouradov
2008-07-17 14:18
2010.08.27
потеря фокуса формы


2-1270902318
User
2010-04-10 16:25
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский