Attendre l'ouverture d'une fenêtre

Bonjour,

Je cherche à créer un petit script qui permet sur un poste double écran de transférer la fenêtre que l'on ouvre vers l'écran approprié. J'utilise pour cela un objet com issu d'un programme qui se nomme ultramon.

j'ai le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10

dim wnd Set wnd = CreateObject("UltraMon.Window")   do while true If wnd.Find("Nom fenêtre", "", 1, 0, 0) = True Then wnd.Monitor = 2 wnd.ApplyChanges 0 End If loop

---

c'est tout simple et ça marche (à condition d'avoir installé le logiciel ultramon, evidemment).

Mon problème, c'est que il m'est ensuite impossible de faire glisser manuellement ma fenêtre vers le premier écran car automatiquement elle revient sur le deuxième.

Donc en clair, ce que je voudrais, c'est de ne la tranférer que lors de son ouverture.

j'aurais un petit script donc qui tournerait en tâche de fond et qui à chaque ouverture de fenêtre vérifie par rapport à son nom si elle doit être transférer ou non sur le deuxième écran.

Je te propose une chose :
à chaque fois que tu fait le passage d'un ecran à l'autre via ton script donc à l'ouverture de la fenetre, tu enregistre le nom de la fenetre dans une collection.
Dans ta boucle tu fait un test supplémentaire qui verifie si le nom de la fenêtre fait partis de la collection, et si c'est le cas tu ne fait rien, tu ne fait pas glisser la fenêtre.
En fait tu utilises une liste noir que tu remplie au fur et à mesure :)

effectivement j'étais en train d'étudier cette possibilité.

Cependant je me demande si il n'y a pas une méthode qui mobiliserait moins de CPU et de mémoire. car pour l'instant, le simple fait de faire une boucle infini et des tests à l'intérieur, c'est assez gourmand.

Est-ce qu'il n'existe pas une fonction du style winwait("nom fenêtre") qui met en pause le script jusqu'a l'ouverture d'une fenêtre ? C'est une fonction qui existe dans plusieurs langages (comme autoit par exemple)

une solution simple, dans ta boucle met :

Code:

---

WScript.Sleep(1000)

---

Ainsi tu ne test que toutes les secondes et cela devient beaucou, beaucoup moins gourmand en ressource.

Oui effectivement je n'y avais pas pensé. C'est vrai qu'un test par seconde ça peut-être suffisant.

On va dire que le problème est règlé.

Cependant j'ai fait mon script en autoit finalement. Le résultat est celui que j'attendais et je pense l'améliorer encore.

je sais qu'on est dans un forum vbs et non pas autoit mais je poste mon script des fois que ça intéresse quelqu'un. Et puis ce n'est pas très dur à convertir en vbs (sauf pour cette fameuse fonction winwait)

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

$wnd = ObjCreate ("UltraMon.Window") dim $WndHand[1]   while 1 WinWait("http://webfilenet") If $wnd.Find("http://webfilenet*", "", 1 , 0, 0) = True Then if not inArray($WndHand,$wnd.HWnd) Then $WndHand[UBound($WndHand)-1]=$wnd.HWnd ReDim $WndHand[UBound($WndHand)+1] $wnd.Monitor = 2 $wnd.ApplyChanges(0) EndIf EndIf WEnd   func inArray(ByRef $MyArray,$ElRech) For $enCours In $MyArray If $enCours = $ElRech Then return True EndIf Next return False EndFunc

---

PS : il manque un forum autoit sur ce super site www.developpez.net, c'est dommage

Je n'ai jamais entendu parlé d'autoit.
Est ce un langage de script d'autrefois.
lol je sais mes blagues sont pourries :aie:

je vais essayer de ne pas faire trop de pub ...

Première chose : autoit est un freeware. Il existe depuis plusieurs années et je crois qu'il a fait ses preuves (21400 membres sur le forum officiel, c'est mondial donc on peut pas dire que ce soit énorme, mais bon c'est déjà ça).

le fonctionnement en gros, tu écris tes scripts dans un éditeur de texte quelconque (extension .au3) quand tu dbl-clique dessus ils sont éxécutés automatiquement (normal). Mais le top du top, c'est que tu peux aussi les compiler en .exe et encore plus fort tu peux même décompiler les exe qui ont étés crées avec autoit.

L'utilisation au début était surtout destiné à automatiser les install et les taches répétitives car il a beaucoup de fonctionnalités liées à la recherche de fenêtre et à la manipulation de la souris et du clavier. Depuis il a évolué, pour devenir un langage de script puissant et complet (dans lequel tu peut même programmer des GUI)

Pour conclure, si tu es curieux, je te conseil d'y jeter un coup d'oeil, c'est assez intéressant et les bases sont plus ou moins les mêmes que pour n'importe quel langage.