Soyez le premier à donner votre avis sur cette source.
Snippet vu 3 293 fois - Téléchargée 43 fois
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 ;)
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.