Discussion :

[Eruil]

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 :

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

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.

[ced600]

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

[Eruil]

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)

[ced600]

une solution simple, dans ta boucle met :

Code :

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

WScript.Sleep(1000)

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

[Eruil]

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 :

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
 
$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

[ced600]

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