Discussion :

[morgan47]

Bonjour,
je voulais utilisé le script contenu dans la faq afin de fermer une fenetre connaissant son nom.(Comment tuer un processus en connaissant le nom de sa fenêtre ?
Cela marche trés bien avec les application excel, word..

Mais je voudrai fermer une fenetre internet explorer bien défini en connaissant son nom sans fermer les autres IE, et cela ne marche pas, est ce normal que ça ne marche pas ?

[SilkyRoad]

bonsoir

j'espere que cet exemple pourra t'aider

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub listerFenetres_IE_Ouvertes()
    'Necessite d'activer la référence "Microsoft Internet Controls"
    Dim IE As InternetExplorer
    Dim winShell As New ShellWindows
 
    For Each IE In winShell
        If IE.LocationURL = "http://www.monsite.html" Then IE.Quit
    Next IE
End Sub

michel

[morgan47]

j'ai parlé de ie mais cela dépend du navigateur par défaut, je ne veux pas faire un truc spécifique IE mais qui marche aussi avec firefox ou autre.
Mais merci de ton aide

[SilkyRoad]

est ce le meme problème?

http://www.developpez.net/forums/sho...d.php?t=204831

[morgan47]

non non ce n'est pas le meme problème, l'autre c'était pour bloquer les alert javascript.
Mais celui la c'est pour fermer une fenetre d'un navigateur(IE, firefox ou autre) en connaissant juste le nom de la fenetre.

[morgan47]

Je ne comprend pas pourquoi ce code ne marche pas, normalemetn il devrai etre bon, j'ai affiché un msgbox pour chaque fenetre et pourtant ce que je recherche est bien inclu dans le nom de la fenetre mais le logiciel ne ferme pas le logiciel.

[SfJ5Rpw8]

et tu n'as pas du code à nous montrer..?

[morgan47]

et bien c'est le code de la FAQ qui marche trés bien pour toutes les fenetre mis a part les fenetre de navigateur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Declare Function EnumWindows Lib "user32" (ByVal wndenmprc As Long, ByVal lParam As Long) As Long 
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, _
                                                                    ByVal lpString As String, _
                                                                    ByVal cch As Long) As Long 
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
                                                                ByVal wParam As Long, _
                                                                lParam As Any) As Long
Public Const WM_CLOSE = &H10
 
Private AppCible As String
 
Public Function EnumCallback(ByVal app_hWnd As Long, ByVal param As Long) As Long
 
Dim buf As String * 256
Dim Titre As String
Dim Longueur As Long
 
'Récupère le titre de la fenêtre
Longueur = GetWindowText(app_hWnd, buf, Len(buf))
Titre = Left$(buf, Longueur)
 
'Vérifie si le titre de la fenêtre correspond au nom recherché
If InStr(Titre, AppCible) <> 0 Then
    'Ferme la fenêtre
    SendMessage app_hWnd, WM_CLOSE, 0, 0
End If
 
'Poursuit l'énumération
EnumCallback = 1
 
End Function 
 
Public Sub KillApp(App_Cherchee As String)
 
AppCible = App_Cherchee
'Demande à Windows d'énumérer les fenêtres ouvertes
EnumWindows AddressOf EnumCallback, 0
 
End Sub

[morgan47]

En fait ca marche avec les navigateur sauf Internet Explorer. Il n'y a que IE qui ne marche pas avec ce code.
Quelqu'un sais pourquoi?