Блог о программировании, электронике и рыбалке

Программа для автопрокрутки сайта thedeepestsite.com

Главная » Delphi » Программа для автопрокрутки сайта thedeepestsite.com

скроллинг прокрутка мыши thedeepestsite.com Delphi  delphi  Многие из вас, наверное, уже знакомы с самым глубоким в мире сайтом Borjomi thedeepestsite.com. Мне он тоже понравился. Идей гениальная.

Я 15 минут крутил колесико мышки, в надежде увидеть самую нижнюю его часть и написать там заветное "Здесь был source!".

Сразу скажу, что терпения у меня не хватило, поэтому результата я пока не достиг. Плюнул на это дело и решил автоматизировать процесс прокрутки.

Сделать это оказалось очень просто. Достаточно в Delphi кинуть на форму таймер, установить интервал в 100 миллисекунд и прописать в процедуре одну строчку:

Mouse_Event(MOUSEEVENTF_WHEEL, 0, 0, DWORD(-120), 0);

Если вам когда-нибудь понадобится прокрутка вверх, то строка будет выглядеть так:

Mouse_Event(MOUSEEVENTF_WHEEL, 0, 0,120, 0);

Получилась такая вот софтинка:

скроллинг прокрутка мыши thedeepestsite.com Delphi  delphi

Borjomi.exe (493,0 KiB, 555 hits)

скроллинг прокрутка мыши thedeepestsite.com Delphi  delphi

скроллинг прокрутка мыши thedeepestsite.com Delphi  delphi

  • infoПрограмма для автопрокрутки сайта thedeepestsite.com
logo
  • BusteR:

    http://thedeepestsite.com/#gogogo

  • Дам еще небольшой совет — выключайте показ картинок в браузере — меньше будет тормозить.

  • Игорян:

    хохохо

  • Михаил:

    Хорошая программа. Рекламирую algorithmlife.ru и в социалках.
    Полный код очень бы пригодился. Регулировку скорости прокрутки надо доделать.

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