FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» KGF.dll - demandes ou suggestions de modifications ou ajouts
par pascal10000 Aujourd'hui à 16:47

» KGF_dll - nouvelles versions
par Klaus Aujourd'hui à 16:47

» track_bar circulaire
par Klaus Aujourd'hui à 13:54

» API Windows
par Klaus Aujourd'hui à 3:21

» Cartes de voeux, menus, etc.
par JL35 Hier à 17:48

» Mah-Jong européen new-look
par jjn4 Hier à 15:48

» a l'aide klaus
par Minibug Hier à 11:42

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Hier à 0:16

» Jukebox : Serge Reggiani
par papydall Sam 9 Déc 2017 - 5:58

» Ecouter la radio fm sur votre pc
par pascal10000 Sam 9 Déc 2017 - 3:42

» anomalie
par Klaus Sam 9 Déc 2017 - 3:21

» hommage
par Jicehel Ven 8 Déc 2017 - 11:29

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Ven 8 Déc 2017 - 10:43

» carte son
par Klaus Ven 8 Déc 2017 - 2:37

» mise a jour calculatrice
par joeeee2017 Mer 6 Déc 2017 - 22:19

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier

Partagez | 
 

 Fermer un programme externe à PANORAMIC

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
papydall

avatar

Nombre de messages : 5613
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Fermer un programme externe à PANORAMIC   Lun 11 Avr 2016 - 16:12

Tout est dans le titre et bien expliqué dans le code.
Servez-vous. king


Code:

rem ============================================================================
rem            Fermer un programme externe à PANORAMIC
rem ============================================================================
rem Pour fermer un programme, il suffit d envoyer le message WM_CLOSE à sa
rem fenêtre principale.
rem Tout d abord, on détermine le handle de la fenêtre du programme qu on désire
rem fermer.
rem Pour cela, on dispose de la fonction HANDLE_FORM() de Panoramic à laquelle
rem on transmettra le titre de la fenêtre en question.
rem Ensuite on envoie le message WM_CLOSE
rem ============================================================================
rem Comme exemple, on va tester notre SUB sur la calculatrice(calc.exe) puis sur
rem Notepad++.
rem (Vous pouvez bien sûr choisir un autre programme)
rem Lancez une instance de la calculatrice (calc.exe)
rem Observez que la barre de titre de la fenêtre est "calculatrice".
rem C est ce texte qu on va transmettre à la fonction HANDLE_FORM() pour
rem déterminer le handle de la fenêtre.
rem Si la fenêtre est trouvée (son handle est <> 0), on lui envoie le message
rem WM_CLOSE qui est tout simplement un code : 10 en hexa
rem La fenêtre de l application sera fermée
rem ============================================================================
rem Pour info :
rem On a utilisé la fonction "PosteMessageA" qui est asynchrone.
rem Son rôle est simplement de placer le message dans la queue des messages à
rem traiter et retourne immédiatement.
rem Elle ne se préoccupe donc pas de savoir si le message a été correctement traité.
rem ============================================================================
Close_Form("Calculatrice")
Close_Form("new 1 - Notepad++")
end
rem ============================================================================
SUB Close_Form(titre$)
    dim_local hWnd,WM_CLOSE,ret%
    WM_CLOSE = hex("10")
    dll_on "user32"
    hWnd = handle_form(titre$)
    if hWnd <> 0
       ret% = dll_call4("PostMessageA",hWnd,WM_CLOSE,0,0)
       if ret% = 1
          message "La fenêtre de : " + titre$ + " a été fermée"
       else
          message "ERREUR dans la fonction !!!"
       end_if
    else
       message "Impossible de trouver la fenêtre !"
    end_if
    dll_off
END_SUB
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Marc



Nombre de messages : 549
Age : 56
Localisation : TOURS
Date d'inscription : 18/03/2014

MessageSujet: Re: Fermer un programme externe à PANORAMIC   Lun 11 Avr 2016 - 18:15

Testé !
Fonctionne parfaitement !

Merci Papydall !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5613
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Fermer un programme externe à PANORAMIC   Lun 11 Avr 2016 - 18:31

Merci Mark37 pour le retour sunny
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

Nombre de messages : 5086
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Fermer un programme externe à PANORAMIC   Lun 11 Avr 2016 - 20:20

Encore un bon truc à savoir !

Merci Papydall.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Minibug

avatar

Nombre de messages : 2408
Age : 51
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: Fermer un programme externe à PANORAMIC   Lun 11 Avr 2016 - 20:25

Encore une astuce a mettre de coté !
Au passage je rappelle que la KGF de Klaus le fait aussi très bien. Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
JL35



Nombre de messages : 6018
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Fermer un programme externe à PANORAMIC   Lun 11 Avr 2016 - 23:19

Je ne sais pas si c'est vraiment le sujet, mais sinon, pour 'tuer' un programme récalcitrant dont on connaît le nom de l'exécutable (ici Prog.exe), il y a toujours la possibilité en ligne de commande de faire:
Code:
EXECUTE_WAIT "cmd.exe /c taskkill.exe /F /IM Prog.exe /T"
Et j'avoue que je l'utilise assez souvent (je me suis même fait un petit utilitaire 'Kill' qui sert à ça).

Je rappelle que pour avoir la liste de tous les exécutables en train de tourner, il faut faire, toujours en ligne de commande:
Code:
tasklist.exe
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5613
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Fermer un programme externe à PANORAMIC   Mar 12 Avr 2016 - 0:05

Jean Claude, Minibug,  merci pour vos retours.

@JL35
Personnellement, j’ai épinglé sur la barre de tâches kill_Panoramic.exe pour le retrouver à porté de main le cas échéant.
Je rappelle ici le code

Code:

rem ============================================================================
rem        "Tuer" Panoramic.exe
rem ============================================================================
rem Il arrive parfois que PANORAMIC.EXE plante pour une raison ou une autre.
rem La SUB Kill_Panoramic_exe() permet de "tuer" toute instance de PANORAMIC.exe
rem REMARQUE :
rem Pour "tuer" un .exe quelconque, il suffit de préciser son nom au lieu de
rem 'Panoramic.exe'
rem Vous pouvez paramétrer la SUB pour cela.
rem ============================================================================
hide 0
Kill_Panoramic_exe()
terminate : end
rem ============================================================================
SUB Kill_Panoramic_exe()
    dim_local scr$,q$
    scr$ = "C:\TEMP\killpano.vbs"
    q$ = chr$(34)
    FILE_OPEN_WRITE 9999,scr$
    FILE_WRITELN 9999,"strComputer = " + q$ +"." +q$
    FILE_WRITELN 9999,"strProcessKill = " + q$ + "'Panoramic.exe'" + q$
    FILE_WRITELN 9999,"Set objWMIService = GetObject(" + q$ + "winmgmts:"+ q$ + " _"
    FILE_WRITELN 9999,"& " + q$ + "{impersonationLevel=impersonate}!\\" + q$ + " & strComputer & " + q$ + "\root\cimv2" + q$ + ")"
    FILE_WRITELN 9999,"Set colProcessList = objWMIService.ExecQuery _"
    FILE_WRITELN 9999,"(" + q$ + "Select * from Win32_Process Where Name = " + q$ + " & strProcessKill )"
    FILE_WRITELN 9999,"For Each objProcess in colProcessList"
    FILE_WRITELN 9999,"objProcess.Terminate()"
    FILE_WRITELN 9999,"Next"
    FILE_WRITELN 9999,"WSCript.Echo " + q$ + "Just killed process " + q$ + " & strProcessKill"
    FILE_WRITELN 9999,"WScript.Quit"

    FILE_CLOSE 9999
    EXECUTE_wait scr$
    FILE_DELETE scr$ : ' La suppression du fichier n'aura pas lieu, puisque "Panoramic.exe" est déjà tué avant d'arriver ici!
END_SUB
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
JL35



Nombre de messages : 6018
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Fermer un programme externe à PANORAMIC   Mar 12 Avr 2016 - 18:49

Et pourquoi pas tout simplement taskkill /F /IM Panoramic.exe ?
Mon kill plus général affiche la liste des tâches en cours (tasklist), et je clique sur la tâche que je veux tuer (ce qui déclenche un taskkill).
Il y a parfois des programmes qui se lancent intempestivement, alors c'est bien pratique.

Je rappelle que pour avoir la liste des programmes qui se lancent automatiquement au démarrage du système, il faut faire en ligne de commande ('Windows' + 'R') msconfig, onglet 'Démarrage'
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5613
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Fermer un programme externe à PANORAMIC   Mar 12 Avr 2016 - 19:25

OK TaskKiller!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
mindstorm

avatar

Nombre de messages : 542
Age : 48
Localisation : charente
Date d'inscription : 13/02/2013

MessageSujet: Re: Fermer un programme externe à PANORAMIC   Mar 12 Avr 2016 - 19:44

pour ma part, j'avais une méthode infaillible
JE RALE ET JE TOURNE EN ROND DEVANT L ORDINATEUR
merci pour votre méthode qui a l'air plus efficace
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5613
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Fermer un programme externe à PANORAMIC   Mar 12 Avr 2016 - 19:56

Citation :
pour ma part, j'avais une méthode infaillible
JE RALE ET JE TOURNE EN ROND DEVANT L ORDINATEUR

Pendant combien de temps ?
- Jusqu'à épuisement de la batterie !!!!
Ce n’est pas un robot déréglé, ça ?

lol! lol! lol! lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
mindstorm

avatar

Nombre de messages : 542
Age : 48
Localisation : charente
Date d'inscription : 13/02/2013

MessageSujet: Re: Fermer un programme externe à PANORAMIC   Mer 13 Avr 2016 - 20:16

lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Fermer un programme externe à PANORAMIC   

Revenir en haut Aller en bas
 
Fermer un programme externe à PANORAMIC
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» [RESOLU] Comment exécuter un programme externe
» Augmenter l'autonomie du 3790T "à pied" avec une alim externe portable
» tester un programme et pouvoir l’arrêter.
» CHANGEMENT DE PROGRAMME EXPANDEUR EXTERNE
» Enregistrer sur un disque dur externe

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: