[..] Titre de fenêtre / processus / variable

[DCVolo]

Désolé c'est qu'une partie de code ( et en plus même pas associé ). Y'en a juste plusieurs ( des variables ) qui renvoie sur des Run avec le nom des variables entre parenthèses.

C'est juste que je repete la ligne plusieurs fois pour la configuration d'un serveur actuellement donc sa me gonfle un peu de devoir faire du copier coller alors que j'essaye d'apprendre à programmer en autoit, je trouve ça plus propre puis si j'ai besoin de faire une remodification j'aurai qu'une ligne à refaire.

Merci pour la réponse en tout cas.

[DCVolo]

Désolé pour le double post :

Voici je pense mon travail terminé :

► Afficher le texte

Code : Tout sélectionner

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

 AutoIt Version: 3.3.6.1
 Author: DC_Volo

 Script Function: Server_Auto
    Template AutoIt script.

#ce ----------------------------------------------------------------------------
; http://autoitscript.fr/forum/viewtopic.php?p=52416#p52416


#NoTrayIcon
#include <Array.au3>
#include <Process.au3>


Sleep(10000)


; ICONE

Opt ("TrayMenuMode",1)
$serversitem    = TrayCreateMenu("Servers")
$privateitem    = TrayCreateMenu ("Privates", $serversitem)
$45item         = TrayCreateItem("Private 45", $privateitem)
$44item         = TrayCreateItem("Private 44", $privateitem)
$publicitem     = TrayCreateMenu ("Public", $serversitem)
$p1             = TrayCreateItem (" UG #1 DM", $publicitem) 
$p2             = TrayCreateItem (" UG #2 1v1", $publicitem) 
$p3             = TrayCreateItem (" UG #3 1v1", $publicitem) 
$p4             = TrayCreateItem (" UG #4 1on1", $publicitem) 
$p5             = TrayCreateItem (" UG #5 TD", $publicitem) 
$p6             = TrayCreateItem (" UG #6 CTF", $publicitem) 
$p7             = TrayCreateItem (" UG #7 AS", $publicitem) 
$p8             = TrayCreateItem (" UG #8 MAP", $publicitem)
$mod            = TrayCreateMenu ("Game Mod", $serversitem)
$hostage        = TrayCreateItem ("Hostage Mod", $mod)
$prey           = TrayCreateItem ("Prey Mod", $mod)
$conquest       = TrayCreateItem ("Conquest Mod", $mod)
TrayCreateItem("")
$aboutitem      = TrayCreateItem("About")
TrayCreateItem("")
$exititem       = TrayCreateItem("Exit")
TraySetState()



While 1
    Sleep(1000)
    $msg = TrayGetMsg()
    Select
        Case $msg = 0
            ContinueLoop
        Case $msg = $aboutitem
            Msgbox(64,"About&#058;","It is running all UG Star Wars Republic Commando Servers")
        Case $msg = $exititem
            ExitLoop
    EndSelect
WEnd



; Creer le fichier ini du log 
If FileExists ("Log_Crash.ini") Then
    ; rien
ElseIf Not FileExists ("Log_Crash.ini") Then
    IniWrite("Log_Crash.ini", "Premier Lancement", " "& @HOUR & ":" & @MIN & ":" & @SEC & "|" & @MDAY & "/" & @Mon & "/" & @Year , " Demarrage de Start_Server.exe")
EndIf

Sleep(2000)




; CONFIGURATION DES SERVEURS 



$1a_45 = ("D:\Star Wars Republic Commando\1a_45\SWRepublicCommandoServerPrivate.exe CTF_engine?game=dc.ctfgamedc?GoalScore=3?RespawnDelay=3?timelimit=0?GameStats=True?BalanceTeams=false?FF=0.5?MaxPlayers=32?MapListType=MPGame.MapListTeamDeathMatch -ini=privateserver.ini -log=privateserver.log -server")
$1b_44 = ("D:\Star Wars Republic Commando\1b_44\SWRepublicCommandoServerPrivate2.exe CTF_engine?game=dc.ctfgamedc?GoalScore=3?RespawnDelay=3?timelimit=0?GameStats=True?BalanceTeams=false?FF=0.5?MaxPlayers=32?MapListType=MPGame.MapListTeamDeathMatch -ini=privateserver2.ini -log=privateserver.log -server")
$1c_P1 = ("D:\Star Wars Republic Commando\1c_P1\SWRepublicCommando1.exe DM_engine?game=dc.dmgamedc?GoalScore=0?timelimit=20?RespawnDelay=0?GameStats=True?BalanceTeams=False?FF=0.0?maxplayers=16?MapListType=MPGame.MapListDeathMatch -ini=server1.ini -log=server.log -server")
$1d_P2 = ("D:\Star Wars Republic Commando\1d_P2\SWRepublicCommando2.exe DM_engine?game=dc.dmgamedc?GoalScore=15?timelimit=0?RespawnDelay=0?GameStats=True?BalanceTeams=false?FF=0.0?MaxPlayers=2?Maxspectators=8?MapListType=MPGame.MapListDeathMatch -ini=server2.ini -log=server.log -server")
$1e_P3 = ("D:\Star Wars Republic Commando\1e_P3\SWRepublicCommando2-2.exe DM_siege?game=dc.dmgamedc?GoalScore=15?timelimit=0?RespawnDelay=0?GameStats=True?BalanceTeams=false?FF=0.0?MaxPlayers=2?maxspectators=8?MapListType=MPGame.MapListDeathMatch -ini=server22.ini -log=server.log -server")
$1f_P4 = ("D:\Star Wars Republic Commando\1f_P4\SWRepublicCommando2-3.exe DM_1on1?game=dc.dmgamedc?GoalScore=15?timelimit=0?RespawnDelay=0?GameStats=True?BalanceTeams=false?FF=0.0?MaxPlayers=2?maxspectators=8?MapListType=MPGame.MapListDeathMatch -ini=server23.ini -log=server.log -server")
$1g_P5 = ("D:\Star Wars Republic Commando\1g_P5\SWRepublicCommando3.exe DM_engine?game=dc.tdgamedc?GoalScore=200?RespawnDelay=3?timelimit=30?GameStats=True?BalanceTeams=true?FF=0.0?MaxPlayers=16?MapListType=MPGame.MapListTeamDeathMatch -ini=server3.ini -log=server.log -server")
$1h_P6 = ("D:\Star Wars Republic Commando\1h_P6\SWRepublicCommando4.exe CTF_engine?game=dc.ctfgamedc?GoalScore=3?timelimit=0?RespawnDelay=5?GameStats=True?BalanceTeams=true?FF=0.0?MaxPlayers=20?MapListType=MPGame.MapListCaptureTheFlag -ini=server4.ini -log=server.log -server")
$1i_P7 = ("D:\Star Wars Republic Commando\1i_P7\SWRepublicCommando5.exe CTF_engine?game=dc.asgamedc?GoalScore=5?RespawnDelay=5?timelimit=0?RoundTime=300?GameStats=True?BalanceTeams=true?FF=0.0?MaxPlayers=16?MapListType=MPGame.MapListAssault -ini=server5.ini -log=server.log -server")
$1j_P8 = ("D:\Star Wars Republic Commando\1j_P8\SWRepublicCommandoserver7.exe LL_nochance?game=dc.ctfgamedc?respawdelay=5?Timelimit=15?GameStats=True?BalanceTeams=true?FF=0.0?MaxPlayers=20?MapListType=MPGame.MapListDeathMatch -ini=server7.ini -log=server.net.log -server")
$1k_SM1 = ("D:\Star Wars Republic Commando\1k_SM1\SWRepublicCommandoconquest.exe ER_Engine?Game=CommandPostObjects.ConqGame?GoalScore=100?TimeLimit=30?RespawnDelay=4?MaxPlayers=20?GameStats=True?BalanceTeams=true?MapListType=MPGame.MapListTeamDeathMatch -ini=server6cst.ini -log=server.log -server")
$1l_SM2 = ("D:\Star Wars Republic Commando\1l_SM2\SWRepublicCommandoPrey.exe DM_engine?game=dc.preygamedc?GoalScore=30?timelimit=30?RespawnDelay=2?GameStats=True?BalanceTeams=false?FF=0.0?maxplayers=12?MapListType=MPGame.MapListDeathMatch -ini=server9.ini -log=server1.log -server")
$1m_SM3 = ("D:\Star Wars Republic Commando\1m_SM3\SWRepublicCommandoHOSTAGE.exe CTF_engine?game=tag.taghost?goalscore=4?timelimit=0?respawndelay=6?GameStats=True?BalanceTeams=true?FF=0.00?RoundTime=600?NumRounds=0?MaxPlayers=20?MapListType=MPGame.MapListTeamDeathMatch -ini=server11HOSTAGE.ini -log=server.log -server")



; LANCEMENT DES SERVEURS


Sleep(5000)
Run ($1c_P1)
Sleep(2000)
Run ($1d_P2)
Sleep(2000)
Run ($1e_P3)
Sleep(2000)
Run ($1f_P4)
Sleep(2000)
Run ($1g_P5)
Sleep(2000)
Run ($1h_P6)
Sleep(2000)
Run ($1i_P7)
Sleep(2000)
Run ($1j_P8)
Sleep(2000)
Run ($1k_SM1)
Sleep(2000)
Run ($1l_SM2)
Sleep(2000)
Run ($1m_SM3)
Sleep(2000)
Run ($1a_45)
Sleep(2000)
Run ($1b_44)
Sleep(2000)
IniWrite("Log_Crash.ini", "BOOT_ALL_SERVER", " "& @HOUR & ":" & @MIN & ":" & @SEC & "|" & @MDAY & "/" & @Mon & "/" & @Year , "Done") ; LOG de demarrage des serveurs UG
Sleep(2000)




; REBOOT SI CRASH




$nps[13] = ["SWRepublicCommandoServerPrivate.exe","SWRepublicCommandoServerPrivate2.exe","SWRepublicCommando1.exe","SWRepublicCommando2.exe","SWRepublicCommando2-2.exe","SWRepublicCommando2-3.exe","SWRepublicCommando3.exe","SWRepublicCommando4.exe","SWRepublicCommando5.exe","SWRepublicCommandoserver7.exe","SWRepublicCommandoconquest.exe","SWRepublicCommandoPrey.exe","SWRepublicCommandoHOSTAGE.exe"]
; private -> hor -> 45 -> 44 | Public -> soc, 12345678 | Mod -> Conquest , prey , hostage

While 1
    Sleep(4000)
; different processus regroupé dans un tableau

; demandé le PID d'un programme

; grâce au PID definir la fenetre

; avec la fenetre controler sa variable nombre de joueur

; si nombre est negatif, on kill le processus qui sera donc relancé.

    For $i=0 To UBound($nps)-1 ; on fait une boucle pour parcourir le tableau
    _Fenetre($nps[$i]) ; on appelle la fonction
Next

Func _Fenetre($Name_Process)
    $titre = _GetHwndFromPID(ProcessExists($Name_Process))
    $array = StringRegExp($titre,".*\(([0-9]+).players\)",1)
    $nbJoueur = $array[0]

    If $Nbplayers < 0 Then
        ProcessClose ($Name_Process)
    EndIf
EndFunc


Func _GetHwndFromPID($PID)
    $winlist = WinList()
    For $i = 1 To $winlist[0][0]
        If $winlist[$i][0] <> "" And WinGetProcess($winlist[$i][1]) = $PID Then Return $winlist[$i][0]
    Next
EndFunc ;==>_GetHwndFromPID

    
    Sleep(1000)
    if not ProcessExists ("SWRepublicCommando1.exe") Then
        Run ($1c_P1)
        IniWrite("Log_Crash.ini", "CRASH", " "& @HOUR & ":" & @MIN & ":" & @SEC & "|" & @MDAY & "/" & @Mon & "/" & @Year , "UG Server Public #1 Crashed") ; LOG de Public #1
    EndIf
    Sleep(1000)
    If Not ProcessExists ("SWRepublicCommando2.exe") Then
        Run ($1d_P2)
        IniWrite("Log_Crash.ini", "CRASH", " "& @HOUR & ":" & @MIN & ":" & @SEC & "|" & @MDAY & "/" & @Mon & "/" & @Year , "UG Server Public #2 Crashed"); LOG de Public #2
    EndIf
    Sleep(1000)
    If Not ProcessExists ("SWRepublicCommando2-2.exe") Then
        Run ($1e_P3)
        IniWrite("Log_Crash.ini", "CRASH", " "& @HOUR & ":" & @MIN & ":" & @SEC & "|" & @MDAY & "/" & @Mon & "/" & @Year , "UG Server Public #3 Crashed") ; LOG de Public #3
    EndIf
    Sleep(1000)
    If Not ProcessExists ("SWRepublicCommando2-3.exe") Then
        Run ($1f_P4)
        IniWrite("Log_Crash.ini", "CRASH", " "& @HOUR & ":" & @MIN & ":" & @SEC & "|" & @MDAY & "/" & @Mon & "/" & @Year , "UG Server Public #4 Crashed") ; LOG de Public #4
    EndIf
    Sleep(1000)
    If Not ProcessExists ("SWRepublicCommando3.exe") Then
        Run ($1g_P5)
        IniWrite("Log_Crash.ini", "CRASH", " "& @HOUR & ":" & @MIN & ":" & @SEC & "|" & @MDAY & "/" & @Mon & "/" & @Year , "UG Server Public #5 Crashed") ; LOG de Public #5
    EndIf
    Sleep(1000)
    If Not ProcessExists ("SWRepublicCommando4.exe") Then
        Run ($1h_P6)
        IniWrite("Log_Crash.ini", "CRASH", " "& @HOUR & ":" & @MIN & ":" & @SEC & "|" & @MDAY & "/" & @Mon & "/" & @Year , "UG Server Public #6 Crashed") ; LOG de Public #6
    EndIf
    Sleep(1000)
    If Not ProcessExists ("SWRepublicCommando5.exe") Then
        Run ($1i_P7)
        IniWrite("Log_Crash.ini", "CRASH", " "& @HOUR & ":" & @MIN & ":" & @SEC & "|" & @MDAY & "/" & @Mon & "/" & @Year , "UG Server Public #7 Crashed") ; LOG de Public #7
    EndIf
    Sleep(1000)
    If Not ProcessExists ("SWRepublicCommandoconquest.exe") Then
        Run ($1k_SM1)
        IniWrite("Log_Crash.ini", "CRASH", " "& @HOUR & ":" & @MIN & ":" & @SEC & "|" & @MDAY & "/" & @Mon & "/" & @Year , "UG Server Public Conquest Mod Crashed") ; LOG de Conquest Mod
    EndIf
    Sleep(1000)
    If Not ProcessExists ("SWRepublicCommandoserver7.exe") Then
        Run ($1j_P8)
        IniWrite("Log_Crash.ini", "CRASH", " "& @HOUR & ":" & @MIN & ":" & @SEC & "|" & @MDAY & "/" & @Mon & "/" & @Year , "UG Server Public #8 Crashed") ; LOG de Public #8
    EndIf
    Sleep(1000)
    If Not ProcessExists ("SWRepublicCommandoPrey.exe") Then
        Run ($1l_SM2)
        IniWrite("Log_Crash.ini", "CRASH", " "& @HOUR & ":" & @MIN & ":" & @SEC & "|" & @MDAY & "/" & @Mon & "/" & @Year , "UG Server Public Prey Mod Crashed") ; LOG de Prey Mod 
    EndIf
    Sleep(1000)
    If Not ProcessExists ("SWRepublicCommandoServerPrivate.exe") Then
        Run ($1a_45)
        IniWrite("Log_Crash.ini", "CRASH", " "& @HOUR & ":" & @MIN & ":" & @SEC & "|" & @MDAY & "/" & @Mon & "/" & @Year , "UG Server Private 45 Crashed") ; LOG de Private 45
    EndIf
    Sleep(1000)
    If Not ProcessExists ("SWRepublicCommandoServerPrivate2.exe") Then
        Run ($1b_44)
        IniWrite("Log_Crash.ini", "CRASH", " "& @HOUR & ":" & @MIN & ":" & @SEC & "|" & @MDAY & "/" & @Mon & "/" & @Year , "UG Server Private 44 Crashed") ; LOG de Private 44
    EndIf
    Sleep(1000)
    If Not ProcessExists ("SWRepublicCommandoHOSTAGE.exe") Then
        Run ($1m_SM3)
        IniWrite("Log_Crash.ini", "CRASH", " "& @HOUR & ":" & @MIN & ":" & @SEC & "|" & @MDAY & "/" & @Mon & "/" & @Year , "UG Server Public Hostage Mod Crashed") ; LOG de Hostage Mod
    EndIf
WEnd





 

[PandiPanda]

j'éviterai de declarer des fonction dans une boucle ^^

je ferai un couper/coller de ceci;

► Afficher le texte

Code : Tout sélectionner

Func _Fenetre($Name_Process)
    $titre = _GetHwndFromPID(ProcessExists($Name_Process))
    $array = StringRegExp($titre,".*\(([0-9]+).players\)",1)
    $nbJoueur = $array[0]

    If $Nbplayers < 0 Then
        ProcessClose ($Name_Process)
    EndIf
EndFunc


Func _GetHwndFromPID($PID)
    $winlist = WinList()
    For $i = 1 To $winlist[0][0]
        If $winlist[$i][0] <> "" And WinGetProcess($winlist[$i][1]) = $PID Then Return $winlist[$i][0]
    Next
EndFunc ;==>_GetHwndFromPID

en dehors de la boucle,
sinon si le programme fonctionne, tant mieux

[DCVolo]

De toute façon quand elles sont dedans il y a une erreur.

Mais quand je les laisses en dehors j'ai l'impression que le code ne fonctionnera qu'une fois alors qu'il faut qu'il " scan " les titres tant que le programme tourne ( c'est à dire tant que la machine dedié à du courant et windaube de lancé )

Quand je dis que j'ai l'impression c'est ma reflexion que je met en avant . ( ce que j'en comprend )

[DCVolo]

Encore désolé pour ce double post ->

J'obtiens une erreur à cause de ceci : ( j'ai bien sur decoupé tout ce qui concerne la fenetre du code source )

► Afficher le texte

Code : Tout sélectionner

; REBOOT SI CRASH


$nps[13] = ["SWRepublicCommandoServerPrivate.exe","SWRepublicCommandoServerPrivate2.exe","SWRepublicCommando1.exe","SWRepublicCommando2.exe","SWRepublicCommando2-2.exe","SWRepublicCommando2-3.exe","SWRepublicCommando3.exe","SWRepublicCommando4.exe","SWRepublicCommando5.exe","SWRepublicCommandoserver7.exe","SWRepublicCommandoconquest.exe","SWRepublicCommandoPrey.exe","SWRepublicCommandoHOSTAGE.exe"]
; private -> hor -> 45 -> 44 | Public -> soc, 12345678 | Mod -> Conquest , prey , hostage

While 1
    Sleep(4000)
; different processus regroupé dans un tableau

; demandé le PID d'un programme

; grâce au PID definir la fenetre

; avec la fenetre controler sa variable nombre de joueur

; si nombre est negatif, on kill le processus qui sera donc relancé.

    For $i=0 To UBound($nps)-1 ; on fait une boucle pour parcourir le tableau
    _Fenetre($nps[$i]) ; on appelle la fonction
Next
Wend



Func _GetHwndFromPID($PID)
    $winlist = WinList()
    For $i = 1 To $winlist[0][0]
        If $winlist[$i][0] <> "" And WinGetProcess($winlist[$i][1]) = $PID Then Return $winlist[$i][0]
    Next
EndFunc ;==>_GetHwndFromPID

Func _Fenetre($Name_Process)
    $titre = _GetHwndFromPID(ProcessExists($Name_Process))
    $array = StringRegExp($titre,".*\(([0-9]+).players\)",1)
    $nbJoueur = $array[0]

    If $Nbplayers < 0 Then
        ProcessClose ($Name_Process)
    EndIf
EndFunc



 

Comment je le sais? Je l'ai mis entre-parenthèse et le programme fonctionne normallement et du coup ne crash pas à cause de l'erreur.


L'erreur qui est d'ailleurs :

Code : Tout sélectionner

line 834 (cheminversleprogramme)
error : expected a "=" operator in assignment statement.

EDIT :

Je change donc $nps en Dim $nps

là j'ai

Code : Tout sélectionner

 error :
line 916
variable used without being declared.

Si le titre est fait dans cette façon le patern est-il bon ?

ENGINE: CTF_engine (0 players)

Code : Tout sélectionner

 $array = StringRegExp($t,".*\:.*.\(([0-9]+).players\)",1)

Ensuite, on recupere notre variable souhaitée, c'est un nombre, d'ou le [0-9]+, qui signifie qu'on prend tous les chiffres répétés de 1 à n (le +)

sauf que de 1 à 999... Il ,'y a pas -1 ou -2 ou -3 ... ni 0 car le bug n'intervient seulement et seulement quand le nombre est negatif.

[PandiPanda]

Bonjour,
pourriez vous montrer à quoi corresponde vos ligne "line 834" et "line 916" ?

à propos du pattern il n'ai pas correct et je ne pourrai pas vous donnez un autre correct étant donné que je suis carrement mauvais dedans ...

Je pourrai bien vous donné un "équivalent" simplement il est 1000 X moin bien qu'un joli pattern bien fait

► Afficher le texte

Code : Tout sélectionner

Func _ReturnNbPlayers($str)
    Local $narray=_StringBetween($str,'(',' players',-1)
    If Not @error Then
        return Int($narray[0])
    Else
        Return ""
    EndIf
EndFunc

Ne gere que l'espace entre le nombre et players => xxx:xxx("NombreVoulu" players)

Edit: Bon Bon apres plusieur essai acharné ! j'ai pu réussi à sortir un pattern ... [merci le regexTest ^.^]

Code : Tout sélectionner

StringRegExp ($t, "([\-]?[\d]+[^players])",2)

Si quelqu'un de "compétent" pourrai donné de ses lumières pour voir si ca fonctionne à la perfection ...

[DCVolo]

Bah quand je les compiles et quand il trouve une erreur il la trouve sur une ligne qui n'existe pas.

Je n'ai même pas 300 lignes.

[mikell]

Dans un script compilé ça comptabilise les lignes des includes ^^

[PandiPanda]

Bon j'ai fini par trouvé cettte petite faute d'innatention ^.^ ...

Modifier ceci;

► Afficher le texte

Code : Tout sélectionner

Func _Fenetre($Name_Process)
    Local $titre = _GetHwndFromPID(ProcessExists($Name_Process))
    Local  $array = StringRegExp($titre,".*\(([0-9]+).players\)",1)
    Local [color=#408000]$nbJoueur[/color] = $array[0]

    If [color=#FF0000]$Nbplayers[/color] < 0 Then
        ProcessClose ($Name_Process)
    EndIf
EndFunc

Donc la couleur rouge, par le vert

[Jerome]

Coucou.


Un peu d'optimisation n'a jamais fait de mal

► Afficher le texte

Code : Tout sélectionner

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

 AutoIt Version: 3.3.6.1
 Author: DC_Volo

 Script Function: Server_Auto
    Template AutoIt script.

#ce ----------------------------------------------------------------------------
; viewtopic.php?p=52416#p52416


#NoTrayIcon
#include <Array.au3>
#include <Process.au3>


Sleep(10000)

Opt ("TrayMenuMode",1)
$serversitem    = TrayCreateMenu("Servers")
$privateitem    = TrayCreateMenu ("Privates", $serversitem)
$45item         = TrayCreateItem("Private 45", $privateitem)
$44item         = TrayCreateItem("Private 44", $privateitem)
$publicitem     = TrayCreateMenu ("Public", $serversitem)
$p1             = TrayCreateItem (" UG #1 DM", $publicitem)
$p2             = TrayCreateItem (" UG #2 1v1", $publicitem)
$p3             = TrayCreateItem (" UG #3 1v1", $publicitem)
$p4             = TrayCreateItem (" UG #4 1on1", $publicitem)
$p5             = TrayCreateItem (" UG #5 TD", $publicitem)
$p6             = TrayCreateItem (" UG #6 CTF", $publicitem)
$p7             = TrayCreateItem (" UG #7 AS", $publicitem)
$p8             = TrayCreateItem (" UG #8 MAP", $publicitem)
$mod            = TrayCreateMenu ("Game Mod", $serversitem)
$hostage        = TrayCreateItem ("Hostage Mod", $mod)
$prey           = TrayCreateItem ("Prey Mod", $mod)
$conquest       = TrayCreateItem ("Conquest Mod", $mod)
TrayCreateItem("")
$aboutitem      = TrayCreateItem("About")
TrayCreateItem("")
$exititem       = TrayCreateItem("Exit")
TraySetState()


While 1
    Sleep(1000)
    $msg = TrayGetMsg()
    Select
        Case $msg = 0
            ContinueLoop
        Case $msg = $aboutitem
            Msgbox(64,"About&#058;","It is running all UG Star Wars Republic Commando Servers")
        Case $msg = $exititem
            ExitLoop
    EndSelect
WEnd

If Not FileExists ("Log_Crash.ini") Then
    IniWrite("Log_Crash.ini", "Premier Lancement", " "& @HOUR & ":" & @MIN & ":" & @SEC & "|" & @MDAY & "/" & @Mon & "/" & @Year , " Demarrage de Start_Server.exe")
EndIf
Sleep(2000)

global $1a_45 = ("D:\Star Wars Republic Commando\1a_45\SWRepublicCommandoServerPrivate.exe CTF_engine?game=dc.ctfgamedc?GoalScore=3?RespawnDelay=3?timelimit=0?GameStats=True?BalanceTeams=false?FF=0.5?MaxPlayers=32?MapListType=MPGame.MapListTeamDeathMatch -ini=privateserver.ini -log=privateserver.log -server")
global $1b_44 = ("D:\Star Wars Republic Commando\1b_44\SWRepublicCommandoServerPrivate2.exe CTF_engine?game=dc.ctfgamedc?GoalScore=3?RespawnDelay=3?timelimit=0?GameStats=True?BalanceTeams=false?FF=0.5?MaxPlayers=32?MapListType=MPGame.MapListTeamDeathMatch -ini=privateserver2.ini -log=privateserver.log -server")
global $1c_P1 = ("D:\Star Wars Republic Commando\1c_P1\SWRepublicCommando1.exe DM_engine?game=dc.dmgamedc?GoalScore=0?timelimit=20?RespawnDelay=0?GameStats=True?BalanceTeams=False?FF=0.0?maxplayers=16?MapListType=MPGame.MapListDeathMatch -ini=server1.ini -log=server.log -server")
global $1d_P2 = ("D:\Star Wars Republic Commando\1d_P2\SWRepublicCommando2.exe DM_engine?game=dc.dmgamedc?GoalScore=15?timelimit=0?RespawnDelay=0?GameStats=True?BalanceTeams=false?FF=0.0?MaxPlayers=2?Maxspectators=8?MapListType=MPGame.MapListDeathMatch -ini=server2.ini -log=server.log -server")
global $1e_P3 = ("D:\Star Wars Republic Commando\1e_P3\SWRepublicCommando2-2.exe DM_siege?game=dc.dmgamedc?GoalScore=15?timelimit=0?RespawnDelay=0?GameStats=True?BalanceTeams=false?FF=0.0?MaxPlayers=2?maxspectators=8?MapListType=MPGame.MapListDeathMatch -ini=server22.ini -log=server.log -server")
global $1f_P4 = ("D:\Star Wars Republic Commando\1f_P4\SWRepublicCommando2-3.exe DM_1on1?game=dc.dmgamedc?GoalScore=15?timelimit=0?RespawnDelay=0?GameStats=True?BalanceTeams=false?FF=0.0?MaxPlayers=2?maxspectators=8?MapListType=MPGame.MapListDeathMatch -ini=server23.ini -log=server.log -server")
global $1g_P5 = ("D:\Star Wars Republic Commando\1g_P5\SWRepublicCommando3.exe DM_engine?game=dc.tdgamedc?GoalScore=200?RespawnDelay=3?timelimit=30?GameStats=True?BalanceTeams=true?FF=0.0?MaxPlayers=16?MapListType=MPGame.MapListTeamDeathMatch -ini=server3.ini -log=server.log -server")
global $1h_P6 = ("D:\Star Wars Republic Commando\1h_P6\SWRepublicCommando4.exe CTF_engine?game=dc.ctfgamedc?GoalScore=3?timelimit=0?RespawnDelay=5?GameStats=True?BalanceTeams=true?FF=0.0?MaxPlayers=20?MapListType=MPGame.MapListCaptureTheFlag -ini=server4.ini -log=server.log -server")
global $1i_P7 = ("D:\Star Wars Republic Commando\1i_P7\SWRepublicCommando5.exe CTF_engine?game=dc.asgamedc?GoalScore=5?RespawnDelay=5?timelimit=0?RoundTime=300?GameStats=True?BalanceTeams=true?FF=0.0?MaxPlayers=16?MapListType=MPGame.MapListAssault -ini=server5.ini -log=server.log -server")
global $1j_P8 = ("D:\Star Wars Republic Commando\1j_P8\SWRepublicCommandoserver7.exe LL_nochance?game=dc.ctfgamedc?respawdelay=5?Timelimit=15?GameStats=True?BalanceTeams=true?FF=0.0?MaxPlayers=20?MapListType=MPGame.MapListDeathMatch -ini=server7.ini -log=server.net.log -server")
global $1k_SM1 = ("D:\Star Wars Republic Commando\1k_SM1\SWRepublicCommandoconquest.exe ER_Engine?Game=CommandPostObjects.ConqGame?GoalScore=100?TimeLimit=30?RespawnDelay=4?MaxPlayers=20?GameStats=True?BalanceTeams=true?MapListType=MPGame.MapListTeamDeathMatch -ini=server6cst.ini -log=server.log -server")
global $1l_SM2 = ("D:\Star Wars Republic Commando\1l_SM2\SWRepublicCommandoPrey.exe DM_engine?game=dc.preygamedc?GoalScore=30?timelimit=30?RespawnDelay=2?GameStats=True?BalanceTeams=false?FF=0.0?maxplayers=12?MapListType=MPGame.MapListDeathMatch -ini=server9.ini -log=server1.log -server")
global $1m_SM3 = ("D:\Star Wars Republic Commando\1m_SM3\SWRepublicCommandoHOSTAGE.exe CTF_engine?game=tag.taghost?goalscore=4?timelimit=0?respawndelay=6?GameStats=True?BalanceTeams=true?FF=0.00?RoundTime=600?NumRounds=0?MaxPlayers=20?MapListType=MPGame.MapListTeamDeathMatch -ini=server11HOSTAGE.ini -log=server.log -server")
Global $TabProcess[13][3] = [["SWRepublicCommando1.exe", "UG Server Public #1 Crashed", $1c_P1],[ "SWRepublicCommando2.exe","UG Server Public #2 Crashed",$1d_P2], ["SWRepublicCommando2-2.exe","UG Server Public #3 Crashed",$1e_P3],["SWRepublicCommando2-3.exe","UG Server Public #4 Crashed",$1f_P4], ["SWRepublicCommando3.exe","UG Server Public #5 Crashed",$1g_P5],["SWRepublicCommando4.exe","UG Server Public #6 Crashed",$1h_P6], ["SWRepublicCommando5.exe","UG Server Public #7 Crashed",$1i_P7],["SWRepublicCommandoconquest.exe","UG Server Public Conquest Mod Crashed",$1k_SM1], ["SWRepublicCommandoserver7.exe","UG Server Public #8 Crashed",$1j_P8],["SWRepublicCommandoPrey.exe","UG Server Public Prey Mod Crashed",$1l_SM2], ["SWRepublicCommandoServerPrivate.exe","UG Server Private 45 Crashed",$1a_45],["SWRepublicCommandoServerPrivate2.exe","UG Server Private 44 Crashed",$1b_44], ["SWRepublicCommandoHOSTAGE.exe","UG Server Public Hostage Mod Crashed",$1m_SM3]]


Sleep(5000)
For $y=0 to UBound($TabProcess) - 1
    Run ($TabProcess[$y][2])
    Sleep(2000)
Next
IniWrite("Log_Crash.ini", "BOOT_ALL_SERVER", " "& @HOUR & ":" & @MIN & ":" & @SEC & "|" & @MDAY & "/" & @Mon & "/" & @Year , "Done") ; LOG de demarrage des serveurs UG
Sleep(2000)

For $i=0 To UBound($TabProcess) -1
    _Fenetre($TabProcess[$i][2])
Next

Sleep(1000)
For $j = 0 to UBound($TabProcess) - 1
    If Not ProcessExists ($TabProcess[$j][0]) Then
        Run ($TabProcess[$j][2])
        IniWrite("Log_Crash.ini", "CRASH", " "& @HOUR & ":" & @MIN & ":" & @SEC & "|" & @MDAY & "/" & @Mon & "/" & @Year , $TabProcess[$j][1]) ; LOG de Public #1
    EndIf
Next


Func _Fenetre($Name_Process)
    $titre = _GetHwndFromPID(ProcessExists($Name_Process))
    $array = StringRegExp($titre,".*\(([0-9]+).players\)",1)
    $nbJoueur = $array[0]

    If $nbJoueur < 0 Then
        ProcessClose ($Name_Process)
    EndIf
EndFunc


Func _GetHwndFromPID($PID)
    $winlist = WinList()
    For $i = 1 To $winlist[0][0]
        If $winlist[$i][0] <> "" And WinGetProcess($winlist[$i][1]) = $PID Then Return $winlist[$i][0]
    Next
EndFunc ;==>_GetHwndFromPID

 

Jérôme

[DCVolo]

Merci bien pour la petite mise à jour " raccourcis " de mon script ^^

Mais apres mes vacances j'ai remarqué que la partie qui doit detecter un nombre negatif ne fonctionne pas.

Pour faire plus simple on pourrait pas faire comme ceci ?

► Afficher le texte

Code : Tout sélectionner

Func _GetHwndFromPID($PID)
    $winlist = WinList()
    For $i = 1 To $winlist[0][0]
        If $winlist[$i][0] <> "" And WinGetProcess($winlist[$i][1]) = $PID Then Return $winlist[$i][0]
    Next
EndFunc ;==>_GetHwndFromPID

Func _Fenetre($Name_Process)
    $titre = _GetHwndFromPID(ProcessExists($Name_Process))
        if StringRegExp($titre,".*\([0-9]+.players\)",1) Then
            ; rien
        ElseIf StringRegExp($titre,".*\((-)[0-9]+.players\)",1) Then
            ProcessClose ($Name_Process)
        EndIf
EndFunc

Ton redemarrage de serveur ne fonctionne pas.

[PandiPanda]

Je voit un gros problème déja ^^
StringRegExp() avec le flag a 1 retourne un Array et non un Booleen ...

quelue chose comme ceci;

► Afficher le texte

Code : Tout sélectionner

Func _GetHwndFromPID($PID)
    $winlist = WinList()
    For $i = 1 To $winlist[0][0]
        If $winlist[$i][0] <> "" And WinGetProcess($winlist[$i][1]) = $PID Then Return $winlist[$i][0]
    Next
EndFunc ;==>_GetHwndFromPID

Func _Fenetre($Name_Process)
    $titre = _GetHwndFromPID(ProcessExists($Name_Process))
    Local $test=StringRegExp($titre,"(?:[\-]?[\d]+[^players])",1)
    If StringInStr($test[0],"-") <> 0 Then ProcessClose ($Name_Process)
EndFunc