Comment fermer une application sans confirmation avec WM_CLOSE

Version imprimable

19/02/2016, 05h43
chelguera

Comment fermer une application sans confirmation avec WM_CLOSE

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 ! :pan::pan::pan:

Merci
19/02/2016, 10h37
dragonjoker59

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

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

voici la fonction :

Code:

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

19/02/2016, 11h15
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
19/02/2016, 11h34
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++
19/02/2016, 12h27
dragonjoker59

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

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:

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

19/02/2016, 12h37
chelguera

Proprement... pas vraiment.. je dois fermer tout ce qui est ouvert par chrome... sans regarder quoi que ce soit...

en fait le but est d'ouvrir plusieurs pages sous chrome (dans le cas qui m'occupe) mais de la a trouver lesquelles sont présentes ou pas.... ?
donc le plus simple est de tout fermer, puis lancer un shell pour les pages a ouvrir, a l'ouverture de chaque page récupérer le hwnd...
et pouvoir agir entre les pages suivant des conditions....

si pas trop clair j'explique en profondeur... mais avec cette fontion ci-dessus j'ai trouvé mon bonheur

merci
19/02/2016, 14h08
ternel

Et tu ne peux pas vérifier quelle pages sont déjà ouvertes avant d'en ouvrir d'autres?
histoire de ne pas polluer?

De même, es-tu obligé de passer par chrome?

oohhhhh si seulement cela avait été si simple...

j'aurais fait une recherche si Page_un est chargée non.. ok je la charge.. etc etc...
Mais la page_1 d'un site au cours de la navigation peut changer de titre donc le titre de la page passe de Site1 a "accueil" ou Inscription" etc...
et donc tu te retrouve avec des pages chargées qui n'ont rien à voir car un site XYZ a aussi une page "accueil"

Solution, je ferme tout et j'ouvre tous les sites besoin (code fermeture dans poste avant)
Code:

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 For I = 0 To Nbr_Sites Shell "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe --app=https://" & Cfg_Stat(I).Http: DoEvents MsgWaitObj 1000 Do While (Handle_Page = 0) RefreshList Int(I) Loop DoEvents AppMinimize (Cfg_Stat(I).Hwnd) DoEvents Handle_Page = 0 Next I Public Function RefreshList(Index As Integer) Dim H As Long Dim I As Integer Dim hwnd As Long 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_Title = Cfg_Stat(Index).Handle1 Then Handle_Page = hwnd Cfg_Stat(Index).Hwnd = hwnd Cfg_Stat(Index).Class = Wind_Class Cfg_Stat(Index).Title = Wind_Title hwnd = 0 End If hwnd = GetWindow(hwnd, GW_HWNDNEXT) Loop End Function
Apres cela, j'ai le handle des pages voulues ... mais je reste ouvert à toute autre suggestion

J'espère avoir éclairci le pourquoi du comment

Merci