[R] Hotkeyset activer désactiver fonction

[Chrnos023]

Bonjour a tous,

Je n'ai pas codé depuis un moment , et oui occupé a mes ficelles, mes trombones et mon scotch, je ne peux pas sauver le monde et coder, mac gyver mais pas chuck norris .

Bon redevenons sérieux. J'ai réaliser un script qui ouvre une simple fenêtre et qui exécute un script.
Ce script en question va attendre des touches avec hotkeyset et en fonction des touches appuyés exécuter tel ou tel fonctions.
J'ai attribuer des fenêtres a des touches pour naviguer plus facilement quand je code ou que je joue ( les touches dédiés sont F1 F2 F3 F4, etc....) sauf que défois j'ai besoin de ces touches dans mes programmes comme par exemple pour l'aide d'autoit.
J'aimerais pouvoir dédier une touche "la puissance 2 a gauche du 1" pour activer ou désactiver ma fonction sans avoir à fermer le programme. Mais cela implique de pouvoir détecter que ma fonction est active et en conséquence de l'activer ou la désactiver.

J'ai cherchés un peu partout sans trouver mon bonheur, j’espère oui et non trouver la réponse de moi-même rapidement ce qui arrive souvent....

D'avance merci de vos réponses.

Mac gyver de l'autoit ... ou pas

[TommyDDR]

Tout ce dont vous avez besoin est dans l'aide de HotKeySet.
Pour ce qui est de détecter si votre fonction est active ou pas... c'est vous le codeur, vous pouvez ajouter une variable de statut et le mettre à jour au bon moment.

[Chrnos023]

J'avais penser a cet solution de la variable mais n'est ce pas un peu sale?

[TommyDDR]

Si c'est sale, alors c'est sale d'utiliser les variables tout court, et on ne risque pas d'aller bien loin sans elles ^^.

[jguinch]

Sale Mais pourquoi donc ?
Un machin comme ça pourrait suffire ("²" active ou désactive les hotkey, "F1" et "F2" lancent les fonctions "Fonction1" et "Fonction2", et "ESC" quitte le programme) :

► Afficher le texte

Code : Tout sélectionner

Global $bState = True

Global $aHotKeys[][] = [ ["{F1}", "Fonction1"], ["{F2}", "Fonction2"] ]

HotKeySet("²", "LockUnlock")
HotKeySet("{ESC}", "Quit")


For $i = 0 To UBound($aHotKeys) - 1
    HotKeySet($aHotKeys[$i][0], $aHotKeys[$i][1])
Next



While 1
    Sleep(0xFFFFFF)
WEnd


Func Fonction1()
    MsgBox(0, "Fonction 1", "Ceci est la fonction 1")
EndFunc


Func Fonction2()
    MsgBox(0, "Fonction 2", "Ceci est la fonction 2")
EndFunc


Func LockUnlock()
    For $i = 0 To UBound($aHotKeys) - 1
        If $bState Then 
            HotKeySet($aHotKeys[$i][0])
        Else
            HotKeySet($aHotKeys[$i][0], $aHotKeys[$i][1])
        EndIF
    Next
    $bState = NOT ($bState)
EndFunc


Func Quit()
    Exit
EndFunc

 

Maintenant, à toi d'adapter ton code ...