На некоторых продвинутых сайтах уже давно появился вид рекламы, состоящий из ходящего по сайту разговаривающего человека, привлекающего внимание посетителей. Вот я решил, что у нас на работе в 1с должен быть такой же. Который бы выходил перед окончанием рабочего дня и напоминал пользователям, чтобы они не забыли корректно выйти из 1с, а не просто закрыли окошко терминала. Чтоб вместо речи были надписи, но суть в том, чтобы этот человек появился и прошелся бы вдоль экрана. Вот ищу мысли как это реализовать? То, что объект нужно в форму вставить внешний - это понятно. Но как само окно оформлять и выводить чтоб он бегал по экрану и не останавливал работу пользователей?

Ты специально ждал пятницу, что бы задать этот вопрос?

(1)ну а чем не ветка?

Ну обычно нанимают программистов для этого.

(3)а кто мы по вашему? быдло-админы?

у меня где то валяется прога. там из левого нижнего угла вылазит свидетель из фрязина. мож тебе сгодится?

(0) Такое надо?:)
http://www.virtuagirl.com/

(5)да. только чтоб в 1с это было и чтоб этого бота я сам мог программировать.

Был пример, как помощника который был в одном из старых офисов прикрутить к 1С, я думаю надо посмотреть в эту сторону, где то было на инфостарте. Может и не будет работать с новыми офисами а может и будет.

в MS office есть скрепыши и ему подобные - летают, разговаривают, анимация есть

(0) Лучше прогу напиши, которая при отключенной сессии через некоторый таймаут эмулирует выход пользователя с нажатием всех необходимых кнопок.

(6) Ну них*я себе!!!!! КАЧАЮ!!!!!!!!

(4)  ставишь в вебку и пишешь по распознования образов.. если юзер встал раздается сигнал закрой программы! Если уснул - не спи а то настучу в ссб...

(12) Плюс вайфайную турель которая стреляет пластмассовыми ракетами. После окончания раб. дня стреляет во всех кто у компа.

(13) Лучше яйцами ))) или помидорами

(13)  удобно увольнять сотрудников не надо.. долбанул ракетой по темечку.. и готово..

(14) зачем продукты переводить.. небольшой водомет подключенный к канализации..

(0) вот свидетель. только екзешник. исходников чота не нашел.
http://place.rusfolder.net/files/37916723

(16) Экий вы креативный выдумщик ))))

(100)+100500.
(0)Сделаешь то, что хотел. Пользователь похохочет и...нажмет крестик.

очепятка))
(10)+100500.

(0) И я не понимаю почему бы не сделать анимацию в 1С:
http://infostart.ru/public/191248/

(0) нафиг тебе анимация вообще. сделай (10). кстати, недавно на мисте кто-то такое писал. спрашивал как на кнопки нажимать в чужом процессе.

WinAPI. Получить handle элемента окна с фокусом ввода.

(0) Правила информационной безопасности, служебные инструкции, штрафы за невыполнение уже не канают?

Все эти скрепыши именуются компонентой MS Agent /Очень даже можно управлять
http://win.tiflocomp.ru/synths/sapi/msagent_vb.php
не нравится стандартный набор персонажей? Создай своего.
http://www.rsdn.ru/article/multimedia/newchar.xml

(0)Баловство все это.
http://characters.narod.ru/

http://rusproject.narod.ru/agent.htm

(25) (26) Прикольно. Надо будет побаловаться на выходных

(0) идея прикольная, но бредовая.
Лучше вставить всем по самый небалуй, чтобы выходили после рабочего дня из 1с. А если не поймут, закрепить повторно.

(0) Тогда уж пусть анимированный двойник сам нажимает на кнопку закрытия 1С.

(0) не проще по таймеру запускать обработку в прикрепленном окне где-нибудь в верхней части основного с нужным сообщением в виде бегущей строки?

да,  всё стандартно, МСагент и обработчик ожидания.)

(0) можешь сделать такую прогу на Делфях. Где-то в учебниках даже видел примеры типа как в Ворде (ну когда там собачка или Энштейн появляются и что-то говрят).

А потом просто будешь запускать эту прогу из 1С.

(25) во-во, что-то такое я и имел ввиду.

(31)проще но мы простых путей не ищем.

Юзай 1С Microsoft Agent 2.0 он по оле прекрасно работает даже с 7-кой

Ag = Новый COMОбъект("Agent.Control.2");
Ag.Connected = Истина;
Ag.Characters.Load("Merlin", "Merlin.acs");

http://www.mista.ru/articles1c/hare/article.16.html

ИМХО на следующий день тем кто не вышел заставить из 1с
в разное время раз 20 ввести строку типа
"сегодня я обязательно выйду из 1с"
Меняя ее разумеется чтобы копи-пасте не работало.
Будет гораздо эффективнее ходящего вечером человечка.

Можно конечно чем нибуть левым подгружать сервак. и гдето пользователей уведомлять что 1с тормозит из-за Пети который вчера не вышел уходя домой.

Агенты в win7 не работают
http://support.microsoft.com/kb/969168/ru

про  win 8 - не знаю, не сталкивался еще, если кто знает, напишите, пож-та

книга есть Андрей Михайлов написал  кажись системное программирование.или мож другая его вот там подробно как
человечка прикрутить в 1с .тока нах это надо непойму?

(42)сделать жизнь сотруднико веселей.

Купите в офис продвинутый робот пылесос и добавьте процедуру правильного изгнания пользователей от компьютеров.
Другой робот пылесос стоит на выходе и не выпускает пользователей с незавершенной сессией.
Если всё в норме, он их почистит, если нет, наоборот. ;)

(43) Тех, кто на протяжении месяца корректно выходил из 1С - в последнюю пятницу месяца отпустить с работы пораньше.

(41) только что в Win7 попробовал агента, работает))

(46)внутри 1с ?

да, УФ

&НаКлиенте
Процедура Команда1(Команда)
    Агент = Новый COMОбъект("Agent.Control.2");
    Агент.Connected = Истина;
    Агент.Characters.Load("elaineAdult", "C:\!\elaineAdult\elaineAdult.acs");
    Персонаж=Агент.Characters("elaineAdult");
    Персонаж.Show(0);
    Персонаж.MoveTo(500,100,2000);
    
КонецПроцедуры

тетка голая

http://characters.narod.ru/e.htm

Методы голой тетки:

Acknowledge
Alert
Announce
Blink
Credits
Confused
Congratulate
Decline
DoMagic1
DoMagic2
DontRecognize
Explain
GetAttention
GetAttentionContinued
GetAttentionReturn
Hearing_1
Hearing_1return
Hearing_2
Hearing_2return
Hide
Idle1_1
Idle1_2
Idle2_1
Idle2_2
Idle3_1
Idle3_2
GestureLeft
GestureRight
GestureLeftReturn
GestureRightReturn
GestureUp
GestureUpReturn
GestureDown
GestureDownReturn
Greet
LookUp
LookDown
LookLeft
LookRight
MoveLeft
MoveRight
MoveUp
MoveUpDownReturn
MoveDown
Pleased
Process
Processing
Read
ReadContinued
ReadReturn
Reading
RestPose
Sad
Search
Searching
Show
StartListening
StopListening
Suggest
Surprised
Think
ThinkReturn
Uncertain
Wave
Write
WriteContinued
WriteReturn
Writing

&НаКлиенте
Процедура Команда2(Команда)
    Попытка
        ScrptCtrl=Новый COMОбъект("MSScriptControl.ScriptControl");
        ScrptCtrl.Language="vbscript";
        ScrptCtrl.AddCode("
        |Function FindMetods()
        |On Error Resume Next
        |Set myagent =CreateObject(""Agent.Control.2"")
        |myagent.Connected = True
        |If Err.Number <> 0 Then
        |    FindMetods= Err.Number & "": "" & Err.Description
        |WScript.Quit
        |End If
        |myagent.Characters.Load ""elaineAdult"",""C:\!\elaineAdult\elaineAdult.acs""
        |set Bitch=myagent.characters(""elaineAdult"")
        |allanim=vbNullString
        |For Each Animation in Bitch.AnimationNames
        |allanim=allanim & animation
        |allanim=allanim & vbnewline
        |Next
        |FindMetods=allanim
        |End Function
        |");
        Текст=СокрЛП(ScrptCtrl.Run("FindMetods"));  
        ScrptCtrl = "";
        Сообщить(Текст);
    Исключение
        Предупреждение(ОписаниеОшибки());
    КонецПопытки;
КонецПроцедуры

(51)спаситель! а на не УФ это бы сработало?

Перем Мульт;

Процедура КнопкаВыполнитьНажатие(Кнопка)
    Мульт = Новый COMОбъект("Agent.Control.2");
    Мульт.Connected=истина;
    Мульт.Characters.Load("Merlin", "Merlin.acs");
    Мульт.Characters("Merlin").Show();
    Мульт.Characters("Merlin").MoveTo(200, 200, 1);
    для ном = 1 по 5 Цикл
        Мульт.Characters("Merlin").Play("GetAttentionContinued");
    КонецЦикла;
    Мульт.Characters("Merlin").Think("Пора домой!");
КонецПроцедуры