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

[SharkyUA]

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

[KnRSU]

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

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