IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Vos téléchargements VB6 Discussion :

Nettoyer le registre des données faisant référence à des éléments physiquement introuvables


Sujet :

Vos téléchargements VB6

  1. #1
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    Juillet 2009
    Messages
    2 415
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : Juillet 2009
    Messages : 2 415
    Points : 5 806
    Points
    5 806
    Par défaut Nettoyer le registre des données faisant référence à des éléments physiquement introuvables
    Bonjour,

    Je vous propose un nouvel élément à utiliser : Recherche dans le registre

    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é sur Win XP SP3 uniquement.

    Qu'en pensez-vous ?
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  2. #2
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    Juillet 2009
    Messages
    2 415
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : Juillet 2009
    Messages : 2 415
    Points : 5 806
    Points
    5 806
    Par défaut
    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.
    Fichiers attachés Fichiers attachés
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  3. #3
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    Juillet 2009
    Messages
    2 415
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : Juillet 2009
    Messages : 2 415
    Points : 5 806
    Points
    5 806
    Par défaut Prise en charge de Windows 7
    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
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

Discussions similaires

  1. Réponses: 1
    Dernier message: 03/02/2014, 12h44
  2. Réponses: 0
    Dernier message: 30/04/2012, 21h49
  3. Réponses: 6
    Dernier message: 22/03/2012, 13h24
  4. Réponses: 6
    Dernier message: 13/12/2010, 21h20
  5. Réponses: 2
    Dernier message: 06/06/2010, 16h15

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo