Discussion :

[gg78]

bonjour,

Je me suis basé sur les exemples du forum et de "AllApi.net" pour lister et fermer une application windows dont je ne connais que le nom.
Vb me sort une erreur dès l'éxecution sur EnumWindows :

Utlisation incorrecte de l'opérateur AddressOf (cela commence mal)

Voici mes qqes lignes:
Private Sub Form_Load()
EnumWindows AddressOf EnumWindowsProc, ByVal 0&
End Sub
Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean

Dim sSave As String, Ret As Long

Ret = GetWindowTextLength(hwnd)
sSave = Space(Ret)
GetWindowText hwnd, sSave, Ret + 1
If sSave = "Outlook" Then
PostMessage hwnd, &H10, 0, 0
End If
Form1.Print Str$(hwnd) + " " + sSave

'continue enumeration
EnumWindowsProc = True

End Function

[ZuZu]

Quelle erreur as-tu ?
Ta fonction apellée est bien dans un module standard ? (sinon windows ne peut y accéder)

[gg78]

Utlisation incorrecte de l'opérateur AddressOf

[ThierryAIM]

As tu bien déclarer toutes les API dans ton module standard ?

pour info, ca ca fonctionne, alors compare :
http://www.mentalis.org/apilist/EnumWindows.shtml

[ZuZu]

C'est que ta fonction apellée "EnumWindowsProc" n'est pas dans un module standard ... et forcément comme dit Thierry la fonction API devra suivre ... Lis les réponses qu'on te donne

[gg78]

Je ne savais pas qu'il fallait placer les déclarations dans un module et non dans une feuille.
Donc je n'est plus l'erreur mais la function pour trouver le nom d'une application ne me donne que ce qu'il y a dans la barre de titre avec "getwindowtext"
j'ai essayé avec findwindow mais il faut mettre comme nom le nom entier qui s'affiche dans le gestionnaire de taches "onglet application".
ex: je doit rechercher nom= "Boîte de réception - Microsoft Outlook" et non "Outlook"

avez-vous une solution?

[Nightfall]

Tu dois effectivement mettre EnumWindowsProc dans un module standard mais c'est seulement dans ce cas précis, parce que AddressOf ne sait pas renvoyer l'adresse d'une fonction qui est dans un module de classe.

[ThierryAIM]

dans la fonction EnumWindowsProc, essaye ca si ca te convient :

Code :

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

 If InStr(1, sSave, "Outlook") Then MsgBox "OutLook Trouvé : " & sSave

[gg78]

Cela fonctionne, mais peut-on avoir confiance dans le texte retourné par cette fonction (GetWindowText)?

De plus existe t-il une solution pour fermer une application qui demande une confirmation d'arrêt (exemple hyperterminal demande si je veux me déconnecter)?

[ZuZu]

Pour ta première question, c'est oui, car el mot "Outlook" se trouve toujours dans la barre de titre (à moins de magouiller la base de registre).
Pour la seconde, c'est oui aussi, il y a toujours moyen de fermer une application par des methodes plus ou moins brutales .... desole je n'ai rien à te donner dans l'immediat.

[ndietrich]

Salut,

Tu peux forcer l'arrêt d'un process avec la fonction TerminateProcess de kernel32:

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
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessID As Long) As Long
 
Public Function ProcessKill(ByVal ProcessID As Long) As Boolean
   Dim hProc As Long
   Const fdwAccess As Long = SYNCHRONIZE Or PROCESS_TERMINATE
 
   ' Need to open process with terminate rights
   hProc = OpenProcess(fdwAccess, 0&, ProcessID)
   If hProc Then
      ' Kill it.
      If TerminateProcess(hProc, 0&) Then
         ProcessKill = True
      Else
         Debug.Assert Err.LastDllError & " - TerminateProcess"
      End If
      ' Clean up.
      Call CloseHandle(hProc)
   End If
End Function