[R] Aide pour un finaliser un script

Aide et conseils concernant AutoIt et ses outils.
Règles du forum
.
Répondre
therion
Niveau 1
Niveau 1
Messages : 4
Enregistré le : dim. 17 févr. 2008 23:15
Status : Hors ligne

[R] Aide pour un finaliser un script

#1

Message 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
SurPriseS
Niveau 6
Niveau 6
Messages : 291
Enregistré le : jeu. 06 sept. 2007 11:35
Localisation : Finistère sud
Status : Hors ligne

Re: Aide pour un scripte

#2

Message 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
therion
Niveau 1
Niveau 1
Messages : 4
Enregistré le : dim. 17 févr. 2008 23:15
Status : Hors ligne

Re: Aide pour un scripte

#3

Message par therion »

merci beaucoup.
therion
Niveau 1
Niveau 1
Messages : 4
Enregistré le : dim. 17 févr. 2008 23:15
Status : Hors ligne

Re: Aide pour un scripte

#4

Message 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.
Avatar du membre
eln
Niveau 6
Niveau 6
Messages : 202
Enregistré le : sam. 28 juil. 2007 12:54
Status : Hors ligne

Re: Aide pour un scripte

#5

Message 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.
Débutant, pas taper !
therion
Niveau 1
Niveau 1
Messages : 4
Enregistré le : dim. 17 févr. 2008 23:15
Status : Hors ligne

[R]Re: Aide pour un scripte

#6

Message par therion »

Merci je l'ai testé cela marche.Je vais tenté de progresser au niveau de la programmation.Merci encore.Coordialement
Avatar du membre
Tlem
Site Admin
Site Admin
Messages : 11784
Enregistré le : ven. 20 juil. 2007 21:00
Localisation : Bordeaux
Status : Hors ligne

Re: [R] Aide pour un finaliser un script

#7

Message 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
Thierry

Rechercher sur le forum ----- Les règles du forum
Le "ça ne marche pas" est une conséquence commune découlant de beaucoup trop de raisons potentielles ...

Une idée ne peut pas appartenir à quelqu'un. (Albert Jacquard) tiré du documentaire "Copié n'est pas volé".
Répondre