Что нового

[IE] Удалить куки всех сайтов, кроме одного

iwak

Новичок
Сообщения
28
Репутация
0
Здравствуйте. Возможно ли удалить куки всех сайтов, кроме одного? (или нескольких).

Удалить куки в IE, используя Autoit.

Нашел на этом форуме примерно такой код:

Код:
#include <File.au3>

$sdir = 'C:\Users\win7\AppData\Local\Microsoft\Windows\Temporary Internet Files'
$aFiles = _FileListToArray($sDir, '*.*', 1)
If @error Then Exit

For $i = 1 To $aFiles[0]
If Not StringInStr($aFiles[$i], 'google') Then
FileDelete($sDir & $aFiles[$i])
ConsoleWrite($aFiles[$i] & @LF)
EndIf
Next



Но он не хочет работать с этой папкой "Temporary Internet Files". С другими папками работает нормально (удаляет все текстовые файлы, кроме google).
 

alex33

Скриптер
Сообщения
1,457
Репутация
186
cmd
Код:
rundll32.exe InetCpl.cpl,ClearMyTracksByProcess 2
 

firex

AutoIT Гуру
Сообщения
943
Репутация
208
alex33
Вы ТЗ читали?

iwak
Куки находятся вот тут:
Код:
@UserProfileDir & "\AppData\Roaming\Microsoft\Windows\Cookies"  "\Low"
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
firex [?]
Куки находятся вот тут:
А у меня вот тут. :smile:
Код:
Local $a_Res, $CSIDL = 0x1021;BitOR($CSIDL_COOKIES, $CSIDL_FLAG_NO_ALIAS), $CSIDL_COOKIES = 0x0021, $CSIDL_FLAG_NO_ALIAS = 0x1000

$a_Res = DllCall('shell32.dll', 'int', 'SHGetFolderPathW', 'hwnd', 0, 'int', $CSIDL, 'ptr', 0, 'dword', 0x0000, 'wstr', '')
If (@error) Or ($a_Res[0]) Then Exit 13
ConsoleWrite($a_Res[5] & @LF)
 
Автор
I

iwak

Новичок
Сообщения
28
Репутация
0
Хм, куки действительно находятся по указанным путям. Спасибо.
Попробую их поковырять, посмотрим что выйдет.
Но что же тогда находится здесь - не понятно (ярлыки?):

bIOVJqN.jpg
 
Верх