Jump to content

Temp Internet File delete


jellyfish
 Share

Recommended Posts

maybe...

Run('control inetcpl.cpl',"", @SW_HIDE)
WinWait('Internet Properties')
WinSetState('Internet Properties', '', @SW_HIDE)

Sleep(2000)
Exit

WinWait('Internet Properties')
ControlClick('Internet Properties', '', 'Button6')

WinWait('Delete Cookies')
ControlClick('Delete Cookies', '', 'Button1')

If Not WinWaitActive('Internet Properties') Then WinActivate('Internet Properties')
ControlClick('Internet Properties', '', 'Button7')

WinWait('Delete Files')
ControlClick('Delete Files', '', 'Button2')

If Not WinWaitActive('Internet Properties') Then WinActivate('Internet Properties')
ControlClick('Internet Properties', '', 'Button10')

WinWait('Internet Options')
ControlClick('Internet Options', '', 'Button1')

WinWait('Internet Properties')
ControlClick('Internet Properties', '', 'Button15')

YOU NEED to remove the exit

8)

NEWHeader1.png

Link to comment
Share on other sites

#include <GUIConstants.au3>
#include <IE.au3>
Opt("OnExitFunc","Run")
Run('control inetcpl.cpl',"", @SW_HIDE)
WinWait('Internet Properties')
WinSetState('Internet Properties', '', @SW_HIDE)

Sleep(2000)


WinWait('Internet Properties')
ControlClick('Internet Properties', '', 'Button6')

WinWait('Delete Cookies')
ControlClick('Delete Cookies', '', 'Button1')

If Not WinWaitActive('Internet Properties') Then WinActivate('Internet Properties')
ControlClick('Internet Properties', '', 'Button7')

WinWait('Delete Files')
ControlClick('Delete Files', '', 'Button2')

If Not WinWaitActive('Internet Properties') Then WinActivate('Internet Properties')
ControlClick('Internet Properties', '', 'Button10')

WinWait('Internet Options')
ControlClick('Internet Options', '', 'Button1')

WinWait('Internet Properties')
ControlClick('Internet Properties', '', 'Button15')



#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Torrent Search V1.0", 405, 301, 336, 171)
$Label1 = GUICtrlCreateLabel("Enter Search Here", 0, 24, 92, 20)
$Torrent = GUICtrlCreateInput("", 105, 24, 287, 21)
GUICtrlSetState(-1, $GUI_ACCEPTFILES)
$Button1 = GUICtrlCreateButton("Torrentspy", 32, 96, 115, 25, 0)
$Button2 = GUICtrlCreateButton("Btjunkie", 32, 176, 115, 25, 0)
$Button3 = GUICtrlCreateButton("Isohunt", 32, 136, 115, 25, 0)
$Button4 = GUICtrlCreateButton("Bush Torrents", 32, 216, 115, 25, 0)
$Button5 = GUICtrlCreateButton("Torrentz", 256, 96, 115, 25, 0)
$Button6 = GUICtrlCreateButton("The Pirate Bay", 256, 136, 115, 25, 0)
$Button7 = GUICtrlCreateButton("Mininova", 256, 176, 115, 25, 0)
$Button8 = GUICtrlCreateButton("MyBittorrent", 256, 216, 115, 25, 0)
$Label2 = GUICtrlCreateLabel("Click on the websites button you would like to search", 40, 64, 312, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    Case $Button1
    _IECreate ("http://torrentspy.com/search?query="&GUICtrlRead($Torrent)&"&submit.x=29&submit.y=8")
    Case $Button2
    _IECreate ("http://www.btjunkie.org/search?q="&GUICtrlRead($Torrent))
    Case $Button3
    _IECreate ("http://www.isohunt.com/torrents/?ihq="&GUICtrlRead($Torrent))
    Case $Button4
    _IECreate ("http://www.bushtorrent.com/torrents.php?search=&words="&GUICtrlRead($Torrent))
    Case $Button5
    _IECreate ("http://www.torrentz.com/search_"&GUICtrlRead($Torrent))
    Case $Button6
    _IECreate ("http://www.thepiratebay.org/search.php?q="&GUICtrlRead($Torrent))
    Case $Button7
    _IECreate ("http://www.mininova.org/search/?search="&GUICtrlRead($Torrent))
    Case $Button8
    _IECreate ("http://www.mybittorrent.com/?keywords="&GUICtrlRead($Torrent))
    EndSwitch
WEnd

Link to comment
Share on other sites

RegWrite ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\VolumeCaches\Internet Cache Files", "StateFlags0909", "REG_DWORD", "2")
RegWrite ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\VolumeCaches\Temporary Files", "StateFlags0909", "REG_DWORD", "2")
RegWrite ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\VolumeCaches\Temporary Offline Files", "StateFlags0909", "REG_DWORD", "2")
$nydat = regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\VolumeCaches\Compress old files", "")
$nydata = "temp_"&$nydat
RegWrite ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\VolumeCaches\Compress old files", "", "REG_SZ", $nydata)
sleep (1000)

runwait ("cleanmgr.exe /sagerun:909")

RegWrite ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\VolumeCaches\Compress old files", "", "REG_SZ", $nydat)

Uses Windows discclean ...

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...