Discussion :

[tokytok]

Bonjour à tous,

Je suis entrain de développer un petit script me permettant de lister toutes les fenêtres ouvertes et d'en extraire des infos comme le nom ou encore la largeur.

Le problème c'est que le script que si Word est installé.

monScript.vbs :

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
Dim console
Set console = WScript.StdOut
Dim myString
myString = ""
 
Set Word = CreateObject("Word.Application")
Set Tasks = Word.Tasks
Set colTasks = Word.Tasks
For Each Task in Tasks
    If Task.Visible Then 
        If colTasks.Exists(Task.Name) Then
            myString = myString & "@@##@@" & colTasks(Task.Name).Name & ","& colTasks(Task.Name).Width
        End If  
   End If
Next
Word.Quit
console.WriteLine myString

Est il possible de faire un script me renvoyant le même résultat, mais fonctionnant sur toutes les machines Windows nativement?

Je vous remercie pour votre aide.

[LoksBur]

Bonjour,
Ton script ne fonctionne pas que si word est installé, tu ne recherche que les fenetres de word :

Set Word = CreateObject("Word.Application")

Le createObject() est me semble utile que pour certaine application, donc limité ta liste de fenetre ouverte avec les appli compatible...

Sinon il faudrait regarder du coté des API windows (user32.dll par exemple avec la fonction getWindowRect pour la position et la taille d'une fenetre).

Je te dit bon courage car en vbs ce n'est pas si simple (du moins sa doit faire quelques semaines que je recherche comment récuperer la position d'une fenetre et je n'ai toujours pas trouvé...)

Bonne journée

edit: sinon tu peut également citer les processus, et à partir de là peut etre y a t'il une possibilité de récuperer des infos ... juste une piste de reflexion... si quelqu'un peu confirmer ou infirmer...
et je serai bien interesser par ton code si tu arrive a le mener à bien