[TC] погодная программа meteovoice 14:48 10:05
Здравствуйте, industry.
Jaws В списке городов не тормозит, однако уж больно ограничен этот
список: к примеру областного города киров даже нет, хотя на сайте
метеоновы он присутствует!
Чем глубже мужчина в компьютере, тем меньше у него женщин.
Приветствую всех!
Хочу в свою очередь тоже предложить погодную программу указанную в
теме. в настройках указываете свой город,
чтобы узнать прогноз, 2 раза клавишей tab по значку в системном трее,
затем энтэр, или пробел.
для пользователей jaws, ещё можно узнавать прогноз, по горячим клавишам,
если применить ниже написанный скрипт,
который возможно применить к любой программе, висящей в трее.
в файл default.jss прописываем следующие строки:
Script SayIconStatus (string SetOfTemplates01, string SetOfTemplates02,
string SetOfTemplates03, string SetOfTemplates04, string SetOfTemplates05,
string SetOfTemplates06, string SetOfTemplates07, string SetOfTemplates08,
string SetOfTemplates09, string SetOfTemplates10)
; скрипт озвучивающий состояние значка в трее, причём в качестве параметра
скрипта передаётся подстрока для поиска значка.
var
StringArray SetOfTemplates, ; массив состоящий из набора шаблонов
передаваемых в скрипт через параметры скрипта
string sTrayTip,
string result, ; переменная содержащая все параметры для озвучки диагностики
int iTrayItems,
int iCounter,
int iCounterArray = 0, ; число параметров передаваемое в скрипт
int iNumberArray = 1, ; счётчик по массиву
string sIconTip
let SetOfTemplates = new StringArray[10] ; массив состоящий из наборов
шаблонов не превышает 10 эллементов
PlaySound (GetSharedSettingsDirectory ()+"\\SOUNDS\\Click.wav")
; заполняем массив параметрами из скрипта
If StringLength (SetOfTemplates01) != 0 Then
let SetOfTemplates[1] = SetOfTemplates01
Let iCounterArray = iCounterArray + 1
Else
PlaySound (GetSharedSettingsDirectory ()+"\\SOUNDS\\PianoDown2-E-D.wav")
SayString ("Параметр в скрипте для поиска не задан. Скрипт прекращает
работу.")
Return
EndIf
If StringLength (SetOfTemplates02) != 0 Then
let SetOfTemplates[2] = SetOfTemplates02
Let iCounterArray = iCounterArray + 1
EndIf
If StringLength (SetOfTemplates03) != 0 Then
let SetOfTemplates[3] = SetOfTemplates03
Let iCounterArray = iCounterArray + 1
EndIf
If StringLength (SetOfTemplates04) != 0 Then
let SetOfTemplates[4] = SetOfTemplates04
Let iCounterArray = iCounterArray + 1
EndIf
If StringLength (SetOfTemplates05) != 0 Then
let SetOfTemplates[5] = SetOfTemplates05
Let iCounterArray = iCounterArray + 1
EndIf
If StringLength (SetOfTemplates06) != 0 Then
let SetOfTemplates[6] = SetOfTemplates06
Let iCounterArray = iCounterArray + 1
EndIf
If StringLength (SetOfTemplates07) != 0 Then
let SetOfTemplates[7] = SetOfTemplates07
Let iCounterArray = iCounterArray + 1
EndIf
If StringLength (SetOfTemplates08) != 0 Then
let SetOfTemplates[8] = SetOfTemplates08
Let iCounterArray = iCounterArray + 1
EndIf
If StringLength (SetOfTemplates09) != 0 Then
let SetOfTemplates[9] = SetOfTemplates09
Let iCounterArray = iCounterArray + 1
EndIf
If StringLength (SetOfTemplates10) != 0 Then
let SetOfTemplates[10] = SetOfTemplates10
Let iCounterArray = iCounterArray + 1
EndIf
; конец блока заполнения масива параметрами скрипта
let iTrayItems = SysTrayGetItemCount ()
; начинаем перебор по массиву
while iNumberArray <= iCounterArray
Let sTrayTip= SetOfTemplates[iNumberArray]
Let result = result + "\"" + sTrayTip + "\", "
let iCounter= 0
while StringContains (sIconTip, sTrayTip) == 0 && iCounter <= iTrayItems
let iCounter=ICounter+1
let sIconTip = SysTrayGetItemToolTip (iCounter)
endwhile
; итак, если подстрока была найдена, то выполняем проверку на количество
нажатий скрипта
If StringContains (sIconTip, sTrayTip) != 0 Then
; проверяем количество нажатий скрипта
if IsSameScript() == 1 then
sayUsingVoice(vctx_message,"Opening your " + sIconTip,
ot_no_disable)
saveCursor()
SysTrayMoveToItem (iCounter)
LeftMouseButton ()
leftMouseButton()
restoreCursor()
return
endIf
sayUsingVoice(vctx_message,sIconTip,ot_no_disable)
Return
EndIf
Let iNumberArray = iNumberArray + 1
endwhile
; озвучиваем все шаблоны из списка иговорим, что они не найдены
; say(result + " not found",ot_error)
If iCounterArray <= 1 Then
say(sTrayTip + " not found",ot_error)
Else
say(" Options not found",ot_error)
EndIf
EndScript
по ctrl + s компилируем скрипт.
затем в файле default.jkm, открыв его через блокнот, в секцию [Common Keys]
вписываем такую строку:
Control+Windows+Alt+/=SayIconStatus("Gismeteo: ")
сохраняем изменения.
по двойному нажатию данной горячей клавиши, джоз
будет произносить прогноз.
в default.jkm можете прописать свои сочитания
клавиш.
для пользователей windows8.1, и win10, программу
запускать от имени администратора.
ссылка на
программу:
https://cloud.mail.ru/public/6gYH/1cxP22973
Желаю
удачи!
-Случайный афоризм-
Если у общества нет цветовой дифференциации штанов - то нет цели...
(C)Кин-Дза-Дза
--