#include-once


Func wa($snd = "")
	
; Options de la fonction  (N.B. Tous les paramètres doivent être séparés par 
; Les 3 premiers paramètres, dans l'ordre: 
;			1. Titre de la fenêtre
;           2. Texte spécifique à la fenêtre
;			3. Délai entre chaque opérations (sleep de 300 ms par défaut (si aucun paramètres entrés))
;           4. et plus, la commande Send (sauf si autres commandes rencontrés (voir plus bas))
;           si $cs est rencontré, les 2 prochains paramètres seront utilisés pour faire un "controlsend" 
$cs ="#"    ; le premier paramètre suivant $cs sera le controlid et le deuxième la commande send
$cs2 = "##" ;  Control send 2 string au même controlID
$cs3 = "###" ;  Control send 3 string au même controlID
$d = "S"	; le paramètre qui suit sera un délai supplémentaire ajouté (sleep)
$msg = "MSG" ; msgbox Titre : Param 1 , Texte : Param 2
$dmsg = "DMSG"   ; msgbox qui se ferme après 5 secondes  Titre : Param 1, Texte : Param 2
$tmsg = "TMSG"     ;msgbox qui se ferme après $snd[$i] Titre : Param 1, Texte : Param 2, Temps avant la fermeture automatique : Param 3
$cc = "CC"			; Control Click sur Bouton
$ccxy = "CCXY"		; Control Click sur controlID au coordonnées X, Y . Param 1 : ControlID  , Param 2 : X,  Param 3 : Y
$ccrxy = "ccrxy"    ; Control Click sur controlID avec le bouton droit au coordonnées X, Y . Param 1 : ControlID  , Param 2 : X,  Param 3 : Y
$mc = "MC"		 	; Mouse Click au coordonnées X, Y.  Param 1 : X  , Param 2 : Y
$mc2 = "MC2"        ; Mouse Click (2X) au coordonnées X, Y.  Param 1 : X  , Param 2 : Y
$md = "MD"			; Mouse Down   Param : Bouton
$mu = "MU"			; Mouse Up  	Param : Bouton
$mcr = "MCR"        ; Mouse Click avec bouton droit au coordonnées X, Y.  Param 1 : X  , Param 2 : Y
$mm = "MM"			; Mouse Move aux coordonnées X, Y. Param 1 : X , Param 2 : Y
$mw = "MW"    		; Mouse Wheel Param 1 : Directions ( Up, Down )  Param 2 : Nombre de clics 


$snd = StringSplit($snd, "|")
$t = $snd[1]
$tt = $snd[2]
$sleep = 300
WinWait($t,$tt)
    IF Not WinActive($t, $tt) Then WinActivate($t, $tt)
    WinWaitActive($t, $tt)

For $i = 4 To $snd[0]
	
	; CONTROL SEND
	
if $snd[$i] = $cs Then
	    ElseIf $snd[$i-1] = $cs Then
		ElseIf $snd[$i-2] = $cs Then
			Sleep($sleep)
			ControlSend($t,$tt,$snd[$i-1],$snd[$i])
			
			; Control Send 2 string au même ControlID
		ElseIf $snd[$i] = $cs2 Then
		ElseIf $snd[$i-1] = $cs2 Then
		ElseIf $snd[$i-2] = $cs2 Then
		ElseIf $snd[$i-3] = $cs2 Then
			Sleep($sleep)
			ControlSend($t,$tt,$snd[$i-2],$snd[$i-1])
			Sleep($sleep)
			ControlSend($t,$tt,$snd[$i-2],$snd[$i])
			; Control Send 3 string au même control id
		ElseIf $snd[$i] = $cs3 Then
		ElseIf $snd[$i-1] = $cs3 Then
		ElseIf $snd[$i-2] = $cs3 Then
		ElseIf $snd[$i-3] = $cs3 Then
		ElseIf $snd[$i-4] = $cs3 Then
			Sleep($sleep)
			ControlSend($t,$tt,$snd[$i-3],$snd[$i-2])
			Sleep($sleep)
			ControlSend($t,$tt,$snd[$i-3],$snd[$i-1])
			Sleep($sleep)
			ControlSend($t,$tt,$snd[$i-3],$snd[$i])
			; DÉLAI SUPPLÉMENTAIRE
		ElseIf $snd[$i] = $d Then
		ElseIf $snd[$i-1] = $d Then
			Sleep($snd[$i])
			; MESSAGE 
		ElseIf $snd[$i] = $msg Then
		ElseIf $snd[$i-1] = $msg Then
		ElseIf $snd[$i-2] = $msg Then
			MsgBox(0,$snd[$i-1],$snd[$i])
			; Message se fermant après 5 secondes
		ElseIf $snd[$i] = $dmsg Then
		ElseIf $snd[$i-1] = $dmsg Then
		ElseIf $snd[$i-2] = $dmsg Then
			MsgBox(0,$snd[$i-1],$snd[$i],"5")
			; Message se fermant après "X" secondes
		ElseIf $snd[$i] = $tmsg Then
		ElseIf $snd[$i-1] = $tmsg Then
		ElseIf $snd[$i-2] = $tmsg Then
		ElseIf $snd[$i-3] = $tmsg Then
			MsgBox(0,$snd[$i-2],$snd[$i-1],$snd[$i])
			; Control Click sur Bouton
		ElseIf $snd[$i] = $cc Then
		ElseIf $snd[$i-1] = $cc Then
			ControlClick($t,$tt,$snd[$i])
			; Control Click sur coordonnées 
		ElseIf $snd[$i] = $ccxy Then
		ElseIf $snd[$i-1] = $ccxy Then
		ElseIf $snd[$i-2] = $ccxy Then
		ElseIf $snd[$i-3] = $ccxy Then
			ControlClick($t,$tt,$snd[$i-2],"","",$snd[$i-1],$snd[$i])
			; Control Click avec bouton droit sur coordonnées 
		ElseIf $snd[$i] = $ccrxy Then
		ElseIf $snd[$i-1] = $ccrxy Then
		ElseIf $snd[$i-2] = $ccrxy Then
		ElseIf $snd[$i-3] = $ccrxy Then
			ControlClick($t,$tt,$snd[$i-2],"right","",$snd[$i-1],$snd[$i])
			; Mouse Click
		ElseIf $snd[$i] = $mc Then
		ElseIf $snd[$i-1] = $mc Then
		ElseIf $snd[$i-2] = $mc Then
			MouseClick("left",$snd[$i-1],$snd[$i])
			; Mouse Click 2 X 
		ElseIf $snd[$i] = $mc2 Then
		ElseIf $snd[$i-1] = $mc2 Then
		ElseIf $snd[$i-2] = $mc2 Then
			MouseClick("left",$snd[$i-1],$snd[$i],2)
			; Mouse Down
		ElseIf $snd[$i] = $md Then
		ElseIf $snd[$i-1] = $md Then
			MouseDown($snd[$i])			
			; Mouse Up
		ElseIf $snd[$i] = $md Then
		ElseIf $snd[$i-1] = $md Then
			MouseUp($snd[$i])			
			; Mouse Click Right
		ElseIf $snd[$i] = $mcr Then
		ElseIf $snd[$i-1] = $mcr Then
		ElseIf $snd[$i-2] = $mcr Then
			MouseClick("right",$snd[$i-1],$snd[$i])
			; Mouse Move
		ElseIf $snd[$i] = $mm Then
		ElseIf $snd[$i-1] = $mm Then
		ElseIf $snd[$i-2] = $mm Then
			MouseMove($snd[$i-1],$snd[$i])
			; Mouse Wheel
		ElseIf $snd[$i] = $mw Then
		ElseIf $snd[$i-1] = $mw Then
		ElseIf $snd[$i-2] = $mw Then
			MouseWheel($snd[$i-1],$snd[$i])			
		   ; SEND
		Else
			Sleep($sleep)
			Send($snd[$i]) 
	EndIf
	  

Next




EndFunc



wa("|||test")