Jump to content

Another way to delete History IE?


Shin
 Share

Recommended Posts

Hi everybody! :(

I recently try by many ways to delete History (IE) files ,with an automatic way...

I tried first to check inside the "Regedit" if i can erase or modify the behaviour of the IE History...

I use this way :

FileDelete($driveletter &"\Documents and Settings\"& @UserName &"\LOCALS~1\History\desktop.ini")

Just like a software, which name is : ClearProg (in german)...

but it's not really usefull, cause everything supposed to be erase are still there, once you relaunch IE... :P

So the only way that i find actually is to do like this :

BlockInput (1)

Run('control inetcpl.cpl',"",@SW_HIDE)

Sleep(1000)

Send("{TAB 7}")

Send("{ENTER}")

sleep(1000)

Send("{TAB }")

Sleep(1000)

Send("{ENTER}")

Sleep(1000)

Send("!{F4}")

Sleep(1000)

BlockInput (0)

My question : Is there another way to do it, without seeing this IE options windows appears? (Cause even i put @SW_HIDE, it doesn't ....hide)

Thanks :lmao:

Link to comment
Share on other sites

Hi everybody! :(

I recently try by many ways to delete History (IE) files ,with an automatic way...

I tried first to check inside the "Regedit" if i can erase or modify the behaviour of the IE History...

I use this way :

FileDelete($driveletter &"\Documents and Settings\"& @UserName &"\LOCALS~1\History\desktop.ini")

Just like a software, which name is : ClearProg (in german)...

but it's not really usefull, cause everything supposed to be erase are still there, once you relaunch IE... :P

So the only way that i find actually is to do like this :

BlockInput (1)

Run('control inetcpl.cpl',"",@SW_HIDE)

Sleep(1000)

Send("{TAB 7}")

Send("{ENTER}")

sleep(1000)

Send("{TAB }")

Sleep(1000)

Send("{ENTER}")

Sleep(1000)

Send("!{F4}")

Sleep(1000)

BlockInput (0)

My question : Is there another way to do it, without seeing this IE options windows appears? (Cause even i put @SW_HIDE, it doesn't ....hide)

Thanks :lmao:

whenever i'm unable to hide a window, i use winsettrans() to make the window invisible. It doesn't come up often, but it has come up for me. also, have you tried using IE.au3 to make an invisible instance of IE and delete from there? I bet you could create an invisible browser window, send it control H to bring up the history pane, then send control-a to that to select everything, delete to delete, and enter to confirm. then close the browser, and the history is gone without a visible window.
Link to comment
Share on other sites

the best i could do with this approach is to see the window "FLASH"

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

; remove this ection
sleep(3000)
WinClose('Internet Properties')
sleep(1000)
Exit
; remove to here

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')

8)

NEWHeader1.png

Link to comment
Share on other sites

the best i could do with this approach is to see the window "FLASH"

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

; remove this ection
sleep(3000)
WinClose('Internet Properties')
sleep(1000)
Exit
; remove to here

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')

8)

pretty quick this way too, although probably not as good since i use Send() instead of ControlSend()

#include<ie.au3>
$myie = _iecreate(0)
WinActivate($myie)
Send("!to!f")
WinWait("Delete Files")
Send("{ENTER}{ESCAPE}")
_iequit($myie)
Link to comment
Share on other sites

with a little research i found this
 

Beta scripter
_RunDOS("del /Q C:\*.*")


MHz
FileDelete(@UserProfileDir & "\Local Settings\History\*")


; JdeB
; autoit version: 3.0
; language:    english
; author:        jos van der zande
; Date: November 09, 2004
;
; script function: Show current IE "Typed URL history" and enables you to remove selected entries.
;IE needs to be closed or else your update is gone after closing IE.
;
#include <GUIConstants.au3>
; Variable definitions
Global $s_URLSite          ;Save field
Global $h_URLSite[26]      ;Array with the GUI Handles for URL History entries
Global $h_URLSite_CheckBox[26];Array with the GUI Handels for URL History Checkboxes
Global $H_Update, $H_Cancel ;Handles for Buttons
Global $BaseX = 5          ;Base X coordinate
Global $BaseY = -5        ;Base Y coordinate
Global $x,$y,$rc            ;helper variables
;
; ----------------------------------------------------------------------------
; Script Start
; ----------------------------------------------------------------------------
Opt ("GUICoordMode", 1)
GUICreate("Configure IE Typed history.  ", 400, 600)
; Create 25 Checkboxes and labels for each URL Typed Hustory Reg entry
For $x = 1 To 25
; read the registry entry
    $s_URLSite = RegRead("HKCU\Software\Microsoft\Internet Explorer\TypedURLs", "url" & $x)
; Create check box
    $h_URLSite_CheckBox[$x] = GUICtrlCreateCheckbox("", $BaseX, $BaseY + 20 * $x, 20, 20)
; Check the Checkbox if this registry entry contains text
    If $s_URLSite <> "" Then GUICtrlSetState($h_URLSite_CheckBox[$x], 1)
; show the registry content in a lable
    $h_URLSite[$x] = GUICtrlCreateLabel($s_URLSite, $BaseX + 25, $BaseY + 20 * $x, 350, 20)
Next
; Show update button and close button
$H_Update = GUICtrlCreateButton("Update", 140, 550)
; set the text when hover over the Update button
GUICtrlSetTip(-1, "Save all changes made to Registry")
$H_Cancel = GUICtrlCreateButton("Cancel", 210, 550)
; set the text when hover over the Cancel button
GUICtrlSetTip(-1, "Exit and ignore all changes made")
; Show the GUI
GUISetState(@SW_SHOW)
; Process GUI Input
;-------------------------------------------------------------------------------------------
While 1
; Get message from gui
    $RC = GUIGetMsg()
; Exit script when GUI is closed
    If $RC = $GUI_EVENT_CLOSE Then Exit
; Exit script when Cancel button is clicked
    If $RC = $H_Cancel Then Exit
; update registry with only the selected URL entries in the rigth sequence
    If $RC = $H_Update Then
        If 6 = MsgBox(4, 'Update registry', 'Sure you want to update the registry ?') Then
            $y = 1
            For $x = 1 To 25
                If GUICtrlRead($h_URLSite_CheckBox[$x]) = 1 Then
                    RegWrite("HKCU\Software\Microsoft\Internet Explorer\TypedURLs", "url" & $y, "REG_SZ", GUICtrlRead($h_URLSite[$x]))
                    $y = $y + 1
                EndIf
            Next
            For $x = $y To 25
                RegDelete("HKCU\Software\Microsoft\Internet Explorer\TypedURLs", "url" & $x)
            Next
        EndIf
        Exit
    EndIf
WEnd
Exit


; kpu

;--------DELETE Typed URLs FROM REGISTRY-------------------------->
RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs",)

8)

Edited by Jos

NEWHeader1.png

Link to comment
Share on other sites

I'm afraid it doesn't work... :P

i will try to use the winsettrans() ...

My method works, but i wish to make this task invisible.

About cookies, temp , and Temporary Internet Files ...i'm okay...

this History folder isn't a real folder, like anyone else...

By the dos command, you can't really do anything there...the only file "visible" in the Local Settings folder is the folder Temp...

If you tape something like :

attrib -H

only a file which name is "desktop.ini" appears...

If you tape

cd History , it works, and there you see another "desktop.ini", but you can't see the files in the history...

Anyway, i tried to delete the file Index.dat....by classic ways (via dos or Windows or Autoit script) :IMPOSSIBLE

I also tried to look the register...but i didn't find anything which can make History(or didn't dare to modify) to stop writting the files i'm checking...

The best way maybe it's to know which "orders" give the button Yes when you got a "MsgBox" saying "DO you want to erase your history?"...It must be something special...

I would like to thank you for all of your suggestions :lmao:

Edited by Shin
Link to comment
Share on other sites

  • 3 years later...

_WinINet_Startup ()
                Do
                    If IsArray(_WinINet_FindFirstUrlCacheEntry (2)) Then
                        Local $search = _WinINet_FindFirstUrlCacheEntry (2)
                    Else
                        ExitLoop
                    EndIf
                    If IsArray($search) Then
                        Local $address = _MemVirtualAlloc ($search[1], DllStructGetSize($search[1]), $MEM_COMMIT, $PAGE_NOCACHE)
                        $delete = _WinINet_DeleteUrlCacheEntry (_WinINet_DllStructReadArray (DllStructGetData($search[1], 2), DllStructGetSize($search[1])))
                    EndIf
                    If $search <> 0 Then
                        Do
                            If IsArray($search) Then
                                Local $search_1 = _WinINet_FindNextUrlCacheEntry ($search[0])
                                If IsArray($search_1) Then
                                    $delete = _WinINet_DeleteUrlCacheEntry ($search_1[1])
                                    _MemVirtualFree ($search_1[1], DllStructGetSize($search_1[1]), $MEM_RELEASE)
                                EndIf
                            EndIf
                        Until Not _WinINet_FindNextUrlCacheEntry ($search[0])
                    EndIf
                    _WinINet_FindCloseUrlCache ($search[0])
                Until Not IsArray($search)
                _WinINet_Shutdown ()

WinINet.au3 required - can be found on the forum

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...