Page 1 sur 1

[R] Aide pour un finaliser un script

Posté : dim. 17 févr. 2008 23:31
par therion
Bonsoir je ne sais pas si je post au bon endroit mais bon voila je vous expose mon probleme.Je recherchais un programme pour créé une touche de raccourcis pour simulier une action de touche du clavier (en claire: en appuyant sur le 0 du pavé numérike je voudrais que cela revienne au meme que d'appuyer une fois sur H , ensuite une fois sur C, ensuite vérouiller shift(shiftdown), appuyer 7 fois sur tabulation et enfin dévérouiller shift (shiftup).N'ayant aucune idée pour réaliser cela j'ai fait durant plusieur heures des recherches sur google je suis arrivé sur autoIt.J'ai fait énormément de recherche et je suis parvenu a faire un script:

Code : Tout sélectionner

#Include <Misc.au3> 
$cpt=0 
$i = 2
While ($i <> 1)
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
   If _IsPressed("60") Then 
        Send("H")
        Send("C")
        Send("{SHIFTDOWN}") 
        send("{TAB}")
    send("{TAB}")
    send("{TAB}")
    send("{TAB}")
    send("{TAB}")
    send("{TAB}")
        send("{TAB}")
    Send("{SHIFTUP}")
    
    Sleep(1500000000)    
      EndIf                     
  

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
Wend
Func My_exit() 

   Exit 0 
EndFunc

Comme vous pourrez le constater j'ai utilisé une boucle infinie (while1) avec une tres grosse tempo ce qui me semble inadaptée dans mon cas.Ensuite je ne suis pas parvenue a faire fonctionner les touches H et C il me semble que je dois les remplacer par des chiffres ("X") dans ce genre mais je ne trouves aucune information sur ce sujet.J'aimerais savoir si quelqu'un pourrait m'aidait pour mettre autre chose que ma tempo infinie pour que je puisses recomencer l'action en appuyant sur mon 0 du pavé numérique et aussi m'expliquer comment trouver les équivalences des lettres en nombres.Coordialement

Re: Aide pour un scripte

Posté : lun. 18 févr. 2008 00:49
par SurPriseS
essaye avec sa :

Code : Tout sélectionner

while 1
func()
wend
sinon ta la liste des codes hexa ici : http://www.autoitscript.com/forum/index ... ntry443906
Enfaite la commande récupère le code hexa des touches pour les interprétés

pour finir je suis pas sur qu'il faille les "" dans :

Code : Tout sélectionner

If _IsPressed("60") Then

Re: Aide pour un scripte

Posté : lun. 18 févr. 2008 00:51
par therion
merci beaucoup.

Re: Aide pour un scripte

Posté : lun. 18 févr. 2008 01:15
par therion
j'ai essayer en mettant les lettres H et C en hexadécimal (43) et (48) mais ca ne donne rien.Ensuite la fonction While1 est faite pour une boucle infinie donc je ne pourrais stopper le scripte en appuyant sur un bouton et redémarrer ensuite si necessaire? je ne comprends pas trop a quoi correspond la fonction "func()".

J'ai oublié de marquer l'intêret de mon projet c'est pour lancer une tache dans un automate pour mon PPE.

Coordialement.

Re: Aide pour un scripte

Posté : lun. 18 févr. 2008 10:57
par eln
Bonjour

Code : Tout sélectionner

#include <Misc.au3>

HotKeySet("{ESC}", "Terminate") ; Appuyer sur la touche ESC pour exécuter fonction Terminate

While 1
    Sleep(250)
    If _IsPressed("60") Then
        Fonction()
    EndIf
WEnd

Func Fonction()
    Send("H")
    Send("C")
    Send("+{TAB 7}") ;Presser SHIFT+TAB 7 fois
EndFunc   ;==>Fonction

Func Terminate()
    Exit 0
EndFunc   ;==>Terminate
Les touches H et C fonctionnent, testé avec le bloc-notes ouvert en arrière plan.

[R]Re: Aide pour un scripte

Posté : lun. 18 févr. 2008 12:13
par therion
Merci je l'ai testé cela marche.Je vais tenté de progresser au niveau de la programmation.Merci encore.Coordialement

Re: [R] Aide pour un finaliser un script

Posté : lun. 18 févr. 2008 22:43
par Tlem
Quelques recommandations pour vos prochaines questions :

- Commencer le titre de votre post par [..]
- Utilisez les balises de code pour vos codes.
- Remplacer le [..] du titre par [R] si le sujet est résolu.

Merci