[R] Changer de fenêtre rapidement.

[daxxxter]

Bonsoir!
Alors voilà j'ai essayé de faire un programme qui changerais de fenêtre rapidement.
Sur mon PC, il faut appuyer sur Windows+Maj+Tab puis choisir avec les flèches ou avec Tab et enfin appuyer sur Enter. Mon but: Appuyer sur Alt, afin de déclencher un send Window+Maj+Tab puis choisir avec les flèches et appuyer sur Enter.

Voilà mon code:

Code : Tout sélectionner

#include <Misc.au3>

Global $DLL = DllOpen("user32.dll")

HotKeySet("{Esc}","_Quitter")
HotKeySet("{ALT}","_Fenetre")

While 1
WEnd

Func _Quitter()
    Exit
EndFunc

Func _Fenetre()
Send("#+TAB")
While 1
If _IsPressed("{ENTER}",$DLL) Then 
    ExitLoop
EndIf
WEnd
EndFunc
DllClose($DLL)
 

Mais lorsque j'appuie sur Alt, rien ne se passe.

Merci de votre aide!

[mikell]

Send("#+{TAB}")

Suggestion : un Sleep(100) dans le While principal pour faire plaisir à la machine

[daxxxter]

Merci mais même en remplaçant le TAB par {TAB}, cela ne fonctionne toujours pas =$
Edit: Je viens d'essayer de remplacer le # par {LWIN}, le + par {LSHIFT}, et le {ALT} par {LALT}, mais ça ne fonctionne toujours pas. Quelqu'un pourrait m'aider SVP ^^

[mikell]

Faudrait tester le Send tout seul dans un script pour être sûr que le bug vient de là

[daxxxter]

Code : Tout sélectionner

While 1
    Send("#+{TAB}")
WEnd

Il fonctionne sous cette forme... alors pourquoi ne marche t-il pas lorsque j'appuie sur Alt??!

[mikell]

HotKeySet
The following hotkeys cannot be set:
Alt, Ctrl, Shift, Win These are the modifier keys themselves!

[daxxxter]

Ah merci c'est déjà un grand pas!
Mais en ayant remplacé ALT par {F12}, ca ne fonctionne pas ='(

[mikell]

Pas de pot

F12 : It is also reserved by Windows, according to its API

Je préconise une bonne lecture de l'aide, rubrique HotKeySet

[daxxxter]

Ca ne fonctionne toujours pas avec {F10} =(

x)

[mikell]

et avec une lettre ?

[daxxxter]

Problème résolu!!!

Si cela peut aider d'autres personnes, voici le code:

Code : Tout sélectionner

#include <Misc.au3>

Global $DLL = DllOpen("user32.dll")

HotKeySet("{Esc}","_Quitter")
HotKeySet("=","_Fenetre")

While 1
    Sleep(100)
WEnd

Func _Quitter()
    Exit
EndFunc

Func _Fenetre()
Send("#+{TAB}")
While 1
If _IsPressed("{ENTER}",$DLL) Then 
    ExitLoop
EndIf
WEnd
EndFunc
DllClose($DLL)
 

Merci beaucoup Mikell!!!

[Tlem]

N'oubliez pas la balise [R] dans le titre de votre premier message si votre sujet est résolu.