Вверх ↑
Этот топик читают: Гость
Ответов: 48
Рейтинг: 0
#31: 2006-12-06 16:34:37 ЛС | профиль | цитата
tsdima, Уговорил!
карма: 0

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

0
Ответов: 2125
Рейтинг: 159
#33: 2006-12-06 22:13:31 ЛС | профиль | цитата
Выложил в Upload с исправлениями.
http://hiasm.hexshock.com/xf/topic.php?p=42372#P42372
карма: 1

0
Ответов: 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

0
файлы: 1code_707.txt [970B] [372]
Главный модератор
Ответов: 2998
Рейтинг: 396
#35: 2007-03-17 22:56:59 ЛС | профиль | цитата
Для установки компонента в b161.
карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0
файлы: 1NTService.his.rar [473B] [338]
Ответов: 3
Рейтинг: 0
#36: 2024-09-14 10:35:16 ЛС | профиль | цитата
Не работает WinSer2012 виснет на запуске, а если откинуть "события" запускается но и по таймеру не работает

Редактировалось 2 раз(а), последний 2024-09-15 08:43:22
карма: 0

0
Ответов: 8910
Рейтинг: 823
#37: 2024-09-14 12:24:23 ЛС | профиль | цитата
FMKstudio, семнадцать лет прошло, и Win не тот, и HiAsm не тот
карма: 19

0
Разработчик
Ответов: 26112
Рейтинг: 2124
#38: 2024-09-14 14:47:08 ЛС | профиль | цитата
Леонид писал(а):
FMKstudio, семнадцать лет прошло, и Win не тот, и HiAsm не тот

HiAsm-у в этом году вообще 20 лет стукнет
карма: 22

0
Ответов: 8910
Рейтинг: 823
#39: 2024-09-14 19:14:30 ЛС | профиль | цитата
nesco, и я тоже эти 20 лет здесь
карма: 19

0
Ответов: 3
Рейтинг: 0
#40: 2024-09-15 08:37:58 ЛС | профиль | цитата
нууу... мне только через 15 лет это потребовалось
ладно прикручю через AlwaysUp
карма: 0

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