• 19.09.2018, 04:42:57 *
  • Добро пожаловать, Гость
Пожалуйста, войдите или зарегистрируйтесь.

Расширенный поиск  

Новости:

В связи с просьбой представителя Opera Software к нашей команде, мы вынуждены запретить обсуждение и наличие неофициальных сборок на нашей конференции.
Сборка в данном виде нарушает новое лицензионное соглашение Opera Software, и команда AC Team не будет нести ответственность за эти нарушения.

Тема, посвящённая OperaAC_Unofficial закрыта, также и другие темы касающиеся данной сборки будут закрываться без предупреждения.

collapse
* Голосование
  • Нравится ли Вам Opera AC?
  • Dot Конечно, она просто супер!
  • 1597 (77%)
  • Dot В целом да, но много лишнего..
  • 366 (17%)
  • Dot Для ознакомительных целей
  • 64 (3%)
  • Dot Нет
  • 24 (1%)
  • Dot А что это такое?
  • 20 (0%)
  • Проголосовало пользователей: 2025
  • Смотреть тему

Реклама:

Баг трекер
  Проект История версий   Активные тикеты    

Feature Тикет: Добавление функции "Найти фильтры блокируемого содержимого" в меню блокировки рекламы

CreatoR

  • AC Team
  • Админ
  • *
  • Репутация: 46
  • Оффлайн Оффлайн
  • Пол: Мужской
  • Сообщений: 3109
  • CreatoR - Это не Ник, CreatoR - Это стиль Жизни!
    • WWW
Это скорее пометка для себя...

Думаю будет полезно сделать функцию для выявления блокирующих фильтров на текущей странице, вот примерно в таком духе:

Цитировать
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$sOperaDir = @ScriptDir & '\..'
$sUrlFilterFile = $sOperaDir & '\profile\urlfilter.ini'
$sCurrent_URL = 'http://www.googleadservices.com/pagead/aclk?sa=L&ai=CWKtFGK8CTK3QKcT--QafuvRzhuq-' ;$CmdLine[1]

_URLFilter_GetBlockingFilters($sUrlFilterFile, $sCurrent_URL)

Func _URLFilter_GetBlockingFilters($sUrlFilterFile, $sURL, $hParent_GUI = 0)
    Local $sFilters, $aFilters, $sBlock_Filters, $hBlockFilter_GUI, $nBlockFilter_Edit, $nBlockFilter_OkButton

    $sFilters = FileRead($sUrlFilterFile)
    $sFilters = StringRegExpReplace($sFilters, "(?si).*\[exclude\][\r\n]*", "")
    $sFilters = StringStripCR($sFilters)
    $sFilters = StringStripWS($sFilters, 3)
    $sFilters = StringReplace($sFilters, "\", "\\")
    $sFilters = StringReplace($sFilters, ".", "\.")
    $sFilters = StringReplace($sFilters, "*", ".*")

    $aFilters = StringSplit($sFilters, @LF)
    $sBlock_Filters = ""

    For $i = 1 To $aFilters[0]
        If StringRegExp($sURL, "(?i)" & $aFilters[$i]) Then
            $sFilters = StringReplace($aFilters[$i], "\\", "\")
            $sFilters = StringReplace($sFilters, "\.", ".")
            $sFilters = StringReplace($sFilters, ".*", "*")

            $sBlock_Filters &= $sFilters & @CRLF
        EndIf
    Next

    GUISetState(@SW_DISABLE, $hParent_GUI)

    $hBlockFilter_GUI = GUICreate("Blocking URL Filters", 300, 400, -1, -1, BitOR($WS_CAPTION, $WS_POPUP, $WS_SYSMENU), -1, $hParent_GUI)
    GUICtrlCreateLabel("The following filters are blocking the current url:", 20, 10, 270, 20)
    GUICtrlSetFont(-1, 8.5, 800)
    GUICtrlCreateInput($sURL, 20, 25, 260, 20)
    $nBlockFilter_Edit = GUICtrlCreateEdit(StringStripWS($sBlock_Filters, 2), 20, 60, 260, 300)
    $nBlockFilter_OkButton = GUICtrlCreateButton("OK", 120, 370, 60, 20)
    GUICtrlSetState($nBlockFilter_OkButton, $GUI_FOCUS)

    GUISetState(@SW_SHOW, $hBlockFilter_GUI)

    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE, $nBlockFilter_OkButton
                ExitLoop
        EndSwitch
    WEnd

    GUISetState(@SW_ENABLE, $hParent_GUI)
    GUIDelete($hBlockFilter_GUI)

    Return $sBlock_Filters
EndFunc
« Последнее редактирование: 11.06.2010, 17:50:17 от CreatoR »
Записан

Детали тикета

  • Создано
    03.06.2010, 16:52:04
  • Обновлён
    11.06.2010, 17:50:38
  • Статус тикета
    Публичный
  • Тип
    Feature
  • Статус
    Решено
  • Приоритет
    Средний
  • Версия
    (пусто)
  • Решено в версии
    3.7.6 (10.10.1893.8)
  • Передано к исполнению
    CreatoR
  • Категория
    Функции OAC
Страницы: [1]   Вверх

Комментарии

toltec

  • Тестер
  • *
  • Репутация: 10
  • Оффлайн Оффлайн
  • Пол: Мужской
  • Сообщений: 495
  • Ценитель
« : 03.06.2010, 17:50:22 »
А как насчет сторонних CSS-фильтров?
Записан

CreatoR

  • AC Team
  • Админ
  • *
  • Репутация: 46
  • Оффлайн Оффлайн
  • Пол: Мужской
  • Сообщений: 3109
  • CreatoR - Это не Ник, CreatoR - Это стиль Жизни!
    • WWW
« Ответ #1 : 03.06.2010, 21:22:55 »
toltec [?]
Цитировать
как насчет сторонних CSS-фильтров?
Сторонние можно отключить (хотя большего чем AdBlock+ думаю и не нужно, а там уже править заблокированное очень просто).

P.S
Путь к urlfilter.ini будет браться отсюда.
« Последнее редактирование: 03.06.2010, 21:24:45 от CreatoR »
Записан
Читаем FAQ по OAC! и Список изменении OAC перед тем как задать вопрос.



P.S
«Не оказываю техподдержку через ПМ/ICQ, и по электронной почте - для этого есть форум.»

wwolf06

  • Новичок
  • *
  • Репутация: 0
  • Оффлайн Оффлайн
  • Пол: Мужской
  • Сообщений: 1
« Ответ #2 : 09.06.2010, 17:10:08 »
а подскажите как воспользоваться подобным - куда его необходимо сохранить, прописать
интересная задумка.
Записан

CreatoR

  • AC Team
  • Админ
  • *
  • Репутация: 46
  • Оффлайн Оффлайн
  • Пол: Мужской
  • Сообщений: 3109
  • CreatoR - Это не Ник, CreatoR - Это стиль Жизни!
    • WWW
« Ответ #3 : 09.06.2010, 19:07:01 »
wwolf06 [?]
Цитировать
как воспользоваться подобным
Это скрипт на AutoIt.
Записан
Читаем FAQ по OAC! и Список изменении OAC перед тем как задать вопрос.



P.S
«Не оказываю техподдержку через ПМ/ICQ, и по электронной почте - для этого есть форум.»

CreatoR

  • AC Team
  • Админ
  • *
  • Репутация: 46
  • Оффлайн Оффлайн
  • Пол: Мужской
  • Сообщений: 3109
  • CreatoR - Это не Ник, CreatoR - Это стиль Жизни!
    • WWW
Тикет измененил CreatoR
« Ответ #4 : 11.06.2010, 17:50:38 »
  • Изменён тип с Bug на Feature
  • Тикет переименован с "Функция "Показать блокирующие фильтры" в меню блокировки рекламы" на "Добавление функции "Найти фильтры блокируемого содержимого" в меню блокировки рекламы"
  • Изменён статус с Новый на Решено
  • Изменён исполнитель с (пусто) на CreatoR
  • Изменена исправленная версия с (пусто) на 3.7.6 (10.10.1893.8)
Записан
Читаем FAQ по OAC! и Список изменении OAC перед тем как задать вопрос.



P.S
«Не оказываю техподдержку через ПМ/ICQ, и по электронной почте - для этого есть форум.»
Страницы: [1]   Вверх

 

Тэги


Powered by: SMF Project Tools 0.3.3 © Niko Pahajoki 2007-2009

Реклама:

Счетчик

Страница сгенерирована за 0.071 секунд. Запросов: 35.