[R] Lancer une fonction quand une touche est pressé

[julie]

bonjour donc voila je cherche a lancer une fonction en appuyant sur la touche f10 donc
j'ai fais avec le code si dessous mais pourquoi a ne marche pas ?

Code : Tout sélectionner

While 1
    Sleep ( 250 )

    If _IsPressed("79") Then
        testoption()
       
WEnd
 

biensur j'ai bien une fonction testoption qui existe

merci

[silvere]

t'a oublier un endif et il vaut mieu utiliser la fonction HotKeySet

[TommyDDR]

t'a oublier un endif et il vaut mieu utiliser la fonction HotKeySet

/!\ Je vous rappel que HotKeySet "Bloque" la touche pour tous les autres programmes /!\
Elle ne sera disponible nul part ailleurs, par exemple un HotKeySet de la touche "a" ne permettra plus d'écrire a dans un bloc note.

[PandiPanda]

/!\ Je vous rappel que HotKeySet "Bloque" la touche pour tous les autres programmes /!\
Elle ne sera disponible nul part ailleurs, par exemple un HotKeySet de la touche "a" ne permettra plus d'écrire a dans un bloc note.

à moin de ruser, mais ca devien lourd ^^

ceci par exemple;

► Afficher le texte

Code : Tout sélectionner

HotKeySet("a","maFunc")

while 1
    Sleep(50)
WEnd
Func maFunc()
    HotKeySet("a")
    TrayTip("maFunc","'a' checked",500)
    Send("a")
    HotKeySet("a","maFunc")
EndFunc

[xavierha]

il y a un moyen d'eviter ce probleme, si le script a une fenetre (GUI). On peut se servir de HotKeySet, verifier si la fenetre du script est active, et si elle ne l'est pas, on peut desactiver temporairement la hotkey, remplacer le signal perdu qui a declenche la hotkey, et retablir la hotkey.
example:

Code : Tout sélectionner

HotKeySet ( "{F5}", "RunQryBtnOnClick" )

Func RunQryBtnOnClick ()
    if Not WinActive ( "MyScriptWindow" ) Then
        HotKeySet ( "{F5}" ); desactive la hotkey temporairement
        Send("{F5}"); remplacer la touche perdue en l'envoyant a l'application qui a le focus
        HotKeySet ( "{F5}", "RunQryBtnOnClick" ) reactiver la hotkey
        Return
    EndIf
    ; faire des choses utiles ici, qui ne seront faites que si le script a le focus
EndFunc
 

Et si le script n'a pas de fenetre, on peut desactiver la hotkey, remplacer la touche perdue et reactiver la hotkey. Le desavantage est que si la hotkey etait supposee declencher une fonction dans le script seulement, il ne faut pas que le focus soit sur un programme qui pourrait interpreter la hotkey comme une commande de commencer une autre action, bien sur.

exemple:

Code : Tout sélectionner

HotKeySet ( "{F5}", "DemarreMonSysteme" )

Func DemarreMonSysteme()
     HotKeySet ( "{F5}" ); desactive la hotkey temporairement
     Send("{F5}"); remplacer la touche perdue en l'envoyant a l'application qui a le focus
     HotKeySet ( "{F5}", "RunQryBtnOnClick" ) reactiver la hotkey
    ; faire des choses utiles ici, qui ne seront faites que si le script a le focus
EndFunc
 

[TT22]

j'ai fais avec le code si dessous mais pourquoi a ne marche pas ?

Code : Tout sélectionner

While 1
    Sleep ( 250 )

    If _IsPressed("79") Then
        testoption()
       
WEnd
 

Et bien, pour répondre à ta question : Comme l'as dit Silvere, tu as oublié le Endif et surtout ton Sleep( 250 ) met le script en pause pendant 0.25 secondes puis vérifie si la touche F10 est pressé. Mais il faut que l'utilisateur appuie exactement à ce moment (ce qui ne sera sûrement pas le cas (sauf si il est très chanceux )).
Une autre erreur possible, il faut que tu inclus Misc.au3

Voici ton code en version fonctionnelle :

► Afficher le texte

Code : Tout sélectionner

[color=#FF40FF]#include[/color] <Misc.au3>

While 1
[color=#00BF00];    Sleep (250)[/color]
    If _IsPressed("79") Then
        testoption()
    [color=#0000FF]EndIf[/color]
WEnd

Func testoption()
    MsgBox(64,"Info","Le script va se fermer !")
    Exit 0
EndFunc

Et le script suivant feras exactement la même chose :

► Afficher le texte

Code : Tout sélectionner

HotKeySet("{F10}","testoption")

While 1
    Sleep (250)
WEnd

Func testoption()
    MsgBox(64,"Info","Le script va se fermer !")
    Exit 0
EndFunc

En sachant que le deuxième script (donc le HotKeySet) utilisera moins de mémoire.

[mikell]

...et surtout ton Sleep( 250 )

Diable

Il faut absolument signaler ça aux auteurs du fichier d'aide qui ont malencontreusement laissé un Sleep(250) dans l'exemple pour la fonction _IsPressed

[julie]

merci je navait pas vu toute vos reponse je passe en resolu merci encore