1. Куча / Говнокод #10861

    +119

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    Func Terminate() ; Функция выключения скрипта так как он работает в бесконечном цикле
    Exit 0
    EndFunc
    HotKeySet("{ESC}", "Terminate")  ; Привязывает функцию выключения к клавиши ESC
      
    FileChangeDir ("C:Program FilesQIPUsersXXXXXXXXXHistory"); Изменяет рабочую директорию 
      
    while 1 ; Начинает бесконечный цикл работы скрипта
    $Search=FileFindFirstFile("*.txt") ; Ищет txt-файлы в рабочей директории и возвращаемое значение поиска заносим в переменную $Search
    if $Search = -1 then ; Проверяет наличие файлов по содержимому переменной
    Sleep(1000) ; Если файлов не найдено, ждет секунду и запускает цикл сначала
    else ; Если найден txt-файл, то...
    $File=FileFindNextFile($Search) ; Заносит название файла в перменную $File
    $Log=FileRead ($File) ; Заносит содержимое файла в переменную $log
    $Log=StringSplit ($Log, @LF) ; Так как в QIP'е одно сообщение состоит из трех строк (пометка сообщения как входящее или исходящее, имя автора/дата/время отправки сообщения и само сообщение), то делает из переменной массив, в котором каждый элемент равен одной строке
    $Mess=$log[3] ; Само сообщение заносит в переменную $Mess
    FileDelete($File) ; Удаляет файл истории
    MsgBox ("0","", $Mess, 1) ; На секунду выводит на экран сообщение с командой, которую скрипт будет сейчас выполнять - это реализовано для отладки
    WinActivate ('[REGEXPCLASS:(?i){97E27FAA-C0B3-4b8e-A693-ED7881E99FC1}]') ; Делает активным окно Foobar'a, реализовал посредством обращения к классу, так как заголовок плеера меняется в зависимости от исполняемой композиции
    WinWaitActive ('[REGEXPCLASS:(?i){97E27FAA-C0B3-4b8e-A693-ED7881E99FC1}]') ; Ждет когда окно Foobar'a станет активным
      
    $Check=StringInStr($Mess, "local") ; Проверяет вхождение слова "local" в текст сообщения
    if $Check=1 then ; Если "local" находится в начале сообщения, то...
    Send("^f") ; Отправляет нажатие сочетания клавиш CTRL+F

    delay(500); //Ждет
    if ( q == 1 ) { //Сравнивает
    q += 2; } //Прибавляет

    Взято отсюда: habrahabr.ru/post/145550/

    Запостил: ReckO, 09 Июня 2012

    Комментарии (19) RSS

    • показать все, что скрытоПоставил посту минус и послал автора на хуй.
      Ответить
      • A нам все равно.
        Ответить
        • да тут чисто театр одного актера.
          сам насрал, сам похихикал, и на этом все.

          ну еще и говно надо иногда с главной убрать, но это вопрос чисто эстетический
          Ответить
    • мда, только что прочитал. Виндузятники спецы по всяким разным извращениям. Нет чтобы поставить mpd...
      Ответить
    • Это же хаброта. Как говаривал один мой знакомый, "хабр хорош как способ капитанам очевидность рассказать что-нибудь детям-имбецилам".
      Ответить
      • "С программированием как таковым я толком не знаком, за исключением чтения мануала по AutoIT"
        Ответить
    • Что за язык такой?
      Ответить
      • AutoIT?
        Ответить
        • > FileFindFirstFile
          очевидный капитан очевидность
          Ответить
          • таки да, в процедурных васиках с единым глобальным неймспейсом делаются такие фокусы. правда, обычно хотя бы подчеркивания используются оО
            Ответить
    • показать все, что скрытоКГ/АМ!
      Ответить
    • ХХХХХХХХХИСТОРИ
      Ответить
      • Ккккулстори
        Ответить
      • Ильхам подходит? Сложно придумать более уместное имя для хистори в %PROGRAMFILES%.
        Ответить
    • А не могли бы вы выложить код без комментариев?) Тяжело мне с ними читать код. А то давно хочу сделать управление тореном удаленное. Посмотрю как у Вас сообщения отлавливаются.
      Ответить
      • Ну да, с таким количеством комментариев в стиле КО этот код плохо читается ;)
        Ответить
    • показать все, что скрытоWinActivate('WINDOWS 7 SE7EN MEGA EXTREME ULTRA 9000PROGRAM PACK сборка от DYADDY-BASSY')
      Ответить

    Добавить комментарий