STNG
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
CkopnuoH
Цитата:| Есть вопросик (извиняюсь, если раньше уже был задан). Необходимо вставить строку "Загрузить ReGet-ом" в менюшку, которая вылазит, когда нажимаешь правой мышкой на выделенном тексте? Это для того, если ссылка оформлена как текст (типа _http://www....). В какой файл нужно прописывать и в каком подменю (разделе)? Заранее благодарен. |
Попробуй
В своём файле меню в разделы [Link Popup Menu], [Image Link Popup Menu], [Hotclick Popup Menu] добавьте следующие строки:
Код:| Item, "Загрузить с помощью ReGet" = Execute program, "wscript", "AddLinkReGet.vbs %l %T %u" |
Код:| Item, "Загрузить с помощью ReGet (Без подтверждения)" = Execute program, "wscript", "AddLinkReGet.vbs %l %T %u NoConfirm" |
Скрипт:
desc=""
ref=""
addr=""
Confirm=True
if WScript.Arguments.Count>1 then
desc=WScript.Arguments(1)
end if
if WScript.Arguments.Count>2 then
ref=WScript.Arguments(2)
end if
if WScript.Arguments.Count>3 then
if CStr(WScript.Arguments(3))="NoConfirm" then Confirm=False
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,"HTTPS://", "https://")
addr = Replace(addr,"FTP://", "ftp://")
addr = Replace(addr,"MMS://", "mms://")
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, Confirm
Sub AddLink(ByVal Url, ByVal Info, ByVal Refer, ByVal Confirm)
Set Catch = CreateObject("ReGetDx.ReGetDownloadApi")
With Catch
.Info = Info
.Confirmation = Confirm
.Url = Url
.Referer = Refer
.AddDownload
End With
End Sub
Добавлено:
tyt
Цитата:| Такая же проблема-но не всегда и у меня. То помнит-то не помнит. Время нормально. В настройках ничего не менял. |
У меня не разу не было проблем с запоминанием входа на Ру-Борде. Причем на разных версиях Оперы. Так что проверяйте настройки своей стенки и прокси.
Добавлено:
Richard_Bah
Цитата:| Нужно подтверждение спеца: чтобы в v8.5 был поддержка Java скриптов, достаточно установить поддержку |
Установка JRE добавит не поддержку ява-скриптов (она и так встроенна в Оперу), а поддержку апплетов Java (это разные вещи). Правильные ссылки для загрузки JRE см. в шапке этого топика. |
Всего записей: 625 | Зарегистр. 14-05-2004 | Отправлено: 09:27 28-11-2005 | Исправлено: STNG, 09:47 28-11-2005 |
|
. Где что надо поправить, чтобы меня не "забывали"? Сейчас версия Opera 8.5. Может "стена" виновата(Outpost Firewall)?
) 
