[prg] C++

в таких случаях я задаю первый вопрос: зачем она вам вообще нужна? я клоню
вот
к чему. для новичков с точки зрения эксплуатации проще C++ express -
там и пунктов меню меньше, ну и всяких подцветок и подсказок, которые
хороши для зрячего, но пользователя программ экранного доступа только
сбивают. однако в express версии нет mfc, а также из неё невозможно
подключится к базе данных ms sql и т.д. так что повторюсь,
определитесь зачем она вообще вам нужна, и какие задачи с её помощью
вы планируете решать.

Здравствуйте!
Имеется код:
CreateObject("SAPI.SpVoice").Speak "Hello"
Данный синтезатор по-русски читать не умеет: молчит, как рыба.
Как предварительно определить какие синтезаторы установленны на системе, и
какой из них русский.
Спасибо.

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

'On Error Resume Next

Set tts = CreateObject("SAPI.SpVoice")
' Отбираем только русские голоса.
set voices = tts.GetVoices("Language=419")
FOR EACH v in voices
name = v.getAttribute("Name")
set tts.Voice = v
tts.Speak name & " Привет, мужики!"
NEXT

Здравствуйте!
Имеется строковая переменная, ввиде ссылки на интернет страницу.
Подскажите: как ее передать браузеру по-умолчанию?
Если можно, то еще и отдельно эксплореру и моззиле.
Спасибо.

Здравствуйте, Александр.

set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run string

WshShell.Run "iexplore " & string

WshShell.Run "firefox " & string

Успехов. Никита.

-----BEGIN PGP SIGNED MESSAGEHash: SHA1

здравствуйте.

при отправке писем в эту рассылку проходит очень большоетвремя перерд
появлении моего сообщения.

такое чувство что я на премодерации только вот не понемаю по какому
поводу?
-----BEGIN PGP SIGNATUREVersion: GnuPG v1.4.13 (MingW32)
Comment: Using GnuPG with Thunderbird - http://www.enigmail.net/

iQEcBAEBAgAGBQJTqaFPAAoJEHGoyj0cg6hZSCYIAK9SIeBOcvkZQ01fE9wB4r3z
oVZzGWLUbvYG1sexgFtgq9/l5C3Qr5jMm+IaSv1xDxCTjIxjjHZVmk/dPeAArB4n
K1ovd6nVO1BibAtbJlfGKxcr9/Ct4/dZpBECUpXvFtnNMevSBnfQV2M/FAX5BsJ9
uy3fXt2I/dicnCwiYQDjnuqeDbxSpMFxkqzyMYtaqt7E8FQGquPwSEySjGy1N+nj
Gvtr7hFFTSvS1sFyMUl7L/ilOrk/M1LXvkaWkh3qgikK/lvZ3rp3hxZN/ozKpa7N
v7oGKEnY2/i5Ka/ZUUzBBxsNk+DgfNuZj8Bbd00ZnEVHRvFZit2IOF5LZt0FW+k=
=/Yed
-----END PGP SIGNATURE--
Дискуссионный лист: "Особое программирование: лист для незрячих программистов"
Мод.группа: Владимир Довыденков, Евгений Шеховцов, Игорь Лялин, Анатолий Камынин, Олег Шахрай.
Сайт листа: http://www.tiflocomp.ru/
Правила листа: http://subscribe.ru/catalog/industry.comp.tiflocomp.programming/rules
Заказать правила по почте: industry.comp.tiflocomp.programming-rules@subscribe.ru
Общий модераторский адрес: industry.comp.tiflocomp.moders-list@subscribe.ru
Количество подписчиков: 141 Всего писем: 502
Адрес этого сообщения в архиве: http://subscribe.ru/archive/industry.comp.tiflocomp.programming/msg/3061374

Предупреждение подписчику "beqa" <vadik007***@m*****.ru>:
1. Все вопросы, касающиеся функционирования рассылки, следует направлять на
общий модераторский адрес, который указан в "подвале" каждого сообщения.
2. Уберите весь "мусор" из сообщений, иначе точно попадёте на премодерацию.
3. Не надо дублировать свои сообщения в рассылку.

Комодератор Анатолий Камынин.
Исходное сообщение От: "beqa" <vadik007***@m*****.ru>
Отправлено: 24 июня 2014 г. 19:03
Тема: [prg] тормоза при появлении моих писем в рассылке

WshShell.Run "iexplore " & string
Здравствуйте, Никита!
Спасибо.
Сам виноват, строку лепил внутри кавычек. А по-умолчанию не догадался, что
винда сама подхватит.

Предупреждение подписчику "Александр" <alexandrsokol***@y*****.ru>:
1. Благодарности следует направлять на личный адрес того человека, которого
вы хотите поблагодарить.

Комодератор Анатолий Камынин.
Исходное сообщение От: "Александр" <alexandrsokol***@y*****.ru>
Отправлено: 24 июня 2014 г. 19:15
Тема: [prg] Re[2]: VBScript: передать ссылку браузеру.

Здравствуйте!
Подскажите, как в строковую переменную добавить кавычку.
Еще есть функция, не могу найти, добавление символа по номеру, подскажите.
Спасибо.

Забыл написать, что простое дублирование просто отрубает строку после
дублированной кавычки.

Здравствуйте, Александр.

let sString = "one \" two"
или
let sString = "one \34 two"

Я, конечно, давно в скриптах не практиковался, но по-моему там такой
встроенной функции нет.
Можно написать свою:

string Function ChrW (int iDecimalCode)
var
string sChr,
object oScriptControl
let oScriptControl = CreateObject ("ScriptControl")
If !oScriptControl then
let sChr = ""
Else
let oScriptControl.Language = "vbscript"
let sChr = oScriptControl.Eval ("ChrW (" + IntToString
(iDecimalCode) + ")")
EndIf
let oScriptControl = null ()
Return sChr
EndFunction

Если вдруг найдёте встроенный аналог, то напишите, - я отрежу себе руки,
которыми это написал, бритвой Оккама.
Успехов. Никита.

привет всем.
читаю курс по javascript, там утверждается что браузер от майкрософт,
Internet Explorer
не работает с циклом foreach. но я написал кусок кода с циклом, запустил
файл ослом , всё отработало как надо.
вопрос, авторы заблуждаются? или за год Internet Explorer стал всё-таки
работать с этим циклом?

Здравствуйте!
В скрипте JAWS не получаеться создать объект ScriptControl:
object o
Let o = CreateObject ("ScriptControl")
If !o Then
Say("объект не создан",0)
EndIf

Решил проверить на VBScript и JScript:
Код VBScript:
set o= CreateObject("ScriptControl")
o.Language ="vbscript"
a=o.eval ("""Послезавтра будет ""&DateAdd(""d"",2,Date)")
msgbox a

файл:
https://yadi.sk/d/t0B4xYAdX9eoM

код JScript:
o = WScript.CreateObject("ScriptControl");
o.Language ="vbscript";
a=o.eval ('"Послезавтра будет "&DateAdd("d",2,Date)');
WScript.Echo(a);

файл:
https://yadi.sk/d/0YrIXe1nX9eqy

В обоих примерах вставлен код на VBScript. Такое извращение только для
примера. Из проводника не запускаются. В первом примере, на VBScript выдает:
Сценарий: C:\1\1.vbs Строка: 1 Символ: 1 Ошибка: Невозможно создание объекта
контейнером ActiveX: 'ScriptControl' Код: 800A01AD Источник: Ошибка
выполнения Microsoft VBScript
Запуск второго из проводника выдает:
Сценарий: C:\1\1.js Строка: 1 Символ: 1 Ошибка: Не удается создать объект с
именем "ScriptControl". Код: 80040154 Источник: WScript.CreateObject
Оба скрипта можно запустить без всяких проблем либо из Total Commander
обычным нажатием Enter, либо из коммандной строки прописав полный путь:
c:\windows\syswow64\wscript.exe c:\1\1.vbs
или для второго:
c:\windows\syswow64\wscript.exe c:\1\1.js
Подскажите в чем проблема?
Что это, настройки безопасности, или какую библиотеку надо
перерегистрировать? Если да, то что крутить?
Другие объекты, например:MSXML2.XMLHTTP , Shell.Application ,
Scripting.FileSystemObject и др., создаются без проблем и скрипты
запускаются с любого места.
На всякий случай скачал и установил:
http://www.microsoft.com/en-us/download/details.aspx?displaylang=en&id=1949
Система Windows 7 Prof, 64 бит.
Спасибо.

Доброго времени суток!

Написал скрипт,который читает текст в заданном окне. Но потом захотел,чтобы
текст читался автоматически. Т.е. преобразовать скрипт в функцию,но ничего
не получается. Видимо знаний совсем мало,да и со скриптами уж с 1,5 лет, дел
не имел.
Вот тело скрипта:
*
Var

Handle hWnd,

String Description

Let hWnd=FindDescendantWindow(GetRealWindow(GetFocus() ), 2145)

Let Description =GetWindowText (hWnd, False)

SayString (Description)

*

Это все работает. По нажатию клавиши,читает все как надо.

А когда попытался написать функцию "SayNonHighlightedText",то потерпел
фиаско.

Вот,что примерно изобретало мое больное сознание:

*

Void Function SayNonHighlightedText (handle hwnd, string Description)

if (GetControlID (HWND) == 2145) then

Let Description =GetWindowText (hWnd, False)

return

EndIf

SayNonHighlightedText (hWnd, Description)

EndFunction

*

Буду очень благодарен за помощь!

всех благ!

Т'Сад

-----BEGIN PGP SIGNED MESSAGEHash: SHA1

Dim iURL
Dim objShell

iURL = "www.tiflocomp.ru"

set objShell = CreateObject("WScript.Shell")
objShell.run(iURL)
-----BEGIN PGP SIGNATUREVersion: GnuPG v1.4.13 (MingW32)
Comment: Using GnuPG with Thunderbird - http://www.enigmail.net/

iQEcBAEBAgAGBQJTqZSxAAoJEHGoyj0cg6hZCa4H/j9z2XflwcJXPaubArEH5Qvc
3wT7eBPGrA4wAiTPBYx6hu/3KzyAqSsMDm0tYjhLe7VMHf2haUpnZrKdWOs/FThX
xi4Q8k+ziUdG/mzK529lPWEemxxj08gjoNpF8zVaGzPcM+vr9XyVRhKZnovcqvBW
Cyao7HfY5F7sP+lqcNPqj40EACh6vs44ece6/tj3KMcvR28BCanznKdnYAWH9HSq
IPANagOXRG8X72zzJGJQukI0Wwa+J2YFrqy9pAWE0bhrPCc5WZnuO55RQf2raHDl
K2DBad/yA4vVbRfKntFHfb9fv16nJ7T1BXg8f/0V59mxB4EHch3XRvTgRpZ20MI=
=eYwR
-----END PGP SIGNATURE--
Дискуссионный лист: "Особое программирование: лист для незрячих программистов"
Мод.группа: Владимир Довыденков, Евгений Шеховцов, Игорь Лялин, Анатолий Камынин, Олег Шахрай.
Сайт листа: http://www.tiflocomp.ru/
Правила листа: http://subscribe.ru/catalog/industry.comp.tiflocomp.programming/rules
Заказать правила по почте: industry.comp.tiflocomp.programming-rules@subscribe.ru
Общий модераторский адрес: industry.comp.tiflocomp.moders-list@subscribe.ru
Количество подписчиков: 141 Всего писем: 500
Адрес этого сообщения в архиве: http://subscribe.ru/archive/industry.comp.tiflocomp.programming/msg/3061348

-----BEGIN PGP SIGNED MESSAGEHash: SHA1

CreateObject("WScript.Shell").Run("http://www.tiflocomp.ru")
-----BEGIN PGP SIGNATUREVersion: GnuPG v1.4.13 (MingW32)
Comment: Using GnuPG with Thunderbird - http://www.enigmail.net/

iQEcBAEBAgAGBQJTqZK3AAoJEHGoyj0cg6hZVmEH/34hcWKdk97E7Z21byQOSRim
fSetOmnB2m8OMtS4NnqiNstNTFiAI/PQR9E1S6JY0eafn84HK6vlW+xHJgsnsv/B
p9CN/EAXRD24eC3ALxHrGMYqcUgpLs3nglLMPrgCWY3MIpZoZNYdZGgAf04MFIWk
kPbPUAjkN771k+Nwlgi6mIyx+rkPZO9EO5Aqr4vDFXz+6JyB74Rhj5KmF/67Bjev
q9lRPqg/9bQPmZ1NsU6BIzc+dgOp2o5DBDew40OCk7du5uxExjb8tvlQ+GV84+5D
36FBLjf6AFdooIXZl94N1sC5f6LCSwE3qbER/si8Dj0ykURme3JEalB2hvlUzoA=
=95ZZ
-----END PGP SIGNATURE--
Дискуссионный лист: "Особое программирование: лист для незрячих программистов"
Мод.группа: Владимир Довыденков, Евгений Шеховцов, Игорь Лялин, Анатолий Камынин, Олег Шахрай.
Сайт листа: http://www.tiflocomp.ru/
Правила листа: http://subscribe.ru/catalog/industry.comp.tiflocomp.programming/rules
Заказать правила по почте: industry.comp.tiflocomp.programming-rules@subscribe.ru
Общий модераторский адрес: industry.comp.tiflocomp.moders-list@subscribe.ru
Количество подписчиков: 141 Всего писем: 501
Адрес этого сообщения в архиве: http://subscribe.ru/archive/industry.comp.tiflocomp.programming/msg/3061369

Здравствуйте!
Подскажите, как воспроизвести строку через JAWS API в C# , как в AutoIt
$oJawsApi= ObjCreate("FreedomSci.JawsApi")
$oJawsApi.SayString("Hello, world!")
Заранее спасибо.

Приветствую всех.
Рабочий фрагмент для .Net 3.5:

Type jfwApi = Type.GetTypeFromProgID("FreedomSci.JawsApi");
object o = Activator.CreateInstance( jfwApi);
jfwApi.InvokeMember("SayString",
System.Reflection.BindingFlags.InvokeMethod,
null,
o,
new Object[1] {"Hello"});

Для .Net 4.0 есть вариант и попроще.

Исходное сообщение > Подскажите, как воспроизвести строку через JAWS API в C# , как в AutoIt

Здравствуйте Анатолий. Вы писали

Не могли бы вы пожалуйста рассказать поподробнее вариант для net 4.0 и
заодно про то,как работать в c# с api nvda. Заранее благодарю вас за
подробное разъяснение и за исходники примеров.

Приветствую всех.
В .net 4.0 должен работать пример для .Net 3.5, но также вполне пригоден
следующий вариант (фрагмент):
Type jfwApi = Type.GetTypeFromProgID("FreedomSci.JawsApi");
dynamic o= Activator.CreateInstance( jfwApi);
o.SayString("hello");

Насколько я помню, в NVDA API нет COM-объекта, поэтому изучайте как в C#
вызывать функции из DLL, написанных на C/C++. Материал в сети есть.
Исходное сообщение > Не могли бы вы пожалуйста рассказать поподробнее вариант для net 4.0 и

а к экспертам в этой среде у меня вот какой вопрос: нельзя ли
как-нибудь отключить всякие подцветки и подсказки, в 2008 версии на
C++ пишется в принципе нормально, если писать консольные приложения.
однако в 2012 версии невозможно ошибится - ты например пишешь cstring
вместо string и он что-то подчёркивает и предлагает свои варианты и в
это время звук пропадает. как кто из опытных с этим справляется ?
п.с. особенно не удобно писать что-либо на C# winforms.
С уважением,
Константин mailto:minore04***@y*****.ru

Я для разработки, использую:
free commander + akelpad + windows sdk | mingw + cmd.
Если подстроить, то можно работать. Ничего лишнего не мешает. Хотя
дополнительных действий, надо делать много.

visual studio мне не нравится. Дерево с файлами проектов тормозит. При
написании кода, всё время что-то мешает. Отключал всё, что мог, но
мешает. Надоело - плюнул.

Пробовал много разного, но не пошло: code lite, dev c++, code::block.
Из редакторов, ещё notepad++, gvim.
Ну, не нашенский там интерфейс.

А в прочем, будет интересно узнать, что ещё можно использовать?

Может быть самим, что-нибудь для себя написать?