[Func] Attaché à la barre des taches - Pin to TaskBand

[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.

[perfaram]

Merci beaucoup pour ces fonctions !!
Très utiles pour configurer des postes à l'identique.

[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 ^^.

[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
 

++

[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)

[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.