Hallo Leute,
ich bin neu im Bereich AutoIt und möchte gerne ein kleines Programm schreiben.
Meine Idee ist es einen Programmstarter zu schreiben, der aus einer .ini Datei die Programmenamen, den Programmpfad und einen Timer ausliest.
Die Programmnamen sollen im Button angezeigt werden.
Die Programmpfade dienen zu starten der Programme.
Der Timer soll dazu sein, um die Programme nach einer bestimmten Zeit nacheinander zu starten.
Die einzelnen Programmbuttons sollen jeweils anzeigen (in grün) ob das Programm gestartet wurde.
Ich würde es gerne so machen, das wenn ein Programm abgestürtzt oder Eingefroren ist, das alle Programme automatisch gekillt werden und neu gestartet werden.
Start= Alle Programme sollen gestartet werden.
Re-Start= Alle Programme sollen gekillt werden und neu gestartet werden.
Stop= Alle Programme sollen gekillt werden.
Im Filemenu ist ein Config-Button, wo man dann alle Sachen einstellen sollte und das in der .ini gespeichert können sollte.
Leider bin ich nicht der Profiprogrammierer und fange ja grade erst an.
Ich würde mich echt freuen, wenn mir einer dabei behilflich ist.
Vielen dank schon einmal.
Als Anhang mal das was ich bis jetzt geschafft habe, ist nicht wirklich viel...
#include <GuiConstants.au3>
#include <ColorConstants.au3>
If Not IsDeclared('WS_CLIPSIBLINGS') Then Global $WS_CLIPSIBLINGS = 0x04000000
GuiCreate("Programmstarter V1 [RAM3000]",350,350)
$Filemenu = GuiCtrlCreateMenu ("File")
$Config = GuiCtrlCreateMenuitem ("Config",$Filemenu)
$Exititem = GuiCtrlCreateMenuitem ("Exit",$Filemenu)
$mypic = "ball.jpg"
GUICtrlCreatePic ($mypic, 15, 0, 315, 110)
$Button1 = GuiCtrlCreateButton("START", 15, 290, 100, 25)
$Button2 = GuiCtrlCreateButton("RE-START", 125, 290, 100, 25)
$Button3 = GuiCtrlCreateButton("STOP", 235, 290, 100, 25)
$Button5 = GuiCtrlCreateButton("Programm 01", 15, 120, 320, 25)
$Button6 = GuiCtrlCreateButton("Programm 02", 15, 150, 320, 25)
$Button7 = GuiCtrlCreateButton("Programm 03", 15, 180, 320, 25)
$Button8 = GuiCtrlCreateButton("Programm 04", 15, 210, 320, 25)
$i = 4
$timer=30
GuiSetState()
While 1
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $MSG = $Button1 ; Start
Start()
Case $MSG = $Button2 ; Re-Start
ReStart()
Case $MSG = $Button3 ; Stop
Stop()
Case $MSG = $Button5
Case $MSG = $Button6
Case $MSG = $Button7
Case $MSG = $Button8
Case $MSG = $Config
Msgbox(0,"Konfigurator","Hier soll alles konfiguriert werden!")
Case $MSG = $Exititem
ExitLoop
Case Else
;;;
EndSelect
WEnd
Exit
Func Start()
Local $iPID = Run("help1.exe", "", @SW_MINIMIZE)
Sleep($timer)
Local $iPID = Run("help2.exe", "", @SW_MINIMIZE)
Sleep($timer)
Local $iPID = Run("help3.exe", "", @SW_MINIMIZE)
Sleep($timer)
Local $iPID = Run("help4.exe", "", @SW_MINIMIZE)
Sleep($timer)
EndFunc
Func ReStart()
ProcessClose("help1.exe")
ProcessClose("help2.exe")
ProcessClose("help3.exe")
ProcessClose("help4.exe")
Local $iPID = Run("help1.exe", "", @SW_MINIMIZE)
Sleep($timer)
Local $iPID = Run("help2.exe", "", @SW_MINIMIZE)
Sleep($timer)
Local $iPID = Run("help3.exe", "", @SW_MINIMIZE)
Sleep($timer)
Local $iPID = Run("help4.exe", "", @SW_MINIMIZE)
Sleep($timer)
EndFunc
Func Stop()
ProcessClose("help1.exe")
ProcessClose("help2.exe")
ProcessClose("help3.exe")
ProcessClose("help4.exe")
EndFunc
Alles anzeigen