Пишем сервисы для Windows

Вверх ↑

Форумы Между деломПишем сервисы для Windows ← Ctrl1 23Ctrl →

Этот топик читают: Гость

Ответов: 48

Рейтинг: 0

#31: 2006-12-06 16:34:37 ЛС | профиль | цитата

tsdima, Уговорил!

карма: 0

Ответов: 2125

Рейтинг: 159

#32: 2006-12-06 18:10:30 ЛС | профиль | цитата

Кстати, на скрипты в сервисе я не рассчитывал. А то бы добавил CoInitialize.

Без этого - ясен пень, работать не будет. Кроме того есть ещё одни ньюанс: сервис выполняется в другом Thread, и скрипт должен создаваться в нём (было на форуме, я уже объяснял, почему скрипт нужно прятать в MultiElementEx в режиме OnlyOnce). Вобщем у меня работает.

Исправь в hiNTService.pas

uses Kol,Share,Debug,Windows,ActiveX;
...
    CoInitialize(nil);
    EventOn;
    InitDo;
...
    EventOff;
    CoUninitialize;

А вот рабочий пример:

Add(NTService,10219739,147,133)
{
 Point(doStepTime)
 link(onStart,3198458:doMessage,[(219,139)(219,97)])
 link(onStep,15002550:doNext,[])
 link(onStop,8795962:doMessage,[(219,153)(219,202)])
}
Add(Message,3198458,259,91)
{
 Message="Start"
 link(onMessage,8995477:doData,[])
}
Add(DoData,8995477,315,91)
{
 Data=Integer(100)
 link(onEventData,10219739:doStepTime,[(359,97)(359,74)(135,74)(135,139)])
}
Add(Counter,15002550,259,140)
{
 Max=50
 link(onNext,12692772:doCase,[])
}
Add(Message,8795962,259,196)
{
 Message="Stop"
}
Add(Case,12692772,315,140)
{
 Value=Integer(50)
 link(onTrue,10762230:doWork1,[])
}
Add(MultiElementEx,10762230,378,147)
{
 Mode=2
}
BEGIN_SDK
  Add(EditMultiEx,15253903,3,3)
  {
   WorkCount=#7:doWork1|
   link(doWork1,11361448:doWork1,[(33,9)(33,55)])
  }
  Add(VBJScript,11361448,63,49)
  {
   WorkPoints=#7:doWork1|
   Script=#21:sub doWork(dt, index)|14:  MsgBox index|7:end sub|
   UseName=0
  }
END_SDK

карма: 1

Ответов: 2125

Рейтинг: 159

#33: 2006-12-06 22:13:31 ЛС | профиль | цитата

Выложил в Upload с исправлениями.
http://hiasm.hexshock.com/xf/topic.php?p=42372#P42372

карма: 1

Ответов: 48

Рейтинг: 0

#34: 2006-12-07 09:07:06 ЛС | профиль | цитата

tsdima, Мне нужно сервис, так как я хочу управлять программой из менеждера... Я так прикинул: буду использовать srvany.exe, через который запускать либо сам скрипт (через wscript "scriptname.vbs"), либо напишу фоновое приложение на HiAsm, которое так же через srvany установлю. Осталось только попробовать как srvany на windows 2003 работает.

В конечном итоге надо сдалать пакет инсталляции. Кстати, тебя не интересует проект?
ГЫ. Могу тебя в соавторах (помощниках) указать, гонорара правда не будет. :-)

[size=-2]------ Добавлено в 08:44
tsdima, ты не думай, что я такой жмот, просто программирование - мое хобби. Я на работе не должен программировать - я админ. А пишу проги, чтоб поменьше работать. То что раньше занимало час рутинной работы сейчас делается автоматом, а я тем временем занимаюсь своими делами, а в GPTrack (наша система учета рабочего времени) списываю как обычно - все время, которое работает программа, как будто это я сам проделывал вручную...

ПРимеры: отчеты с филиалов о ночном бэкапе собираются у меня в почте, программы потльзователям устанавливаю скриптами (SMS-распространение мне не доступно - бельгийские коллеги не доверяют пока такое дело - сами патчи и апдейты разливают), программа аудита программого обеспечения на компах пользователей (хотя отчеты в SMS доступны мне, но... SMS дорогая игрушка, но тоже с глюками - приходится самому собирать информацию с компов пользователей)

Сейчас пишу (вернее готово уже) квоту-сервер на папки сервера. Сам скрипт есть, но хотелось сделать из него сервис и управлять им из программы-менеджера. В windows 2003 недоступно устанавливать квоты на папки, только на весь диск, поэтому пришлось измудряться - закупать стороннее ПО. И опять же у бельгийцев все работает, а у нас НЕТ, русские буквы видите ли в названиях папок... Купили другое... это не работает на доменных контроллерах, так как там (на таких серверах) отсутствуют локальные пользователи и соответственно нет локальных администраторов - только доменные, и естественно доступа к настройкам софтины у нас нет, а забугорные коллеги не могут же рулить всеми филиалами в СНГ...

Короче буду продолжать работу с сервисом и писать скрипты на VBS и интерфейс на HiAsm.

[size=-2]------ Добавлено в 08:47
А вообще я админом недавно работаю, с 1 апреля :-) , а до этого меня 6 месяцев компания за свой счет учила. То есть мое хобби администрирование перерасло в работу (я раньше инженером электронной техники работал - программировал промышленные контоллеры)

[size=-2]------ Добавлено в 09:07
Пусть будет такая установка сервиса: code_707
ошибка в скрипте: необходимо писать oReg.SetStringValue HKEY_LOCAL_MACHINE,sKeyPath,sValueName,sValue вместо oReg.SetExpandedStringValue тра-та-та

карма: 0

файлы: 1

code_707.txt [970B] [293]

Главный модератор

Ответов: 2997

Рейтинг: 395

#35: 2007-03-17 22:56:59 ЛС | профиль | цитата

Для установки компонента в b161.

карма: 6

Дорогу осилит идущий. Install/Update HiAsm.NET

файлы: 1

NTService.his.rar [473B] [296]

Форумы Между деломПишем сервисы для Windows ← Ctrl1 23Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)