Discussion :

[thomas.harlay]

Bonjour à tous,
voila je suis tout nouveau ici, tout autant que dans la programmation. Mais bon il y à un début à tout
J'aimerai effectuer une condition sur le titre d'une fenêtre, mais une fenêtre ouverte dans un programme.
Pour tester une fenêtre tout court pas de problème, j'ai pris l'exemple de la calculatrice ce qui donne ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run("calc.exe")
WScript.Sleep 200
WshShell.AppActivate "Calculatrice"
WScript.Sleep 200
Dim verifTitre
VerifTitre = WshShell.AppActivate ("Calculatrice") 
if VerifTitre = true then 
	wscript.echo "Calculatrice activée"
else 
	wscript.echo "Où est la calculatrice ?"
end if

Mon problème est donc que si je veux effectuer ce test dans un programme comportant plusieurs fenêtres, ou en tout cas au moins une à l'intérieur du programme, ca ne fonctionne plus.

Quelqu'un serait il tenter d’être un dieu de la programmation a mes yeux et me sauver la vie ? Merci d'avance pour vos aides, suggestions, solutions.

[omen999]

bonjour,

dans un programme comportant plusieurs fenêtres, ou en tout cas au moins une à l'intérieur du programme,

ça s'appelle une fenêtre enfant
la méthode AppActivate n'est pas conçue pour localiser et activer ce genre de fenêtre
il faut donc recourir à un composant extérieur capable de fournir ce genre de fonction
l'un des plus répandus : AutoItX
il faut enregistrer le composant AutoItX3.dll (ou AutoItX3_x64.dll sur un os 64) et écrire ce genre de code :

Code :

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

1
2
3
Set oAutoIt = WScript.CreateObject("AutoItX3.Control")
oldvalue = oAutoIt.Opt("WinSearchChildren", 1)
oAutoIt.WinActivate "Sans titre - Bloc-notes", ""

l'exemple n'est pas très spectaculaire puisque le notepad n'a pas de fenêtre enfant avec un titre exploitable...