Discussion :

[chelguera]

Bonjour

Voilà, j'utilise WM_CLOSE pour fermer des applications, cela fonctionne sauf quand l'une d'elle demande une confirmation

.... retval = SendMessage(hwnd, WM_CLOSE, ByVal 0, 0)

même si l'appli demande confirmation retval = 0 (en fait retval est la pour renvoyer un message d'erreur)

Je voudrais pouvoir fermer l'application désirée, y a t'il moyen de forcer cela ?
En fait, un destroy pur et dur !

Merci

[dragonjoker59]

Un clic sur la croix?
Plus sérieusement, pourquoi as-tu besoin de la fermer de cette manière?

[chelguera]

Ben oui.... le problème est que j'en ferme plusieurs à la fois...

voici la fonction :

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
Private Sub ListePagesChrome(Deleted As Boolean)
Dim ret As Long
Dim I As Integer
Dim Hwnd As Long
 
  lst.ListItems.Clear
 
  Hwnd = GetDesktopWindow()
  Hwnd = GetWindow(Hwnd, GW_CHILD) 
  Do While (Not IsNull(Hwnd)) And (Hwnd <> 0)
    Wind_Title = GetCaption(Hwnd)
    Wind_Class = GetClass(Hwnd)
    If Wind_Class = "Chrome_WidgetWin_1" And Len(Wind_Title) > 0 Then
      With lst.ListItems.Add(, , Hwnd)
        .SubItems(1) = Wind_Title
        .SubItems(2) = Wind_Class
      End With
    End If
    DoEvents
    Hwnd = GetWindow(Hwnd, GW_HWNDNEXT)     ' get the handle of the next window
    DoEvents
  Loop
 
  If Deleted Then
    I = lst.ListItems.Count
    For I = lst.ListItems.Count To 1 Step -1
      Set lst.SelectedItem = lst.ListItems(I)
      Hwnd = lst.SelectedItem.Text
      ret = SendMessage(Hwnd, WM_CLOSE, ByVal 0, 0): DoEvents
      lst.ListItems.Remove I
      DoEvents
    Next I
    DoEvents
    MsgWaitObj 1000
  End If
 
End Sub

Parfois il y a 20 pages ouvertes... et il y en a qui demandent confirmation.... Voilà la raison

[ternel]

Sinon, tu attrapes la fenetre de confirmation, et tu la confirme.

D'un autre coté, un programme qui te demande une confirmation, c'est parce qu'une erreur peut coûter cher.

Sinon, il y a sigkill

[chelguera]

Ben j'ai essayé... mais alors je "tue" la boite de confirmation mais pas la page donc je boucle à l'infini....

Pour le moment, je me dépanne en positionnant la fenêtre de confirmation et bouger la souris vers le bouton "yes" mais est ce que la boîte de dialogue aura toujours la même apprence ?
je ne pense pas... donc le mieux est d'intercepter ce message et y repondre

certain qu'il y a une solution plus propre.... si mes souvenirs sont bons (suis un peu rouillé question programmation) il y a une autre fonction que sendmessage ()

en fait, je migre un vb6 vers vb.net et pas évident donc ce qui passe pas je fais des dll en C++

[dragonjoker59]

Donc tu as une application qui essaie de fermer proprement toutes les fenêtres de Chrome?

[chelguera]

Et voilà une solution radicale après maintes lecture...

moyen de peaufiner cela (mais pas le temps pour le moment).. mais lister les processus en cours mettre dans un listbox et choisir qui killer etc etc...

documentation : https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function ProcessList()
 Dim hSnapshot As Long
 Dim uProcess As PROCESSENTRY32
 Dim r As Long
 
  hSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
  If hSnapshot = 0 Then Exit Function
   uProcess.dwSize = Len(uProcess)
   r = ProcessFirst(hSnapshot, uProcess)
   Do While r
    If InStr(uProcess.szexeFile, "chrome.exe") Then    ProcessTerminate (uProcess.th32ProcessID)
    r = ProcessNext(hSnapshot, uProcess)
    Loop
End Function

.. bon pour le moment en vb6... mais facile de la transposer en c++
je dois killer toutes les pages chrome (dans mon cas) et la c'est radical... !!!

merci a ceux qui ont voulu m'aiguiller mais comme dit au premier post je cherchais une solution radicale

Au plaisir