Announcement

Collapse
No announcement yet.

using VBS to create recurring event starting at specific time

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

    using VBS to create recurring event starting at specific time

    I can sucessfully set up HS events with VBS to run once at a specific time and delete after run. How do I create an event that REPEATS every # minutes STARTING at a specified date/time?

    Here's the basic portion on my create Reminder Script. I'd like to modify it to create a reminder that starts at 5PM and keeps reminding me every 5 minutes until I hear & acknowledge it. Any ideas are welcome.

    'Schedule OneTime Reminder In HomeSeer
    set hs=createobject("Homeseer.Application")

    'variables set up to interface with input-box dialog, here just static
    dim remTitle, remDate, remTime, remWho, remText, remRepeat, remRecur
    remWho = "Master"
    remDate = "03/19/05"
    remTime = "9:18 PM"
    remText = "check sprinklers in front"
    remRepeat = "5" ' repeat every 5 minutes until canceled
    remRecur = "0" 'recreate this event every # of hours or days
    'create the event
    Index = hs.NewEvent(remTitle)
    Set ev = hs.GetEvent(Index)
    ev.misc = &H11 'set flags delete after runs & send email
    ev.group = "Reminders"
    ev.ev_date = remDate
    ev.ev_time = remTime
    ev.ev_abs_time = 0
    ev.ev_wav_path = "c:\`sounds\reminder.wav"
    ev.speech = "This is a reminder for " & remWho & remText
    ev.ev_mail_to = "myphone@vmobl.com"
    ev.ev_mail_subj = remWho & remText
    set ev = nothing
    'acknowledge creating event
    hs.speak "I've created this reminder for " & remWho
Working...
X