Accueil > > > DÉCODEUR DE L'HISTORIQUE "CACHÉ" DE WINDOWS 2000/XP
 DÉCODEUR DE L'HISTORIQUE "CACHÉ" DE WINDOWS 2000/XP
 Information sur la source
 Description
Je suis tombé par hasard sur une partie du registre qui paraissait bizzare et j'ai essayé de comprendre a quoi elle servait... Après avoir fait quelques tests, j'ai vu qu'il s'agissait d'un mini historique interne a Windows qui Microsoft avait "un peu" codé ! Voila donc le code du programme qui va lire le registre et qui récupère puis affiche ce qu'il a trouvé !!! Au passage, j'ai essayé de me forcer a commenter mon code mais c'est pas facile ;-)
 Source
- Private Sub Form_Load()
- 'On définit le caract " et on le réécrit encore une fois pour être sympa envers le parser de colorisation du code du gentil Nix --> "
- g = Chr(34)
-
- 'On récupére le contenu du registre
- file = "registry.dat"
- Shell "regedit /S /E " + file + " " + g + "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\UserAssist" + g, vbHide
-
- 'Gestion d'erreur
- On Error GoTo Err
- 'On lit le fichier et on l'analyse
- Dim l As String
- Open file For Input As #1
- While Not EOF(1)
- Line Input #1, l
- If Mid(l, 1, 6) = g + "HRZR_" Then 'Ligne codée
- list.AddItem Decode(l, 13)
- End If
- If Mid(l, 1, 6) = g + "UEME_" Then 'Ligne décodée
- list.AddItem Decode(l, 0)
- End If
- Wend
- 'On ferme le fichier et on le détruit
- Close #1
- Kill file
- Exit Sub
-
- Err:
- 'On détruit le fichier et on affiche l'erreur
- Kill file
- MsgBox Err.Description, vbCritical, "Erreur n°" + Str(Err.Number)
- End
- End Sub
-
- Public Function Decode(t As String, d As Integer) As String
- Dim c As String, a As Integer, r As String
- 'On définit les valeurs ascii pour plus tard
- ami = Asc("a")
- ama = Asc("A")
- zmi = Asc("z")
- zma = Asc("Z")
- 'On définit aussi la valeur a retrancher pour plus tard
- azmi = zmi - ami + 1
- azma = zma - ama + 1
- 'On boucle...
- For i = 2 To Len(t)
- c = Mid(t, i, 1)
- a = Asc(c)
- If a = 34 Then 'On a trouvé un ", fin...
- Decode = r
- Exit Function
- ElseIf a >= ami And a <= zmi Then 'Lettre en minuscule...
- a = a + d
- If a > zmi Then a = a - azmi
- c = Chr(a)
- ElseIf a >= ama And a <= zma Then 'Lettre en majuscule...
- a = a + d
- If a > zma Then a = a - azma
- c = Chr(a)
- End If
- r = r + c 'On ajoute le caractère décodé
- Next i
- Decode = r
- End Function
Private Sub Form_Load()
'On définit le caract " et on le réécrit encore une fois pour être sympa envers le parser de colorisation du code du gentil Nix --> "
g = Chr(34)
'On récupére le contenu du registre
file = "registry.dat"
Shell "regedit /S /E " + file + " " + g + "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\UserAssist" + g, vbHide
'Gestion d'erreur
On Error GoTo Err
'On lit le fichier et on l'analyse
Dim l As String
Open file For Input As #1
While Not EOF(1)
Line Input #1, l
If Mid(l, 1, 6) = g + "HRZR_" Then 'Ligne codée
list.AddItem Decode(l, 13)
End If
If Mid(l, 1, 6) = g + "UEME_" Then 'Ligne décodée
list.AddItem Decode(l, 0)
End If
Wend
'On ferme le fichier et on le détruit
Close #1
Kill file
Exit Sub
Err:
'On détruit le fichier et on affiche l'erreur
Kill file
MsgBox Err.Description, vbCritical, "Erreur n°" + Str(Err.Number)
End
End Sub
Public Function Decode(t As String, d As Integer) As String
Dim c As String, a As Integer, r As String
'On définit les valeurs ascii pour plus tard
ami = Asc("a")
ama = Asc("A")
zmi = Asc("z")
zma = Asc("Z")
'On définit aussi la valeur a retrancher pour plus tard
azmi = zmi - ami + 1
azma = zma - ama + 1
'On boucle...
For i = 2 To Len(t)
c = Mid(t, i, 1)
a = Asc(c)
If a = 34 Then 'On a trouvé un ", fin...
Decode = r
Exit Function
ElseIf a >= ami And a <= zmi Then 'Lettre en minuscule...
a = a + d
If a > zmi Then a = a - azmi
c = Chr(a)
ElseIf a >= ama And a <= zma Then 'Lettre en majuscule...
a = a + d
If a > zma Then a = a - azma
c = Chr(a)
End If
r = r + c 'On ajoute le caractère décodé
Next i
Decode = r
End Function
 Conclusion
Pour ceux que ca intéresse, le mini-historique codé et spécifique a chaque utilisateur se trouve dans "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Explorer\UserAssist" !
On peut aussi passer pas HKEY_USERS pour les autres utilisateurs...
 Historique
- 26 août 2005 20:26:49 :
- >on le réécrit encore une fois pour être sympa envers le parser de colorisation du code du gentil Nix --> "
 Sources du même auteur
 Sources de la même categorie
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
VB6 SP5 et Windows XP [ par krazitchek ]
Bonjour, lorsque j'insére un optionbutton dans un frame dans un projet vb6sp5 sous windows XP, le fond de l'option est noir sans possibilité de change
DirectX + Windows XP = ??? [ par Xentor ]
J'ai un problème au niveau de la transparence sous XP avec DirectX : rien ne transparait ! Aidez-moi !!! :)
Interface Windows XP ? [ par Arnotic ]
Bonjour, Je voudrai bien savoir comment on peut intégrer à notre logiciel l'interface de Windows XP et non pas l'ancienne (par défaut). En vous re
PB install sur xindows xp [ par looping ]
Bonjour !J'ai fais un prog qui tourne bien sous windows 98SE mais sous windows XP au lancement du prog un message indique « erreur 50002 manque de mém
Ocx pour controles windows XP [ par patcui ]
Je cherche un controle pour faire des controles windows xpMerci,
arret de windows xp [ par PBDLpc13 ]
bonjour, je voudrais savoir comment faire pour arreter mon pc sachant qu'il fonctionne sous win xp.je cherche depuis 3 semaines et je trouve pas alors
passage de win98 à win XP [ par bbs ]
j' ai installe windows XP professionnellors de l 'execution du source fonctionnant sous windows 98 , le message suivant est apparu:<< bibliotheq
HELP WINDOWS XP !! [ par rvbenoit ]
J'ai réalisé un logiciel de Tarot en VB5 qui marche très bien sous win95/98.(voir mon site: http://perso.libertysurf.fr/rvbenoit)Des utilisateurs m'on
User actif ds windows xp... [ par Pof ]
j'aimerais savoir comment faire pour faire une fonction que quand je l'appelle, elle me retourne le nom de l'user actif... en fait, ds windows xp, on
Arrêt Windows XP [ par Stru ]
Salut,Quelle est la ligne de code pour arrêter un système sous windows XP ? Merci.A+,Stru.
|
Derniers Blogs
 [RIA SERVICES] INCLUDE ET DOMAINDATASOURCE[RIA SERVICES] INCLUDE ET DOMAINDATASOURCE par Audrey
Dans un de mes articles précédents , j'avais parlé des DomainDataSource avec RIA Services dans le cas d'une interface Maître - Détail. Dans le même principe, je vais parler d'une autre manière de mettre en forme ce cas d'interface avec RIA Services. Et po...
Cliquez pour lire la suite de l'article par Audrey ZUNE : VERSION ZUNE SOFTWARE V 4.2 ET LA SOCIALISATIONZUNE : VERSION ZUNE SOFTWARE V 4.2 ET LA SOCIALISATION par ROMELARD Fabrice
Une des nouveautés de la version V 3.0 était l'apparition de l'onglet Social qui ne fonctionnait que si le MarketPlace était activé sur son poste. Cela limitait donc son intérêt, car hors du cadre commercial USA-CANADA, peu de monde trouva...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice PRATIQUE DE SILVERLIGHT PAR ERIC AMBROSIPRATIQUE DE SILVERLIGHT PAR ERIC AMBROSI par MPOWARE
Je viens de finir la lecture du dernier livre d'
Eric Ambrosi
éditions PEARSON
Son livre donne une approche pratique de Silverlight qui sera aussi bien comprise par le développeur que par le designeur.
Tous les aspects du développement RIA sont abor...
Cliquez pour lire la suite de l'article par MPOWARE APPRENDRE à DéVELOPPER POUR LES MOBILES AVEC LA NOUVELLE GéNéRATION .NETAPPRENDRE à DéVELOPPER POUR LES MOBILES AVEC LA NOUVELLE GéNéRATION .NET par odewit
2 déclinaisons de Silverlight et 2 déclinaisons de Mono permettent dorénavant (ou permettront prochainement) de développer des applications .NET mobiles pour les principales plates-formes du marché :
Silverlight pour Symbian, basé sur Silverlight 2...
Cliquez pour lire la suite de l'article par odewit ZUNE : NOUVELLE VERSION DU ZUNE SOFTWARE - V 4.2ZUNE : NOUVELLE VERSION DU ZUNE SOFTWARE - V 4.2 par ROMELARD Fabrice
Avec la dernière génération du lecteur MP3 de Microsoft, le ZUNE HD, Microsoft a publié une nouvelle version du logiciel pour PC. Ainsi, je me suis décidé à installer celle-ci sur mon Tablet PC ACER, comme toujours le logiciel est donc tél...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
 Academy System (10.9.4.0)ACADEMY SYSTEM (10.9.4.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods
|