#include "1.cms"
#include "2.cms"
#include "3.cms"
#include "4.cms"
#include "5.cms"
#include "6.cms"
#include "7.cms"
#include "8.cms"
#include "9.cms"
#include "10.cms"
#name "favicon search in Yandex"
// Author: Vint
// Version: 1.1 (14.08.2014)
$zapros = "Тюнинг мазда6"
$page_all = 10 // просматривать страниц
$brawser = "firefox.exe"
//==============================================================================
SUB(close) //===================================================================
KEYDOWN (#CTRL)
WAITMS (50)
KEYDOWN (#W)
WAITMS (50)
KEYUP (#W)
KEYUP (#CTRL)
WAITMS(500)
END_SUB
//==============================================================================
SUB(IP) //======================================================================
// здесь скрипт смены IP
LCLICK(1273,7)
WAITMS(50)
LCLICK(1273,7)
WAITMS(50)
LCLICK(1273,7)
$hwnd = WNDFIND("proxylist.txt")
IF($hwnd > 0)
EXECUTE("proxylist.txt") //запуск прокси листа
WAIT(1)
LCLICK(594,241)
lDown(640,242)
move(225,213)
lUp(225,213)
keyDown(17)
keyDown(162)
keyDown(67)
keyUp(67)
keyUp(17)
keyUp(162)
keyDown(46)
keyUp(46)
keyDown(46)
keyUp(46)
WAITMS(50)
LCLICK(1223,195)
WAITMS(150)
LCLICK(611,387)
$hwnd = WNDFIND("Mozilla Firefox")
IF($hwnd > 0)
EXECUTE("firefox.exe", "yandex.ru") //запуск Мозилы
WAIT(15)
LCLICK(1310,49) //добовление айпи адреса
WAITMS(50)
LCLICK(1313,190)
WAITMS(150)
LCLICK(817,279)
lDown(821,280)
move(532,286)
lUp(532,286)
keyDown(162)
keyDown(17)
keyDown(86)
keyUp(86)
keyUp(162)
keyUp(17)
LCLICK(628,505)
WAIT(5)
LCLICK(1310,49)
LCLICK(1313,85)
LCLICK(775,85)
END_IF
END_IF
END_SUB
//==============================================================================
SUB(actions) //=================================================================
// здесь скрипт действий на найденных страницах
WAIT(1)
LCLICK(896,52) // 16775402
WAIT(2)
LCLICK(1314,148)
END_SUB
//==============================================================================
SUB(find) //== Поиск в выдаче яндекса ==========================================
$find = 0
$zapros = STRREPLACE ($zapros, " ", "%20") // лечение пробелов
FOR($page=0, $page<$page_all)
$param = STRCONCAT("yandex.ru/yandsearch?lr=213&text=", $zapros, "&p=", $page)
LOGWRITE ("Страница ", $page)
//LOGWRITE ($param)
EXECUTE($brawser, $param) //открываем страницу
WAITMS(1500)
LCLICK(5,500)
WAITMS(50)
$var = 1
WHILE($var = 1)
//LOGWRITE ("ищем...")
GETSCREEN
IF_PICTURE_IN (100,0,$_xmax-35,$_ymax, "favicon2.bmp") // 16777215
LOGWRITE ("Найдено на странице ", $page)
HINTPOPUP(STRCONCAT("страница ", $page), "Найдено!")
//LOGSHOW (1,$_xmax-335,28) // отображение окна лога
//WNDSIZE(WNDFIND("Clickermann - Лог"),336,260) // изменения размеров окна лога
$run_X = $_return1+50
$run_Y = $_return2+10
$find = 1
$var = 0
$page = $page_all
//HALT
END_IF
IF($var = 1)
// мотаем ниже
$hash1 = PXLCRC (220,180,230,800)
WHEELDOWN(6)
WAITMS(500)
GETSCREEN
$hash2 = PXLCRC (220,180,230,800)
IF($hash1 = $hash2)
close() // закрываем вкладку
$var = 0
END_IF
WAITMS(500)
END_IF
END_CYC
END_CYC
END_SUB
//==============================================================================
// --- START ---
LOGCLEAR
WHILE(1) // основной цикл скрипта
IP() // меняем IP
find() // ищем сайт
IF($find = 1) // нашли
LCLICK($run_X, $run_Y) // открываем сайт
WAITMS(2000)
actions() // обрабатываем
ELSE //не нашли
LOGWRITE ("Ничего не найдено. Пройдено ", $page_all, " страниц")
HINTPOPUP(STRCONCAT("Не найдено на ", $page_all, " стр."), "Не найдено")
HALT
END_IF
END_CYC
HALT
еще есть 1 вопрос как сделать так чтобы цифры в поисковом запросе он водил раздельно(
$zapros = "Тюнинг мазда6") если не напишешь слитно то комп не понятно где лазиет
