Automation d'une application en script .bat

Version imprimable

20/06/2016, 18h05
ksalton

Automation d'une application en script .bat
Bonjour à tous,

J'aimerais automatiser l'exécution d'une application (Glary Utilities)

j'en suis à ce stade :
Code:

1 2 3 4 @echo off start "" "C:\Program Files (x86)\Glary Utilities 5\OneClickMaintenance.exe exit
La fenêtre "OneClickMaintenance" s'ouvre bien.
Mon problème c'est que je dois cliquer sur un bouton "Analyser" pour que la maintenance s'exécute.

J'ai donc essayé avec la commande :

Code:

MouseClick ( "button" [, x, y [, clicks [, speed ]]] )

Soit mes coordonnées x, y sont fausses, soit il manque une donnée, car j'en suis au même point.
j'avoue que pour trouver les coordonnées x, y de mon pointeur j'ai un peu de mal. :?:?

Quelqu'un peut-il m'aider ? :roll::roll:
Merci
21/06/2016, 11h56
ericlm128

Bonjour, c'est quoi 'MouseClick'.

Je te conseil plutôt d'utiliser autoit qui est fait pour ça.
21/06/2016, 13h12
LittleWhite

Bonjour,

Vous pouvez aussi voir si l'application que vous lancez peut prendre des arguments dans la ligne de commande. Dans un tel, il devrait être possible de lancer l'action directement.
Pour obtenir une hypothétique liste des options, essayez :

Citation:

votre_programme /?
21/06/2016, 14h18
ksalton

Bonjour et merci de votre réponse. :D

Citation:

Envoyé par ericlm128

c'est quoi 'MouseClick'.

"MouseClick" c'est pour dire dans le fichier .bat que :
- tu fais un clic gauche ou droite
- grâce aux coordonnées tu peux programmer un clic à un point précis de ton écran.
Ce qui permet de valider les choix lorsqu'une application démarre.
Mais bon, je n'ai pas réussi avec cette méthode, je vais tester la votre.

3 pièce(s) jointe(s)

Test avec Autoit

Voici mon script (au format .au3):
Code:

1 2 3 4 5 6 7 8 9 10 ShellExecute("C:\Program Files (x86)\Glary Utilities 5\OneClickMaintenance.exe") WinWaitActive("Analyser") If WinWaitActive("Analyser") Then Send ("{SPACE}") Else MsgBox(0,"Problem !!!") EndIf TrayTip("Analyser", 1000)
Cependant, je reste encore bloquer sur la fenêtre où il faut cliquer (ou faire espace) sur "Analyser"...

Pièce jointe 213548
Pièce jointe 213549

Ensuite, il me restera à automatiser la tâche : "Réparer".

Pièce jointe 213550

Je ne suis pas au bout de mes peines, surtout que je ne connais vraiment rien en script, mais je m'y intéresse.

21/06/2016, 19h14
ericlm128

C'est bien déjà on sens que tu est motivé :D.

Tu as installé autoit, tu doit avoir un outil dans le "menu démarer -> ...-> AutoIt Window Info (x86)"
Il te permettra de cibler exactement ce que tu veux 'le bouton analyser", et trouver le bon "controlID" correspondant.

Il n'y a plus qu'a utiliser "ControlClick", tu as un exemple sur le lien donné.
https://www.autoitscript.com/autoit3...ntrolClick.htm

Bonjour,

Ayant un petit peu tripoté Autoit, je me permet de poster mon script que je viens de faire pour voir si j'étais rouillé ^^

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#requireadmin
 
; Affiche en bas à droite un message informant du début de la tâche
TrayTip("Maintenance - Glary Utilities 5","Début de la tâche de maintenance de Glary Utilities 5", 3000)
Run("C:\Program Files (x86)\Glary Utilities 5\OneClickMaintenance.exe")
 
WinWait("Maintenance 1-Clic", "Nettoyage")
WinActivate("Maintenance 1-Clic", "Nettoyage")
; On coche les options qui ne sont pas sélectionnées
ControlCommand("Maintenance 1-Clic", "Nettoyage", "Button6", "Check", "")
ControlCommand("Maintenance 1-Clic", "Nettoyage", "Button8", "Check", "")
ControlCommand("Maintenance 1-Clic", "Nettoyage", "Button10", "Check", "")
ControlCommand("Maintenance 1-Clic", "Nettoyage", "Button12", "Check", "")
ControlCommand("Maintenance 1-Clic", "Nettoyage", "Button14", "Check", "")
ControlCommand("Maintenance 1-Clic", "Nettoyage", "Button16", "Check", "")
ControlCommand("Maintenance 1-Clic", "Nettoyage", "Button18", "Check", "")
; On clique sur "Analyse"
If ControlCommand("Maintenance 1-Clic", "Nettoyage", "[ID:1000]", "IsVisible", "") Then ControlClick("Maintenance 1-Clic", "Nettoyage", "[CLASS:Button; INSTANCE:4]")
; On clique sur "Réparer"
If ControlCommand("Maintenance 1-Clic", "Réparer", "[ID:1001]", "IsVisible", "") Then ControlClick("Maintenance 1-Clic", "Réparer", "[CLASS:Button; INSTANCE:2]")
 
; Affiche en bas à droite un message informant de la fin de la tâche
TrayTip("Maintenance - Glary Utilities 5","Fin de la tâche de maintenance de Glary Utilities 5", 3000)

Pour info tu n'as pas besoin d'installer Autoit, il te faut juste trois outils:
Au3Info_x64.exe pour récupérer les informations de la fenêtre
AutoIt3_x64.exe pour exécuter ton .AU3
et les Includes nécessaires.

En espérant avoir été utile.

1 pièce(s) jointe(s)

Merci de votre réactivité et de votre aide

Merci à tous ceux qui ont pris la peine de se pencher sur mon problème,

tout particulièrement à Devilsnake88 qui m'a gentiment mâché le travail.

Je n'ai eu qu'à modifier pour décocher les options dont je n'avais pas besoin.
copier coller la méthode du "nettoyage" pour que "Réparer" s'exécute.

Voici donc mon script final : (désolé je ne sais pas l'intégrer au message tel que l'a fait Devilsnake88)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
#requireadmin
 
; Affiche en bas à droite un message informant du début de la tâche
TrayTip("Maintenance - Glary Utilities 5","Début de la tâche de maintenance de Glary Utilities 5", 3000)
Run("C:\Program Files (x86)\Glary Utilities 5\OneClickMaintenance.exe")
 
WinWait("Maintenance 1-Clic", "Nettoyage")
WinActivate("Maintenance 1-Clic", "Nettoyage")
; On coche les options qui ne sont pas sélectionnées
ControlCommand("Maintenance 1-Clic", "Nettoyage", "Button6", "Check", "")
ControlCommand("Maintenance 1-Clic", "Nettoyage", "Button8", "unCheck", "")
ControlCommand("Maintenance 1-Clic", "Nettoyage", "Button10", "unCheck", "")
ControlCommand("Maintenance 1-Clic", "Nettoyage", "Button12", "unCheck", "")
ControlCommand("Maintenance 1-Clic", "Nettoyage", "Button14", "unCheck", "")
ControlCommand("Maintenance 1-Clic", "Nettoyage", "Button16", "Check", "")
ControlCommand("Maintenance 1-Clic", "Nettoyage", "Button18", "unCheck", "")

; On clique sur "Analyse"
If ControlCommand("Maintenance 1-Clic", "Nettoyage", "[ID:1000]", "IsVisible", "") Then ControlClick("Maintenance 1-Clic", "Nettoyage", "[CLASS:Button; INSTANCE:4]")
WinWait("Maintenance 1-Clic", "Réparer")
WinActivate("Maintenance 1-Clic", "Réparer")
ControlCommand("Maintenance 1-Clic", "Réparer", "Button6", "Check", "")
ControlCommand("Maintenance 1-Clic", "Réparer", "Button8", "unCheck", "")
ControlCommand("Maintenance 1-Clic", "Réparer", "Button10", "unCheck", "")
ControlCommand("Maintenance 1-Clic", "Réparer", "Button12", "unCheck", "")
ControlCommand("Maintenance 1-Clic", "Réparer", "Button14", "unCheck", "")
ControlCommand("Maintenance 1-Clic", "Réparer", "Button16", "Check", "")
ControlCommand("Maintenance 1-Clic", "Réparer", "Button18", "unCheck", "")
; On clique sur "Réparer"
If ControlCommand("Maintenance 1-Clic", "Réparer", "[ID:1001]", "IsVisible", "") Then ControlClick("Maintenance 1-Clic", "Réparer", "[CLASS:Button; INSTANCE:2]")
 
; Affiche en bas à droite un message informant de la fin de la tâche
TrayTip("Maintenance - Glary Utilities 5","Fin de la tâche de maintenance de Glary Utilities 5", 3000)

Pièce jointe 213844

Merci encore de votre aide ;)