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

• VISUALISATEUR IMAGE STYLE ACDSEE + VISU GIF ANIME

• LAUTREESIZE
• MP3REN - RENOMMEUR DE MP3
• [VB6] YMXPLORER : DOUBLE EXPLORATEUR DE FICHIERS
• CREATION DE FICHIER ASX POUR LECTURE EN STREAMING SUR UN SITE WEB
• CHKDSKSPC- CHECK DISK SPACE / AFFICHAGE DE L'ÉTAT D'OCCUPATION DES DISQUES

• GESTION DE VIDÉOTHÈQUE
• GESTION DES BONS DE LIVRAISON
• GESTION DE STOCK
• DÉVELOPPEMENT D’UN DLL POUR DES APPLICATIONS DE GESTION
• GESTION DE BASE DE DONNÉE ACCESS COMPLÈTE AVEC ORIENTÉ OBJET