> Tous les forums > Forum Windows XP
 Windows XP & Ccleaner - ExécuterSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Gabrilou
  Posté le 28/02/2013 @ 16:36 
Aller en bas de la page 
Astucienne

Bonjour à tous,

Comment conserver la liste de toutes les commandes que l'on a tapées dans Démarrer, Exécuter, avant de passer Ccleaner ?

Merci

Publicité
Le Fêlé
 Posté le 28/02/2013 à 16:48 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

Bonjour,

Dans Nettoyeur, onglet Windows, Explorateur Windows décoche Exécuter (dans le menu démarrer).

http://www.overclocking-pc.fr/forums/showthread.php?18898-TUTO-Ccleaner-v3-(Installation-param%E9trages-et-mode-d-emploi)-(m%E0j-le-25-01-2013)&p=387213#post387213

Gabrilou
 Posté le 28/02/2013 à 17:25 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

Bonjour le Fêlé,

Merci pour l'info et pour le tuto.

Je marque comme résolu

Bonne fin de journée.

Le Fêlé
 Posté le 28/02/2013 à 17:29 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

De rien ! {#}

Bonne fin d'AM à toi aussi !

{#}

yves.vaissiere
 Posté le 28/02/2013 à 17:49 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

Bonjour,

à noter RunMRUmodifier.vbs, un script pour nettoyer sélectivement les entrées dans la liste Exécuter...

'Script to modify the MRU list for Start>Run, Steve Yandl, Sept 11, 2000
Dim shell, dict, path, Ordering, Counter, TLimit, Letter, RunLine, k, i, s, DumpIt, Purge, Zap, Alphabet, Keepers, l, Newref
Dim TheLine
Set shell=CreateObject("Wscript.Shell")
Set dict = CreateObject("Scripting.Dictionary")
path="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU"
On Error Resume Next
'Find out what is presently there and populate the dictionary object with the values
Ordering=shell.RegRead(path&"\MRUList")
If Err.Number<>0 Then MsgBox "There are no entries to clear":Set shell=Nothing:Set dict=Nothing:WScript.Quit
If Ordering="" Then MsgBox "There are no entries to clear":Set shell=Nothing:Set dict=Nothing:WScript.Quit
Counter=0
TLimit=Len(Ordering)
Do While Counter<TLimit
Counter=Counter+1
Letter=Mid(Ordering,Counter,1)
RunLine=shell.RegRead(path&"\"&Letter)
dict.add Letter, RunLine
Loop
k=dict.keys
For i = 0 To dict.Count -1 ' Iterate the array.
TheLine=Left(dict.Item(k(i)),Len(dict.Item(k(i)))-2)
s = s &k(i)&" >> "& TheLine &vbCRLF ' Create return string.
Next
'Let the user pick items to dump
DumpIt=InputBox("ENTER INDEX LETTERS FOR ANY RUN LINES TO DELETE (Reboot after OK)"&vbCRLF&_
vbCRLF&"Index >> Run Line"&vbCRLF&s,"Kill These")
Purge=Len(DumpIt)
'Delete bum keys or escape program
If Purge>0 Then
For i = 0 To dict.Count -1 ' Iterate the array.
shell.RegDelete path&"\"&k(i)
Next
Else
Set dict=Nothing
Set shell=Nothing
WScript.Quit
End If
'Dump entries in the record we don't want back in the registry
For j=1 To Purge
Zap=Mid(DumpIt,j,1)
dict.Remove Zap
Next
'Reset the MRU list for remaining values and write them back to the registry
Alphabet="abcdefghijklmnopqurstvwxyz"
Keepers=Left(Alphabet,(TLimit-Purge))
shell.RegWrite path&"\MRUList",Keepers
'
l=dict.keys
For i = 0 To dict.Count-1
Newref=Mid(Keepers,i+1,1)
shell.RegWrite path&"\"&Newref,dict.Item(l(i))
Next
Set dict=Nothing
Set shell=Nothing

Gabrilou
 Posté le 28/02/2013 à 18:48 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

Bonjour,

Merci beaucoup Yves ! Pratique ce programme

J'avais mis en résolu, mais je profite de ton passage pour savoir s'il est possible d'imprimer cette liste, un accident est si vite arrivé.

À +

yves.vaissiere
 Posté le 28/02/2013 à 19:35 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

On peut certes faire une copie d'écran ; mais le script utilise la clé "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU".

(à partir de laquelle on peut exporter un reg, par exemple : il suffirait de le lancer pour restaurer.
même la sauvegarde doit pouvoir être automatisée)

Donc tu vas dans l'éditeur du registre à la clé en question, puis tu fais Fichier>Exporter.

(n'importe quoi la limitation à 500 de large pour les captures, alors que pour le plus pourri des netbooks ça passe sans scroller jusqu'à 850, même cité)



Modifié par yves.vaissiere le 28/02/2013 20:03
Gabrilou
 Posté le 28/02/2013 à 20:22 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

Oui, ça, j'avais fait. Je pensais qu'il y avait mieux.

Je pense avoir fait le tour de la question.

Encore merci Yves d'avoir pris du temps pour moi.

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
windows ccleaner
Windows ne peut pas éxécuter DvpSetup.exe
windows xp Ccleaner Polices inexistantes
Impossible d'exécuter un programme Windows 16 bits
« Windows peut exécuter la même action... »
impossible d'executer windows update
Impossible d'exécuter un programme Windows 16 bits
impossible d'executer un programme windows 16 bits
Executer un programme en sortie de Windows XP SP2
Executer une operation en quittant Windows[RESOLU]
Plus de sujets relatifs à Windows XP & Ccleaner - Exécuter
 > Tous les forums > Forum Windows XP