Enlever eléments précédents

Soyez le premier à donner votre avis sur cette source.

Vue 7 872 fois - Téléchargée 207 fois

Description

Enleve les éléments précédents de la barre de tâches qui perssite même le program désintalle

Source / Exemple :


Titre = "Enlever Eléments Précédents"
Message = "Désires-tu enlever les éléments précédents de la barre de tâches"

X = MsgBox(Message, vbYesNo,Titre)

If X = 6 Then

	On Error Resume Next

	Set WshShell = WScript.CreateObject("WScript.Shell")

	WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\TrayNotify\IconStreams"
	WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\TrayNotify\PastIconsStream"

	Set WshShell = Nothing

	On Error GoTo 0

	For Each Process in GetObject("winmgmts:"). _
		ExecQuery ("select * from Win32_Process where name='explorer.exe'")
	   	Process.terminate(0)
	Next

	MsgBox "Opération terminée", vbInformation, Titre

Else 

	MsgBox "Opération annulée", vbInformation, Titre

End If

Codes Sources

A voir également

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.