Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > VB .NET > Напоминалка


Автор: xSD 30.8.2014, 00:43
Всем доброго времени суток, ребят! Возник ещё один вопрос. Как сделать, так сказать напоминалку. Опешу суть. Есть программа для аренды в которую добавляются данные, в том числе и дата. Как сделать так, что бы программа напоминала мне в день, который задан в listview ну допустим 1.09.2014 сообщение такого рода: "Срок аренды полки истек" ?
Пожалуйста, подскажите! Все облазил, а ответа на этот вопрос так и не нашел... 

Автор: diadiavova 30.8.2014, 18:51
Можно создать задачу в винде. Вот здесь к примеру описание команд есть
http://www.windowsfaq.ru/content/view/83/57/
Единственное, что придется сделать - это написать небольшое приложение, которое и будет запускать планировщик задач, а там уже способ отправки тебе уведомлений определишь сам как захочешь.

Автор: xSD 31.8.2014, 20:33
А можно это сделать как то в программе? И если можно, примерчик... не понимаю...  smile 

Автор: diadiavova 1.9.2014, 16:18
xSD, Здесь требуется уточнение, чего именно ты не понимаешь: работы с планировщиком задач, как запустить команду из программы или как планировщик может помочь тебе с твоей проблемой?

Если ты не в курсе, что такое планировщик задач и какие у него есть возможности, то начать можно отсюда  и вообще порыться в сети не помешает
https://ru.wikipedia.org/wiki/Task_Scheduler
Есть у него и графический интерфейс, для того, чтобы выйти на него либо в меню Пуск открой контекстное меню элемента Компьютер и там выбери Управление, откроется консоль управления MMC и там найдешь Планировщик задач. Либо Панель управления -> Администрирование -> Планировщик задач. Находится программа по адресу %windir%\system32\taskschd.msc, так что можно просто ярлык создать. Дальше разбирайся что это и какие есть возможности для того, чтобы понять значение команд консольного приложения.

Запуск команд из программы выполняется при помощи класса System.Diagnostics.Process и его статического метода Start
Код

Process.Start("schtasks", "аргументы")
Правда в этом случае на мгновение будет выскакивать окно консоли, этого можно избежать, если воспользоваться другой перегрузкой метода, использующей ProcessStartInfo. С его свойствами ознакомься в документации, а так тебе надо будет UseShellExecute установить в Fale, чтобы не выскакивало окно консоли.


Помочь тебе это все может тем, что назначив в задаче запуск твоего приложения уведомлялки ты сможешь уже в его коде просмотреть в датабазе наличие актуальных уведомлений, если они есть вывести для просмотра и назначить новое время запуска.

Помимо работы через команды еще можно подключить объектную библиотеку планировщика задач, для этого добавь в проект ссылку на библиотеку "Task Scheduler 1.1 object library" (это на вкладке COM-компоненты), документация здесь
http://msdn.microsoft.com/en-us/library/aa383614%28v=vs.85%29.aspx
Примеров кода для вбнет там нет, но можно малость переработать примеры для скриптов. Вот, например, скрипт для создания задачи, запускающей по времени блокнот (через полминуты после выполнения скрипта).
http://msdn.microsoft.com/en-us/library/aa383665%28v=vs.85%29.aspx
Вольный пересказ этого скрипта для вбнет вот
Код

    Sub createTask()
        Dim service As New TaskScheduler.TaskScheduler
        service.Connect()
        Dim rootFolder = service.GetFolder("\")
        Dim taskDefinition = service.NewTask(0)
        Dim regInfo = taskDefinition.RegistrationInfo
        regInfo.Description = "Запускает блокнот в указанное время"
        regInfo.Author = "Некто"
        Dim settings = taskDefinition.Settings
        settings.Enabled = True
        settings.StartWhenAvailable = True
        settings.MultipleInstances = TaskScheduler._TASK_INSTANCES_POLICY.TASK_INSTANCES_PARALLEL
        settings.DisallowStartIfOnBatteries = False
        settings.Hidden = False
        Dim triggers = taskDefinition.Triggers
        Dim trigger = triggers.Create(TaskScheduler._TASK_TRIGGER_TYPE2.TASK_TRIGGER_TIME)
        trigger.StartBoundary = Date.Now.AddSeconds(30).ToString("o")
        trigger.EndBoundary = Date.Now.AddMinutes(5).ToString("o")
        trigger.ExecutionTimeLimit = "PT5M"
        trigger.Id = "TimeTriggerId"
        trigger.Enabled = True
        Dim Action = taskDefinition.Actions.Create(TaskScheduler._TASK_ACTION_TYPE.TASK_ACTION_EXEC)
        CType(Action, TaskScheduler.IExecAction).Path = "C:\Windows\notepad.exe"
        rootFolder.RegisterTaskDefinition(
            "Test Time Trigger",
            taskDefinition,
            TaskScheduler._TASK_CREATION.TASK_CREATE_OR_UPDATE,
            Nothing,
            Nothing,
            TaskScheduler._TASK_LOGON_TYPE.TASK_LOGON_INTERACTIVE_TOKEN)

    End Sub
думаю этого вполне достаточно, чтобы начать курить либу, если ты выберешь именно этот способ работы планировщиком.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)