STNG
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Предлагаю вашему вниманию скрипт для интеграции менеджера закачек FlashGet в Opera, обладающий расширенными возможностями. Скрипт встраивается в меню выделенного текста (Hotclick popup menu) и позволяет "на лету" добавлять в закачку FlashGet "искаженные" текстовые ссылки наподобие:
_hxxp://server.com/file.zip
H__P://server.com/file.zip,
h**p://server.com/file.zip)
_хттп://server.com/file.zip!
_f*p://server.com/file.zip?
... и тому подобные ссылки, которые скрипт сначала конвертирует в нормальный вид, а затем передает на закачку.
Кроме того, к ссылкам вида "www.server.com/file.zip" (без указания протокола "http://") автоматически добавляется приставка "http://". А к ссылкам вида "ftp.server.com/file.zip" добавляется приставка "ftp://". Вам больше не понадобится вручную копировать, исправлять, и затем добавлять ссылки в менеджер закачек - все это за вас сделает скрипт.
Установка
1. Сохранить нижеприведенный код в текстовый файл под именем flashget.vbs . Этот файл необходимо разместить в основном каталоге Opera.
Код:
Dim desc
desc=""
ref=""
addr=""
if WScript.Arguments.Count>1 then
desc=WScript.Arguments(1)
end if
if WScript.Arguments.Count>2 then
ref=WScript.Arguments(2)
end if
addr = WScript.Arguments(0)
if Left(addr,5) = "href=" Then addr = Right(addr,Len(addr)-5)
if Left(addr,1) = "(" Then addr = Right(addr,Len(addr)-1)
if Left(addr,1) = Chr(34) Then addr = Right(addr,Len(addr)-1)
if Left(addr,1) = "<" Then addr = Right(addr,Len(addr)-1)
if Left(addr,1) = "_" Then addr = Right(addr,Len(addr)-1)
if Left(addr,1) = "<" Then addr = Right(addr,Len(addr)-1)
if Left(addr,1) = "-" Then addr = Right(addr,Len(addr)-1)
If Right(addr,1) = "." Then addr = Left(addr,Len(addr)-1)
If Right(addr,1) = "," Then addr = Left(addr,Len(addr)-1)
If Right(addr,1) = "?" Then addr = Left(addr,Len(addr)-1)
If Right(addr,1) = "!" Then addr = Left(addr,Len(addr)-1)
If Right(addr,1) = ":" Then addr = Left(addr,Len(addr)-1)
If Right(addr,1) = ";" Then addr = Left(addr,Len(addr)-1)
If Right(addr,1) = ")" Then addr = Left(addr,Len(addr)-1)
If Right(addr,1) = "(" Then addr = Left(addr,Len(addr)-1)
If Right(addr,1) = ">" Then addr = Left(addr,Len(addr)-1)
If Right(addr,1) = Chr(34) Then addr = Left(addr,Len(addr)-1)
addr = Replace(addr,"hxxp://", "http://")
addr = Replace(addr,"hххp://", "http://")
addr = Replace(addr,"hччp://", "http://")
addr = Replace(addr,"HЧЧP://", "http://")
addr = Replace(addr,"HXXP://", "http://")
addr = Replace(addr,"hXXp://", "http://")
addr = Replace(addr,"HxxP://", "http://")
addr = Replace(addr,"хттп://", "http://")
addr = Replace(addr,"ХТТП://", "http://")
addr = Replace(addr,"h__p://", "http://")
addr = Replace(addr,"H__P://", "http://")
addr = Replace(addr,"h**p://", "http://")
addr = Replace(addr,"H**P://", "http://")
addr = Replace(addr,"fxp://", "ftp://")
addr = Replace(addr,"fхp://", "ftp://")
addr = Replace(addr,"FXP://", "ftp://")
addr = Replace(addr,"f*p://", "ftp://")
addr = Replace(addr,"F*P://", "ftp://")
addr = Replace(addr,"f_p://", "ftp://")
addr = Replace(addr,"F_P://", "ftp://")
addr = Replace(addr,"фтп://", "ftp://")
addr = Replace(addr,"ФТП://", "ftp://")
addr = Replace(addr,"hxxps://", "https://")
addr = Replace(addr,"HTTP://", "http://")
addr = Replace(addr,"Http://", "http://")
addr = Replace(addr,"HTTPS://", "https://")
addr = Replace(addr,"Https://", "https://")
addr = Replace(addr,"FTP://", "ftp://")
addr = Replace(addr,"Ftp://", "ftp://")
addr = Replace(addr,"MMS://", "mms://")
addr = Replace(addr,"Mms://", "mms://")
addr = Replace(addr,"RTSP://", "rtsp://")
addr = Replace(addr,"Rtsp://", "rtsp://")
if Left(addr,4) = "ftp." then
addr = "ftp://" + addr
elseif Left(addr,7) <> "http://" and Left(addr,6) <> "ftp://" and Left(addr,8) <> "https://" and Left(addr,6) <> "mms://" and Left(addr,7) <> "rtsp://" then
addr = "http://" + addr
end if
AddLink addr, desc, ref
'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
|
2. Отредактировать INI-файл используемого меню.
Добавить в секции [Link Popup Menu], [Image Link Popup Menu]
строку
Код:| Item, "Download with FlashGet" = Execute program, "wscript", "//NOLOGO flashget.vbs %l %T %u" |
Добавить в секцию [Hotclick Popup Menu] строку
Код:| Item, "Download with FlashGet" = Execute program, "wscript", "//NOLOGO flashget.vbs %t %T %u" |
Примечание: редактировать и сохранять INI-файл нужно только в кодировке UTF-8.
Использование
1. Выделить текстовую ссылку, которую необходимо добавить в закачку. Выделять ссылку можно даже со знаками препинания в конце или в начале ссылки (лишние знаки автоматически отсеиваются).
2. Выбрать в выпадающем меню выделенного текста пункт "Download with FlashGet".
Для загрузки активных сылок используется пункт контекстного меню ссылок "Download with FlashGet". При этом, выделенный на странице текст передается в качестве описания закачки в FlashGet.
Для большего удобства, передачу ссылок через скрипт в FlashGet можно назначить на произвольный жест мыши или хоткей, которым необходимо присвоить следующие действия:
Execute program, "wscript", "//NOLOGO flashget.vbs %l %T %u"
(для активных ссылок. назначается на жест)
Execute program, "wscript", "//NOLOGO flashget.vbs %t %T %u"
(для текстовых ссылок. назначается как на жест, так и на хоткей)
|
Всего записей: 625 | Зарегистр. 14-05-2004 | Отправлено: 16:26 27-12-2005 | Исправлено: STNG, 20:24 28-12-2005 |
|
). Аккуратней пользоваться cpp_adblock , т.к. можно заблокировать адрес всей страницы, что по всей вероятности и произошло.
