AutoIt Français

Code : Tout sélectionner

;
;=============================================================================================================================================
; L'objectif de ce scripte est de reprogrammer la touche ² afin qu'elle permette de passer d'une fenêtre à une autre parmi celles choisies.
; Lorsque l'on change de fenêtre active, on minimise l'actuelle
;
; La 1ère pression de la touche ² minimisera la dernière fenêtre et activera la première.
;
; Note d'utilisation : pour pouvoir ré-arranger à volonté des icônes dans la barre de tâches Windows, on peut utiliser le logiciel gratuit
;                      "7+ Taskbar Tweaker" et sélectionner l'option "Ne pas grouper"
;
;=============================================================================================================================================
;
; COMBINAISON SHIFT+PAUSE = Mettre en PAUSE
; COMBINAISON SHIFT+ESC   = Arreter le scripte
;

; Sources d'informations pour la récupération de caractéristiques et l'utilisation du code "handle" identifiant une fenêtre:
;	http://autoitscript.fr/forum/viewtopic.php?t=5731
;	http://www.autoitscript.fr/forum/viewtopic.php?t=975
;	http://autoitscript.fr/forum/viewtopic.php?t=5731

Global $Paused
HotKeySet("+{PAUSE}", "TogglePause")
HotKeySet("+{ESC}", "Terminate")
HotKeySet("{F9}", "Memo_Fenetres")
HotKeySet("{²}", "Switch_Fen")

Opt("SendKeyDownDelay", 100)

;Initialisations
;--------------- 
$NbFen = 0
$NbFen2 = 0
$NumFenMemo = 0
$NumFenActive = 0
$t = 100

;Boite de message indiquant les raccourcis
;-------------------------------------------

MsgBox(0, "Actions", "F9                        : Récupère et affiche les identifiants des N fenêtres actives" & chr(13) _
				   & "²                           : Switch entre les N fenêtres dans l'ordre de mémorisation " & chr(13) _
				   & "SHIFT + PAUSE : Mettre/ôter la pause du programme de macros" & chr(13) _
				   & "SHIFT + ESC      : Arreter le programme de macros")

;Boite de message demandant le nombre de fenêtre entre lesquelles on veut switcher et dimensionnement du tableau (attention index commençant à 0 !) 
;----------------------------------------------------------------------------------------------------------------------------------------------------
;InputBox ( "title", "prompt" [, "default" [, "password char" [, width [, height [, left [, top [, timeout [, hwnd]]]]]]]] )

While $NbFen <= 0
   $NbFen = InputBox("Nombre de fenêtres à mémoriser", "Combien de fenêtres voulez-vous mémoriser ?")
WEnd

Global $TabFen[$NbFen]
;MsgBox(0, "Valeurs tableau", "$TabFen[0]=" & $TabFen[0] & chr(13) & "$TabFen[1]=" & $TabFen[1])

;Boucle infinie formant le corps du programme
;---------------------------------------------
While 1
	Sleep($t)
WEnd

;********** MES FONCTIONS **********

;Mémorisation des ID des N fenêtres (touche F9)
;-----------------------------------------------
Func Memo_Fenetres()
   If $NumFenMemo < $NbFen Then
	  $NumFenMemo = $NumFenMemo + 1
	  $TabFen[$NumFenMemo - 1] = WinGetHandle("[ACTIVE]", "")
	  $NumFenActive = $NumFenMemo
	  MsgBox(0, "Récupération caractéristique fenêtre active", "Le Handle de la fenêtre active N°= " & $NumFenActive & " est : " & $TabFen[$NumFenActive - 1])
   Else
	  $NbFen2 = InputBox("Nombre de fenêtres à mémoriser", "Pour refaire mémorisation des fenêtres entrer leur nombre, sinon pressez sur la touche entrée ou cliquez sur OK ")
	  IF $NbFen2 > 0 Then
		 $NbFen = $NbFen2
		 Global $TabFen[$NbFen]
		 $NumFenMemo = 0
	  EndIf
   EndIf
EndFunc

;Balayage des fenêtres mémorisées en minimisant celle que l'on "quitte" (touche ²)
;-----------------------------------------------------------------------------------
Func Switch_Fen()
   WinSetState($TabFen[$NumFenActive - 1], "", @SW_MINIMIZE)
   If $NumFenActive < $NbFen Then
	  $NumFenActive = $NumFenActive + 1
   Else
	  $NumFenActive = 1
   EndIf
   WinActivate($TabFen[$NumFenActive - 1])
EndFunc

;----------------------------------

; Presser Pause/Attn pour mettre en pause

Func TogglePause()
     $Paused = NOT $Paused
     While $Paused
         sleep(100)
         ToolTip('Script is "Paused"',0,0)
     WEnd
;     ToolTip("")
EndFunc

;----------------------------------
; Presser Esc pour arreter le scripte

Func Terminate()
     Exit 0
EndFunc