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

    • ava Pedofil 09.06.2012 15:52 # −14

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

      • ava ReckO 09.06.2012 16:14 # 0

        A нам все равно.
        Ответить

        • ava Lure Of Chaos 09.06.2012 16:27 # +2

          да тут чисто театр одного актера.
          сам насрал, сам похихикал, и на этом все.

          ну еще и говно надо иногда с главной убрать, но это вопрос чисто эстетический
          Ответить

    • ava govnomonad 09.06.2012 16:04 # +4

      мда, только что прочитал. Виндузятники спецы по всяким разным извращениям. Нет чтобы поставить mpd...
      Ответить

    • ava eth0 09.06.2012 19:22 # +6

      Это же хаброта. Как говаривал один мой знакомый, "хабр хорош как способ капитанам очевидность рассказать что-нибудь детям-имбецилам".
      Ответить

      • ava bormand 10.06.2012 11:00 # 0

        "С программированием как таковым я толком не знаком, за исключением чтения мануала по AutoIT"
        Ответить

    • ava TheHamstertamer 09.06.2012 22:52 # 0

      Что за язык такой?
      Ответить

      • ava Lure Of Chaos 09.06.2012 23:01 # +2

        AutoIT?
        Ответить

        • ava geust 10.06.2012 00:23 # +3

          > FileFindFirstFile
          очевидный капитан очевидность
          Ответить

          • ava Lure Of Chaos 10.06.2012 00:29 # +1

            таки да, в процедурных васиках с единым глобальным неймспейсом делаются такие фокусы. правда, обычно хотя бы подчеркивания используются оО
            Ответить

    • ava JavaGovno 10.06.2012 01:32 # −7

      показать все, что скрытоКГ/АМ!
      Ответить

    • ava delphipro 10.06.2012 08:12 # −1

      ХХХХХХХХХИСТОРИ
      Ответить

      • ava bormand 10.06.2012 08:29 # +1

        Ккккулстори
        Ответить

      • ava geust 10.06.2012 09:46 # +2

        Ильхам подходит? Сложно придумать более уместное имя для хистори в %PROGRAMFILES%.
        Ответить

    • ava geust 10.06.2012 13:22 # +2

      А не могли бы вы выложить код без комментариев?) Тяжело мне с ними читать код. А то давно хочу сделать управление тореном удаленное. Посмотрю как у Вас сообщения отлавливаются.
      Ответить

      • ava bormand 10.06.2012 13:37 # +2

        Ну да, с таким количеством комментариев в стиле КО этот код плохо читается ;)
        Ответить

    • ava rsod 12.06.2012 21:08 # −5

      показать все, что скрытоWinActivate('WINDOWS 7 SE7EN MEGA EXTREME ULTRA 9000PROGRAM PACK сборка от DYADDY-BASSY')
      Ответить

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