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 : Tout sélectionner
; ---------------------------------
;
; 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