Отправляет email-рассылки с помощью сервиса Sendsay

[TC] погодная программа meteovoice 14:48 10:05

Здравствуйте, industry.

Jaws В списке городов не тормозит, однако уж больно ограничен этот
список: к примеру областного города киров даже нет, хотя на сайте
метеоновы он присутствует!

Чем глубже мужчина в компьютере, тем меньше у него женщин.

Ответить   Thu, 19 May 2016 14:57:08 +0500 (#3402311)

 

Ответы:

Приветствую всех!

Хочу в свою очередь тоже предложить погодную программу указанную в
теме. в настройках указываете свой город,
чтобы узнать прогноз, 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)Кин-Дза-Дза
--

Ответить   Thu, 19 May 2016 17:24:21 +0400 (#3402373)

 

Здравствуйте, Михаил.

Вы писали 19 мая 2016 г., 12:57:08:

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

Ответить   Thu, 19 May 2016 21:13:30 +0300 (#3402491)

 

Здравствуйте, Владислав.

Вы писали 20 мая 2016 г., 1:13:30:

Если это реально, можно сделать что бы пользователь сам добовлял свои
города?

Ответить   Fri, 20 May 2016 10:17:26 +0700 (#3402590)

 

Всем привет!

Предлагаю еще одну удобную программу для чтения прогноза погоды в вашем
городе.
Ссылка на закачку
http://www.fayloobmennik.net/6221140

--
Удачи!

Ответить   Fri, 20 May 2016 17:25:13 +0300 (#3402771)

 

здравствуйте Сергей! появился вопрос,как выбрать свой город? с уважениием
Сергей.

Ответить   Fri, 20 May 2016 21:14:38 +0500 (#3402820)

 

Привет, сергей!

А разве он там автоматически не определяется?

--
Удачи!

Ответить   Fri, 20 May 2016 19:26:05 +0300 (#3402821)

 

здравствуйте Сергей! отображается Нижний новгород. с уважением сергей!

Ответить   Fri, 20 May 2016 21:42:14 +0500 (#3402826)

 

добрый вечер. нет, там Москва:)

Ответить   Fri, 20 May 2016 20:27:57 +0300 (#3402858)

 

Добрый вечер! Программа читает прогноз погоды в том городе, где Вы
находитесь. С уважением, Татьяна.

Ответить   Fri, 20 May 2016 22:55:00 +0500 (#3402888)

 

здравствуйте, скажите пожалуйста, как создать play list на прогноз
погоды от метеоновы на конкретный населённый пункт?
спасибо.

Ответить   Fri, 20 May 2016 19:41:50 +0500 (#3402874)

 

Приветствую всех! Здравствуйте, Минин Александр .

зайдите по адресу:
http://wap.meteonova.ru
и выбирайте свой город.
после этого жмите на ссылку вашего города и перейдя на загруженную страницу
получите и голосовое прочтение и погоду в удобном ввиде.
ссылку голосового сообщения можете сохранить и пользоватся уже только ей.
можно ту же ссылку получить и например через миранду.
добавляете номер:
587139424
в сообщении пишите свой город латиницей и отправляете его.
в ответ получите погоду и голосовую ссылку в придачу.

чтобы создать m3u файл,
закатайте данную ссылку в текстовый документ txt,
сохраните, затем переименуйте в m3u с сохранением.
пятница 20 мая 2016 год!, 18:41 Вами было написано:

Желаю удачи!
-Случайный афоризм-
- Все-таки, Беларусь - страна оригинальная и загадочная. - Почему? - А где
ты еще видел государство, названное в честь трактора?
--

Ответить   Sat, 21 May 2016 01:19:56 +0400 (#3402963)