[решено] проблема при создании сервиса - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - [решено] проблема при создании сервиса (http://forum.oszone.net/showthread.php?t=195204)

проблема при создании сервиса

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

зягляни в 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

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