noisy
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
как заставить работать FlashGet из контекстного меню Оперы
Макс Белугин (Max Belugin) написал маленький скриптик addlink.vbs,
с доработкой от Мангуста
Скопируй файл addlink.vbs в папку браузера.
В своём файле меню в разделы [Link Popup Menu], [Image Link Popup Menu] добавь следующую строку:
Item, "Загрузить с помощью FlashGet" = Execute program, "wscript", "//NOLOGO addlink.vbs %l %T %u"
а в раздел [Hotclick Popup Menu] — строку:
Item, "Загрузить с помощью FlashGet" = Execute program, "wscript", "//NOLOGO addlink.vbs %t %T %u"
Перезагрузи браузер.
Во FlashGet отключи опцию "Следить за буфером обмена", чтобы ссылка не добавлялась дважды.
Чтобы закачка добавлялась без запроса, в меню "Сервис/Настройки" в закладке "Прочие" сними галку с "Запрос подтверждения при добавлении URL через меню "Закачать при момощи FlashGet"
Название опции и путь к файлу (если нужен) можешь отредактировать по вкусу.
После всего вышепроделанного выдели любой текст (он будет комментарием к закачке), кликни на нужной ссылке правой кнопкой мыши и в контекстном меню выбери пункт "Загрузить с помощью FlashGet" - закачка будет передана во FlashGet, и поля описания и источника ссылки (referrer) будут правильно заполнены.
Если FlashGet не был предварительно запущен, то он автоматически запустится.
содержание adlink.vbs:
Dim desc
desc=""
ref=""
if WScript.Arguments.Count>1 then
desc=WScript.Arguments(1)
end if
if WScript.Arguments.Count>2 then
ref=WScript.Arguments(2)
end if
AddLink WScript.Arguments(0), desc, ref
Sub AddLink(ByVal Url, ByVal Info, ByVal Refer)
set JetCarCatch=CreateObject("JetCar.Netscape")
JetCarCatch.AddUrl Url, Info, Refer
end sub
взято с http://myopera.net |
