Historique des connexions internet

LABEL Fin, Dbl, Histor, Suph, Supcook
DIM fh$,fb$,fm$,rc$,nf%,nt%,nr%,i%,k%,a$,n$,t$,d$,l$,s$,e$
DIM rtmp$
rtmp$ = "C:\TEMP": ' répertoire des fichiers de manoeuvre <========= À AJUSTER !
fh$ = rtmp$+"ipcfg.txt": ' fichier de manoeuvre
fb$ = rtmp$+"Supcook.bat": ' fichier de manoeuvre
rc$ = "C:\Users\%USERNAME%\AppData\Local\Mozilla\Firefox\Profiles": ' répertoire cookies
fm$ = rtmp$+"Liscook.txt": ' temporaire
' Liste des cookies: nb de fichiers, taille totale, nb de répertoires
EXECUTE_WAIT "cmd.exe|/c dir /s "+rc$+"\*.* >"+fm$
DLIST 1: FILE_LOAD 1,fm$: FILE_DELETE fm$
IF COUNT(1) > 2
  FOR i% = COUNT(1)-5 TO COUNT(1)
    IF INSTR(ITEM_READ$(1,i%),"Total des fichiers") > 0
        a$ = LTRIM$(ITEM_READ$(1,i%+1)): k% = INSTR(a$," fichier(s)")
        nf% = VAL(LEFT$(a$,k%-1)): a$ = LTRIM$(RIGHT_POS$(a$,k%+11))
        k% = INSTR(a$," octets"): a$ = LEFT$(a$,k%-1)
        k% = INSTR(a$," "): IF k% = 0 THEN k% = INSTR(a$,CHR$(255))
        WHILE k%>0
            a$ = LEFT$(a$,k%-1)+RIGHT_POS$(a$,k%+1)
            k% = INSTR(a$," "): IF k% = 0 THEN k% = INSTR(a$,CHR$(255))
        END_WHILE
        nt% = VAL(a$): ' taille totale des fichiers cookies
        a$ = LTRIM$(ITEM_READ$(1,i%+2)): k% = INSTR(a$," R")
        IF k% > 0 THEN nr% = VAL(LEFT$(a$,k%-1)): ' nombre de répertoires
        EXIT_FOR
    END_IF
  NEXT i%
END_IF
DELETE 1

' Suppression des cookies sur différents navigateurs, voir:
'      http://www.catonmat.net/blog/clear-privacy-ie-firefox-opera-chrome-safari/
DATA "@echo off"
DATA "set DataDir=C:\Users\%USERNAME%\AppData\Local\Mozilla\Firefox\Profiles"
DATA "del /q /s /f "+CHR$(34)+"%DataDir%"+CHR$(34)+"
DATA "rd /s /q "+CHR$(34)+"%DataDir%"+CHR$(34)+"
DATA "for /d %%x in (C:\Users\%USERNAME%\AppData\Roaming\Mozilla\Firefox\Profiles\*) do del /q /s /f %%x\*sqlite"
DATA "F"
IF FILE_EXISTS(fb$) = 1 THEN FILE_DELETE fb$
FILE_OPEN_WRITE 1,fb$
    READ a$: WHILE a$<>"F": FILE_WRITELN 1,a$: READ a$: END_WHILE
FILE_CLOSE 1

WIDTH 0,700: HEIGHT 0,500: BORDER_SMALL 0
CAPTION 0," -   IPCONFIG :   HISTORIQUE   DES   CONNEXIONS   INTERNET   -"
COLOR 0,180,255,255: ON_CLOSE 0,Fin
ALPHA 5: LEFT 5,10
ALPHA 6: LEFT 6,WIDTH(0)-420
FOR i% = 5 TO 6: FONT_SIZE i%,11: FONT_BOLD i%: COLOR i%,255,255,0: NEXT i%
MEMO 10: WIDTH 10,600: HIDE 10
LIST 20: TOP 20,20: WIDTH 20,WIDTH(0)-16: HEIGHT 20,HEIGHT(0)-90
COLOR 20,255,255,200: FONT_NAME 20,"Lucida Console": FONT_SIZE 20,10
BUTTON 30: TOP 30,HEIGHT(0)-65: LEFT 30,100: WIDTH 30,200: FONT_BOLD 30
CAPTION 30,"Supprimer tout l'historique": ON_CLICK 30,Suph
BUTTON 40: TOP 40,TOP(30): LEFT 40,350: WIDTH 40,200: FONT_BOLD 40
CAPTION 40,"Supprimer tous les cookies": ON_CLICK 40,Supcook
CAPTION 6," Cookies: "+STR$(nf%)+" fichiers, "+STR$(nt%)+" octets, "+STR$(nr%)+" répertoires. "

GOSUB Histor
CAPTION 5," "+STR$(COUNT(20)-2)+" connexions archivées. "
End
' ==============================================================================
Fin:
IF FILE_EXISTS(fh$) = 1 THEN FILE_DELETE fh$
IF FILE_EXISTS(fb$) = 1 THEN FILE_DELETE fb$
IF FILE_EXISTS(fm$) = 1 THEN FILE_DELETE fm$
TERMINATE
' ==============================================================================
Histor:
' Affichage des connexions archivées
EXECUTE_WAIT "cmd.exe|/c C:\Windows\System32\ipconfig.exe /displaydns >"+fh$
CLEAR 10: FILE_LOAD 10,fh$
CLEAR 20
a$ = "NOM D'ENREGISTREMENT"+STRING$(20," ")+" TYPE  DURÉE  LGR  SECTION   ENREG."
ITEM_ADD 20,a$
a$ = "===================="+STRING$(20," ")+" ====  =====  ===  =======  ========="
ITEM_ADD 20,a$
i% = 1
Dbl:
a$ = ITEM_READ$(10,i%)
WHILE LEFT$(a$,10)<>"    Nom d'"
    i% = i%+1: IF i%>=COUNT(10) THEN RETURN
    a$ = ITEM_READ$(10,i%)
END_WHILE
n$ = RIGHT_POS$(a$,29)
i%=i%+1: a$ = ITEM_READ$(10,i%): t$ = RIGHT_POS$(a$,29)
i%=i%+1: a$ = ITEM_READ$(10,i%): d$ = RIGHT_POS$(a$,29)
i%=i%+1: a$ = ITEM_READ$(10,i%): l$ = RIGHT_POS$(a$,29)
i%=i%+1: a$ = ITEM_READ$(10,i%): s$ = RIGHT_POS$(a$,29)
i%=i%+1: a$ = ITEM_READ$(10,i%): e$ = RIGHT_POS$(a$,29)
IF s$ = "R‚ponse" THEN s$ = "Réponse"
IF LEN(n$)>39 THEN n$ = LEFT$(n$,39)
a$ = n$+STRING$(40-LEN(n$)," ")
a$ = a$+STRING$(4-LEN(t$)," ")+t$
a$ = a$+STRING$(8-LEN(d$)," ")+d$
a$ = a$+STRING$(4-LEN(l$)," ")+l$
a$ = a$+STRING$(10-LEN(s$)," ")+s$
a$ = a$+"  "+e$
ITEM_ADD 20,a$
i%=i%+1
GOTO Dbl
RETURN
' ==============================================================================
Suph:
' Suppression de l'historique
EXECUTE_WAIT "cmd.exe|/c C:\Windows\System32\ipconfig.exe /flushdns >"+fh$
GOSUB Histor: ' voir le résultat
RETURN
' ==============================================================================
Supcook:
' Suppression des cookies
EXECUTE_WAIT "cmd.exe|/c " + fb$
RETURN
' ==============================================================================

rc$ = "C:\Users\%USERNAME%\AppData\Local\Mozilla\Firefox\Profiles": ' répertoire cookies
fm$ = rtmp$+"Liscook.txt": ' temporaire
' Liste des cookies: nb de fichiers, taille totale, nb de répertoires
EXECUTE_WAIT "cmd.exe|/c dir /s "+rc$+"\*.* >"+fm$