Reconnaitre et activer Application

Version imprimable

23/06/2015, 18h13
webosama80

Reconnaitre et activer Application

Bonjour à tous,

Je n'arrive pas à trouver exactement ce que je veux sur la toile et c'est pour ça que je m'adresse à vos connaissances.

Via une Application Windows Form en VB, je cherche à cliquer sur un bouton qui me ferait la chose suivante:
1étape : cela vérifie si une application "toto.exe" est en cours d’exécution, si oui on continue dans le code, sinon message d'alerte et exit du code,
Puis : si UNE SEULEapplication "toto.exe" est en cours d’exécution, message d'alerte puis fin du code, si plusieurs "toto.exe" sont en cours d’exécution alors m'afficher les fenêtres des toto.exe pour sélectionner celle que je veux activer, puis message me disant qu'elle est activée.

Merci à vous

Alexandre

Bonjour,

Je te propose de regarder du coté de la méthode Process.GetProcesses qui va permettre de lister les processus en cours d’exécution sur la machine.
Ensuite, tu filtre le résultat par rapport au processus voulu (toto.exe).

Exemple :

Code:

Dim processes As List(Of Process) = Process.GetProcesses.Where(Function(process) process.MainModule.ModuleName = "toto.exe").ToList

Ensuite s'il y a plusieurs éléments dans la liste, tu peux créer une Form qui affichera le titre par exemple des processus concernés et qui retournera la sélection.

Enfin, pour activer la window concernée il faut utiliser une fonction exportée de user32.dll qui permet de mettre au premier plan la fenêtre ayant le handle passé en paramètre :
Code:

1 2 3 4 5 6 7 8 9 10 11 <DllImport("user32.dll")> Private Function SetForegroundWindow(ByVal hWnd As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean End Function Sub Main() '... ' Sélection du process etc.. SetForegroundWindow(monProcess.MainWindowHandle) End Sub
Il y a cependant des restrictions sur l'utilisation de la propriété Process.MainModule, une exception est levée si on tente d'accéder à un processus 64 bits depuis un processus 32 bits.

En espérant avoir aidé :).

Bonne soirée.

24/06/2015, 09h00
webosama80

Merci pour ta réponse, mais étant débutant et autodidacte dans ce monde de programmation, pourrais tu me faire vite fait si tu as le temps (et si c'est rapide pour toi) une petite solution visual studio avec une demo de tout ça car franchement je comprends des choses mais pas tout des fois.

Alors j'ai un début peut etre du coup :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
		Public Sub ()
 
		Dim Myprocesses() As Process
       		Myprocesses = Process.Getprocessesbyname("TOTO")
       		' Test Si Au Moins Un Process TOTO Est En Cours
       		If Myprocesses.Length = 0 Then
       			Msgbox ("No Existing TOTO !", Vbcritical, "Oups ! Some Problem ...")
       			Exit Sub
       		End If
       		' Test Si Plusieurs Process TOTO Sont En Cours
         	If Myprocesses.Length > 1 Then
         		Msgbox ("Plusieurs TOTO Ouverts")
         		'On va choisir la fenetre à activer
         	Else
         		Msgbox ("Un Seul TOTO")
         	End If	
 
		End Sub

Avec :
Imports System
Imports System.Diagnostics
Imports System.ComponentModel

24/06/2015, 19h17
Cryptark

Voila un bon début, ensuite avec le code je te t'ai donné ci-dessous tu va pouvoir mettre le processus de ton choix au premier plan. Si tu en as qu'un il suffit de faire :

Code:

SetForegroundWindow(Myprocesses(0).MainWindowHandle)

Sinon une Form peut s'afficher permettant de choisir le processus voulu (avec une ComboBox par exemple). Sur ce point, si tu maîtrise mal le sujet, je te conseille de te documenter via les cours sur developpez.net et/ou via les multitudes de ressources sur Internet.

Note : Tu ne devrai pas avoir besoin de System.ComponentModel.

Bonne soirée

ALors grace à tes conseils, j'ai (pour exemple j'ai pris 2 excel d'ouverts), et cela me mets en avant excel :

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
25
26
27
Imports System
Imports System.Diagnostics
Imports System.Runtime.InteropServices
 
Module Module1
    <DllImport("user32.dll")> Private Function SetForegroundWindow(ByVal hWnd As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
    End Function
    Sub Main()
 
        Dim Myprocesses() As Process
        Myprocesses = Process.GetProcessesByName("EXCEL")
        ' Test Si Au Moins Un Process EXCEL Est En Cours
        If Myprocesses.Length = 0 Then
            MsgBox("No Existing EXCEL !", vbCritical, "Oups ! Some Problem ...")
            Exit Sub
        End If
        ' Test Si Plusieurs Process EXCEL Sont En Cours
        If Myprocesses.Length > 1 Then
            MsgBox("Plusieurs EXCEL Ouverts")
            'On va choisir la fenetre à activer
            SetForegroundWindow(Myprocesses(0).MainWindowHandle)
        Else
            MsgBox("Un Seul EXCEL")
        End If
 
    End Sub
End Module

Demain je vais regarder pour faire un userform pour permettre la sélection de l'appli que je veux activer.

A suivre donc car j'apprends aussi les userform