[R] Problème pour cocher de multiple CheckBox

[tomtom]

bonjour @ tous,

he oui c'est encore moi

Code : Tout sélectionner

Run("DivXInstaller.exe")
WinWait("Sélection de la langue","OK")
ControlCommand("Sélection de la langue","","ComboBox1","SetCurrentSelection",3)
ControlClick("Sélection de la langue","","OK")
WinWait("Installation de DivX for Windows","&Suivant >")
ControlClick("Installation de DivX for Windows","","&Suivant >")
WinWait("Installation de DivX for Windows","Annuler")
ControlCommand("Installation de DivX for Windows","",1034,"Check","")
WinWait("Installation de DivX for Windows","&Suivant >")
ControlClick("Installation de DivX for Windows","","&Suivant >")

;~je voudrais ne pas installer le divx player - le converter - le web player (j'ai essayé avec la fonction ControlTreeView mais sans résultat) sinon le reste fonctionne
ControlTreeView("Installation de DivX for Windows","",1032,"Uncheck","#1")
ControlTreeView("Installation de DivX for Windows","",1032,"Uncheck","#2")
ControlTreeView("Installation de DivX for Windows","",1032,"Uncheck","#3")

WinWait("Installation de DivX for Windows","&Suivant >")
ControlClick("Installation de DivX for Windows","","&Suivant >")
WinWait("Installation de DivX for Windows","&Suivant >")
ControlClick("Installation de DivX for Windows","","&Suivant >")
WinWait("Installation de DivX for Windows","&Suivant >")
ControlCommand("Installation de DivX for Windows","",1201,"Check","")
ControlClick("Installation de DivX for Windows","","&Suivant >")
WinWait("Installation de DivX for Windows","&Fermer")
ControlClick("Installation de DivX for Windows","","&Fermer")
 

voila est-ce que quelqu'un peut m'expliquer comment fonctionne ce type de control et comment les atteindre (les cocher, décocher) ...?

Merci

[eln]

Bonjour

Je n'ai rien trouvé de mieux que de se déplacer dans l'arborescence et de décocher avec la barre "Espace". Il suffit de traduire avec

Code : Tout sélectionner

Send

Code : Tout sélectionner

WinWait("Installation de DivX for Windows", "Choisissez les composants")
WinActivate("Installation de DivX for Windows")
Send("{RIGHT}")
Send("{DOWN 6}")
Send("{SPACE}")
Send("{DOWN}")
Send("{SPACE}")
Send("{DOWN}")
Send("{SPACE}")
Send("{DOWN}")
Send("{SPACE}")
Send("{DOWN}")
Send("{SPACE}")
ControlClick("Installation de DivX for Windows", "Choisissez les composants", "Button2")

(Exemple adapté à mon install)

[tomtom]

Merci,

ça marche,

tomtom