Ca supprime les derniers fichiers MP3 ouverts avec WMP(Windows Media Player)
Source / Exemple :
'---- Déclaration des variables ----
Dim WScript,I
Dim ThisKey
Dim ThisKeyValue
Dim LastKeyValue
'---- Affectation des objets ----
Set WScript=Createobject("WScript.Shell")
'---- Boucle de suppression ----
For I=0 To 8
ThisKey="HKEY_CURRENT_USER\Software\Microsoft\MediaPlayer\Player\recentFileList\File" & I
On Error Resume next
ThisKeyValue=WScript.RegRead(ThisKey)
'---- Vérifie ci cette valeur n'est pas égale à l'ancienne
If ThisKeyValue<>LastKeyValue Then
If LCASE(RIGHT(ThisKeyValue,3))="mp3" Then
'Supprime la valeur
WScript.RegDelete ThisKey
End If
End If
lastKeyValue=ThisKeyValue
Next
'---- Message Final ----
msgbox "Et voila le travail!" & chr(10) & "Plus UN seul MP3 dans la liste des fichiers récement ouvert de WMP!",vbokonly+vbexclamation,"WMP MP3 Recent Files Erasor"
Conclusion :
ps: C'est assez barabre comme programmation mais pas le choix c du VBS...
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.