PureBasic

; ---------------------------------
;
; 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