Что нового

Индикатор появления секретарши на рабочем месте

rizovrn

Новичок
Сообщения
3
Репутация
2
Многие сталкивались по утрам с такой ситуацией, когда секретарша или Ваш подчиненный сидит в другом помещении, а Вы понятия не имеете появился он на рабочем месте или нет
Специально на этот случай:

Код:
#include <Date.au3>
TraySetToolTip("Индикатор секретарши")
$Msg = "зафиксировано появление на рабочем месте"
$probel = "    "
While 1
	Sleep(10000)
;~ 	10 сек. потупим
	$var = Ping("192.168.1.27",250)
;~ 	пингуем тачку
	Sleep(10000)
;~ 	снова потупим 10 сек.
	If $var=0 Then 
		ContinueLoop
;~ 		если тачка выключена, то продолжаем тупить-пинговать. получается что пинг долбит секретаршу каждые 20 секунд
	Else 
;~ 		тачка включилась
		TrayTip("Внимание!", "Секретарша появилась на рабочем месте!"& CHR(10)& _NowCalcDate()& CHR(10)&_NowTime(), 5, 2)
;~ 		всплывающее сообщение в трее
		SoundPlay("C:\Windows\media\tada.wav")
;~ 		тадам :)
		FileWriteLine("C:\SecretarControl.log",_NowCalcDate()& $probel &_NowTime()& $probel &":"& $Msg )
;~ 		протоколируем приход для отчетности
		Sleep(13*60*60*1000)
;~ 		берем паузу на 13 часов. до завтра :)
	EndIf
WEnd
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
626
Garrett, перенеси эту ерунду в раздел для общения.
 

Yashied

Модератор
Команда форума
Глобальный модератор
Сообщения
5,379
Репутация
2,724
...

Сам написал, сам удалил.

:smile:
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
626
OffTopic:
Yashied
ты узрел рациональное зерно в этом скрипте? :whistle:
 

Yashied

Модератор
Команда форума
Глобальный модератор
Сообщения
5,379
Репутация
2,724
OffTopic:
Ну, о рациональности не мне судить, а вот неправильное оформление я узрел. А так, может это у него первый скрипт, и мне не хочется рубить на корню... Главное, что бы ничего "плохого" этот код не делал.


Кстати, обычно секретари приходят намного раньше начальства.


Добавлено:
Сообщение автоматически объединено:

Все-таки я перенес тему.
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,671
Репутация
2,481
OffTopic:
Может нам добавить раздел «Смешные куски кода»? :laugh:
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
Я по моему пропустил событие.
Kaster сказал(а):
Garrett, перенеси эту ерунду в раздел для общения.
IMHO Ерунда это - Программа правительства "доступное жилье". А тут человек всё таки написал код, пусть даже и не всем полезный! ;)
У меня к примеру нет секретарши! ;D

OffTopic:
Может просто сделать раздел "Безделушки"? Есть же раздел "Полезняшки"!


Yashied сказал(а):
OffTopic:
Ну, о рациональности не мне судить, а вот неправильное оформление я узрел. А так, может это у него первый скрипт, и мне не хочется рубить на корню... Главное, что бы ничего "плохого" этот код не делал.
Согласен.


Добавлено:
Сообщение автоматически объединено:

CreatoR опередил с предложением :laugh:
 

FlatX007

Tattoo!
Сообщения
197
Репутация
35
Sleep(13*60*60*1000) - слип на 13 часов, жестко ребята жестко :smile:
 

akoulev

Новичок
Сообщения
169
Репутация
2
Зря этот код ерундой назвали: с момента его появления я сменил 3 места работы; на всех трёх местах этот код мне понадобился (как источник к "доработке напильником" ;D).
 

Belfigor

Модератор
Локальный модератор
Сообщения
3,608
Репутация
941
А я тупо отслеживаю состояние рабочих станций через радмин :smile:
 

Astel064

Помог мой пост, ставь +!
Сообщения
276
Репутация
51
Ды легче тогда к секретарше на комп вебку приткнуть :smile:
 

C2H5OH

AutoIT Гуру
Сообщения
1,473
Репутация
333
А кто сейчас на работе компы на ночь выключает??
Уходя блокируют и всё. Так что пинговать - это не метод.
 

Belfigor

Модератор
Локальный модератор
Сообщения
3,608
Репутация
941
C2H5OH сказал(а):
А кто сейчас на работе компы на ночь выключает??
Уходя блокируют и всё. Так что пинговать - это не метод.
Я например требую в обязательном порядке
 

C2H5OH

AutoIT Гуру
Сообщения
1,473
Репутация
333
Я например требую в обязательном порядке

Вообще-то у нас админы внедрили практику невыключения компьютеров после работы. Они ставят на ночь апдейты винды, антивирусов и прочего ПО.
Только на выходные всё выключается.
 

Belfigor

Модератор
Локальный модератор
Сообщения
3,608
Репутация
941
C2H5OH сказал(а):
Я например требую в обязательном порядке

Вообще-то у нас админы внедрили практику невыключения компьютеров после работы. Они ставят на ночь апдейты винды, антивирусов и прочего ПО.
Только на выходные всё выключается.
А у меня наоборот, на выходных компы апдейтятся :smile:
 

Yuri

AutoIT Гуру
Сообщения
737
Репутация
282
OffTopic:
У меня директор спросил:
- Юра, почему компьютер не выключаешь после работы?
Я ответил:
- Так ведь это же сервер. Его нельзя выключать...
Ответ:
- А, - понятно, ну, - хорошо.
 
Верх