GESTION DES COOKIES

Private Sub aide1_Click()
AIDE_LOG.Show
End Sub

Private Sub BOUTON_EFF_Click()
On Error GoTo erreur:
 test = MsgBox("Etes-vous sûr de vouloir effacer le cookie " + FICHIER_SELECT + " définitivement ?", vbExclamation + vbYesNo, "Effacer un cookie...")
 If (test = 6) Then
  NBRE_FICHIERS_TOTAL = Formulaire.FICHIERS_EFFACER.ListCount
  For t = 0 To NBRE_FICHIERS_TOTAL
   FICHIERS_EFFACER = Formulaire.FICHIERS_EFFACER.List(t)
    On Error GoTo 0
    On Error Resume Next
  Kill ("C:\WINDOWS\Cookies\" + FICHIERS_EFFACER)
  Next t
   Formulaire.AFFICHAGE_NOM = ""
  Formulaire.FICHIERS.Refresh
  Formulaire.TEXTE_FICHIER = ""
  Formulaire.FICHIERS_EFFACER.Clear
  Else
  End If
  Exit Sub
'Gestion d'erreur
erreur:
   MsgBox Msg, , "Erreur", Err.HelpFile, Err.HelpContext
End Sub

Private Sub EFFACER_LISTE_Click()
 Formulaire.FICHIERS_EFFACER.Clear
End Sub

Private Sub FICHIERS_Click()
 Dim FICHIER_SELECT, CHEMIN_COMPLET
 chemin = "C:\WINDOWS\Cookies\"
 num_fichier = Formulaire.FICHIERS.ListIndex
 FICHIER_SELECT = FICHIERS.List(FICHIERS.ListIndex)
 Formulaire.AFFICHAGE_NOM = FICHIER_SELECT
 CHEMIN_COMPLET = chemin + FICHIER_SELECT
 Open CHEMIN_COMPLET For Input As #1
 separateur = Chr(10)
 Do While Not EOF(1)
  Input #1, donnees
   Formulaire.TEXTE_FICHIER = donnees
Loop
 Close #1
End Sub

Private Sub FICHIERS_DblClick()
 chemin_eff = "C:\WINDOWS\Cookies\"
 num_fichier_eff = Formulaire.FICHIERS.ListIndex
 FICHIER_SELECT_EFF = FICHIERS.List(FICHIERS.ListIndex)
 Formulaire.FICHIERS_EFFACER.AddItem (FICHIER_SELECT_EFF)

End Sub

Private Sub FICHIERS_EFFACER_DblClick()
 CHEMIN_REM = "C:\WINDOWS\Cookies\"
 FICHIER_SELECT_REM = Formulaire.FICHIERS_EFFACER.ListIndex
 'FICHIER_SELECT_EFF = FICHIERS.List(FICHIERS.ListIndex)
  Formulaire.FICHIERS_EFFACER.RemoveItem (FICHIER_SELECT_REM)
 Formulaire.FICHIERS_EFFACER.Refresh
End Sub

Private Sub Form_Load()
 chemin = "C:\WINDOWS\Cookies\"
' Formulaire.LECTEURS = "C:\"
' Formulaire.DOSSIERS.Path = Formulaire.LECTEURS
 Formulaire.FICHIERS.Path = chemin
End Sub

Private Sub propos_Click()
 frmAbout.Show
End Sub

Private Sub quitter_Click()
 test = MsgBox("Voulez-vous vraiment quitter l'application", vbExclamation + vbYesNo, "Quitter...")
 If (test = 6) Then End
End Sub

 

Télécharger le zip