[R] Erreur lors de l'éxécution de mon script

[RL77LUC]

Bonjour à tous !

Je viens vous signaler mon problème sur mon script. Je me suis aperçu que plusieurs personnes avaient mon problème mais aucune solution concrète/adaptable pour moi. Mon script s'ouvre une fraction de seconde puis se ferme. Voici l'erreur :

C:\**********\Accueil.au3 (69) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
If Not $cmdline[1] = "-nocheck" Then
If Not ^ ERROR

Et voici mon code :

► Afficher le texteMon code (Spoiler)

Code : Tout sélectionner

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=pokeball-48x48.ico
#AutoIt3Wrapper_Res_Comment=Logiciel PSP Manager.
#AutoIt3Wrapper_Res_Description=Gère les projets PSP avec RMXP
#AutoIt3Wrapper_Res_Fileversion=0.1.0.0
#AutoIt3Wrapper_Res_Language=1036
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
; ----------------------------------------------------
; -------------------- Section I ---------------------
; ----------------------------------------------------
; Version AutoIt :    3.2.8.1
; Langue     :        Francais
; Plateforme :        Win9x/XP/Vista
; Autheur    :        RL77LUC
;
; Fonction du script : Manager de PSP.
;
;
;
; Version 0.1 : 14/09/10
;           - Première Version Bêta.
;

;---------------- INCLUDES ----------------
#include <Version.au3>

;--------------- PROGRAMME ----------------
;+--GUI---
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Romain\Desktop\PSPManager.kxf
Global $Form1_1 = GUICreate("PSP Manager", 625, 445, 190, 125)
GUISetIcon("pokeball-48x48.ico")
Global $Group1 = GUICtrlCreateGroup("Optimisations", 32, 192, 577, 57)
Global $Button1 = GUICtrlCreateButton("Renommer Game.exe", 40, 208, 177, 33, $WS_GROUP)
Global $Button7 = GUICtrlCreateButton("Renommer le projet", 232, 208, 177, 33, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Label1 = GUICtrlCreateLabel("PSP Manager", 216, 0, 202, 49)
GUICtrlSetFont(-1, 26, 800, 0, "Pokemon DP")
Global $Group2 = GUICtrlCreateGroup("Fix de bugs", 32, 72, 577, 105)
Global $Button2 = GUICtrlCreateButton("Bug Format de Fichier inattendu", 40, 88, 177, 33, $WS_GROUP)
Global $Button9 = GUICtrlCreateButton("Spécifier le nom de Game", 232, 88, 177, 33, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Button3 = GUICtrlCreateButton("X", 584, 408, 25, 25, $WS_GROUP)
Global $Button4 = GUICtrlCreateButton("Version", 472, 408, 97, 25, $WS_GROUP)
Global $Button5 = GUICtrlCreateButton("Credits", 360, 408, 97, 25, $WS_GROUP)
Global $Label2 = GUICtrlCreateLabel("Version 0.1b", 8, 424, 63, 17)
GUICtrlSetColor(-1, 0x808080)
Global $Pic1 = GUICtrlCreatePic("PokeIco.gif", 168, 8, 30, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Global $Pic2 = GUICtrlCreatePic("PokeIco2.gif", 424, 8, 30, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Global $Group3 = GUICtrlCreateGroup("Autres", 32, 272, 577, 57)
Global $Button6 = GUICtrlCreateButton("Lancer le jeu", 40, 288, 177, 33, $WS_GROUP)
Global $Button8 = GUICtrlCreateButton("Editer le projet", 232, 288, 177, 33, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Dim $NewGameName
If ($NewGameName = "") Then
    $NewGameName = "Game"
Else
    MsgBox(64,"PSP Manager","Le fichier Game a été redéclaré !")
EndIf

If Not FileExists("DATA\") Then
    If $cmdline[0] = "0" Then
    If Not $cmdline[1] = "-nocheck" Then
    GUICtrlSetState($Button2,$GUI_DISABLE)
    GUICtrlSetState($Button7,$GUI_DISABLE)
    GUICtrlSetState($Button1,$GUI_DISABLE)
    GUICtrlSetState($Button6,$GUI_DISABLE)
    GUICtrlSetState($Button8,$GUI_DISABLE)
    GUICtrlSetState($Button9,$GUI_DISABLE)
    MsgBox(16,"PSP Manager","PSP Manager est passé en mode mini car le dossier ''DATA'' est introuvable.")
    EndIf
    EndIf
EndIf

If FileExists("DATA\") Then
If Not FileExists($NewGameName & ".ini") Then
    If $cmdline[0] = "0" Then
    If Not $cmdline[1] = "-nocheck" Then
    GUICtrlSetState($Button2,$GUI_DISABLE)
    GUICtrlSetState($Button7,$GUI_DISABLE)
    GUICtrlSetState($Button1,$GUI_DISABLE)
    GUICtrlSetState($Button6,$GUI_DISABLE)
    GUICtrlSetState($Button8,$GUI_DISABLE)
    MsgBox(16,"PSP Manager","PSP Manager est passé en mode réduit car le fichier Game.ini est introuvable.")
    EndIf
    EndIf
EndIf
EndIf

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

            Case $Button2
                FileMove("game.rxproj", "game.rxproj.bak", 9)
                $file = FileOpen("game.rxproj", 1)
                ; Check if file opened for writing OK
                If $file = -1 Then
                    MsgBox(16, "Erreur", "Impossible d'ouvrir le fichier.")
                Exit
                EndIf
                FileWrite($file, "RPGXP 1.01")
                FileClose($file)
                MsgBox(64, "PSP Manager", "Le bug a été fixé avec succès")

            Case $Button1
                MsgBox(48 + 1,"PSP Manager","ATTENTION : L'utilisation de cette fonction rend indisponible les fonctions ''Renommer le projet'' et ''Bug format de fichier inattendu'' sauf si utilisation de ''Spécifier un nouveau nom de Game''. Il est conseillé d'utiliser cette option si votre projet est TOTALEMENT finalisé et prêt à être redistribué. Voulez-vous continuer ?")
                GUICtrlSetState($Button2,$GUI_DISABLE)
                GUICtrlSetState($Button7,$GUI_DISABLE)
                GUICtrlSetState($Button1,$GUI_DISABLE)
                GUICtrlSetState($Button6,$GUI_DISABLE)
                GUICtrlSetState($Button8,$GUI_DISABLE)
                $NewName = InputBox("PSP Manager", "Entrez le nouveau nom sans le .exe :","Game")
                FileMove($NewGameName & ".exe", $NewName & ".exe", 9)
                FileMove($NewGameName & ".ini", $NewName & ".ini", 9)
                FileMove($NewGameName & ".rxproj", $NewName & ".rxproj", 9)

            Case $Button3
                MsgBox(64, "PSP Manager", "Merci d'utiliser PSP Manager.")
                Exit

            Case $Button4
                Version()

            Case $Button5
                Credits()

            Case $Button7
                If FileExists ($NewGameName & ".ini") then
                    $NewProjectName = InputBox("PSP Manager", "Entrez le nouveau nom de projet :")
                    FileMove($NewGameName & "ini", $NewGameName & ".ini.bak")
                    $fileINI = FileOpen("game.ini", 1)
                    FileWrite($fileINI, "[Game]")
                    FileWrite($fileINI, "Scripts=Data\Scripts.rxdata")
                    FileWrite($fileINI, "Scripts=Data\Scripts.rxdata")
                    FileWrite($fileINI, "Title=" & $NewProjectName)
                    MsgBox(64,"PSP Manager","Le fichier a été renommé !")
                Else
                    MsgBox(16,"PSP Manager",$NewGameName & ".ini introuvable !")
                EndIf

            Case $Button6
                If FileExists ($NewGameName & ".exe") Then
                    Run($NewGameName & ".exe")
                Else
                    MsgBox(16, "PSP Manager","Erreur : Impossible de trouver " & $NewGameName & ".exe !")
                EndIf

            Case $Button8
                If FileExists ($NewGameName & "rxproj") Then
                    If FileExists ("PSP_mod.exe") Then
                        Run("PSP_Mod.exe " & $NewGameName & "rxproj")
                    Else
                        ShellExecute($NewGameName & ".rxproj")
                    EndIf
                Else
                    MsgBox(16, "PSP Manager","Erreur : Impossible de trouver Game.rxproj !")
                EndIf

            Case $Button9
                If Not FileExists ($NewGameName & ".ini") Then
                    $NewGameName = InputBox("PSP Manager","Entrez le nom du fichier .ini :")
                    If FileExists ($NewGameName & ".ini") Then
                        MsgBox(64,"PSP Manager","Nouveau nom spécifié dans le programme !")
                        GUICtrlSetState($Button2,$GUI_ENABLE)
                        GUICtrlSetState($Button7,$GUI_ENABLE)
                        GUICtrlSetState($Button1,$GUI_ENABLE)
                        GUICtrlSetState($Button6,$GUI_ENABLE)
                        GUICtrlSetState($Button8,$GUI_ENABLE)
                    Else
                        MsgBox(16,"PSP Manager","Erreur : Le fichier " & $NewGameName & " est introuvable !")
                    EndIf
                Else
                    MsgBox(16,"PSP Manager","Le fichier Game.ini a été trouvé, inutile de le renommer !")
                EndIf

        EndSwitch
    WEnd
 

Je vous remercie d'avance pour votre aide, j'apprécie beaucoup ce forum, il m'est très utile.

[GaRydelaMer]

Bonjour

Tu fais une erreur juste la ligne avant:

If $CmdLine[0] = "0" Then

Tu lui dis si la ligne de commande contient aucun argument, et tu lui demande ensuite le 1er arguments !!

Code : Tout sélectionner

If $CmdLine[0] > 0 Then
    If $CmdLine[1] = "-nocheck" Then
         ....
    EndIf
    ....
EndIf

ca marchera si le 1er arguments est "-nocheck".

Une autre methode:

exemple : script.exe -nocheck -path "c:\toto\test" -pasUtiliser

Code : Tout sélectionner

Global $Check = True
Global $Path   = @ScriptDir
For $i = 1 To $CmdLine[0]
    If $CmdLine[$i] = "-nocheck" Then $Check = False
    If $CmdLine[$i] = "-path" And $CmdLine[0] <= $i + 1Then $Path = $CmdLine[$i + 1]
    ....
Next

Etc.., en fait on parcours le tableau des arguments, et on affecte le bon argument à la bonne variable que tu utiliseras ensuite dans ton code, de cette façon tu as les bonnes variables avec leur bonne valeur et ceci peut importe l'ordre des arguments, de plus tu peux sauter les arguments que serrait pas bon.

[RL77LUC]

J'ai mis ça en code :

► Afficher le texte

Code : Tout sélectionner

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=pokeball-48x48.ico
#AutoIt3Wrapper_Res_Comment=Logiciel PSP Manager.
#AutoIt3Wrapper_Res_Description=Gère les projets PSP avec RMXP
#AutoIt3Wrapper_Res_Fileversion=0.1.0.0
#AutoIt3Wrapper_Res_Language=1036
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
; ----------------------------------------------------
; -------------------- Section I ---------------------
; ----------------------------------------------------
; Version AutoIt :    3.2.8.1
; Langue     :        Francais
; Plateforme :        Win9x/XP/Vista
; Autheur    :        RL77LUC
;
; Fonction du script : Manager de PSP.
;
;
;
; Version 0.1 : 14/09/10
;           - Première Version Bêta.
;

;---------------- INCLUDES ----------------
#include <Version.au3>

;--------------- PROGRAMME ----------------
;+--GUI---
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Romain\Desktop\PSPManager.kxf
Global $Form1_1 = GUICreate("PSP Manager", 625, 445, 190, 125)
GUISetIcon("pokeball-48x48.ico")
Global $Group1 = GUICtrlCreateGroup("Optimisations", 32, 192, 577, 57)
Global $Button1 = GUICtrlCreateButton("Renommer Game.exe", 40, 208, 177, 33, $WS_GROUP)
Global $Button7 = GUICtrlCreateButton("Renommer le projet", 232, 208, 177, 33, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Label1 = GUICtrlCreateLabel("PSP Manager", 216, 0, 202, 49)
GUICtrlSetFont(-1, 26, 800, 0, "Pokemon DP")
Global $Group2 = GUICtrlCreateGroup("Fix de bugs", 32, 72, 577, 105)
Global $Button2 = GUICtrlCreateButton("Bug Format de Fichier inattendu", 40, 88, 177, 33, $WS_GROUP)
Global $Button9 = GUICtrlCreateButton("Spécifier le nom de Game", 232, 88, 177, 33, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Button3 = GUICtrlCreateButton("X", 584, 408, 25, 25, $WS_GROUP)
Global $Button4 = GUICtrlCreateButton("Version", 472, 408, 97, 25, $WS_GROUP)
Global $Button5 = GUICtrlCreateButton("Credits", 360, 408, 97, 25, $WS_GROUP)
Global $Label2 = GUICtrlCreateLabel("Version 0.1b", 8, 424, 63, 17)
GUICtrlSetColor(-1, 0x808080)
Global $Pic1 = GUICtrlCreatePic("PokeIco.gif", 168, 8, 30, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Global $Pic2 = GUICtrlCreatePic("PokeIco2.gif", 424, 8, 30, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Global $Group3 = GUICtrlCreateGroup("Autres", 32, 272, 577, 57)
Global $Button6 = GUICtrlCreateButton("Lancer le jeu", 40, 288, 177, 33, $WS_GROUP)
Global $Button8 = GUICtrlCreateButton("Editer le projet", 232, 288, 177, 33, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Dim $NewGameName
If ($NewGameName = "") Then
    $NewGameName = "Game"
Else
    MsgBox(64,"PSP Manager","Le fichier Game a été redéclaré !")
EndIf

If Not FileExists("DATA\") Then
    If $CmdLine[0] > 0 Then
    If $cmdline[1] <> "-nocheck" Then
    GUICtrlSetState($Button2,$GUI_DISABLE)
    GUICtrlSetState($Button7,$GUI_DISABLE)
    GUICtrlSetState($Button1,$GUI_DISABLE)
    GUICtrlSetState($Button6,$GUI_DISABLE)
    GUICtrlSetState($Button8,$GUI_DISABLE)
    GUICtrlSetState($Button9,$GUI_DISABLE)
    MsgBox(16,"PSP Manager","PSP Manager est passé en mode mini car le dossier ''DATA'' est introuvable.")
    EndIf
    EndIf
EndIf

If FileExists("DATA\") Then
If Not FileExists($NewGameName & ".ini") Then
    If $CmdLine[0] > 0 Then
    If $cmdline[1] <> "-nocheck" Then
    GUICtrlSetState($Button2,$GUI_DISABLE)
    GUICtrlSetState($Button7,$GUI_DISABLE)
    GUICtrlSetState($Button1,$GUI_DISABLE)
    GUICtrlSetState($Button6,$GUI_DISABLE)
    GUICtrlSetState($Button8,$GUI_DISABLE)
    MsgBox(16,"PSP Manager","PSP Manager est passé en mode réduit car le fichier Game.ini est introuvable.")
    EndIf
    EndIf
EndIf
EndIf

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

            Case $Button2
                FileMove("game.rxproj", "game.rxproj.bak", 9)
                $file = FileOpen("game.rxproj", 1)
                ; Check if file opened for writing OK
                If $file = -1 Then
                    MsgBox(16, "Erreur", "Impossible d'ouvrir le fichier.")
                Exit
                EndIf
                FileWrite($file, "RPGXP 1.01")
                FileClose($file)
                MsgBox(64, "PSP Manager", "Le bug a été fixé avec succès")

            Case $Button1
                MsgBox(48 + 1,"PSP Manager","ATTENTION : L'utilisation de cette fonction rend indisponible les fonctions ''Renommer le projet'' et ''Bug format de fichier inattendu'' sauf si utilisation de ''Spécifier un nouveau nom de Game''. Il est conseillé d'utiliser cette option si votre projet est TOTALEMENT finalisé et prêt à être redistribué. Voulez-vous continuer ?")
                GUICtrlSetState($Button2,$GUI_DISABLE)
                GUICtrlSetState($Button7,$GUI_DISABLE)
                GUICtrlSetState($Button1,$GUI_DISABLE)
                GUICtrlSetState($Button6,$GUI_DISABLE)
                GUICtrlSetState($Button8,$GUI_DISABLE)
                $NewName = InputBox("PSP Manager", "Entrez le nouveau nom sans le .exe :","Game")
                FileMove($NewGameName & ".exe", $NewName & ".exe", 9)
                FileMove($NewGameName & ".ini", $NewName & ".ini", 9)
                FileMove($NewGameName & ".rxproj", $NewName & ".rxproj", 9)

            Case $Button3
                MsgBox(64, "PSP Manager", "Merci d'utiliser PSP Manager.")
                Exit

            Case $Button4
                Version()

            Case $Button5
                Credits()

            Case $Button7
                If FileExists ($NewGameName & ".ini") then
                    $NewProjectName = InputBox("PSP Manager", "Entrez le nouveau nom de projet :")
                    FileMove($NewGameName & "ini", $NewGameName & ".ini.bak")
                    $fileINI = FileOpen("game.ini", 1)
                    FileWrite($fileINI, "[Game]")
                    FileWrite($fileINI, "Scripts=Data\Scripts.rxdata")
                    FileWrite($fileINI, "Scripts=Data\Scripts.rxdata")
                    FileWrite($fileINI, "Title=" & $NewProjectName)
                    MsgBox(64,"PSP Manager","Le fichier a été renommé !")
                Else
                    MsgBox(16,"PSP Manager",$NewGameName & ".ini introuvable !")
                EndIf

            Case $Button6
                If FileExists ($NewGameName & ".exe") Then
                    Run($NewGameName & ".exe")
                Else
                    MsgBox(16, "PSP Manager","Erreur : Impossible de trouver " & $NewGameName & ".exe !")
                EndIf

            Case $Button8
                If FileExists ($NewGameName & "rxproj") Then
                    If FileExists ("PSP_mod.exe") Then
                        Run("PSP_Mod.exe " & $NewGameName & "rxproj")
                    Else
                        ShellExecute($NewGameName & ".rxproj")
                    EndIf
                Else
                    MsgBox(16, "PSP Manager","Erreur : Impossible de trouver Game.rxproj !")
                EndIf

            Case $Button9
                If Not FileExists ($NewGameName & ".ini") Then
                    $NewGameName = InputBox("PSP Manager","Entrez le nom du fichier .ini :")
                    If FileExists ($NewGameName & ".ini") Then
                        MsgBox(64,"PSP Manager","Nouveau nom spécifié dans le programme !")
                        GUICtrlSetState($Button2,$GUI_ENABLE)
                        GUICtrlSetState($Button7,$GUI_ENABLE)
                        GUICtrlSetState($Button1,$GUI_ENABLE)
                        GUICtrlSetState($Button6,$GUI_ENABLE)
                        GUICtrlSetState($Button8,$GUI_ENABLE)
                    Else
                        MsgBox(16,"PSP Manager","Erreur : Le fichier " & $NewGameName & " est introuvable !")
                    EndIf
                Else
                    MsgBox(16,"PSP Manager","Le fichier Game.ini a été trouvé, inutile de le renommer !")
                EndIf

        EndSwitch
    WEnd
 

Le code ne plante pas mais les boutons sont tout le temps activés ...
Merci de votre aide.

[Tlem]

2 messages. 2 fois un code de 200 lignes ...
J'espère que vous n'allez pas continuer à chaque messages.

[RL77LUC]

Ah oui ... Désolé :S.
C'est vrai que c'était pas top ... Sinon quelqu'un a une idée ?

[Tlem]

Vous oubliez une condition. Celle ou DATA n'existe pas et ou il n'y à pas de ligne de commande.

Modifiez dans ce genre là :

Code : Tout sélectionner

If Not FileExists("DATA\") Then
    If $CmdLine[0] > 0 Then
        If $CmdLine[1] <> "-nocheck" Then
            _Mini()
        EndIf
    Else
        _Mini()
    EndIf
EndIf

Et la fonction _Mini :

Code : Tout sélectionner

Func _Mini()
    GUICtrlSetState($Button2, $GUI_DISABLE)
    GUICtrlSetState($Button7, $GUI_DISABLE)
    GUICtrlSetState($Button1, $GUI_DISABLE)
    GUICtrlSetState($Button6, $GUI_DISABLE)
    GUICtrlSetState($Button8, $GUI_DISABLE)
    GUICtrlSetState($Button9, $GUI_DISABLE)
    MsgBox(16, "PSP Manager", "PSP Manager est passé en mode mini car le dossier ''DATA'' est introuvable.")
EndFunc   ;==>_Mini

[RL77LUC]

Ah oui !!
Merci BEAUCOUP à Tlem et au forum AutoIt français !

J'ai enfin résolu mon problème !
Je passe le sujet en résolu, encore une fois merci.