Fermer des app d'arrière plan
Soyez le premier à donner votre avis sur cette source.
Snippet vu 3 338 fois - Téléchargée 44 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
- Fermer des app d'arrière plan
- Visual Basic / VB.NET : Charger et sauvegarder une image (picturebox, image, arrière plan de - Guide
- [ scrolling d'arriere plan avec vaisseau ] - Codes sources - C / C++ / C++.NET (Tutoriaux)
- Delphi / Pascal : Changement automatique de l'image de l'arrière plan lors du démarage - Guide
- Javascript : Menu deroulant de couleurs d'arriere plan - CodeS SourceS - Guide
- Java : Changer la couleur de l'arriere plan d'un fenetre... - CodeS SourceS - Guide
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
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
j'ai un peu haluciné en voyant ton code, mais c'est cool sa dois marcher (je n'ai pas essayé).
allez, @+++ bourin :-) lol
Marche très bien.
Merci :-)
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.