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

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

SharkyUA

Ветеран

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

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

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

Вложения


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

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

-------

Любое событие с нами, с нас и начинается. Не будьте рабами событий. Это события — слуги нам.
Поделитесь музыкой / [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

Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.