Besoin d'aide pour savoir comment quitter une application en cours (visible ou nRésolu

Question

Bon j'ai d&#233;ja trouv&#233; un code pouvant donner les applications en cours visible et les non visible dans deux listbox : http://www.vbfrance.com/code.aspx?ID=6331
Esce que quelq'un peut m'aide maintenant &#224; faire quitter l'application.

> mon mail si vous avez des r&#233;ponses : [mailto:gaerebut@msn.com gaerebut@msn.com]

cboulas · Accepted Answer

Salut, il te suffit de la faire apparaitre au 1er plan puis d'y envoy&#233; les commandes ATL+F4, il n'y a que pour les services que cela posera pb.

Afficher une appli au 1er plan :

Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Call ShowWindow(lnghWnd, SW_SHOW)
SendKeys "%{F4}", True


Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&nbs

CTAC · Answer

Bonjour.

Puisque tu connais le handle :

Private Declare Function PostMessage& _
    Lib "user32" Alias "PostMessageA" _
    (ByVal Hwnd&, ByVal wMsg&, ByVal wParam&, ByVal lParam&)


Private Function Ferme&(Hwnd&)
    Const WM_CLOSE& = &H10
    Ferme = PostMessage(Hwnd, WM_CLOSE, 0&, 0&)
End Function

robapt · Answer

CTAC je ne comprend pas trop ton code (je dit pas qu'il est faut mais je suis d&#233;butant donc tu vois ...)
en fait c'est quoi un handle et ou ce mais le nom de l'application a fermer ???

cboulas · Answer

Le Handle c'est un code attribu&#233; par Windows &#224; une application qui &#224; une interface graphique, cela permet d'identifi&#233;e les applications entre elles, c'est la base du multi-thread si mes souvenir sont bons, c'est &#224; dire la base pour le multi-t&#226;che.


Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&nbs

CTAC · Answer

Bonjour.

Je suis all&#233; voir la source que tu cite.
Essaye plut&#244;t &#231;a qui te donne le handle, la classe et le titre.
Le handle, c'est un identifiant unique attribu&#233; par Windows a chaque fen&#234;tre.

Cet exemple affiche dans une boite de message le handle , la classe et le titre de toutes les fen&#234;tres visibles ouvertes sur le bureau.
Si tu veux toutes les fen&#234;tres et non pas uniquement les visibles, tu met en commentaire la ligne  If IsWindowVisible(hwnd) Then et le End If qui va avec.

Le code suivant devra &#234;tre plac&#233; dans un module &#224; cause de l'op&#233;rateur AddressOf.


Private Declare Function EnumWindows& Lib "user32" _
    (ByVal lpEnumFunc&, ByVal lngParam&)


Private Declare Function GetClassName& Lib "user32" _
    Alias "GetClassNameA" (ByVal hwnd&, ByVal lpClassName$, ByVal nMaxCount&)


Private Declare Function GetWindowText& Lib "user32" _
    Alias "GetWindowTextA" (ByVal hwnd&, ByVal lpString$, ByVal cch&)


Private Declare Function IsWindowVisible& Lib "user32" _
    (ByVal hwnd&)


Private LeTexte$


Private Function WindowCaption$(hwnd&)
    WindowCaption = Space$(100&)
    WindowCaption = Left$(WindowCaption, GetWindowText(hwnd, WindowCaption, 100&))
End Function


Private Function NomDeClass$(hwnd&)
    NomDeClass = Space$(100&)
    NomDeClass = Left$(NomDeClass, GetClassName(hwnd, NomDeClass, 100&))
End Function


Private Function EnumWindowsProc&(ByVal hwnd&, ByVal lngParam&)
    If IsWindowVisible(hwnd) Then
        LeTexte = LeTexte & hwnd & vbTab & NomDeClass(hwnd) & _
            vbTab & WindowCaption(hwnd) & vbCrLf
    End If
    EnumWindowsProc = True
End Function


Sub ListeTopWindows()
    LeTexte = "Handle" & vbTab & "Classe" & vbTab & "Titre" & vbCrLf
    EnumWindows AddressOf EnumWindowsProc, 0&
    MsgBox LeTexte
End Sub

zippro4012 · Answer

Pour d&#233;truire une fen&#234;tre :



Public Declare Function DestroyWindow Lib "user32.dll" ( _ 

ByVal hwnd As int32) As int32

robapt · Answer

Ouai vous &#234;tes sympa les gars mais moi en fait ce que je veus en fait c'est par winsock ,dsl j'ai oublier de le pr&#233;ciser .En fait une forme a toute les application list&#233;e (visible et nonvisible)  dans 2 listbox diff&#233;rentes et quant je clique sur le bouton supprimer l'application cela envoie l'application choisit ,bon sa je sait faire que dois-je marquer dans l'autre form qui recois l'ordre de supprimer l'application (appel&#233;e data) :

Imaginez :

Form1:

Private Sub Command1_Click()
Form1.Wck.SendData "quitterapp" & List1.List(List1.ListIndex)
End Sub

Form2:

If left(data, 10) = "quitterapp" Then

End If

Si quelq'un a trouv&#233; la solution merci de me la donner et je lui serai tr&#232;s reconnaissant
                                          
                                          Merci
                                          
GAGA

Besoin d'aide pour savoir comment quitter une application en cours (visible ou n

7 réponses

Discussions similaires