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

[rizovrn]

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

#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]

Garrett, перенеси эту ерунду в раздел для общения.

 

[Yashied]

...

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

 

[kaster]

OffTopic:
Yashied
ты узрел рациональное зерно в этом скрипте? :whistle:

 

[Yashied]

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

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


Добавлено:

Сообщение автоматически объединено: 6 Авг 2010

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

 

[CreatoR]

OffTopic:
Может нам добавить раздел «Смешные куски кода»? :laugh:

 

[Garrett]

Я по моему пропустил событие.

Garrett, перенеси эту ерунду в раздел для общения.

IMHO Ерунда это - Программа правительства "доступное жилье". А тут человек всё таки написал код, пусть даже и не всем полезный! ;)
У меня к примеру нет секретарши! ;D

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

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

Согласен.


Добавлено:

Сообщение автоматически объединено: 6 Авг 2010

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

 

[FlatX007]

Sleep(13*60*60*1000) - слип на 13 часов, жестко ребята жестко

 

[akoulev]

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

 

[johnmarshall]

спасибо поржал. ;D

 

[Belfigor]

А я тупо отслеживаю состояние рабочих станций через радмин

 

[Astel064]

Ды легче тогда к секретарше на комп вебку приткнуть

 

[C2H5OH]

А кто сейчас на работе компы на ночь выключает??
Уходя блокируют и всё. Так что пинговать - это не метод.

 

[Belfigor]

А кто сейчас на работе компы на ночь выключает??
Уходя блокируют и всё. Так что пинговать - это не метод.

Я например требую в обязательном порядке

 

[C2H5OH]

Я например требую в обязательном порядке

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

 

[Belfigor]

Я например требую в обязательном порядке

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

А у меня наоборот, на выходных компы апдейтятся

 

[Yuri]

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