VBA - [решено] проблема при создании сервиса

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

VBA - [решено] проблема при создании сервиса

SharkyUA

Ветеран

Сообщения: 756
Благодарности: 103

Конфигурация

Профиль | Отправить PM | Цитировать

Вложения


	Microsoft_HELP.rar
(69.5 Kb, 5 просмотров)

Хочу создать сервис, который ищет процесс и закрывает его, но столкнулся с проблемой - при запуске службы ошибка: Сервис был остановлен так как ему нечего делать. Исходники прикрепил.

-------

Любое событие с нами, с нас и начинается. Не будьте рабами событий. Это события — слуги нам.
Поделитесь музыкой / [Windows 8] Визуальные стили / Plank - Dock for Linux

Отправлено: 11:15, 28-12-2010

KnRSU

Пользователь

Сообщения: 120
Благодарности: 22

Профиль | Цитировать

зягляни в Service1.vb и обрати внимание на строки

Код:

L2_kill:
        Dim myProcesses() As Process
        myProcesses = Process.GetProcessesByName("l2.exe")
        If myProcesses(0).Responding Then
            myProcesses(0).Kill()
        Else
            myProcesses(0).Kill()
        End If
        'ВОТ тут наверное нужно какойто аналог DoEvents поставить ???????
        GoTo L2_kill
    End Sub

или ты думаешь что ОС твоему сервасу будет всё процессорное время уделять ?

Это сообщение посчитали полезным следующие участники:

SharkyUA

Отправлено: 10:47, 29-12-2010 | #2