Fermer n'importe quel process depuis vb

Commenter

Contenu du snippet

Ce petit bout de code sert à fermer n'importe quel process depuis VB ou Acess.

Source / Exemple : 


Option Compare Database
Option Explicit

Public Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long 'API de fermeture de Process
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessID As Long) As Long 'Ouverture de Process

'Procedure qui tue un processus
Sub KillProcess()

'Const PROCESS_QUERY_INFORMATION = &H400
Static ProcessId:
Dim hProcess, Termine&

If MsgBox("OUI = OUVRIR, NON = FERMER", vbYesNo) = vbYes Then

    ProcessId = Shell("C:\Test.exe", vbHide)

Else

'On le numéro de son Process
    hProcess = OpenProcess(1, False, ProcessId)
    ' On Ferme le process lancé par un TerminateProcess
    Termine& = TerminateProcess(hProcess, 4)
End If

End Sub

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Ekinoks2)