Ouvrez Microsoft Visual Basic de Windows "Début" bouton.
Sélectionner "Standard.EXE" sous le "Nouveau" onglet et cliquez sur le "Ouvert" bouton.
Faites glisser un bouton de la boîte à outils sur le formulaire. Double-cliquez sur le bouton sur le formulaire pour ouvrir la fenêtre de code.
Insérez le code suivant sous la ligne "Private Sub Command1_Click ()":
Dim objWMIService, colProcesses
Processus Dim As String
Processus = "VB6.exe"
Réglez objWMIService = GetObject ("winmgmts:")
Réglez colProcesses = objWMIService.ExecQuery ("Select * from Win32_Process où nom = '" &Processus Amp &Amp "'")
Si colProcesses.Count Puis
MsgBox ("Le processus est en cours d'exécution")
Autre
MsgBox ("Processus ne fonctionne pas")
End If
Appuyez sur la "F5" bouton pour exécuter le code en mode débogage.
Cliquez sur le bouton marqué "Command1" pour exécuter le code destiné à déterminer si un processus est en cours d'exécution. Une boîte de message sera affiché avec le texte "Le processus est en cours d'exécution" si le processus "VB6.exe" est en cours d'exécution.