PureBasic

Forums PureBasic
Nous sommes le Mar 19/Jan/2021 16:47

Heures au format UTC + 1 heure




Poster un nouveau sujet Répondre au sujet  [ 1 message ] 
Auteur Message
 Sujet du message: Firefox - Reinitialisation du fichier certificat SSL
MessagePosté: Jeu 06/Fév/2020 16:54 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 09/Oct/2005 16:51
Messages: 9054
Voilà un petit utilitaire qui vous permettra de supprimer le fichier contenant les certificats SSL.
Parfois ce dernier se corrompt ce qui empêche de naviguer vers les sites en question.
Le fichier se recréera de lui même au nouveau lancement de firefox.

Code:
; ---------------------------------
;
; RÉINITIALISATION DU FICHIER DE GESTION DES CERTIFICATS SSL DE FIREFOX
; Réinitialise le fichier cert9.db qui contient les options de certificat de sécurité et les certificats SSL que vous avez importé dans Firefox
; Ar-S // 2020 // PB5.71 x64
;
; ---------------------------------

Global NewList dossier.s()
RootPath$ = GetHomeDirectory()+"AppData\Roaming\Mozilla\Firefox\Profiles\"

If ExamineDirectory(0, RootPath$, "*.*") 
  While NextDirectoryEntry(0)
    If DirectoryEntryType(0) = #PB_DirectoryEntry_Directory And DirectoryEntryName(0)<>"." And DirectoryEntryName(0)<>".."
      AddElement (dossier())
      dossier() = RootPath$+DirectoryEntryName(0)+"\"
    EndIf
  Wend
  FinishDirectory(0)
EndIf

If ListSize(Dossier()) > 1
  ForEach dossier()
    If FindString(dossier(),"-release",0)
      DossierUser$ =  Dossier()
    EndIf 
  Next
Else
  DossierUser$ = Dossier()
EndIf


If OpenWindow(0, 0, 0, 220, 100, "Réinitialisation du fichier de Certification SSL pour Firefox", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
 
  TextGadget(0,2,1,215,25,"Réinitialisation du fichier de Certification SSL pour Firefox")
  ButtonGadget  (1, 10, 35, 200, 30, "Reinitialiser")
  StringGadget(2,1,70,217,20, "2020 - by Ar-S",#PB_String_ReadOnly|#ES_CENTER)
 
  Repeat
    Event = WaitWindowEvent()
   
    Select Event
       
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 1
           
            If FileSize(DossierUser$+"cert9.db") <> -1
              TryToDelete = DeleteFile(DossierUser$+"cert9.db.old",#PB_FileSystem_Force)
              If TryToDelete = 0
                SetGadgetColor(2,#PB_Gadget_BackColor,#Red)
                MessageRequester("Info","Vous devez d'abord fermer l'instance de firefox. Quitter firefox puis recommencez l'opération.",#PB_MessageRequester_Ok)
                SetGadgetText(2,"Fermez firefox puis recommencez !")
              Else
                SetGadgetColor(2,#PB_Gadget_BackColor,#Green)
                MessageRequester("Succés","Le gestionnaire de certificats a été réinitialisé et se reconstruira au prochain lancement de firefox.",#PB_MessageRequester_Ok)
                SetGadgetText(2,"Le fichier a été supprimé")
              EndIf
            Else
              MessageRequester("Erreur","Le gestionnaire de certificats est introuvable dans :" + Chr(10)+ DossierUser$+Chr(10)+"Ce programme va se terminer",#PB_MessageRequester_Ok)
            EndIf     
        EndSelect
       
    EndSelect
  Until Event = #PB_Event_CloseWindow
EndIf


_________________
~~~~Règles du forum ~~~~
.: Ar-S :. Tour + portable W10 x64 PB 5.6x / 5.7x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB


Haut
 Profil  
Répondre en citant le message  
Afficher les messages postés depuis:  Trier par  
Poster un nouveau sujet Répondre au sujet  [ 1 message ] 

Heures au format UTC + 1 heure


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 9 invités


Vous ne pouvez pas poster de nouveaux sujets
Vous ne pouvez pas répondre aux sujets
Vous ne pouvez pas éditer vos messages
Vous ne pouvez pas supprimer vos messages

Rechercher:
Aller à:  

 


Powered by phpBB © 2008 phpBB Group | Traduction par: phpBB-fr.com
subSilver+ theme by Canver Software, sponsor Sanal Modifiye