[VBS] Skript umschreiben - keine Ahnung was es tut

[Xeviltan]

Hallo Leute,

ich hoffe ihr könnt mir helfen. Ich habe hier zwei kurze Scripts, das ich umschreiben soll, sodass es wieder funktioniert.
Leider habe ich bei VBS Skripts keine Ahnung.
Vielleicht könnt ihr mir kurz erklären, was das jeweilige Skript tut und mir helfen.

Skript 1:

set wshell = CreateObject("WScript.Shell")
wshell.run """C:\Bildschirm\Bilder für Monitor\Folie1.jpg"""
WScript.Sleep 1500
Wshell.sendkeys "~"
wshell.run """\\Server\Output\Sales_Dashboard_AT.png"""
WScript.Sleep 1500
Wshell.sendkeys "~"
wshell.run """C:\Bildschirm\Bilder für Monitor\Folie2.jpg"""
WScript.Sleep 1500
Wshell.sendkeys "~"


Wenn ich dieses Skript ausführe, werden die drei Bilddateien mit IrfanView geöffnet.

Skript 2:

Option Explicit

Const ExitFile = "Neues Textdokument.txt"
Dim fsShell, i, fso

Set fsShell = WScript.CreateObject("WScript.Shell")
Set fso = WScript.CreateObject("Scripting.FileSystemObject")

Do
' Anwendungstitel der Anwendung die in den Vordergrund geholt werden soll

WScript.Sleep 60000
fsShell.AppActivate "Folie1"
WScript.Sleep 60000
fsShell.SendKeys "+"

fsShell.AppActivate "Folie3"
WScript.Sleep 60000
fsShell.SendKeys "+"

fsShell.AppActivate "Folie2"
WScript.Sleep 60000
fsShell.SendKeys "+"

fsShell.AppActivate "Folie3"
WScript.Sleep 60000
fsShell.SendKeys "+"

Loop Until fso.FileExists(ExitFile) = True

fso.DeleteFile(ExitFile)

WScript.Echo "Skript wurde beenden." & vbCrlf & "Datei " & ExitFile & "wurde gelöscht"


Dieses Skript soll die drei Bilder immer wieder nach der oben genannten Reihenfolge anzeigen.

 

[miac]

Das erste Script startet das Standard Programm für die jpg Bearbeitung und "drückt" die Taste "~".
Das das bei dir IrfanView ist, ist nicht Standard. Ob die Shortcut Taste da existiert, weiß ich nicht.

Beim zweiten Script werden die schon offenen Fenster mit den Namen Folie... ausgewählt und deren Anwendung die Shortcut Taste "+" gedrückt.
Das Verhalten ist ebenfalls abhängig vom Programm, was dahinter steckt.