Многие из вас, наверное, уже знакомы с самым глубоким в мире сайтом Borjomi thedeepestsite.com. Мне он тоже понравился. Идей гениальная.
Я 15 минут крутил колесико мышки, в надежде увидеть самую нижнюю его часть и написать там заветное "Здесь был source!".
Сразу скажу, что терпения у меня не хватило, поэтому результата я пока не достиг. Плюнул на это дело и решил автоматизировать процесс прокрутки.
Сделать это оказалось очень просто. Достаточно в Delphi кинуть на форму таймер, установить интервал в 100 миллисекунд и прописать в процедуре одну строчку:
Mouse_Event(MOUSEEVENTF_WHEEL, 0, 0, DWORD(-120), 0);
Если вам когда-нибудь понадобится прокрутка вверх, то строка будет выглядеть так:
Mouse_Event(MOUSEEVENTF_WHEEL, 0, 0,120, 0);
Получилась такая вот софтинка:
Borjomi.exe (493,0 КиБ, 1 458 hits)
http://thedeepestsite.com/#gogogo
Дам еще небольшой совет - выключайте показ картинок в браузере - меньше будет тормозить.
хохохо
Хорошая программа.
Полный код очень бы пригодился. Регулировку скорости прокрутки надо доделать.