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
» Synedit Parameters
par Yannick Aujourd'hui à 0:27

» Code à vérifier SVP (Oups ! résolu)
par Jean Claude Hier à 21:16

» Compilateur FBPano
par jean_debord Hier à 9:56

» Bienvenue à Virtualalan !
par UltraVox Hier à 9:18

» Concours de Morpions
par jjn4 Hier à 0:04

» ShortName$(F) [Cloturé]
par papydall Mer 21 Juin 2017 - 16:19

» Remplacer espace par tiret dans noms des dossiers / fichiers
par papydall Mer 21 Juin 2017 - 15:27

» Menu personalisé avec icones et menu contextuel
par Laurent (Minibug) Mer 21 Juin 2017 - 12:44

» La liste des choses à faire ...
par Jack Mar 20 Juin 2017 - 22:49

» Quoi de neuf à propos de Goric 3D ? (@Jack)
par UltraVox Mar 20 Juin 2017 - 21:06

» Nom court et anti fenetre dos
par silverman Mar 20 Juin 2017 - 18:31

» Ludothèque Panoramic
par jjn4 Mar 20 Juin 2017 - 18:09

» Proposition à la communauté
par Yannick Mar 20 Juin 2017 - 15:02

» >199
par maelilou Mar 20 Juin 2017 - 14:13

» NUMBER_FOCUS
par Yannick Lun 19 Juin 2017 - 15:25

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juin 2017
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
2627282930  
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 : 5384
Age : 66
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/
Marc37



Nombre de messages : 441
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 : 5384
Age : 66
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 : 4922
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
Laurent (Minibug)

avatar

Nombre de messages : 2340
Age : 50
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
JL35



Nombre de messages : 5882
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 : 5384
Age : 66
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 : 5882
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 : 5384
Age : 66
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 : 530
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 : 5384
Age : 66
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 : 530
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
-
» Fermer un programme ouvert
» [RESOLU] Comment exécuter un programme externe
» Click sur un objet externe a Panoramic
» Augmenter l'autonomie du 3790T "à pied" avec une alim externe portable
» executer un script externe

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