Création d'un executable autonome?

Sleuek Messages postés 2 Statut Membre -  
jordane45 Messages postés 30427 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonsoir,

Voilà, après quelques recherches sur internet, mes questions restent sans réponses..
Je souhaiterais créer un exécutable [en .bat il me semble?] autonome qui lancerait mon application, effectuerait des actions [Ctrl+A; CTRL+S] et qui s'éteindrait après les actions effectuées.

Est-ce possible?

Bien cordialement
Dans l'attente de vous lire.
Sleuek

3 réponses

  1. jordane45 Messages postés 30427 Date d'inscription   Statut Modérateur Dernière intervention   4 831
     
    Bonjour,
    Je souhaiterais créer un exécutable

    .. donc un .exe ?

    qui lancerait mon application, effectuerait des actions [Ctrl+A; CTRL+S]

    les Batch ne sont pas vraiment fait pour ça....
    A la limite, tu peux toujours faire ça en VBSCRIPT.
    Mais bon... pour faire un EXEcutable... je t'invite plutôt à t'orienter vers autoit.

    https://www.autoitscript.fr/forum/viewtopic.php?f=36&t=2571

    Et pour faire ton programme (en autoit )
    Pour lancer un programme :
    https://www.autoitscript.com/autoit3/docs/functions/Run.htm

    Pour envoyer des touches :
    https://www.autoitscript.fr/autoit3/docs/appendix/SendKeys.htm

    0
  2. Sleuek Messages postés 2 Statut Membre
     
    Merci beaucoup Jordane45
    0
  3. jordane45 Messages postés 30427 Date d'inscription   Statut Modérateur Dernière intervention   4 831
     
    Voici un exemple de script
    Opt("WinTitleMatchMode", 2) ;1=start, 2=subStr, 3=exact, 4=advanced, -1 to -4=Nocase
    
    $programme = "notepad.exe"
    $titreFenetreProg = "Bloc-notes"
    
    ;lancement du programme
        ; Run Notepad with the window maximized.
        Local $iPID = Run($programme, "", @SW_SHOWMAXIMIZED)
    
        ; On attend que le programme soit lancé et actif
       if WinWaitActive($titreFenetreProg) then
    		; On lance les envois de touches...
    		Send("{S 30}") ; Envoie 30 caractères 'S'
    		Sleep(2000)
    		 ;CTRL + a
    		Send("^a")
    	EndIf
    

    0