[R] Lancer/Arrèter une frappe de touche.

[Verification]

Bonjour, j'aimerais bien que quelqu'un puisse crée un script bien précis :

Quand l'application est lancé et que l'on reste appuyer sur BAS, ca lance une sorte de macro qui fais (é clique é clique é clique ...) et qui s'arrête dé que l'on lâche BAS. Il faudrait que le temps entre é et clique soit vraiment très cour. en gros, en 1 seconde, il y aurais 10 fois (é clique)

Je ne c'est pas si vous avez compris donc demander des précisions si besoin

PS:
é = la touche au dessus de a et z. C'est la touche qui sert aussi au chiffre 2.
clique = Sa clique a l'endroit ou se trouve notre souris.


Merci d'avance

[jbnh]

Bonjour,

Vous trouverez votre bonheur dans la documentation/fichier d'aide en lisant le chapitre des boucles et les explications de la fonction Send.

[Verification]

Oui, je l'est déjà lu mais vu que sa fais pas longtemps que j'ai commencer a apprendre se langage, je n'arrive pas a le mettre en forme ...

Donc si quelqu'un pouvais m'aider

[Jerome]

Coucou,

Un truc dans ce genre :

Code : Tout sélectionner

While 1
       If _IsPressed(code de la touche BAS) then
              Send("é")
              MouseClick("left")
              Sleep(100)
       EndIf
Wend
 

A vous de chercher pour completer, mais vous avez la base.

Chercher dans l'aide Auto It la fonction _IsPressed

Ps: Ne pas oublier l'include correspondant.



Jérôme

[Verification]

Merci beaucoup à toi mais quel est le code de la touche bas ?

PS: j'ai fini l'interface du logiciel

[Verification]

J'ai presque fini mon application mais il me dis une erreur que je n'arrive pas à résoudre.

PS: j'ai mi le code de la touche F4 en attendans de trouver celui de la touche bas.

Code : Tout sélectionner

Haha ;)

Voici l'erreur que j'obtient :



Merci d'avance

[Jerome]

Coucou,


je vous ai dit de chercher dans l'aide la fonction _Ispressed.

Ce qu'il faut mettre en paramètre est une clé hexadécimale.

Lien




Jérôme

[Verification]

Merci. sa marche mais cette fois ci, j'ai une autre erreur ...

Script :

Code : Tout sélectionner

Haha ;)

Screen Erreur :




Merci d'avance

[Verification]

C'est bon, j'ai reuci a résoudre le problème et mon logiciel marche à la perfection. Merci les mecs. Je modifie le [..] en [R]

[Jerome]

Je vous conseille de vous plongez dans la doc et les tuto basic sur wiki si vous comptez continuer a coder en Auto It .





Jérôme

[Verification]

J'ai un petit probleme ...

Maintenant que mon logiciel est fini, je me susi rendu compte qu'une fois lancé, il ne se passe pu rien quand on clique sur la croix ...

Script :

Code : Tout sélectionner

Haha ;)

Merci d'avance

PS: J'aimerai bien savoir ci c'est possible que la personne choisi la touche de lancement et comment le faire ci oui ?

Merci d'avance

[Jerome]

Coucou,


C'est normal, votre script est bouclé dans le While 1 -> Wend lorsque vous appuyer sur le Button.

Vous n'êtes pas obligé de mettre la Dll dans _IsPressed.

Et pour votre question de choisir la touche, c'est possible. Mais moi je le voit avec beaucoup de ligne de code, je ne sait pas si l'on peut réduire sa.




Jérôme

[Verification]

Merci de ta réponse mais malheureusement, je n'est toujours pas compris comment faire pour pouvoir le fermer ...

Si tu pouvais me redonner le code en corriger, sa serais bien Merci d'avance

[Jerome]

Coucou,


Essayez ceci :

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3>
#include <Process.au3>
#include <Misc.au3>

Opt("GUIOnEventMode", 1)
GuiCreate("Write Spirit",200,140)
$bouton = GuiCtrlCreateButton("Launch Aplication",10,105,130,25)
GUICtrlSetOnEvent($bouton, "Button")
$quitter = GuiCtrlCreateButton("Exit",10,80,130,25)
GUISetOnEvent($GUI_EVENT_CLOSE, "Quitter")
GUICtrlSetOnEvent($quitter, "Quitter")
GuiCtrlCreateLabel("Copyright",10,10,200,15)
GuiCtrlCreateLabel("Appuis sur la touche F4 pour ecrire.",10,40,200,15)
GuiCtrlCreateLabel("Press F4 to write.",10,55,200,15)
GUISetState(@SW_SHOW)

$message = false

While 1
    Sleep(100)
    If $message Then
        If _IsPressed ("73") then
            Send("é")
            MouseClick("left")
            Sleep(50)
        EndIf
    EndIf
WEnd

Func Button()
    MsgBox(0, "Cool !", "Vous pouvez désormais dessiner en restant appuyé sur F4.")
    $message = true
EndFunc

Func Quitter()
    Exit
EndFunc

Je vais voir si je trouve quelque chose pour l'histoire de la touche, mais j'avoue ne pas avoir trop d'idée sur le problème.


Edit : Pour le choix de la touche, c'est long et fastidieux, mais je voit un truc comme sa, a vous de compléter.

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3>
#include <Process.au3>
#include <Misc.au3>

Opt("GUIOnEventMode", 1)
global $touche
GuiCreate("Write Spirit",200,140)
$bouton = GuiCtrlCreateButton("Launch Aplication",10,105,130,25)
GUICtrlSetOnEvent($bouton, "Button")
$quitter = GuiCtrlCreateButton("Exit",10,80,130,25)
GUISetOnEvent($GUI_EVENT_CLOSE, "Quitter")
GUICtrlSetOnEvent($quitter, "Quitter")
GuiCtrlCreateLabel("Copyright",10,10,200,15)
GuiCtrlCreateLabel("Appuis sur la touche F4 pour ecrire.",10,40,200,15)
GuiCtrlCreateLabel("Press F4 to write.",10,55,200,15)
GUISetState(@SW_SHOW)

$message = false

While 1
    Sleep(100)
    If $message Then
        If _IsPressed ($touche) then
            Send("é")
            MouseClick("left")
            Sleep(50)
        EndIf
    EndIf
WEnd

Func Button()
    ;MsgBox(0, "Cool !", "Vous pouvez désormais dessiner en restant appuyé sur F4.")
    TrayTip("Choix", "Choisir une touche", 1000)
    while 1
        If _IsPressed ("41") then ;a
            $touche = "41"
            ExitLoop
        EndIf
        If _IsPressed ("42") then ;b
            $touche = "42"
            ExitLoop
        EndIf
        If _IsPressed ("43") then ;c
            $touche = "43"
            ExitLoop
        EndIf
        If _IsPressed ("44") then ;d
            $touche = "44"
            ExitLoop
        EndIf
        If _IsPressed ("45") then ;e
            $touche = "45"
            ExitLoop
        EndIf
        If _IsPressed ("46") then ;f
            $touche = "46"
            ExitLoop
        EndIf
        If _IsPressed ("47") then ;g
            $touche = "47"
            ExitLoop
        EndIf
        If _IsPressed ("48") then ;h
            $touche = "48"
            ExitLoop
        EndIf
        If _IsPressed ("49") then ;i
            $touche = "49"
            ExitLoop
        EndIf
    wend
    $message = true
EndFunc

Func Quitter()
    Exit
EndFunc

Jérôme

[Verification]

Merci à toi. Tu gère mec

[Verification]

J'aimerais bien savoir comment faire pour que quand on appuis sur F4, sa fasse les touches BAS HAUT DROITE.

Que dois-je modifier dans sa :

Code : Tout sélectionner

Haha ;)
 

Merci d'avance.