Démarrer / Arréter un processus

Messages postés
23
Date d'inscription
jeudi 30 octobre 2003
Statut
Membre
Dernière intervention
7 mai 2009
- - Dernière réponse : ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
- 7 juil. 2012 à 19:26
Pouvez vous m'aider à trouver
2 fonctions : 





<!--[if !supportLists]-->


-        


<!--[endif]-->

De démarrage d'une application avec ou sans paramètres








Exp:


Demarrer_App ("notepad.exe",
"readme.txt").






<!--[if !supportLists]-->


-        


<!--[endif]-->


D'arrêt d'un processus de l'application ouverte









Exp:


Areter_App ("notepad.exe).







 

Merci pour votre aide






 


e-mail:
[yosri.BELHAJRHOUMA@TUNISAIR.COM.TN yosri.BELHAJRHOUMA@TUNISAIR.COM.TN]
Afficher la suite 

9 réponses

Meilleure réponse
Messages postés
661
Date d'inscription
vendredi 2 décembre 2005
Statut
Membre
Dernière intervention
23 mars 2011
8
1
Merci
Salut,

Tout d'abord, il faut rajouter avant Public Class : Imports
System.Diagnostics

Pour démarrer une application :

Dim monprocess As New Process()


Process.Start("notepad.exe", "C:\monPath\Fichier.txt") ' Ouvre le fichier Fichier.txt avec notepad

Pour arrêter une application :

Dim
ProcessusCourant As Process = Process.GetCurrentProcess() ' Récupère tous les processus locaux

For i As Integer = 0 To ProcessusCourant.Length - 1 ' Parcoure tous les processus trouvés
    if ProcessusCourant(i).ProcessName = "notepad.exe" ' Si un processus s'appelle notepad.exe
       ProcessusCourant(i).Kill() ' On tue ce processus (Arrêt de notepad)
    End If
Next i

Dire « Merci » 1

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

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

Commenter la réponse de cs_fauve
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57
0
Merci
Process.Start

Renfield
Admin CodeS-SourceS- MVP Visual Basic
Commenter la réponse de Renfield
Messages postés
19
Date d'inscription
mercredi 7 février 2007
Statut
Membre
Dernière intervention
4 juillet 2008
0
Merci
Public Sub DemarrerApplication(ByVal NomApplication$, Optional ByVal ParametresApplication$ = "")
        ' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ DEMARRERAGE DE L'APPLICATION ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
        Try
            Dim Processus As New System.Diagnostics.Process()
            If NomApplication <> String.Empty And ParametresApplication <> String.Empty Then
                With Processus
                    'Nom de l'executable à lancer.
                    .StartInfo.FileName = NomApplication
                    'Argument a passer
                    .StartInfo.Arguments = ParametresApplication
                    'Démarrage du processus.
                    .Start()
                End With
            Else
                With Processus
                    .StartInfo.FileName = NomApplication
                    .Start()
                End With
            End If
        Catch ex As Exception
            Log.Text &= "[" & My.Computer.Clock.GmtTime.ToString & "]> Erreur DemarrerApplication: " & ex.Message & vbCrLf
         End Try
    End Sub

    Public Sub ArreterApplication(ByVal Application$)
        ' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ARRETER APPLICATIONS ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
        Try
            For Each Processus As Process In Process.GetProcesses()
                If Processus.ProcessName.EndsWith(Application) Then
                    With Processus
                        .Kill()
                        .Close() 'Libération des ressources
                    End With
                End If
            Next
        Catch ex As Exception
            Log.Text &= "[" & My.Computer.Clock.GmtTime.ToString & "] Erreur ArreterApplication: " & ex.Message & vbCrLf         
        End Try
    End Sub
-----------------------------------------------
En Informatique, tout est possible...
mais...
A+
Commenter la réponse de irsoy
Messages postés
8
Date d'inscription
mardi 31 octobre 2006
Statut
Membre
Dernière intervention
18 août 2011
0
Merci
salut,

Le mieux reste quand même :
'---------------------------------------------------------------------------
sub stopproc(ByVal namepro As String)
Dim sProcess() As Process
sProcess = Process.GetProcessesByName(namepro)
For i = 0 To sProcess.Length - 1
sProcess(i).Kill()
Next
sub Function
'---------------------------------------------------------------------------

Enjoy
Commenter la réponse de cytil29
Messages postés
8
Date d'inscription
mardi 31 octobre 2006
Statut
Membre
Dernière intervention
18 août 2011
0
Merci
Arg, a la bas c'était une foncition, j'ai vous vite fais remplacer par un Sub et j'ai fais un erreur : "sub function", je voulais bien sur mettre "End Sub"

Sub stopproc(ByVal namepro As String)
Dim sProcess() As Process
sProcess = Process.GetProcessesByName(namepro)
For i = 0 To sProcess.Length - 1
sProcess(i).Kill()
Next
End Sub
Commenter la réponse de cytil29
Messages postés
1
Date d'inscription
samedi 14 janvier 2012
Statut
Membre
Dernière intervention
18 janvier 2015
0
Merci
salut
j'ai une application exécuté avec DOS "cmd.exe"
et dans mon frame j'ai une bouton pour fermer cette application


comment faire s.v.p
?????????????????????????????????
Commenter la réponse de hachani1987
Commenter la réponse de Utilisateur anonyme
Messages postés
14
Date d'inscription
mardi 1 mai 2012
Statut
Membre
Dernière intervention
15 novembre 2013
0
Merci
Faut-il remplacer namepro par le nom du logiciel????

/A.F.D.Gbug\
Commenter la réponse de cc125
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
213
0
Merci
Bonjour, cc125,
Si tu veux ... mais pourquoi pas par un rhinocéros ? ou le jeu de la marelle ?
Au hasard, donc (mais je m'interroge sérieusement) : par l'exécutable ...
Dur ? ===>> dur dur !


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
Commenter la réponse de ucfoutu