Скрипт отображающий состояние scrensaver

Те, кто ей начинают пользоваться, уже не в силах остановиться! Она может все. Или почти все!

Сообщение Saver » Вс май 11, 2003 1:43 pm

Помогите написать скрипт который отображал бы состояние скринсейвера. Очень часто нужно знать включен или выключен скринсейвер. Спасибо! У меня не получаеться сообразить где копаться...
"Боишся? Не делай! Сделал? Не бойся!"
Saver
Прапор
 
Сообщений: 63
Зарегистрирован: Ср мар 26, 2003 2:04 pm
Откуда: Санкт-Петербург
Пункты репутации: 0

Сообщение Reuben » Вс май 11, 2003 2:22 pm

saveractive Value 1 if screen saver active; 0 otherwise.

И вообще, в chm - хелпе есть функция поиска по ключевым словам <!--emo&:)-->Изображение<!--endemo-->
<span style='color:purple'>
Ugly girl is better than nothing
Nothing is better than pretty girl
</span>
Reuben
Подполковник
 
Сообщений: 532
Зарегистрирован: Ср дек 04, 2002 8:59 am
Откуда: Jerusalem
Пункты репутации: 0

Сообщение Saver » Пн май 12, 2003 6:19 am

<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->saveractive Value 1 if screen saver active; 0 otherwise.<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd--> Это я нашел в хелпе <!--emo&:)-->Изображение<!--endemo--> Но вот мой скрипт
Код: выделить все
if (saveractive>1) Do
   Format item item 1 list "Bar" colorback 3014445
   quit ("1")
Else
   Format item item 1 list "Bar" colorback 0
   quit ("0")
Endif

Казалось бы простой, но вот зараза не хочет показывать "1" при включенном scrensaver. В чем может быть проблема?
"Боишся? Не делай! Сделал? Не бойся!"
Saver
Прапор
 
Сообщений: 63
Зарегистрирован: Ср мар 26, 2003 2:04 pm
Откуда: Санкт-Петербург
Пункты репутации: 0

Сообщение Reuben » Пн май 12, 2003 8:36 am

<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->saveractive Value 1 if screen saver active; 0 otherwise.<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->

<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->saveractive>1<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
Скажи, ты специально издеваешься? <!--emo&:)-->Изображение<!--endemo-->
<span style='color:purple'>
Ugly girl is better than nothing
Nothing is better than pretty girl
</span>
Reuben
Подполковник
 
Сообщений: 532
Зарегистрирован: Ср дек 04, 2002 8:59 am
Откуда: Jerusalem
Пункты репутации: 0

Сообщение Saver » Пн май 12, 2003 10:02 am

<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->Скажи, ты специально издеваешься? <!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
Сорри..... Каюсь.... Виноват...... Плюйте мне в лицо....... Мда.... :-) .... Ошибка....... Но все равно не работает если поставить saveractive>0.......
"Боишся? Не делай! Сделал? Не бойся!"
Saver
Прапор
 
Сообщений: 63
Зарегистрирован: Ср мар 26, 2003 2:04 pm
Откуда: Санкт-Петербург
Пункты репутации: 0

Сообщение Saver » Пн май 12, 2003 11:39 am

Если я правильно понял saveractive выдает результат запущен или нет скринсейвкр, а не включен или выключен. ИМХО не идет такая фишка..... Надо именно включен или выключен скринсейвер....
"Боишся? Не делай! Сделал? Не бойся!"
Saver
Прапор
 
Сообщений: 63
Зарегистрирован: Ср мар 26, 2003 2:04 pm
Откуда: Санкт-Петербург
Пункты репутации: 0

Сообщение Reuben » Пн май 12, 2003 12:07 pm

А переменная saver что пишет, когда screensaver выключен?
<span style='color:purple'>
Ugly girl is better than nothing
Nothing is better than pretty girl
</span>
Reuben
Подполковник
 
Сообщений: 532
Зарегистрирован: Ср дек 04, 2002 8:59 am
Откуда: Jerusalem
Пункты репутации: 0

Сообщение Saver » Пн май 12, 2003 12:43 pm

Переменная пишет расположение и название самого скринсейвера в любом режиме онного....
"Боишся? Не делай! Сделал? Не бойся!"
Saver
Прапор
 
Сообщений: 63
Зарегистрирован: Ср мар 26, 2003 2:04 pm
Откуда: Санкт-Петербург
Пункты репутации: 0

Сообщение Reuben » Пн май 12, 2003 12:58 pm

Понятно. Но с другой стороны, никто кроме тебя не может его включить или выключить, так что заведи переменную saverenabled и меняй ее каждый раз, когда включаешь/выключаешь скринсейвер
<span style='color:purple'>
Ugly girl is better than nothing
Nothing is better than pretty girl
</span>
Reuben
Подполковник
 
Сообщений: 532
Зарегистрирован: Ср дек 04, 2002 8:59 am
Откуда: Jerusalem
Пункты репутации: 0

Сообщение Saver » Вт май 13, 2003 6:46 am

<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->так что заведи переменную saverenabled<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
У меня сделано так. На кнопке по правой клаве мышки стоит *ScrennSaver Enable по средней *ScrennSaver Disable. Подскажите, никак не могу понять, куда мне привязать переменную saverenable.
"Боишся? Не делай! Сделал? Не бойся!"
Saver
Прапор
 
Сообщений: 63
Зарегистрирован: Ср мар 26, 2003 2:04 pm
Откуда: Санкт-Петербург
Пункты репутации: 0

Сообщение Reuben » Вт май 13, 2003 9:22 am

например так
в More Commands на правый щелчок впиши
saverenabled=saver
а в More Commands на средний щелчок
saverenabled="0"
и так везде, где ты включаешь или выключаешь скринсейвер.
P.S. Пиши пожалуйста названия команд правильно, а то вдруг эти посты еще кто-нибудь кроме нас читает, а потом ругаться начнет, что у него не работает ничего <!--emo&;)-->Изображение<!--endemo-->
<span style='color:purple'>
Ugly girl is better than nothing
Nothing is better than pretty girl
</span>
Reuben
Подполковник
 
Сообщений: 532
Зарегистрирован: Ср дек 04, 2002 8:59 am
Откуда: Jerusalem
Пункты репутации: 0

Сообщение Saver » Вт май 13, 2003 12:31 pm

<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->Пиши пожалуйста названия команд правильно<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
Виноват, не помотрел испралюсь... <!--emo&:D-->Изображение<!--endemo-->
А что дальше делать с этой переменной?
"Боишся? Не делай! Сделал? Не бойся!"
Saver
Прапор
 
Сообщений: 63
Зарегистрирован: Ср мар 26, 2003 2:04 pm
Откуда: Санкт-Петербург
Пункты репутации: 0

Сообщение Reuben » Вт май 13, 2003 12:39 pm

Код: выделить все

if (saverenabled !="0") Do
Format item item 1 list "Bar" colorback 3014445
quit ("1")
Else
Format item item 1 list "Bar" colorback 0
quit ("0")
Endif
<span style='color:purple'>
Ugly girl is better than nothing
Nothing is better than pretty girl
</span>
Reuben
Подполковник
 
Сообщений: 532
Зарегистрирован: Ср дек 04, 2002 8:59 am
Откуда: Jerusalem
Пункты репутации: 0

Сообщение Saver » Ср май 14, 2003 5:46 am

to Reuben Спасибо! Я уже пробовал добавлять переменную доп. командах. Но не знал что из скрипта есть доступ к этой переменной. <!--emo&:D-->Изображение<!--endemo-->
"Боишся? Не делай! Сделал? Не бойся!"
Saver
Прапор
 
Сообщений: 63
Зарегистрирован: Ср мар 26, 2003 2:04 pm
Откуда: Санкт-Петербург
Пункты репутации: 0

Сообщение Reuben » Ср май 14, 2003 5:20 pm

Конечно есть, всякая переменная по-умолчанию глобальная
(и об этом нужно помнить, во избежание несчастных случаев)
<span style='color:purple'>
Ugly girl is better than nothing
Nothing is better than pretty girl
</span>
Reuben
Подполковник
 
Сообщений: 532
Зарегистрирован: Ср дек 04, 2002 8:59 am
Откуда: Jerusalem
Пункты репутации: 0


Вернуться в Windows PowerPro

Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 6