Programmgenerator

Schritt 1:

OPTIMUS starten (sofern nicht bereits geschehen). Hinweis: Dieser Programmgenerator muss genau an einem Arbeitsplatz oder am Server ausgeführt werden. Doppelte Ausführung stellt kein Problem dar, ist jedoch nicht notwendig.

Schritt 2:

Wechseln Sie auf den Menüpunkt „Extras“ und auf den Unterpunkt „Programmgenerator“ (siehe Grafik).

Schritt 3:

Kopieren Sie nachfolgenden Text in die Zwischenablage und fügen Sie ihn in den Bereich „Programmcode“ ein.
Tipp: Über die Schaltfläche „Kopieren“ haben Sie den Code automatisch in der Zwischenablage!

(Bitte klicken Sie um das Bild zu vergößern)

ResStart is int = HTTPRequest("https://www.rpssoftware.de/downloads/GetUpdateExeBinaer.txt")
IF ResStart = True THEN
bufGetUpdateBinary is Buffer = HTTPGetResult(httpResult)
fMakeDir(CompleteDir(gsPathUpdate)+"ProgramFiles\")
fSaveBuffer(CompleteDir(gsPathUpdate)+"ProgramFiles\GetUpdate.exe",bufGetUpdateBinary)
fSaveBuffer(CompleteDir(gsPathOptimus)+"GetUpdate.exe",bufGetUpdateBinary)
END
sHash5 is string = proc_FileGetMD5Checksum(CompleteDir(gsPathUpdate)+"ProgramFiles\GetUpdate.exe")
IF sHash5 <> "fcbcaa702ae76b758a906d3cd514b1f2" THEN Info("Bei der Ausführung ist ein Fehler aufgetreten, bitte führen Sie den Code erneut aus. Bitte wenden Sie sich an Ihren OPTIMUS Betreuer, sofern die Meldung erneut erscheinen sollte.") ELSE
ExeRun(CompleteDir(gsPathOptimus)+"GetUpdate.exe",exeActive)
WIN_DynamicPrograms.EDT_CODE="//Der Programmgenerator ist erfolgreich durchgelaufen. Sie können jetzt wie gewohnt weiter arbeiten."+CR+"//"+CR +"//Mit freundlichen Grüßen, Ihr OPTIMUS Team."
END

Schritt 4:

Betätigen Sie die Schaltfläche „Ausführen“

Fertig!