Détection d'ouverture d'un programme [Résolu]

Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
- - Dernière réponse : NoNeed2Know
Messages postés
11
Date d'inscription
lundi 9 février 2009
Statut
Membre
Dernière intervention
4 juillet 2009
- 11 févr. 2009 à 19:04
Bonjour ,
je voudrais savoir comment on peu faire pour détecter l'execution d'un programme
si on ouvre par exemple l' explorateur internet on puisse le bloquer ou le refermer aussi tot

Merci
Afficher la suite 

7 réponses

Meilleure réponse
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57
3
Merci
NoNeed2Know, ta réponse ne conviens pas, elle n'est pas dans la bon langage.
Notre ami souhaite une aide en VB6

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 196 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Renfield
Messages postés
11
Date d'inscription
lundi 9 février 2009
Statut
Membre
Dernière intervention
4 juillet 2009
0
Merci
Très simple!


Tu lance une boucle (avec un timer) qui demande à l'ordinateur de rechercher un programme en cours d'exécution, et de le "kill". Regarde:
Private
Sub Timer1_Tick(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles Timer1.Tick




Dim

 instance 


As

 Process



Dim

 ProcessList() 


As

 Process



Dim

 Process 


As

 Process

'On recherche le programme!
ProcessList = Process.GetProcessesByName(


"programmeakill"

)
'On lui dit quoi faire avec



For





Each

 instance 


In

 ProcessList
        'On le tue!
        instance.Kill()



Next




End





Sub


Puisque c'est un timer, le code va se repêter jusqu'à ce que tu arrête le timer!
Commenter la réponse de NoNeed2Know
Messages postés
11
Date d'inscription
lundi 9 février 2009
Statut
Membre
Dernière intervention
4 juillet 2009
0
Merci
Désolé, je ne trouve pas la fonction edit! :P
Créer d'abord un timer, puis entre le code suivant.

PrivateSub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Dim instance As Process
Dim ProcessList() As Process
Dim Process As Process

'On recherche le programme!
ProcessList = Process.GetProcessesByName( "programmeakill" )
'On lui dit quoi faire avec
For Each instance In ProcessList
'On le tue!
instance.Kill()
Next

End Sub

Sa fait plaisir!
Commenter la réponse de NoNeed2Know
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
1
0
Merci
Bonjour [../auteur/NONEED2KNOW/1603720.aspx NoNeed2Know] ,
Mais sa ne fonctionne pas erreur de compilation
Merci
Commenter la réponse de petiflamand
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57
0
Merci
oui, comme je l'ai indiqué, le code qui t'a été proposé n'est pas adapté au VB6
Commenter la réponse de Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57
0
Merci
bon.

fouinons un peu dans les sources présentes sur le site...
http://www.vbfrance.com/recherche.aspx?tr=source&r=process&dotnet=2

http://www.vbfrance.com/codes/NOTIFICATION-PROCESSUS_34029.aspx

on a ça:
http://www.vbfrance.com/codes/DETECTION-PROCESS-NOUVEAUX_19990.aspx
tu dois pouvoir en reprendre des morceaux.

et plein plein d'autres

pense a faire une recherche dans les sources, y'a plein plein de choses ^^
Commenter la réponse de Renfield
Messages postés
11
Date d'inscription
lundi 9 février 2009
Statut
Membre
Dernière intervention
4 juillet 2009
0
Merci
Ah ouai! Désolé!
Commenter la réponse de NoNeed2Know