AutoHotkey Community

#SingleInstance Force
#Persistent
#NoTrayIcon
#NoEnv
SetBatchLines, -1
Total_Cnt = 0
File_Cnt = 0
ToolTip
Gui, +AlwaysOnTop +ToolWindow
Gui, Color, Black
Gui, Font, s10 Bold
Gui, Add, Text, x19 y32 cLime, Searching for Temporary Internet Files
Gui, Show, w307 h85, Deleting IE Cache
SetWorkingDir, %A_Temp%   
GoSub, Get_Cnt
SetWorkingDir, C:\Documents and Settings\%A_UserName%\Cookies
GoSub, Get_Cnt
SetWorkingDir, C:\Documents and Settings\%A_UserName%\Local Settings\History
GoSub, Get_Cnt
SetWorkingDir, C:\Documents and Settings\%A_UserName%\Local Settings\Temporary Internet Files
GoSub, Get_Cnt
GuiControl, Hide, Static1
Gui, Add, Progress, x10 y45 w286 h20 Range0-%Total_Cnt% cLime
Gui, Add, Text, x10 y15 w75 cLime, Deleting  -
Gui, Add, Text, x90 y15 w205 cLime,
SetWorkingDir, %A_Temp%
Gosub, Loop
SetWorkingDir, C:\Documents and Settings\%A_UserName%\Cookies
Gosub, Loop
SetWorkingDir, C:\Documents and Settings\%A_UserName%\Local Settings\History
Gosub, Loop
SetWorkingDir, C:\Documents and Settings\%A_UserName%\Local Settings\Temporary Internet Files
Gosub, Loop
StringLen, String_Length, File_Cnt
If String_Length = 7
   X_Cord = 51
If String_Length = 6
   X_Cord = 55
If String_Length = 5
   X_Cord = 59
If String_Length = 4
   X_Cord = 63
If String_Length = 3
   X_Cord = 67
If String_Length = 2
   X_Cord = 71
If String_Length = 1
   X_Cord = 74
GuiControl, Hide, msctls_progress321
GuiControl, Hide, Static2
GuiControl, Hide, Static3
Gui, Font, s11 Bold
Gui, Add, Text, x0 y19 w350 cLime, All Internet Explorer cache has been deleted.
Gui, Add, Text, x%X_Cord% y50 cLime, Total Files Deleted = %File_Cnt%
Gui, Show, w307 h85, IE Cache Deleted
Return
GuiClose:
ExitApp
Get_Cnt:
If ErrorLevel = 1
   Goto, Skip_Get_Cnt
Loop, *.*, 1, 1
   Cnt = %A_Index%
If Cnt =
   Cnt = 0
Total_Cnt := Total_Cnt + Cnt
Skip_Get_Cnt:
ErrorLevel = 0
Return
Loop:
If ErrorLevel = 1
   Goto, Skip_Loop
Loop, *.*, 1, 1
{
   Progress_Cnt = 1
   FileDelete, %A_LoopFileFullPath%
   If ErrorLevel = 1
      Progress_Cnt = 2
   If ErrorLevel = 0
      File_Cnt++
   GuiControl, , Static3, %A_LoopFileName%
   GuiControl, , msctls_progress321, +%Progress_Cnt%   
}
Loop, *.*, 2, 1
{
   Progress_Cnt = 1
   FileRemoveDir, %A_LoopFileFullPath%, 1
   If ErrorLevel = 0
      File_Cnt++   
   GuiControl, , Static3, %A_LoopFileName%
   GuiControl, , msctls_progress321, +%Progress_Cnt%
}
Skip_Loop:
ErrorLevel = 0
Return

ClearWebHistory(pCommand) {
   ValidCmdList    = Files,Cookies,History,Forms,Passwords,All,All2
   Files          = 8 ; Clear Temporary Internet Files
   Cookies       = 2 ; Clear Cookies
   History       = 1 ; Clear History
   Forms          = 16 ; Clear Form Data
   Passwords       = 32 ; Clear Passwords
   All          = 255 ; Clear all
   All2          = 4351 ; Clear All and Also delete files and settings stored by add-ons
   If pCommand in %ValidCmdList%
      DllCall("InetCpl.cpl\ClearMyTracksByProcess", uint, %pCommand%)
   Else
      MsgBox Invalid Command -%pCommand%-`nValid commands are`n%ValidCmdList%
   }