iNNOKENTIY21
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код:
' Объект speak API (разговорный движок)
Set Sapi = Wscript.CreateObject("SAPI.SpVoice")
' Начало утра
Private Const startMorning = 4
' Начало дня
Private Const startDay = 10
' Начало вечера
Private Const startEvening = 16
' Начало ночи
Private Const startNight = 22
' Утреннее приветствие
Private Const SayMorning = "Доброе утро!"
' Дневное приветствие
Private Const SayDay = "Добрый день!"
' Вечернее приветствие
Private Const SayEvening = "Добрый вечер!"
' Ночное приветствие
Private Const SayNight = "Доброй ночи!"
' Текущий час
Dim currentHour
currentHour = Hour(Time)
' Если текущий час больше или равен началу утра и текущий час меньше начала дня, то произнести Утреннее приветствие
if (currentHour >= startMorning AND currentHour < startDay) then Sapi.speak SayMorning
' Если текущий час больше или равен началу дня и текущий час меньше начала вечера, то произнести Дневное приветствие
if (currentHour >= startDay AND currentHour < startEvening) then Sapi.speak SayDay
' Если текущий час больше или равен началу вечера и текущий час меньше начала ночи, то произнести Вечернее приветствие
if (currentHour >= startEvening AND currentHour < startNight) then Sapi.speak SayEvening
' Если текущий час больше или равен началу ночи и текущий час меньше или равен 23 (последний час в сутках), то произнести Ночное приветствие
if (currentHour >= startNight AND currentHour <= 23) then Sapi.speak SayNight
' Если текущий час больше или равен 0 (полуночи) и текущий час меньше начала утра, то произнести Ночное приветствие
if (currentHour >= 0 AND currentHour < startMorning) then Sapi.speak SayNight
' Произнести текущее время
Sapi.speak "Текущее время"
Sapi.speak Time
|
|
