[TC] Язык VBS
Здравствуйте, Tiflo-Comp!
Дата письма: вторник. 17 июня 2014 года! (15:30)
Просьба:
Оброщаюсь к тем, кто разберается в языке VBS.
Помогите дописать вот этот файлик:
mw=array("января","февраля","марта","апреля","мая","июня","июля","августа","сентября","ноября","декабря")
msgbox WeekdayName(weekday(date),false, vbSunday)&" "&day(date)&"
"&mw(month(date)-1)&" "&year(date)& " года"
Всё классно, файлик работает.
Но появилась другая задача:
Надо чтоб при нажатия на файл,
чтоб синт сообщил только информацию,
а не выскакивала кнопка, Ok,
а то приходится закрывать диалог.
Этот файлик в дальнейшом будет использован в батнике.
Думаю вы поняли мою задачу, :)
Спасибо!
Здравствуйте, Кар-Ал.
Говорить надо через что-то, поэтому тут могут быть варианты, например, либо
через SAPI5, либо через JAWS.
Вариант с произнесением через SAPI5:
mw=array("января","февраля","марта","апреля","мая","июня","июля","августа","сентября","ноября","декабря")
CreateObject ("SAPI.SpVoice").Speak WeekdayName(weekday(date),false,
vbSunday)&" "&day(date)&" "&mw(month(date)-1)&" "&year(date)& " года"
Вариант с произнесением через JAWS:
mw=array("января","февраля","марта","апреля","мая","июня","июля","августа","сентября","ноября","декабря")
CreateObject ("FreedomSci.JawsApi").SayString
WeekdayName(weekday(date),false, vbSunday)&" "&day(date)&"
"&mw(month(date)-1)&" "&year(date)& " года"
Успехов. Никита.