Démarrer / Arréter un processus

Question

Pouvez vous m'aider à trouver 2 fonctions : - De démarrage d'une application avec ou sans paramètres Exp: Demarrer_App ("notepad.exe", "readme.txt"). - 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]

Renfield · Answer

Process.Start

Renfield
Admin CodeS-SourceS- MVP Visual Basic

cs_fauve · Answer

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

irsoy · Answer

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+

cytil29 · Answer

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

cytil29 · Answer

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

hachani1987 · Answer

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
?????????????????????????????????

Utilisateur anonyme · Answer

Bonjour

Exit

cc125 · Answer

Faut-il remplacer namepro par le nom du logiciel????

/A.F.D.Gbug\

ucfoutu · Answer

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

Démarrer / Arréter un processus

9 réponses

Votre réponse

Discussions similaires