aganser
Aktives Mitglied
Thread Starter
- Dabei seit
- 19.11.2003
- Beiträge
- 735
- Reaktionspunkte
- 16
Hi,
ich kenne mich mit Script leider nicht aus, kann also schon gar keine schreiben. Ich habe im Interet ein Script gefunden, welches bewirken soll, dass der Bilschirmschoner nicht aktiviert wird solange EyeTV noch in einem Fenster läuft. Standartmäßig geht das nämlich nur beim Vollbildmodus von EyeTV.
Was habe ich gemacht?
- Befehlstext in den Scripteditor kopiert
- die Datei unter "EyeTV im Fenster.scpt" abgespeichert
Wenn ich dieses Script im Editor ablaufen lasse kommen keine Fehlermeldungen. Allerdings funktioniert damit das ganz noch nicht.
Kann mir jemand sagen was man tun muss um dieses Script zum laufen zu bringen?
so sieht das Script aus:
property idle_time : 30
global Abspulen
on run
my DimEinstellen()
end run
on DimEinstellen()
tell application "EyeTV"
if application "EyeTV" is not playing then
set Abspulen to 0
else
set Abspulen to 1
end if
end tell
if Abspulen = 0 then
set thetime to 30
do shell script ("pmset dim " & thetime) password ¬
"passwort" with administrator privileges
tell me to quit
else
set thetime to 180
do shell script ("pmset dim " & thetime) password ¬
"passwort" with administrator privileges
end if
end DimEinstellen
on idle
my DimEinstellen()
return idle_time
end idle
ich kenne mich mit Script leider nicht aus, kann also schon gar keine schreiben. Ich habe im Interet ein Script gefunden, welches bewirken soll, dass der Bilschirmschoner nicht aktiviert wird solange EyeTV noch in einem Fenster läuft. Standartmäßig geht das nämlich nur beim Vollbildmodus von EyeTV.
Was habe ich gemacht?
- Befehlstext in den Scripteditor kopiert
- die Datei unter "EyeTV im Fenster.scpt" abgespeichert
Wenn ich dieses Script im Editor ablaufen lasse kommen keine Fehlermeldungen. Allerdings funktioniert damit das ganz noch nicht.
Kann mir jemand sagen was man tun muss um dieses Script zum laufen zu bringen?
so sieht das Script aus:
property idle_time : 30
global Abspulen
on run
my DimEinstellen()
end run
on DimEinstellen()
tell application "EyeTV"
if application "EyeTV" is not playing then
set Abspulen to 0
else
set Abspulen to 1
end if
end tell
if Abspulen = 0 then
set thetime to 30
do shell script ("pmset dim " & thetime) password ¬
"passwort" with administrator privileges
tell me to quit
else
set thetime to 180
do shell script ("pmset dim " & thetime) password ¬
"passwort" with administrator privileges
end if
end DimEinstellen
on idle
my DimEinstellen()
return idle_time
end idle