VBS - Attendre qu'une app soit visible
VBS - Attendre qu'une app soit visible - VB/VBA/VBS - Programmation
Sujets relatifs:
- [VB/VBA/VBS] Problème script pour exécuter des programmes
- [VBS] Problème déplacement fichier
- [Résolu]Execution de VBS depuis un hta sur windows server 2012
- Attendre le chargement d'une nouvelle page après click
- Probleme execution VBS sous windows 10
- [VB /VBA /VBS] Remplir un formulaire HTML a partir d'un word
- VBS et Expressions Régulières
- (Résolu) comment faire un Form cacher/visible selon liste de choix
- VBS Lister les fichiers d'un répertoire et sous repertoire
- RUNAS : introduire dans un VBS le droit d'executer le logicielen admin
Marsh Posté le 22-04-2019 à 08:47:11
Bonjour tout le monde !
Voici mon problème :
Je souhaiterais un script vbs permettant de killer un processus uniquement si un processus est actif en 1er plan (et non minimisé).
Si l'app est minimisé : attendre qu'il soit actif pour le kill
Voici ce que j'ai trouvé pour tuer un processus existant :
Option Explicit
Dim Shell, WMI, wql, process
Set Shell = CreateObject("WScript.Shell" )
Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2" )
wql = "SELECT ProcessId FROM Win32_Process WHERE Name = 'calc.exe'"
For Each process In WMI.ExecQuery(wql)
Shell.AppActivate process.ProcessId
Shell.SendKeys "%{F4}"
Next
Un grand merci à ceux qui m'aideront.