Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
576 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VBS - Attendre qu'une app soit visible

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

VBS - Attendre qu'une app soit visible

n°2332185
gilles9292
Posté le 22-04-2019 à 08:47:11  profilanswer
 

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 :
 

Citation :

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.

mood
Publicité
Posté le 22-04-2019 à 08:47:11  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VBS - Attendre qu'une app soit visible

 

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 2012Attendre 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 repertoireRUNAS : introduire dans un VBS le droit d'executer le logicielen admin
Plus de sujets relatifs à : VBS - Attendre qu'une app soit visible


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR