Discussion :

[ksalton]

Bonjour à tous,

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

j'en suis à ce stade :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?
Merci

[ericlm128]

Bonjour, c'est quoi 'MouseClick'.

Je te conseil plutôt d'utiliser autoit qui est fait pour ça.

[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 :

votre_programme /?

[ksalton]

Bonjour et merci de votre réponse.

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.

[ksalton]

Voici mon script (au format .au3):

Code au3 :

Sélectionner tout - Visualiser dans une fenêtre à part

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"...




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



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

[ericlm128]

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

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

[Invité]

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 bat :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ksalton]

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 au3 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

Merci encore de votre aide