Автоматизация фоловинга в Twitter при помощи AutoIt

20 Янв
2012

Доброго времени суток!

Как то для одного сайта нужно было привлечь посетителей, решил это сделать средствами соц. сетей. Выбрал малознакомый для меня twitter. Начал искать как же все таки привлечь читателей к себе в твитт, вариант использования платных сервисов меня не устраивал. Остановился на простом, заходил к другим пользователям смотрел их читателей и просто начинал читать всех подряд (исключая рекламу).

Этот утомительный и долгий процесс мне сразу не понравился и тут я вспомнил про AutoIt. И решил хоть как-то автоматизировать процесс.

AutoIt в действии


Как то давно автоматизировал установку всех своих программ с помощью него пока не надоело, так что был с ним знаком. Тратить время на код не хотелось поэтому написал на скорую руку дописывая и изменяя его в процессе, главное чтобы работал.

Я нашел популярный твитт, читатели которого добавлялись ежечасно. И по сравнению с другими там было меньше всего рекламы.

HotKeySet("{F10}","ExitApp") ;задаем кнопку остановки скрипта
Func ExitApp() ;выходим по нажатию F10
Exit
EndFunc

$Color = 0x4FB54F ;на экране ищем это цвет
$Dip_Col = 0 ;Допустимое несовпадение цвета от указанного (допустимое значение от 0 - точное, до 255) - ПОГРЕШНОСТЬ. Нам нужно точное значение чтобы не тыкал куда не попадя.
$sleeping = 300 ;Время на сон, чтобы успевал браузер за скриптом

while 1
$Variable = PixelSearch( 6, 57, 1276, 957, $Color, $Dip_Col) ; ищет пиксель
If IsArray($Variable) = True Then ;И естественно если находит -
mouseclick("left", $Variable[0], $Variable [1]) ;Кликает

Sleep ( $sleeping ) ;Ждем браузер
Else ;Если не находит нужный нам цвет
Send ("{DOWN 15}") ;опускается дальше
Sleep ( 700 )
EndIf
$sleeping = $sleeping + 6 ; Увеличиваем время сна.
wend


Скачать EXE файл можно тут.

Как же избавиться от не взаимных твиттерян


Нашел хороший сервис, он платный но можно удалять по 500 фолловеров в день, и этого хватает.
Спасибо за внимание!
По материалам Хабрахабр.



загрузка...

Комментарии:

Наверх