[R] Problème Compilation Ligne de commande

Narmeke · #1

Bonjours,

Donc mon script fonctionne mais lorsque je veux compiler en cliquant sur générer, il plante.
Voici mon code :

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$GUI_NAME = "Fenêtre transparente"

FileInstall("fond.jpg", @TempDir & "\bk", 1)

$GUI = GUICreate($GUI_NAME, 300, 400, -1, -1, BitOR(-2147483648, 8388608))

$PIC_BACK = GUICtrlCreatePic(@TempDir & "\bk", 0, 0, 300, 400)
GUICtrlSetState($PIC_BACK, $GUI_DISABLE)

;---------------
; Contenu de
;   la Windows
;---------------
$Progress1 = GUICtrlCreateProgress(4, 370, 290, 25)

$Label1 = GUICtrlCreateLabel("Titre :", 28, 71, 31, 17)
$Input1 = GUICtrlCreateInput("Titre", 128, 71, 81, 21)

$Label2 = GUICtrlCreateLabel("Texte :", 28, 111, 37, 17)
$Input2 = GUICtrlCreateInput("Texte", 128, 111, 81, 21)

$Label3 = GUICtrlCreateLabel("Flag :", 28, 151, 30, 17)
$Combo1 = GUICtrlCreateCombo("0", 128, 151, 81, 25)
GUICtrlSetData(-1, "16|32|48|64")
$Button1 = GUICtrlCreateButton("i", 216, 152, 25, 17, $WS_GROUP)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")

$Label4 = GUICtrlCreateLabel("Icone :", 28, 191, 37, 17)
$Input3 = GUICtrlCreateInput("", 128, 191, 81, 21)
$Button2 = GUICtrlCreateButton("...", 216, 192, 25, 17, $WS_GROUP)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")

$Label5 = GUICtrlCreateLabel("Nom du .exe :", 28, 231, 70, 17)
$Input4 = GUICtrlCreateInput("Narmeke Software", 128, 231, 81, 21)

$Button3 = GUICtrlCreateButton("Générer", 40, 288, 73, 25, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Aperçu", 120, 288, 73, 25, $WS_GROUP)
$Button5 = GUICtrlCreateButton("Quitter", 200, 288, 73, 25, $WS_GROUP)

$Label11 = GUICtrlCreateLabel("Copyright © Narmeke Software 2009 - 2010", 45, 345, 211, 17)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
;---------------
; Fin Contenu de
;   la Windows
;---------------

GUISetState()



While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $Button2
            $Opened_File = FileOpenDialog("Icone de l'executable", "", "All ico files (*.ico)",12)
            GUICtrlSetData($Input3, $Opened_File)
            
            
        Case $Button3
            $Nom = GUICtrlRead($Input4)
            $Titre = GUICtrlRead($Input1)
            $Texte = GUICtrlRead($Input2)
            $Flag = GUICtrlRead($Combo1)

            $file = FileOpen( $Nom & ".au3", 1) ;Ouverture du script
            FileWriteLine($file, 'MsgBox( ' &$Flag &', "' &$Titre & '","' &$Texte & '")') ;Génération de la MsgBox
            FileClose($file) ;On ferme le script
            
            $Icone = @ScriptDir & "\Icone.ico"

            ;Définition des noms des fichiers
            $FILE_ = $Nom & ".au3"
            $OUT_FILE_ = $Nom & ".exe"
            $ICON_FILE_ = $Icone

            ;Extraction des fichiers (si compilé) sinon copie
            If @Compiled Then
               FileInstall("Aut2Exe.exe", @TempDir & "\Aut2Exe.exe", 1)
               FileInstall("upx.exe", @TempDir & "\upx.exe", 1)
               FileInstall("AutoItSC.bin", @TempDir & "\AutoItSC.bin", 1)
               $DIR = @TempDir
            Else
               FileCopy("Aut2Exe.exe", @TempDir & "\Aut2Exe.exe", 1)
               FileCopy("upx.exe", @TempDir & "\upx.exe", 1)
               FileCopy("AutoItSC.bin", @TempDir & "\AutoItSC.bin", 1)
               $DIR = @TempDir
            EndIf

            ;Compilation du fichier
            RunWait($DIR & "\Aut2Exe.exe /in " & $FILE_ & " /out " & $OUT_FILE_ & " /icon " & $ICON_FILE_)

            FileMove(@TempDir & "\" &  $Nom & ".exe", @ScriptDir & "\" & $Nom & ".exe", 1)

        Case $Button4
            $Titre = GUICtrlRead($Input1)
            $Texte = GUICtrlRead($Input2)
            $Flag = GUICtrlRead($Combo1)

            MsgBox( $Flag, $Titre, $Texte) ;Génération de la MsgBox


        Case $Button5
            Exit
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

Il faut ajouter au projet ceci :
- Aut2exe.exe
- AutoItSC.bin
- upx.exe

Merci d'avance je bloque depuis 3 jours la dessus !

#2

Il faut remplacer :

Code : Tout sélectionner

RunWait($DIR & "\Aut2Exe.exe /in " & $FILE_ & " /out " & $OUT_FILE_ & " /icon " & $ICON_FILE_)

par

Code : Tout sélectionner

RunWait($DIR & '\Aut2Exe.exe /in "' & @ScriptDir & "\" & $FILE_ & '" /out "' & @ScriptDir & "\" & $OUT_FILE_ & '" /icon "' & @ScriptDir & "\" & $ICON_FILE_ & '"')

(Je n'ai pas pu tester puisque je n'ai pas d'icône.)

Et éventuellement :

Code : Tout sélectionner

$file = FileOpen( $Nom & ".au3", 1) ;Ouverture du script

par

Code : Tout sélectionner

$file = FileOpen( $Nom & ".au3", 2) ;Ouverture du script

Narmeke · #3

Donc j'ai modifier le mon code avec ce que tu m'avais donner, mais lors de la compilation j'obtient une erreur qui me dit : Error changing icon, icon wrong format.

Mais mon icone est bien un .ico !

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$GUI_NAME = "Fenêtre transparente"

FileInstall("fond.jpg", @TempDir & "\bk", 1)

$GUI = GUICreate($GUI_NAME, 300, 400, -1, -1, BitOR(-2147483648, 8388608))

$PIC_BACK = GUICtrlCreatePic(@TempDir & "\bk", 0, 0, 300, 400)
GUICtrlSetState($PIC_BACK, $GUI_DISABLE)

;---------------
; Contenu de
;   la Windows
;---------------
$Progress1 = GUICtrlCreateProgress(4, 370, 290, 25)

$Label1 = GUICtrlCreateLabel("Titre :", 28, 71, 31, 17)
$Input1 = GUICtrlCreateInput("Titre", 128, 71, 81, 21)

$Label2 = GUICtrlCreateLabel("Texte :", 28, 111, 37, 17)
$Input2 = GUICtrlCreateInput("Texte", 128, 111, 81, 21)

$Label3 = GUICtrlCreateLabel("Flag :", 28, 151, 30, 17)
$Combo1 = GUICtrlCreateCombo("0", 128, 151, 81, 25)
GUICtrlSetData(-1, "16|32|48|64")
$Button1 = GUICtrlCreateButton("i", 216, 152, 25, 17, $WS_GROUP)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")

$Label4 = GUICtrlCreateLabel("Icone :", 28, 191, 37, 17)
$Input3 = GUICtrlCreateInput("", 128, 191, 81, 21)
$Button2 = GUICtrlCreateButton("...", 216, 192, 25, 17, $WS_GROUP)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")

$Label5 = GUICtrlCreateLabel("Nom du .exe :", 28, 231, 70, 17)
$Input4 = GUICtrlCreateInput("Narmeke Software", 128, 231, 81, 21)

$Button3 = GUICtrlCreateButton("Générer", 40, 288, 73, 25, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Aperçu", 120, 288, 73, 25, $WS_GROUP)
$Button5 = GUICtrlCreateButton("Quitter", 200, 288, 73, 25, $WS_GROUP)

$Label11 = GUICtrlCreateLabel("Copyright © Narmeke Software 2009 - 2010", 45, 345, 211, 17)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
;---------------
; Fin Contenu de
;   la Windows
;---------------

GUISetState()



While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $Button2
            $Opened_File = FileOpenDialog("Icone de l'executable", "", "All ico files (*.ico)",12)
            GUICtrlSetData($Input3, $Opened_File)
        Case $Button3
            $Nom = GUICtrlRead($Input4)
            $Titre = GUICtrlRead($Input1)
            $Texte = GUICtrlRead($Input2)
            $Flag = GUICtrlRead($Combo1)
            $Icone = GUICtrlRead($Input3)

            $file = FileOpen( $Nom & ".au3", 2) ;Ouverture du script
            FileWriteLine($file, 'MsgBox( ' &$Flag &', "' &$Titre & '","' &$Texte & '")') ;Génération de la MsgBox
            FileClose($file) ;On ferme le script
            FileMove(@ScriptDir & $file, @TempDir & "\" & $file, 1) ;Déplacement du fichier

            ;Définition des noms des fichiers
            $FILE_ = $Nom & ".au3"
            $OUT_FILE_ = $Nom & ".exe"
            $ICON_FILE_ = $Icone

            ;Extraction des fichiers (si compilé) sinon copie
            If @Compiled Then
               FileInstall("Aut2Exe.exe", @TempDir & "\Aut2Exe.exe", 1)
               FileInstall("upx.exe", @TempDir & "\upx.exe", 1)
               FileInstall("AutoItSC.bin", @TempDir & "\AutoItSC.bin", 1)
               $DIR = @TempDir
            Else
               FileCopy("Aut2Exe.exe", @TempDir & "\Aut2Exe.exe", 1)
               FileCopy("upx.exe", @TempDir & "\upx.exe", 1)
               FileCopy("AutoItSC.bin", @TempDir & "\AutoItSC.bin", 1)
               $DIR = @TempDir
            EndIf

            ;Compilation du fichier
            ;RunWait($DIR & "\Aut2Exe.exe /in " & $FILE_ & " /out " & $OUT_FILE_ & " /icon " & $ICON_FILE_)
            RunWait($DIR & '\Aut2Exe.exe /in "' & @ScriptDir & "\" & $FILE_ & '" /out "' & @ScriptDir & "\" & $OUT_FILE_ & '" /icon "' & @ScriptDir & "\" & $ICON_FILE_ & '"')

            FileMove(@TempDir & "\" &  $Nom & ".exe", @ScriptDir & "\" & $Nom & ".exe", 1)

        Case $Button4
            $Titre = GUICtrlRead($Input1)
            $Texte = GUICtrlRead($Input2)
            $Flag = GUICtrlRead($Combo1)

            MsgBox( $Flag, $Titre, $Texte) ;Génération de la MsgBox de test


        Case $Button5
            Exit
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

DJSIR · #4

Je t'ai expliqué sur MSN que le compilateur ne prend pas les chemins complet, j'ai corrigé aussi ton script. Alors, ou est le problème ?

Narmeke · #5

Sa tu l'avais pas dit ! Merci j'ai compris a présent !

AutoIt Français

[R] Problème Compilation Ligne de commande

[R] Problème Compilation Ligne de commande

Re: [..] Problème Compilation Ligne de commande

Re: [..] Problème Compilation Ligne de commande

Re: [..] Problème Compilation Ligne de commande

Re: [..] Problème Compilation Ligne de commande