Fermer des app d'arrière plan

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 454 fois - Téléchargée 45 fois

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
Djibril2 Messages postés 4 Date d'inscription vendredi 1 octobre 2004 Statut Membre Dernière intervention 23 mai 2006
28 juin 2006 à 19:08
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
Gizmal Messages postés 4 Date d'inscription mercredi 16 juin 2004 Statut Membre Dernière intervention 18 juin 2004
18 juin 2004 à 14:31
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
crazyjoke Messages postés 146 Date d'inscription samedi 21 décembre 2002 Statut Membre Dernière intervention 9 janvier 2005
21 sept. 2003 à 17:49
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
cs_slayer Messages postés 202 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 18 mars 2008
20 janv. 2003 à 10:49
jolie boulots , sa marche nickel sous xp , la bonne note s'imposse !!
stabe Messages postés 144 Date d'inscription lundi 23 décembre 2002 Statut Membre Dernière intervention 17 juin 2006
6 janv. 2003 à 17:48
super !
Marche très bien.

Merci :-)
Afficher les 6 commentaires

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.