Модераторы: diadiavova, gambit
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Таймер в службе не работает.. 
:(
    Опции темы
yur1221
Дата 19.7.2011, 23:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 28.6.2011

Репутация: нет
Всего: нет
Помогите с проблемой. Служба инсталируется, запускается, но не срабатывает событие, когда запускается процесс допустим Тотал Коммандера. Ошибок не пишет.
 Не пойму где лажа.

Код

Imports System
Imports System.ServiceProcess
Imports System.Diagnostics
Imports System.Timers
Public Class Service1
    Dim aa() As Process
    Protected Overrides Sub OnStart(ByVal args() As String)
        Timer1.Enabled = True
        Timer1.Interval = 5000
    End Sub
 
    Protected Overrides Sub OnStop()
        Timer1.Enabled = False
        Me.Dispose()
    End Sub
 
    Private Sub Timer_Tick(ByVal source As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        aa = Process.GetProcessesByName("totalcmd")
        If aa.Length > 0 Then
            Timer1.Enabled = False
            MsgBox(aa.Length)
            OnStop()
        End If
    End Sub
 
End Class
PM MAIL   Вверх
diadiavova
Дата 20.7.2011, 10:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доктор Зло(диагност, настоящий, с лицензией и полномочиями)
****


Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142
Давно со службами не работал, но, насколько я помню, из службы окно вызвать нельзя. Попробуй вместо мессаджбокса добавить запись в журнал или еще что-нибудь в том же роде.


--------------------
Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile
PM   Вверх
yur1221
Дата 20.7.2011, 11:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 28.6.2011

Репутация: нет
Всего: нет
Меседжбокс убирал, все равно не стопарится служба
PM MAIL   Вверх
yur1221
Дата 20.7.2011, 12:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 28.6.2011

Репутация: нет
Всего: нет
нашел причину..
вместо Me.Timer1 = New System.Windows.Form.Timer

надо юзать Me.Timer1 = New System.Timers.Timer и соответсвенно метод не tick а elapsed
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума VB .NET
diadiavova
  • Прежде чем задать вопрос, воспользуйтесь поиском: возможно Ваш вопрос уже обсуждался и на него был получен ответ.
  • Если такой же вопрос не найден, не стоит задавать свой вопрос в любую тему, создайте новую.
  • Заголовок темы должен отображать ее суть.
  • Содержание поста должно описывать проблему понятно, но в то же время, по возможности, лаконично. Сначала следует описать суть вопроса, потом можно привести пример кода, не вынуждайте других участников угадывать в чем Ваша проблема - телепатов здесь нет.
  • Будьте взаимно вежливы и дружелюбны.
  • При оформлении сообщений используйте форматирование, примеры кода заключайте в теги [CODE=vbnet][/CODE].
  • Также ознакомьтесь с общими правилами, действующими на всем форуме.
  • Если вопрос решен, не забывайте помечать тему решенной(вверху темы есть ссылка). Кроме того, если Вы хотите отблагодарить участников, оказавших помощь в решении, можно повысить им репутацию, в случае, если у Вас менее 100 сообщений в форуме и функция изменения репутации Вам недоступна, можете написать сюда.
  • Общие вопросы по программированию на платформе .NET обсуждаются здесь.
  • Литература по VB .NET обсуждается здесь.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, diadiavova.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB .NET | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0451 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.