[TC] Скрипт, загрузка ссылки из буфера обмена.
Здравствуйте, Tiflo-Comp!
Дата письма: среда. 17 июня 2015 года! (22:32)
Интересует скрипт, загрузка ссылки из буфера обмена.
Спасибо.
Подписаться
Бесплатный дискуссионный лист
Подписчиков 1.807
За последние 60 дней 479 выпусков (несколько раз в день)
Сайт листа:
http://www.tiflocomp.ru
Открыт:
22-01-2004
Пре-модерация: Нет
Адрес для писем в лист: industry.comp.tiflocomp-list@subscribe.ru
Модератор
Статистика
1.807 подписчиков
0 за неделю
0 за неделю
Ответы:
Здравствуйте Дискуссионный Лист!
Приветствую Вас! Руфат, Адрес: shah***@m*****.ru
Цитата из вашего письма от среда. 17 июня 2015 года! (23:17):
Ответ:
Скрипт не рабочий, не компилируется.
Спасибо!
привет Алексей!
ц
Скрипт не рабочий, не компилируется.
ещё бы в такой то кодировке
ни в блокноте ни вордпате нет разделителей строк
очень красиво выглядит "функция"
returnEndIflet
к тому же плюсование строковых констант и переменных не в любой версии JAWS
прокатывает.
но всё банально
разделить функции и т.д.
и исправить сборку строки
(правда не проверял фактическую работу скрипта чисто исправил ошибки)
Script OpenBrowserFromClipboard (string app)
; Запускает браузер с ссылкой из буфера обмена
; горячка по умолчанию Insert + ctrl + windows + `
; адрес браузера находится в файле Default.jkm, в строке с горячкой
; в папке пользовательских настроек jaws, тамже смотрим назначенную горячку
var
string MyCopyFromClipboard,
string browser,
String Segment1
PlaySound (FindJAWSSoundFile ("Pop.wav"))
let MyCopyFromClipboard = GetClipboardText ()
let Segment1 = StringSegment (MyCopyFromClipboard, "/", 1)
If (Segment1 != "http:") && (Segment1 != "https:") Then
PlaySound (GetSharedSettingsDirectory ()+"\\SOUNDS\\Blatt1.wav")
SayString ("буфер не содержит ссылку")
Return
Else
SayString ("открывается ссылка")
SayString (MyCopyFromClipboard)
EndIf
let browser = app
If FileExists (browser) != TRUE then
PlaySound (GetSharedSettingsDirectory ()+"\\SOUNDS\\Blatt1.wav")
SayString ("Выполняемый файл exe отсутствует")
return
EndIf
let browser = FormatString("\"%1\" %2", browser, MyCopyFromClipboard)
run (browser)
EndScript
Виктор Горелов
Здравствуйте, Виктор.
Вы писали 18 июня 2015 г., 07:29:14:
JAWS
интересное утверждение. ::)
на сколько я понял оно относится к строке:
let browser = FormatString("\"%1\" %2", browser, MyCopyFromClipboard)
пользую этот скрипт с Jaws9 или Jaws10, давненько это уже было, и не
встречал замечаний от компилятора и
так далее. :)
на сегодня теукущая версия Jaws15.
пожалуйста аргументируйте ваше утверждение.
спасибо.
Приветствую всех! Здравствуйте, Кар-Ал .
Чем открывал текст скрипта перед копированием?
разворачивал ли окно текста?
звони, - будем посмотреть! у меня работает.
четверг, 18 июня 2015 г., 8:24 Вами было написано:
Желаю удачи!
-Случайный афоризм-
Все женщины мечтают о ласковом и нежном любовнике. Но, к сожалению, у
ласковых и нежных мужчин уже есть любовники.
Приветствую всех! Здравствуйте, Кар-Ал .
Держи Лёша:
https://yadi.sk/i/zNWN0xVxhK995
четверг, 18 июня 2015 г., 0:33 Вами было написано:
Желаю удачи!
-Случайный афоризм-
По решению Минздрава США с 1.04.1999 каждая упаковка Виагры должна быть
укомплектована дополнительной аварийной таблеткой для опускания обратно.