Gestion des cookies

Soyez le premier à donner votre avis sur cette source.

Vue 5 815 fois - Téléchargée 436 fois

Description

Rien de spécial à faire. Le code utilise une fenêtre de formulaire (voir le cookies.zip).
Pour toute suggestion : sukhoi03@libertysurf.fr

Source / Exemple :


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

Codes Sources

A voir également

Ajouter un commentaire

Commentaire

je sais pas ncore ce que ça vaut mais vu le code, ça a l'air pas mal...

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.