Recherche dans le registre de données faisant référence à des éléments physiquement introuvables

Présentation
Ce qui m'a incité à faire ce petit programme, c'est que j'avais un utilitaire(Regcleaner4) qui marchait bien sur WIN98 et WIN XP SP1 et SP2, mais avec le SP3, il ne marche plus. J'ai alors pensé à faire quelque chose de très simple pour nettoyer mon registre des entrées indésirables.

L'utilisation du code est sans garantie(pour la suppression) néanmoins une sauvegarde est faite pour toute suppression si la case à cocher "Créer sauvegarde" est activée. Un fichier de sauvegarde est alors automatiquement créé dont le nom(sans extension) est aussitôt affiché et visible dans le ComboBox ajouté à cette fin. Ledit fichier a pour nom la date et l'heure de l'enregistrement sous la forme : dd_mm_yyyy_hh_mm_ss(+l'extension .reg)

Un clic droit sur un élément coché dans la ListView(LvReport) permet d'afficher un PopupMenu si le fichier ou dossier n'existe pas ou ouvre directement le dossier le contenant dans le cas où il existerait.

Il est à noter que ce code a été testé uniquement sur Win XP SP3 et Win7 32 bits
Téléchargement
Compatibilité
Windows
0  0 
Téléchargé 28 fois Voir les 2 commentaires
Détails
Voir tous les téléchargements de l'auteur
Licence : Gratuit
Date de mise en ligne : 24 janvier 2016




Avatar de l_autodidacte l_autodidacte - Modérateur https://www.developpez.com
le 18/01/2015 à 13:35
Quelques mois plus tard, je me suis repenché sur ce code pour ajouter d'autres informations telles que la fonction GetSIDKey qui recherche le SID qui, au départ, m'a semblé une constante, or ce n'est pas le cas si on change de PC ou qu'on réinstalle l'OS.
Pour palier(contourner le style XP réticent sur la Caption d'un CheckBox), j'ai dû rajouter un Label dont le texte remplace celui du CheckBox et ce pour mettre en valeur le souhait de faire(ou non) la sauvegarde. La nouvelle version est en PJ du moment que je n'ai plus accès à la possibilité de mettre à jour mon code.
Avatar de l_autodidacte l_autodidacte - Modérateur https://www.developpez.com
le 16/02/2015 à 11:34
Dans la fonction GetSIDKey , on doit remplacer la ligne If Left$(sName, 9) = "S-1-5-21-" And (Right$(sName, 4) = "1003" Then par:
If Left$(sName, 9) = "S-1-5-21-" And (Right$(sName, 4) = "1003" Or Right$(sName, 3) = "500" Then

 
Developpez.com décline toute responsabilité quant à l'utilisation des différents éléments téléchargés.
Contacter le responsable de la rubrique Visual Basic 6