Ich wieder:
Code:
Set Wss=WScript.CreateObject("WScript.Shell")
Datei="C:\PA271294.JPG"
MsgBox Mid( Datei, InStrRev( Datei, "\" ) + 1, 5 )
Wss.Run "MsPaint """&Datei&""" "
WScript.Sleep 333*5
Wss.AppActivate "Window" ' holt die "Windows Script-Technologien" - Hilfe in den Vordergrund
WScript.Sleep 333*5
Wss.AppActivate Mid( Datei, InStrRev( Datei, "\" ) + 1, 5 ) ' holt den MSPAINT mit "PA271" in den Vordergrund
WScript.Sleep 333*1
Wss.Sendkeys "^g"
So funktionierts bei mir. Entscheidend war die Erhöhung der "Schlafzeiten".
Lesezeichen