[R] Un Générateur

[Narmeke]

bonjour,
J'ai encore besoin de vous mais pour un programme plutôt complexe à mon goût.
Tous d'abord voici l'interface graphique que j'aimerais :

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("MsgBox Générator", 373, 420, 243, 140)
$Tab1 = GUICtrlCreateTab(8, 16, 353, 321)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Executable")
$Group1 = GUICtrlCreateGroup("Message Box", 24, 64, 313, 193)
$Label1 = GUICtrlCreateLabel("Titre :", 48, 104, 31, 17)
$Input1 = GUICtrlCreateInput("Entrez un titre !", 174, 104, 121, 21)
$Label2 = GUICtrlCreateLabel("Texte :", 48, 154, 37, 17)
$Label3 = GUICtrlCreateLabel("Icone :", 48, 204, 37, 17)
$Combo1 = GUICtrlCreateCombo("Combo1", 174, 204, 121, 25)
GUICtrlSetData(-1, "Fatal Error     [16]|Question       [32]|Exclamation  [48]|Information    [64]")
$Input2 = GUICtrlCreateInput("Entrer votre Texte !", 174, 154, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Créer l'executable", 104, 288, 161, 33, $WS_GROUP)
$TabSheet2 = GUICtrlCreateTabItem("Configurations")
$Label4 = GUICtrlCreateLabel("Chemin de destination de l'exe :", 32, 64, 185, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Input3 = GUICtrlCreateInput("", 32, 96, 201, 21)
$Button2 = GUICtrlCreateButton("...", 240, 96, 25, 21, $WS_GROUP)
$Label5 = GUICtrlCreateLabel("Chemin de l'icone de l'exe :", 32, 176, 160, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Input4 = GUICtrlCreateInput("", 32, 208, 201, 21)
$Button3 = GUICtrlCreateButton("...", 240, 208, 25, 21, $WS_GROUP)
$Label7 = GUICtrlCreateLabel("Nom de l'exe :", 32, 288, 71, 17)
$Input5 = GUICtrlCreateInput("", 120, 280, 145, 21)
GUICtrlCreateTabItem("")
$Progress1 = GUICtrlCreateProgress(40, 360, 257, 41)
$Label6 = GUICtrlCreateLabel("0%", 312, 368, 31, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd
 

Ce script aura pour but de créer un executable qui affichera une message box avec les paramètres défini par l'utilisateur.
Le but d'un tel script et justement qu'il n'y en a pas. Je ne veux surtout pas que se script serve également à créer des programmes mal intentionné. Il serait juste à titre informatif.

Merci d'avances pour vos futures script si il y en a ! =)

PS : Aucun ressources externe ne doit être utilisé. enfin je veux dire que tous doit être dans l'executable afin que n'importe quelle utilisateur puisse générer son exe.

[Tlem]

Vous avez trois solutions :

1 - Vous générez un fichier .au3 et dans ce cas il vous faut un exécutable généré avec AutoIt ou alors il vous faut AutoIt.exe. Le script est un simple fichier texte et donc modifiable à souhait.

2 - Vous générez un fichier .a3x et dans ce cas il vous faut un exécutable généré avec AutoIt ou alors il vous faut AutoIt.exe. Le script est compilé et n'est pas modifiable.

3 - Vous générez un fichier .exe et dans ce cas il vous faut le programme Aut2exe.exe ainsi que AutoItSC.bin ou AutoItSC_x64.bin selon l'environnement. Le script est compilé et n'est pas modifiable.

Pour compiler le script avec une ligne de commande, le sujet à déjà été traité sur le forum.

[Narmeke]

Merci je vais voir ! Je ne mets pas le sujet en résolu pour le moment.

[Narmeke]

qui veut bien me le coder? Je comprend pas la compilation !

Merci d'avance !

[guitarist]

C'est pas tres compliquer : avec Scite vous appuyez sur F7 et c'est bon

[Narmeke]

oué mais je veux une compilation invisible au yeux de l'utilisateur.

[guitarist]

Invisible??? c'est à dire que l'utilisateur recoit un fichier nn compiler et doit-lui meme le compiler c'est etrange...
pourquoi?
Sinon tt ssimplement Send("[F7]") si je me souvient bien

[Narmeke]

ben non mais si tu veux compiler tu dois ouvrir scite? Et moi je veux compiler sans sa.

[Narmeke]

Cherche tuto compilation en ligne de commande. Please?

merci d'avance.

[Tlem]

Tout est là : http://www.autoitscript.fr/autoit3/docs ... mpiler.htm

[pop45]

Simple curiosité
La tu nous a donner l' "image" du script mais a tu fait le script en lui meme?

Je veut dire la parti qui va généré le code du script qui est sensé afficher une msgbox a l'utilisateur qu'il l'actionnerais?

[Narmeke]

Ben je suis en train enfaite ...
C'est pour montrer ce que je recherche !
Voilà merci pour vos réponses je vais voir sa tous de suite !

...

Enfaite mon souci est le suivant :
Les utilisateur de mon script pourront eux même générer des executables qui auront pour fonction d'afficher une messagebox paramétrer par l'utilisateur donc via mon programme. C'est pour cela que je cherche une fonction un truc qui me permettrais de compiler rapidement ce que demande l'utilisateur et faisant progresser la barre de progression.

P.S : a quoi peut servire ceci : @Compiled

[Tlem]

@Compiled sert à savoir si le script est compilé ou non.

[pop45]

Ben tu a qua emporter aut2exe.exe avec toi comme sa tu compile sur place

Tu cree un txt tu le renome en test.au3
Tu l'ouvre tu met le script que tu veut dedan
Tu lance aut2exe et tu rentre les parametre
Tu suprime le .au3 et c'est bon il a sont .exe

[Narmeke]

C'est exactement ce que je veux faire mais le problème est que je souhaite que l'utilisateur ne voit pas cela !

[guitarist]

Et pourquoi ne pas donner le script directement compiler ??

[ayuckers]

Hello je me suis permis de modifier un peut ton interface
j'espère que cette exemple pourras t'aider (il fonctionne chez moi)

j'ai juste fait le minimum syndical, je pense que sa correspond a peut prés a ce que tu veut faire.
je n'ai pas fait de contrôle de sécurité, par exemple si les fichier existe ou pas ou bien si la compilation bug

Les scrits et l'exe de la boite de dialogue seront placer dans C:\MesBoites\

► Afficher le texte

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>

Global $file
; variables specifique aux boite de dialogue
Global $MonFlag, $MonTitre, $MonTxt, $MonTimer

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("MsgBox Générator", 373, 420, 243, 140)
$Tab1 = GUICtrlCreateTab(8, 16, 353, 321)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Executable")
$Group1 = GUICtrlCreateGroup("Message Box", 24, 64, 313, 193)
$Label1 = GUICtrlCreateLabel("Titre :", 48, 104, 31, 17)
$Input1 = GUICtrlCreateInput("Entrez un titre !", 174, 104, 121, 21)
$Label2 = GUICtrlCreateLabel("Texte :", 48, 154, 37, 17)
$Label3 = GUICtrlCreateLabel("Icone :", 48, 204, 37, 17)
$Combo1 = GUICtrlCreateCombo("Combo1", 174, 204, 121, 25)
GUICtrlSetData(-1, "Fatal Error [16]|Question [32]|Exclamation [48]|Information [64]")
$Input2 = GUICtrlCreateInput("Entrer votre Texte !", 174, 154, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button4 = GUICtrlCreateButton("Voir Ma Boite", 104, 260, 161, 33, $WS_GROUP) ; Pour previsualiser la boite de dialogue
$Button1 = GUICtrlCreateButton("Créer l'executable", 104, 295, 161, 33, $WS_GROUP)
$TabSheet2 = GUICtrlCreateTabItem("Configurations")
$Label4 = GUICtrlCreateLabel("Chemin de destination de l'exe :", 32, 64, 185, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Input3 = GUICtrlCreateInput("", 32, 96, 201, 21)
$Button2 = GUICtrlCreateButton("...", 240, 96, 25, 21, $WS_GROUP)
$Label5 = GUICtrlCreateLabel("Chemin de l'icone de l'exe :", 32, 176, 160, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Input4 = GUICtrlCreateInput("", 32, 208, 201, 21)
$Button3 = GUICtrlCreateButton("...", 240, 208, 25, 21, $WS_GROUP)
$Label7 = GUICtrlCreateLabel("Nom de l'exe :", 32, 288, 71, 17)
$Input5 = GUICtrlCreateInput("", 120, 280, 145, 21)
GUICtrlCreateTabItem("")
; **** la bar de progresseion est inutile a mon sens car la compilation sera tres rapide *********
;$Progress1 = GUICtrlCreateProgress(40, 360, 257, 41)
;$Label6 = GUICtrlCreateLabel("0%", 312, 368, 31, 28)
;GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit ; pour sortir du prog en cliquand sur la croix
Case $Button4
Init_Variables_Boite()
MaBoite_previsualisation()

Case $Button1
Init_Variables_Boite()
MaBoite_creation()

Exit

EndSwitch
WEnd


; ********* Pour initialiser les diferentes varaibles des boite de dialogue ***********************
Func Init_Variables_Boite()
$MonFlag = 0 ; il existe differant type de boite de dialogue pour simplifier je fixe cette variable a 0
$MonTitre = GUICtrlRead($Input1)
$MonTxt = GUICtrlRead($Input2)
$MonTimer = 0 ; idem il exciste trop de type et de parametre......

EndFunc

; ********************** pour la prévisualisation d ela boite de dialogue ***************************
Func MaBoite_previsualisation()
MsgBox($MonFlag, $MonTitre, $MonTxt, $MonTimer)

EndFunc

;***************** création du scripte et compilation automatique (transparent pour l'utilisateur ) ****************
Func MaBoite_creation()

; création du fichier
$file = FileOpen("C:\MesBoites\MaBoite.au3", 10) ; ici la valeur 10 permet de crée l'arborescence et le fichier

If $file = -1 Then ; test de securité si le fichier ne peut pas etre ouvert
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf

; ecriture d'une ligne dans le fichier texte (il y a peut eter une methode plus simple ou differente mais la de suite je vois pas )
FileWrite($file, "MsgBox(" & $MonFlag & ',"' & $MonTitre & '","' & $MonTxt & '",' & $MonTimer & ')' )

FileClose($file) ; Fermeture du fichier

; cette ligne permet de recuperer le chemin de Aut2exe utile dans ce cas specifique....
$Chemin = StringLeft(@AutoItExe,StringLen(@AutoItExe) - 11) & "Aut2Exe"

; fonction run va permetre de crée l'executable
Run($Chemin & '\Aut2exe.exe /in C:\MesBoites\MaBoite.au3 /out C:\MesBoites\MaBoite.exe', "", @SW_HIDE )
; @SW_HIDE : permet de cache l'invite de commande MS-DOS

EndFunc

[Narmeke]

Merci beaucoup, j'avais trouver pour la compilation grâce à DJSIR.
Donc merci à tous pour votre aide.

[DJSIR]

Je t'avais aussi expliqué @Compiled je te rapelle qu'on voit tous les messages des uns des autres donc.. essaie de ne pas demander deux fois la même chose sinon, je t'explique plus rien.

[Narmeke]

Oki