Page 1 sur 1
[Func] Attaché à la barre des taches - Pin to TaskBand
Posté : jeu. 12 déc. 2013 11:23
par zazapeta
Bonjour,
je partage avec une petite fonction bien pratique : Accroché/décroché quelque chose à la barre des taches.
J'ai galéré et c'est pour ça que je partage ^^. Vous me direz que c'est pas grand chose, mais je suis fier de moi
Pour ATTACHER à la barre des taches :
Code : Tout sélectionner
Func PinToTaskBand($path)
$objShell = ObjCreate("shell.application")
$objFSO = ObjCreate("Scripting.FileSystemObject")
$strFolder = $objFSO.GetParentFolderName($path)
$strFile = $objFSO.GetFileName($path)
$objFolder = $objShell.Namespace($strFolder)
$objFolderItem = $objFolder.ParseName($strFile)
$colVerbs = $objFolderItem.Verbs
For $itemVerb in $objFolderItem.Verbs
ConsoleWrite($itemVerb.name & " | ")
if BitOR(StringReplace($itemVerb.name,"&","") == "Pin to Taskbar",StringReplace($itemVerb.name,"&","") == "Épingler à la barre des tâches") then $itemVerb.DoIt
Next
EndFunc
Pour DETACHER à la barre des taches :
Code : Tout sélectionner
Func UnpinToTaskBand($path)
$objShell = ObjCreate("shell.application")
$objFSO = ObjCreate("Scripting.FileSystemObject")
$strFolder = $objFSO.GetParentFolderName($path)
$strFile = $objFSO.GetFileName($path)
$objFolder = $objShell.Namespace($strFolder)
$objFolderItem = $objFolder.ParseName($strFile)
$colVerbs = $objFolderItem.Verbs
For $itemVerb in $objFolderItem.Verbs
ConsoleWrite($itemVerb.name & " | ")
if BitOR(StringReplace($itemVerb.name,"&","") == "Unpin from Taskbar",StringReplace($itemVerb.name,"&","") == "Détacher de la barre des tâches") then $itemVerb.DoIt
Next
EndFunc
Ces fonctions dépendent de la langue du system. J'ai laisse un consoleWrite pour que ça soit plus claire.
Cordialement.
Zazapeta.
Re: [Func] Attaché à la barre des taches - Pin to TaskBand
Posté : ven. 18 avr. 2014 13:44
par perfaram
Merci beaucoup pour ces fonctions !!
Très utiles pour configurer des postes à l'identique.
Re: [Func] Attaché à la barre des taches - Pin to TaskBand
Posté : ven. 18 avr. 2014 15:46
par TommyDDR
Merci pour le partage.
Attention à l'utilisation de "BitOr", il doit être utilisé si vous voulez manipulez des bits dans des nombres , dans votre cas (une condition) "Or" doit être utilisé.
Je vous l'accorde, ici les deux fonctionneront, mais lors d'un "If(xxx OR yyy)", si xxx = true, yyy ne sera pas exécuté.
Alors que TOUS les paramètres envoyé à BitOR seront exécutés.
C'est peut être pas grand chose avec les machines actuelles mais c'est toujours bon de gagner quelques instruction de moins à exécuter ^^.
Re: [Func] Attaché à la barre des taches - Pin to TaskBand
Posté : lun. 31 août 2015 09:48
par franco
Salut.
Désolé pour le déterrage de post, mais cette fonction est intéressante, autant vous signaler la chose.
Sous Windows 10,
ça ne marche pas.
Il n'y a pas l'option "Épingler à la barre des tâches" : normal d'ailleurs.
Voici ce que me sort le "consolewrite"
Code : Tout sélectionner
&Ouvrir | Exécuter en tant qu’&administrateur | Grant Admin Full Control | Ouvrir avec SciTE | &Open with Sublime Text | Send to VirusTotal | R&ésoudre les problèmes de compatibilité | | É&pingler à l’écran de démarrage | Installer avec Revo Uninstaller Pro | | Edit with &Notepad++ | What is locking this file? | | Examiner avec Malwarebytes Anti-Malware | Restaurer les versions précé&dentes | | C&ouper | &Copier | Créer un racco&urci | &Supprimer | Reno&mmer | P&ropriétés | +>09:42:19 AutoIt3.exe ended.rc:0
Il y a bien Epingler à l'écran de démarrage.
J'en conclus donc que pour Windows 10, on ne peut pas ajouter ce que l'on veut à la barre des tâches.
A moins que j'ai fauté quelque part.
► Afficher le textecode
Code : Tout sélectionner
$path = @DesktopDir & "\keepass.exe"
PinToTaskBand($path)
Func PinToTaskBand($path)
$objShell = ObjCreate("shell.application")
$objFSO = ObjCreate("Scripting.FileSystemObject")
$strFolder = $objFSO.GetParentFolderName($path)
$strFile = $objFSO.GetFileName($path)
$objFolder = $objShell.Namespace($strFolder)
$objFolderItem = $objFolder.ParseName($strFile)
$colVerbs = $objFolderItem.Verbs
For $itemVerb In $objFolderItem.Verbs
ConsoleWrite($itemVerb.name & " | ")
If StringReplace($itemVerb.name, "&", "") == "Pin to Taskbar" Or StringReplace($itemVerb.name, "&", "") == "Épingler à la barre des tâches" Then $itemVerb.DoIt
Next
EndFunc ;==>PinToTaskBand
Func UnpinToTaskBand($path)
$objShell = ObjCreate("shell.application")
$objFSO = ObjCreate("Scripting.FileSystemObject")
$strFolder = $objFSO.GetParentFolderName($path)
$strFile = $objFSO.GetFileName($path)
$objFolder = $objShell.Namespace($strFolder)
$objFolderItem = $objFolder.ParseName($strFile)
$colVerbs = $objFolderItem.Verbs
For $itemVerb In $objFolderItem.Verbs
ConsoleWrite($itemVerb.name & " | ")
If StringReplace($itemVerb.name, "&", "") == "Unpin from Taskbar" Or StringReplace($itemVerb.name, "&", "") == "Détacher de la barre des tâches" Then $itemVerb.DoIt
Next
EndFunc ;==>UnpinToTaskBand
++
Re: [Func] Attaché à la barre des taches - Pin to TaskBand
Posté : lun. 31 août 2015 14:31
par jguinch
Sous Windows 10 il y a bien l'option "Épingler à la barre des tâches" (en tout cas, pour un raccourci ou un .exe)
Re: [Func] Attaché à la barre des taches - Pin to TaskBand
Posté : lun. 31 août 2015 16:32
par orax
En effet, l'option "Épingler à la barre des tâches" existe bien quand on fait un clic droit. Mais j'ai le même problème que franco avec le script.