Fermer des app d'arrière plan

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 168 fois - Téléchargée 43 fois

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

Ajouter un commentaire

Commentaires

Signaler
Djibril2
Messages postés
4
Date d'inscription
vendredi 1 octobre 2004
Statut
Membre
Dernière intervention
23 mai 2006
Merci c'est ce que je cherchais !

Cependant cela marche avec zonealarm car le titre d'appli est fixe
Mais pour d'autres application ex: BusinessObjects, le nom change...
=> Nom - nom du doc - [login] (si un doc ouvert)
=> Nom - [login] (si pas de doc ouvert)

ainsi il faut pouvoir tester juste le début du Titre
Titre = Left(Titre, 15)
If Titre = "BusinessObjects" Then ...
'ici r= nb de caractere du titre à tester (15)
'car Len("BusinessObjects")=15

Encore merci
Signaler
Gizmal
Messages postés
4
Date d'inscription
mercredi 16 juin 2004
Statut
Membre
Dernière intervention
18 juin 2004
Salut Kaya,

Par rapport à ton code qui est très pratique quand on est un peu à l'arrache. J'ai des pages un peu bizarre qui s'ouvre de temps en temps et je ne connais leur titre, j'ai essayé de regarder en haut de la page ou dans les propriétés et ca ne fontionne pas. Comment peut-on connaitre leur titre??

Merci

Gizmal
Signaler
crazyjoke
Messages postés
146
Date d'inscription
samedi 21 décembre 2002
Statut
Membre
Dernière intervention
9 janvier 2005
Ouuuuuuuuuuuuuuuuuu la méthode de bourin!!!!!!!!!!!!!!!!!!!!!

j'ai un peu haluciné en voyant ton code, mais c'est cool sa dois marcher (je n'ai pas essayé).

allez, @+++ bourin :-) lol
Signaler
cs_slayer
Messages postés
202
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
18 mars 2008
jolie boulots , sa marche nickel sous xp , la bonne note s'imposse !!
Signaler
stabe
Messages postés
144
Date d'inscription
lundi 23 décembre 2002
Statut
Membre
Dernière intervention
17 juin 2006
super !
Marche très bien.

Merci :-)
Afficher les 6 commentaires
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)