[R] Variable

[DCVolo]

Bonjour,

J'ai programmé, un petit programme qui en fonction du nom d'un fichier texte Termine tel ou tel processus.
Sauf que j'ai l'impression d'avoir un problème avec les variables que j'utilise dans un tableau.

► Afficher le texte

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.6.1
 Author: DC_Volo

 Script Function: Server Auto Reboot
    Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Restart_Server.exe



Dim $code[13] = ["1bh68p","2g4f8c","35d71s","4g4s81","5ty13g","6a1v8e","7v5df7","89f1s7","91b2d4","101v45","11f4d8","12a187","13b284"]
; private -> hor -> 45 -> 44 | Public -> soc, 12345678 | Mod -> Conquest , prey


While 1
    Sleep(900000) ; 15min
        If FileExists ("restart_server_"$code[0]".txt") Then ; HOR
            Sleep(5000)
            ProcessClose ("SWRepublicCommandohor2.exe")
            Sleep(10000)
            FileDelete ("restart_server_"$code[0]".txt")
            Sleep(10000)
        EndIf
        If FileExists ("restart_server_"$code[1]".txt") Then; 45
            Sleep(5000)
            ProcessClose ("SWRepublicCommandoServerPrivate.exe")
            Sleep(10000)
            FileDelete ("restart_server_"$code[1]".txt")
            Sleep(10000)
        EndIf
        If FileExists ("restart_server_"$code[2]".txt") Then ; 44
            Sleep(5000)
            ProcessClose ("SWRepublicCommandoServerPrivate2.exe")
            Sleep(10000)
            FileDelete ("restart_server_"$code[2]".txt")
            Sleep(10000)
        EndIf
        If FileExists ("restart_server_"$code[3]".txt") Then; P1
            Sleep(5000)
            ProcessClose ("SWRepublicCommando1.exe")
            Sleep(10000)
            FileDelete ("restart_server_"$code[3]".txt")
            Sleep(10000)
        EndIf   
        If FileExists ("restart_server_"$code[4]".txt") Then ; P2
            Sleep(5000)
            ProcessClose ("SWRepublicCommando2.exe")
            Sleep(10000)
            FileDelete ("restart_server_"$code[4]".txt")
            Sleep(10000)
        EndIf
        If FileExists ("restart_server_"$code[5]".txt") Then; P3
            Sleep(5000)
            ProcessClose ("SWRepublicCommando2-2.exe")
            Sleep(10000)
            FileDelete ("restart_server_"$code[5]".txt")
            Sleep(10000)
        EndIf
        If FileExists ("restart_server_"$code[6]".txt") Then ; P4
            Sleep(5000)
            ProcessClose ("SWRepublicCommandohor2-3.exe")
            Sleep(10000)
            FileDelete ("restart_server_"$code[6]".txt")
            Sleep(10000)
        EndIf
        If FileExists ("restart_server_"$code[7]".txt") Then; P5
            Sleep(5000)
            ProcessClose ("SWRepublicCommando3.exe")
            Sleep(10000)
            FileDelete ("restart_server_"$code[7]".txt")
            Sleep(10000)
        EndIf   
                If FileExists ("restart_server_"$code[8]".txt") Then; P6
            Sleep(5000)
            ProcessClose ("SWRepublicCommando4.exe")
            Sleep(10000)
            FileDelete ("restart_server_"$code[8]".txt")
            Sleep(10000)
        EndIf
        If FileExists ("restart_server_"$code[9]".txt") Then ; P7
            Sleep(5000)
            ProcessClose ("SWRepublicCommandohor5.exe")
            Sleep(10000)
            FileDelete ("restart_server_"$code[9]".txt")
            Sleep(10000)
        EndIf
        If FileExists ("restart_server_"$code[10]".txt") Then; P8
            Sleep(5000)
            ProcessClose ("SWRepublicCommando7.exe")
            Sleep(10000)
            FileDelete ("restart_server_"$code[10]".txt")
            Sleep(10000)
        EndIf
            If FileExists ("restart_server_"$code[11]".txt") Then ; P Conquest
            Sleep(5000)
            ProcessClose ("SWRepublicCommandoconquest.exe")
            Sleep(10000)
            FileDelete ("restart_server_"$code[11]".txt")
            Sleep(10000)
        EndIf
        If FileExists ("restart_server_"$code[12]".txt") Then ; P Prey
            Sleep(5000)
            ProcessClose ("SWRepublicCommandoPrey.exe")
            Sleep(10000)
            FileDelete ("restart_server_"$code[12]".txt")
            Sleep(10000)
        EndIf
WEnd

j'ai tenté avec ça :

► Afficher le texte

Code : Tout sélectionner

$HOR = (1bh68p)
$45 = 2g4f8c
$44 = 35d71s
$P1 = 4g4s81
$P2 = 5ty13g
$P3 = 6a1v8e
$P4 = 7v5df7
$P5 = 89f1s7
$P6 = 91b2d4
$P7 = 101v45
$P8 = 11f4d8
$PConquest = 12a187
$PPrey = 13b284


Dim $code[13] = [ $HOR , $45 , $44 , $P1 , $P2 , $P3 , $P4 , $P5 , $P6 , $P7 , $P8 , $PConquest , $PPrey ] 
; private -> hor -> 45 -> 44 | Public -> soc, 12345678 | Mod -> Conquest , prey

Mais c'est encore pire, vu que là je relève une erreur.


Si je réutilise la première version sans les guillemets je l'ai pas fait car ayant vu les nombre unique en surligné j'ai cru qu'il prendrai pas en compte le reste.

[PandiPanda]

Votre 1er code étais bon ^^
remplacer juste ceci;

Code : Tout sélectionner

FileDelete ("restart_server_"$code[0]".txt")

par ceci;

FileDelete ("restart_server_"&$code[0]&".txt")

De même pour les autres lignes, vous avez oublié le caractère de concaténation "&" ... ^^

Edit: Pour éviter de vous faire gronder par un modérateur, mettez votre code en spoiler '^^