[vbs]wmp mp3 recent files erasor
Soyez le premier à donner votre avis sur cette source.
Snippet vu 3 688 fois - Téléchargée 49 fois
Contenu du snippet
Ca supprime les derniers fichiers MP3 ouverts avec WMP(Windows Media Player)
ps: C'est assez barabre comme programmation mais pas le choix c du VBS...
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...
A voir également
- [vbs]wmp mp3 recent files erasor
- Visual Basic / VB.NET : Mp3 id3 tag v1 et v2 reader - CodeS SourceS - Guide
- Visual Basic / VB.NET : Destroy web-files (cookies) - CodeS SourceS - Guide
- Visual Basic / VB.NET : Gestion pile file (lifo fifo) par recordset ou collection - CodeS SourceS - Guide
- Visual Basic / VB.NET : Mp3 tag edit - CodeS SourceS - Guide
- Visual Basic / VB.NET : Mp3 player & playlist - CodeS SourceS - Guide
12 janv. 2002 à 19:27
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.