[архив

Creat0R · Конфигурация компьютера

Проблему вроде решил (осталась только проблема с высокой загрузкой ЦП в момент перетаскивания окна).

Функция для корректировки ссылки (вида hттp://, _http://, хттп:// и т.п.):

Код:

ConsoleWrite(_CorrectURL('_hттp://creator-lab.ucoz.ru/load/0-0-1-35-20'))

Func _CorrectURL($sURL)
    $sURL = StringRegExpReplace($sURL, '(?i)\A[^a-z\d]+|[^a-z\d]+$', "")

    Local $sURL_Hold = StringRegExpReplace($sURL, "(?i)(\A.*?(/|\\|:)+[^a-z\d]+|[^a-z\d]+$)", "")
    $sURL_Hold = StringReplace(StringReplace($sURL_Hold, " ", "%20"), "\", "/")

    If StringLeft($sURL, 4) = "ftp." Then Return "ftp://" & $sURL_Hold

    Local $sProtocol = StringRegExpReplace($sURL, "\A.*?(.{1,5}:/).*", "\1/")
    If StringLen($sProtocol) <= 5 Then Return "http://" & $sURL_Hold

    $sProtocol = StringRegExpReplace($sProtocol, "(?i)\A(h..p|h..р|h.tp|ht..|..tp|.ttp|[а-я]{1,4})://+", "http://", 1)
    If @extended > 0 Then Return $sProtocol & $sURL_Hold

    $sProtocol = StringRegExpReplace($sProtocol, "(?i)\A(f.p|f.р|f..|.tp|[а-я]{1,3})://+", "ftp://", 1)
    If @extended > 0 Then Return $sProtocol & $sURL_Hold

    $sProtocol = StringRegExpReplace($sProtocol, "(?i)\A(ms.|.ms|m.s|[а-я]{1,3})://+", "mms://")
    If @extended > 0 Then Return $sProtocol & $sURL_Hold

    $sProtocol = StringRegExpReplace($sProtocol, "(?i)\A(r.ps|.tps|rt.p|[а-я]{1,4})://+", "rtsp://")
    If @extended > 0 Then Return $sProtocol & $sURL_Hold

    $sProtocol = StringRegExpReplace($sProtocol, "(?i)\A(h..ps|..tps|.t.ps|[а-я]{1,5})://+", "https://")
    If @extended > 0 Then Return $sProtocol & $sURL_Hold

    If Not StringRegExp($sProtocol, "(?i)\A(http|https|ftp|mms|rtsp|news|irc)://+") Then $sProtocol = "http://"

    Return $sProtocol & $sURL_Hold
EndFunc

По этому поводу вопрос: Встречал ли кто то ссылку, хостинг в которой начинается не с латинской буквы или цифры? а также есть ли ссылки (рабочие) которые завершаются с любым другим символов а не латинской буквой или числом?

Поскольку есть "много заинтересованных" в «AutoIt Menu для Opera», я не забыл напомнить об обновлении плагина.

Список изменении...

[v1.01 - 20.12.2007]

* Добавлен BBCode Модуль - позволяет использовать BBCode теги в текстовых формах (см. в Readme подробнее).

* Улучшены опции "Run/Open Selected Code".

* Обновлен "AutoUpdateIt" до самой последней версии (1.41).
* Обновлен "Icon_File_Scanner.au3" - теперь разделитель между списками иконок может менять позицию.

* Теперь если AutoIt не найден (при интеграции), даётся возможность выбора, чтобы указать путь к AutoIt директории.
* Теперь можно установить путь к AutoIt (в диалоге настроек) без необходимости закрывать браузер Opera постоянно.
* Теперь при настройке AutoIt Menu, уведомление о закрытии Opera будет показано только при необходимости (таким образом позволяя делать настройки не касающиеся Opera без перезапуска браузера).
* Теперь почти все надоедливые сообщения могут быть отключены (установив соответствующую галочку в появившемся сообщении, или используя диалог настроек).
* Теперь интеграция инструментов (AutoIt Tools) опциональна - вы можете выбирать какой инструмент следует интегрировать - доступно только при интеграции.
* Теперь сообщение, уведомляющее о том что настройка AutoIt Menu прошла успешна, будет показано только если были сделаны изменения касающиеся Opera.

* Исправлена ошибка при интеграции - > файл конфигурации не был создан в назначенной директории (должен создаваться рядом с главным модулем "AutoIt Menu").
* Исправлена ссылка для пункта "Today's Active Topics".

[v1.0 - 13.12.2007]
Первый релиз.