In 30 Minuten Zyklen ein Programm starten, beenden und wieder neu starten?

chrismatis

Hallo,

ich bin neu hier und hoffe ihr könnt mir helfen. Per Autoit soll ein Programm gestartet werden -> Über einen Button im Programm wird ein Ablauf gesteuert -> Nach 30 Minuten das Programm einfach beendet bzw. geschlossen wird -> Nach beenden des Programms der Ablauf sofort wieder neu gestartet wird. Praktisch eine Endlosschleife ist.
Das Problem nämlich ist, das Programm stürzt etwa alle 30 Minuten ab und muss geschlossen werden und nach dem Neustart wieder 30 Minuten läuft. Mit Autoit soll das Problem automatisch behoben werden um nicht immer selbst starten zu müssen.

Danke!

Lottich

Sicher ist das möglich, recht einfach sogar. Aber ist es nicht sinvoller daran zu arbeiten, dass das Programm nicht mehr abstürzt?
Sowas hat ja Ursachen, die sich unter Umständen beseitigen lassen.

Darf man nach dem Programm fragen um das es dir geht?

chrismatis

Ist ein uraltes Programm und heisst Snoopy. Haben schon alles mögliche versucht es länger laufen zu lassen, sporradisch stürzt es einfach ab. Wer könnte so ein Automatisierungsscript erstellen?

**Alina**

Eigentlich reicht da, wenn es nicht sogar schon zu groß ist vom Umfang, CronTab.

Mit KILL killst Du den Prozess und startest danach, evtl. mit eine Minute Verzögerung das Programm wieder neu.

AutoIt

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=icon.ico
#AutoIt3Wrapper_AU3Check_Stop_OnWarning=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****






#cs
Wer CronTab kennt und regelmäßig geiche Abläufe hat, wird diese kleine EXE-Datei lieben.
		Jeden Morgen Daten digital abholen? Macht CronTab
		Immer um 14:00 Uhr und 20:00 Uhr Datenupdate Ser-1 / Ser-2? Macht CronTab
		Ja an jeden Geburtstag denken? Macht CronTab
		Am 03.07.2015 ein Buch bestellen? CronTab erinnert mich an jedem Montag im Juni daran,
		das ich es schon vorbestellen kann.


		Also CronTab ist schon was feines.




Dies ist ein Beispiel für eine Datei. CRONTAB.txt


 ###########################################################################################
 #  -------------Minuten (0 - 59)
 # | ----------- Stunden (0 - 23)
 # | | --------- Tag des Monats (1-31)
 # | | | ------- Monat (1-12)
 # | | | | ----- Tag der Woche (0 - 7) (Sonntag = 0 Montag = 1 ... 6 = Samstag, Sonntag = 7)
 # | | | | |
 # * * * * * Befehl, der ausgeführt werden soll.
 #
 #
 # I ist gültig, wenn alle Werte aktiv die Ausführung des Crom ermöglichen sollen
 # * Bedeutet, dass alle Werte gültig sind
 # / Aktivieren einer Wiederholung z. B. / 15 beduetet alle 15 Minuten
 # - Erlaubt die Definition einer Reihe  z. B. "1-5  * * * *" bedeutet es wird zu jeder vollen Stunden 1. - 5. Minute
 # , Legt mehrere Werte fest bzw. trennt Werte voneinander
 #
 # Interne Befehle
 # ~~~~~~~~~~~~~~~~~~~~
 #: Kill <proceso> Prozess endet also: kill iexplore.exe schließt den Internetexplorer
 #: off     schaltet den PC aus Computer
 #: exit    beendet den Cronjob
 #: reboot  Computer neu gestarten
 #: Beep <frequenz> <dauer im Millisekunden> zB: beep 500 1000
 #: play <name> z. B.: :play c: \ windows \ medien \ tada.wav
 # () <Title> () <text> Nachricht  z. B. () alert () Dies ist eine Botschaft der Nachweis | | Dies ist eine weitere
 #
 ################################################## ######################################


 # Dies ist ein Kommentar
 # Stunden Minuten Tage Monate Wochentag
 #
 # Es wird jede Minute
 * * * * * Command


 # Wird jede Minute von 18:00 Uhr bis 18:59 Uhr
 # * 18 * * * Kommando


 # Es läuft Montag jede Minute
 * * * * 1 Kommando


 # Message
 * * * * * () Titel () Nachricht | | Eine weitere Linie


 # Öffnet die Datei reg.log beim starten des Cron
 i i i i i reg.log


 # Öffnen die Datei reg.log werktags (Mo.- Fr.) zu beginnen, wenn der Cron startet
 i i i i 1-5 reg.log


 # Schließt das Programm Notepad beim starten von Cron
 i * * * *: kill notepad.exe


 # Schaltet den PC Montag, Dienstag, Mittwoch, Donnerstag und Freitag um 20:00 Uhr aus.
 # Samstags und sonntags um 22:30 Uhr
 # 0 20 * * 1: off
 # 0 20 * * 2: off
 # 0 20 * * 3: off
 # 0 20 * * 4: off
 # 0 20 * * 5: off
 # 30 22 * * 6: off
 # 30 22 * * 0: off


 # Dies macht das gleiche wie oben
 # 0 20 * * 1-5: off
 # 30 22 * * 6.7: off


 # tägliches herunterfahren des PC's um 22:25
 # 25 22 * * *: off


 Run CCleaner # mit dem Parameter / auto am Sonntag um 00:00 Uhr (Mitternacht)
 # "Pfad zu Datei incl. ausführbare Datei" || / Parameter
 # 0 0 * * 7 "C: \ Program Files \ CCleaner \ ccleaner.exe" || / auto


 # erst um 5:59 die Ausgabe einer Info, das der PC gleich ausschaltet
 # und um 6:00 Uhr schaltet der PC dann aus.
 59 5 * * * () exit () Computer wird ausgeschaltet in | | einer Minuten um 6:00
 0 6 * * * : off


 # 750 Hz-Ton für eine 1/2 Sekunde
 * * * * * Beep 750 500


 # Audio-Datei c: \ windows \ medien \ tada.wav Flügel alle 15 Minuten Knochenmark 0 15 30 45
 # * / 15 * * * *: spielen c: \ windows \ medien \ tada.wav








#ce




;#NoTrayIcon
;Opt("RunFehlersFatal", 0)




Global $comando = ""






$fileReg = FileOpen("reg.log", 1)
If $fileReg = -1 Then
   MsgBox(0, "Fehler", "Kann Datei nicht öffnen.")
EndIf
FileWriteLine($fileReg, "")
FileWriteLine($fileReg, "CronJob ( " & @HOUR & ":" & @MIN & "   " & @MDAY & "." & @MON & "." & @YEAR & " )")
FileWriteLine($fileReg, "-------------------------------------------")
FileClose($fileReg)


$segundos = 0
$y = 0
Dim $subcom[6]
$subcom[0] = 0
$subcom[1] = 0
$subcom[2] = 0
$subcom[3] = 0
$subcom[4] = 0
$subcom[5] = 0




$Iminutos = Number(@MIN)
$Ihoras = Number(@HOUR)
$Imes = Number(@MON)
$Idia_mes = Number(@MDAY)
$Idia_semana = Number(@WDAY) - 1


While 1
   Dim $par[6]
   $minutos = Number(@MIN)
   $par[1] = Number(@MIN)
   $horas = Number(@HOUR)
   $par[2] = Number(@HOUR)
   $mes = Number(@MON)
   $par[3] = Number(@MON)
   $dia_mes = Number(@MDAY)
   $par[4] = Number(@MDAY)
   $dia_semana = Number(@WDAY) - 1
   $par[5] = Number(@WDAY)
   $espera = 60000
   abrir()
   $segundos = (@SEC) * 1000


   $espera = $espera - $segundos


   Sleep($espera)
WEnd




Func abrir()
   $file = FileOpen(".CRONTAB", 0)
   If $file = -1 Then
      $file = FileOpen("CRONTAB", 0)
      If $file = -1 Then
         $file = FileOpen("CRONTAB.txt", 0)
         If $file = -1 Then
            MsgBox(0, "Fehler", "Crontab-Datei konnte nicht geöffnet werden.")
            Exit
         EndIf
      EndIf
   EndIf




   While 1
      $line = FileReadLine($file)
      If @error = -1 Then ExitLoop
      $primero = StringMid($line, 1, 1)


      If StringIsDigit($primero) Or StringInStr($primero, "*") Or StringInStr($primero, "I") Or StringInStr($primero, "i") = 1 Then
         FunRum($line)
      EndIf
   WEnd
   $subcom[0] = 0
   FileClose($file)
EndFunc




Func FunRum($line)


   $line = StringStripWS($line, 4)
   $parametros = StringSplit($line, " ")


   If $parametros[1] = "I" Or $parametros[1] = "i" Then
      $parametros[1] = $Iminutos
   EndIf
   If $parametros[2] = "I" Or $parametros[2] = "i" Then
      $parametros[2] = $Ihoras
   EndIf
   If $parametros[3] = "I" Or $parametros[3] = "i" Then
      $parametros[3] = $Idia_mes
   EndIf
   If $parametros[4] = "I" Or $parametros[4] = "i" Then
      $parametros[4] = $Imes
   EndIf
   If $parametros[5] = "I" Or $parametros[5] = "i" Then
      $parametros[5] = $Idia_semana
   EndIf
   If Number($parametros[5]) = 0 And StringMid($parametros[5], 1, 1) <> "*" Then
      $parametros[5] = 7
   EndIf
   If $dia_semana = 0 Then
      $dia_semana = 7
   EndIf
   If $par[5] = 0 Then
      $par[5] = 7
   EndIf


   Dim $multiples[6]
   Dim $rango[6]
   $subcom[0] = 0
   $subcom[1] = 0
   $subcom[2] = 0
   $subcom[3] = 0
   $subcom[4] = 0
   $subcom[5] = 0
   For $p = 1 To 5
      If StringInStr($parametros[$p], ",") Then


         $mul = StringSplit($parametros[$p], ",")
         For $p2 = 1 To $mul[0]
            ;
            If Number($mul[$p2]) = $par[$p] Then
               $multiples[$p] = 1
            EndIf
         Next
      Else
         If StringInStr($parametros[$p], "-") Then


            $ran = StringSplit($parametros[$p], "-")
            If Number($ran[1]) >= $par[$p] And Number($ran[2]) <= $par[$p] Then
               $rango[$p] = 1
            EndIf
         EndIf
      EndIf


      If StringInStr($parametros[$p], "/") > 0 Then ;1
         $ss = StringSplit($parametros[$p], "/")
         If $minutos = 0 Then
            $minutos = 60
         EndIf
         If $par[1] = 0 Then
            $par[1] = 60
         EndIf
         If Number($horas) = 0 Then
            $horas = 24
         EndIf
         If $par[2] = 0 Then
            $par[1] = 24
         EndIf
         If Mod($par[$p], Number($ss[2])) = 0 Then
            $subcom[$p] = 0
         Else
            $subcom[$p] = 1
         EndIf
         If $minutos = 60 Then
            $minutos = 0
         EndIf
         If $par[1] = 60 Then
            $par[1] = 0
         EndIf
         If $horas = 24 Then
            $horas = 0
         EndIf
         If $par[2] = 24 Then
            $par[2] = 0
         EndIf


      Else
         $subcom[$p] = 0
      EndIf


   Next


   If (Number($parametros[1]) = $minutos Or StringMid($parametros[1], 1, 1) = "*" Or $multiples[1] Or $rango[1]) And $subcom[1] = 0 Then
      If (Number($parametros[2]) = $horas Or StringMid($parametros[2], 1, 1) = "*" Or $multiples[2] Or $rango[2]) And $subcom[2] = 0 Then
         If (Number($parametros[3]) = $dia_mes Or StringMid($parametros[3], 1, 1) = "*" Or $multiples[3] Or $rango[3]) And $subcom[3] = 0 Then
            If (Number($parametros[4]) = $mes Or StringMid($parametros[4], 1, 1) = "*" Or $multiples[4] Or $rango[4]) And $subcom[4] = 0 Then
               If (Number($parametros[5]) = $dia_semana Or StringMid($parametros[5], 1, 1) = "*" Or $multiples[5] Or $rango[5]) And $subcom[5] = 0 Then
                  correcto($parametros)
               EndIf
            EndIf
         EndIf
      EndIf
   EndIf
   $multiples = 0
   $rango = 0
EndFunc




Func correcto($parametros)
   $parametros[6] = StringUpper($parametros[6])
   Select
      Case $parametros[6] = "()"
         comando_interno($parametros)
      Case $parametros[6] = ":kill"
         $comando = $parametros[7]
         $x = 8
         While $x < UBound($parametros)
            $comando = $comando & " " & $parametros[$x]
            $x = $x + 1
         WEnd
         $fileReg = FileOpen("reg.log", 1)
         If $fileReg = -1 Then
            MsgBox(0, "Fehler", "Kann Datei nicht öffnen.")
         EndIf
         FileWriteLine($fileReg, @HOUR & ":" & @MIN & "   " & @MDAY & "." & @MON & "." & @YEAR & " | kill | " & $comando)
         FileClose($fileReg)
         While ProcessExists($comando)
            ;
            ProcessClose($comando);---------------- Prozess killen
         WEnd
      Case $parametros[6] = ":off"
         $fileReg = FileOpen("reg.log", 1)
         If $fileReg = -1 Then
            MsgBox(0, "Fehler", "Kann Datei nicht öffnen.")
         EndIf
         FileWriteLine($fileReg, @HOUR & ":" & @MIN & "   " & @MDAY & "." & @MON & "." & @YEAR & " | off")
         FileClose($fileReg)
         Shutdown(13);---------------- Herunterfahren erzwingen und Strom aus schalten
      Case $parametros[6] = ":reboot"
         $fileReg = FileOpen("reg.log", 1)
         If $fileReg = -1 Then
            MsgBox(0, "Fehler", "Kann Datei nicht öffnen.")
         EndIf
         FileWriteLine($fileReg, @HOUR & ":" & @MIN & "   " & @MDAY & "." & @MON & "." & @YEAR & " | reboot")
         FileClose($fileReg)
         Shutdown(6);---------------- Herunterfahren erzwingen und Neustart
      Case $parametros[6] = ":exit"
         $fileReg = FileOpen("reg.log", 1)
         If $fileReg = -1 Then
            MsgBox(0, "Fehler", "Kann Datei nicht öffnen.")
         EndIf
         FileWriteLine($fileReg, @HOUR & ":" & @MIN & "   " & @MDAY & "." & @MON & "." & @YEAR & " | Exit")
         FileClose($fileReg)
         While ProcessExists(@ScriptName);---------------- Beendet die Cronjob Datei / Software
            ProcessClose(@ScriptName)
         WEnd
      Case $parametros[6] = ":beep"
         $fileReg = FileOpen("reg.log", 1)
         If $fileReg = -1 Then
            MsgBox(0, "Fehler", "Kann Datei nicht öffnen.")
         EndIf
         FileWriteLine($fileReg, @HOUR & ":" & @MIN & "   " & @MDAY & "." & @MON & "." & @YEAR & " | beep " & $parametros[7] & " " & $parametros[8])
         FileClose($fileReg)
         Beep($parametros[7], $parametros[8])
      Case $parametros[6] = ":play"
         $comando = $parametros[7]
         $x = 8
         While $x < UBound($parametros)
            $comando = $comando & " " & $parametros[$x]
            $x = $x + 1
         WEnd
         $fileReg = FileOpen("reg.log", 1)
         If $fileReg = -1 Then
            MsgBox(0, "Fehler", "Kann Datei nicht öffnen.")
         EndIf
         FileWriteLine($fileReg, @HOUR & ":" & @MIN & "   " & @MDAY & "." & @MON & "." & @YEAR & " | play | " & $comando)
         FileClose($fileReg)
         SoundPlay($comando);---------------- gibt den Ton (Beep) aus
      Case Else
         ;
         Local $comando[2]
         $comando = unir_comando($parametros)
         $fileReg = FileOpen("reg.log", 1)
         If $fileReg = -1 Then
            MsgBox(0, "Fehler", "Kann Datei nicht öffnen.")
         EndIf
         FileWriteLine($fileReg, @HOUR & ":" & @MIN & "   " & @MDAY & "." & @MON & "." & @YEAR & " | " & $comando[0] & " " & $comando[1])
         FileClose($fileReg)
         ShellExecute($comando[0], $comando[1]);---------------- laufende Parameter
   EndSelect


EndFunc




Func unir_comando($parametros)
   ;
   Local $comando[2]
   $comando[1] = " "
   $xy = 0
   $comando[$xy] = $parametros[6]
   $x = 7
   While $x < UBound($parametros)
      If $parametros[$x] = "||" Then
         $xy = 1
      Else
         $comando[$xy] = $comando[$xy] & " " & $parametros[$x]
      EndIf
      $x = $x + 1
   WEnd
   Return $comando
EndFunc


Func comando_interno($parametros)
   ;
   $titulo = $parametros[7]
   $comodin = "nein"
   $x = 8
   While $x < UBound($parametros)
      If $comodin = "ja" Then
         $comando = $comando & " " & $parametros[$x]
      Else
         If $parametros[$x] <> "()" Then
            $titulo = $titulo & " " & $parametros[$x]
         EndIf
      EndIf
      If $parametros[$x] = "()" Then
         $x = $x + 1
         $comando = $parametros[$x]
         $comodin = "ja"
      EndIf
      $x = $x + 1
   WEnd
   $fileReg = FileOpen("reg.log", 1)
   If $fileReg = -1 Then
      MsgBox(0, "Fehler", "Kann Datei nicht öffnen.")
   EndIf
   FileWriteLine($fileReg, @HOUR & ":" & @MIN & "   " & @MDAY & "." & @MON & "." & @YEAR & " | " & $titulo & " |" & $comando)
   FileClose($fileReg)


   $comando = StringReplace($comando, "||", @CRLF)
   MsgBox(0, $titulo, $comando, 15)




EndFunc

Alles anzeigen

**alpines**

@Alina meinst du nicht das Cronjob dafür ein wenig Overkill ist?

Ich denke sowas hier sollte schon genügen:

AutoIt

#RequireAdmin


While Sleep(30 * 60 * 1000) ;30 Minuten Sleep
	Do
		ProcessClose("prozessname.exe")
	Until Not ProcessExists("prozessname.exe")


	ShellExecute("pfad\zum\programm\prozessname.exe")
WEnd

Alles anzeigen

**Alina**

@alpines meinst Du? LOOOOOL

Okay, ich finde das halt eigentlich ganz praktisch. Morgens PC starten und CronJob macht erst einmal seine Arbeit wie Mails abrufen, Dokumente öffnen, Listen öffnen, Programme öffnen, und und und. Ich kann in der Zeit die große Kaffeekanne aufsetzen, wenn ich als erstes da bin und sonst kann ich schon mal in der Zeit anderes erledigen. Nur kein Stress machen, das darf bei mir CronJob abfangen und ich kann, sobald der Kaffee fertig, ist beginnen. Spart mir täglich gut 15 Minuten morgens. Und auch tagsüber spart es mir Zeit. So nach und nach kam bei mir immer mehr Aufgaben dazu und wer weiß was bei chrismartis noch dazu kommt. Frau denkt halt weiter. Nee, er schreibt auch die Geburtstagsmail an die Mitarbeiter im Hintergrund, Dank CronJob und AutoIt. Gerade bin ich dabei und schau, ob ich es hinbekomme, das ich mit AutoIt die PDF-Berichte ,die wir täglich erstellen und vorher die Daten raussuchen müssen, per Script ausfüllen zu lassen. Da ich die PDF selber nach Wordvorlage erstellt habe (wir haben das große Adobepaket mit Formulargestallter usw.), konnte ich gut merkende Feldnamen geben, was praktisch ist, wenn man mit einem solchen Programm arbeitet. Besser als vorher immer die Worddateien und die dann als PDF speichern. Ist meine persänliche Meinung.

Aber Alpines, die kleine Ausführung aus Beitrag 5 sollte reichen. Da gebe ich Dir mal ausnahmsweise Recht. Und wer Recht hat, gibt .....

**alpines**

Zitat von Alina

@alpines meinst Du? LOOOOOL

Okay, ich finde das halt eigentlich ganz praktisch. Morgens PC starten und CronJob macht erst einmal seine Arbeit wie Mails abrufen, Dokumente öffnen, Listen öffnen, Programme öffnen, und und und. Ich kann in der Zeit die große Kaffeekanne aufsetzen, wenn ich als erstes da bin und sonst kann ich schon mal in der Zeit anderes erledigen. Nur kein Stress machen, das darf bei mir CronJob abfangen und ich kann, sobald der Kaffee fertig, ist beginnen. Spart mir täglich gut 15 Minuten morgens. Und auch tagsüber spart es mir Zeit. So nach und nach kam bei mir immer mehr Aufgaben dazu und wer weiß was bei chrismartis noch dazu kommt. Frau denkt halt weiter. Nee, er schreibt auch die Geburtstagsmail an die Mitarbeiter im Hintergrund, Dank CronJob und AutoIt. Gerade bin ich dabei und schau, ob ich es hinbekomme, das ich mit AutoIt die PDF-Berichte ,die wir täglich erstellen und vorher die Daten raussuchen müssen, per Script ausfüllen zu lassen. Da ich die PDF selber nach Wordvorlage erstellt habe (wir haben das große Adobepaket mit Formulargestallter usw.), konnte ich gut merkende Feldnamen geben, was praktisch ist, wenn man mit einem solchen Programm arbeitet. Besser als vorher immer die Worddateien und die dann als PDF speichern. Ist meine persänliche Meinung.

Aber Alpines, die kleine Ausführung aus Beitrag 5 sollte reichen. Da gebe ich Dir mal ausnahmsweise Recht. Und wer Recht hat, gibt .....

O-o.. okay?