Fermer des app d'arrière plan

Commenter

Contenu du snippet

Ici pour lexemple jai pris zonealarm mai voyez vou meme ;)

Source / Exemple : 


Dans un module :

Public Declare Function RecupHandleBureau Lib "user32" Alias "GetDesktopWindow" () As Long
Public Declare Function NextWindow Lib "user32" Alias "GetWindow" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Dans le script :

Public Function ShutUpZoneAlarm()
   Dim hWnd As Long
    Dim TitreFenetre As String * 255
    Dim Titre As String
        
    hWnd = NextWindow(RecupHandleBureau(), 5)
    
    Do While hWnd <> 0
        TitreFenetre = String(255, 0)
        r = GetWindowText(hWnd, TitreFenetre, 255)
        If TitreFenetre <> String(255, 0) Then
            Titre = TitreFenetre
            Titre = Left(Titre, r)
            If Titre = "ZoneAlarm" Then
            PostMessage hWnd, 16, 0, 0
            End If
        End If
        hWnd = NextWindow(hWnd, 2)
    Loop
End Function

Juste Call ShutUpZoneAlarm dans le form_load() par exemple et le tour et jouer ;)

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 (cs_Kaya)