Help Script AutoIt

Help Script AutoIt - Logiciels - Windows & Software

Marsh Posté le 23-03-2010 à 15:09:55    

Bonjour, j'ai télécharger Autoit pour pouvoir faire des macro sur mon clavier, mais j'ai un problème avec un script.
 
J'ai fais un script qui me permet de taper plusieurs touche du clavier grace à la touche f1.  
Quand j'appuie sur la touche f1 j'ai les touche =)àç qui s'exécute.  
J'ai voulu améliorer le script pour pouvoir attribuer d'autre touche à f1 tout en pouvant switch entre les deux combinaison de touches que je veux exécuter avec f1.  
 
Combinaison 1 =)àç
Combinaison 2 _è-(  
 
Je voudrais switch entre les deux combinaison grace à la touche f4. Le problème c'est que j'arrive à switch une première fois mais pas une seconde fois.  
Au lancement du script je commence avec la combinaison 1, puis quand je fais f4 je switch sur la combinaison 2, mais impossible de revenir sur la combinaison 1.
 
Si quelqu'un pouvait m'aidé ca serait sympa.
 
Voila le script
 

Code :
  1. Opt('SendKeyDelay', 1)
  2. Opt('SendKeyDownDelay', 1)
  3. Opt('MouseClickDownDelay', 1)
  5. HotKeySet("{F1}","cast" )
  6. HotKeySet("{F4}","_switch" )
  8. Dim $test=0
  9. While 1
  10.     Sleep(100)
  11. WEnd
  14. Func cast()
  16. If $test=0 Then
  17.     Send("=" )
  18.     Send(" )" )
  19.     Send("à" )
  20.     Send("ç" )
  21. Else
  22.     Send("_" )
  23.     Send("è" )
  24.     Send("-" )
  25.     Send("(" )
  26. EndIf
  27. EndFunc
  29. Func _switch()
  31. $test=1
  32. EndFunc


 
Merci d'avance

Reply

Marsh Posté le 23-03-2010 à 15:09:55   

Reply

Marsh Posté le 23-03-2010 à 17:22:35    

Esssayer

Func _switch()
If $test=1 Then
  $test=0
Else
  $test=1
EndIf
EndFunc

Ou

Func _switch()
  $test = 1 - $test
EndFunc


Reply

Marsh Posté le 23-03-2010 à 17:36:51    

Merci pour ton aide bill, mais j'ai finalement trouver en cherchant un peut.
 
suffisait de rajouter

Code :
  1. HotKeySet("{NUMPAD2}","_EndSwitch" )

et  
 

Code :
  1. EndFunc
  3. Func _EndSwitch()
  5. $test=0
  6. EndFunc


 
Ce qui donne  
 

Code :
  1. Opt('SendKeyDelay', 1)
  2. Opt('SendKeyDownDelay', 1)
  3. Opt('MouseClickDownDelay', 1)
  5. HotKeySet("{F1}","cast" )
  6. HotKeySet("{NUMPAD1}","_switch" )
  7. HotKeySet("{NUMPAD2}","_EndSwitch" )
  9. Dim $test=0
  10. While 1
  11.     Sleep(100)
  12. WEnd
  15. Func cast()
  17. If $test=0 Then
  18.     Send("=" )
  19.     Send(" )" )
  20.     Send("à" )
  21.     Send("ç" )
  22. Else
  23.     Send("_" )
  24.     Send("è" )
  25.     Send("-" )
  26.     Send("(" )
  27. EndIf
  28. EndFunc
  30. Func _switch()
  32. $test=1
  33. EndFunc
  35. Func _EndSwitch()
  37. $test=0
  38. EndFunc


Message édité par tazbox le 23-03-2010 à 17:37:48
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed