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

Partagez des fonctions et des UDF AutoIt.
Règles du forum
.
Répondre
zazapeta
Niveau 1
Niveau 1
Messages : 8
Enregistré le : jeu. 28 févr. 2013 20:21
Status : Hors ligne

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

#1

Message 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 8)

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
Niveau 4
Niveau 4
Messages : 68
Enregistré le : jeu. 28 avr. 2011 11:40
Status : Hors ligne

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

#2

Message par perfaram »

Merci beaucoup pour ces fonctions !!
Très utiles pour configurer des postes à l'identique.
Avatar du membre
TommyDDR
Modérateur
Modérateur
Messages : 2085
Enregistré le : mar. 22 juil. 2008 21:55
Localisation : Nantes
Status : Hors ligne

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

#3

Message 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 ^^.
3.1415926535897932384626433832795028841971693993751058209749445923078164062862089986280348253421170679
Avatar du membre
franco
Niveau 7
Niveau 7
Messages : 342
Enregistré le : lun. 03 oct. 2011 22:37
Localisation : Liévin
Status : Hors ligne

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

#4

Message 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. :cry:

A moins que j'ai fauté quelque part.
► Afficher le textecode

++
L'entraide, c'est mon dada ;)
Avatar du membre
jguinch
Modérateur
Modérateur
Messages : 2511
Enregistré le : lun. 14 févr. 2011 22:12
Status : Hors ligne

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

#5

Message 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)
Le script, ça fait gagner beaucoup de temps... à condition d'en avoir beaucoup devant soi !
Avatar du membre
orax
Modérateur
Modérateur
Messages : 1479
Enregistré le : lun. 23 mars 2009 04:50
Localisation : ::1
Status : Hors ligne

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

#6

Message 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.
De petits détails peuvent faire toute la différence. — Quand la boule de neige commence à rouler… poussez-la. (Columbo)
Répondre