Author Topic: Помощь создания скрипта  (Read 31114 times)

0 Members and 1 Guest are viewing this topic.

Hito

  • Герой форума
  • *****
  • Posts: 1212
    • View Profile
Re: Помощь создания скрипта
« Reply #30 on: October 09, 2014, 08:28:31 AM »
Я за него объясню )) У него бывает попадаются люди, которым он уже отсылал сообщения. У таких людей уже нарисован конвертик. Вот ему надо, чтобы кликер искал кнопку "отправить" и проверял, нет ли левее этого конвертика. Если нет, то все норм и кликал бы на "отправить".
Я не ду... Потому и не бу...

farmacedus

  • Освоившийся
  • **
  • Posts: 40
    • View Profile
Re: Помощь создания скрипта
« Reply #31 on: October 09, 2014, 08:29:33 AM »
как это всё в коде написать?мне нужно так что если не нашло первой картинки то ищет другую правее этой и кликает по ней. А если нашло первую то нужно искать дальше, т.е. ниже.

Hito

  • Герой форума
  • *****
  • Posts: 1212
    • View Profile
Re: Помощь создания скрипта
« Reply #32 on: October 09, 2014, 08:38:51 AM »
Ну, во первых - ты не от того плясать начал. "Если не нашли бабушку, то тырим у нее сумку". (Внимание! Я не призываю бабушек обижать!) Начни от существующего! Нашел картинку "отправить" - проверь, левее от нее, картинку с конвертом. Если нет конверта, то все ок и жмем на "оправить". В общем ему эта тема http://crapware.aidf.org/forum/index.php?topic=1327.0 нужна  :) Только у меня там с пикселями, а у него с картинками.
« Last Edit: October 09, 2014, 08:46:57 AM by Hito »
Я не ду... Потому и не бу...

aden

  • Оплот сообщества
  • ****
  • Posts: 363
    • View Profile
Re: Помощь создания скрипта
« Reply #33 on: October 09, 2014, 09:25:03 AM »
Code: (clickermann) [Select]
if_picture_in()
//NOP
else
if_picture_in()
lclick(x,y)
end_if
end_if

Hito

  • Герой форума
  • *****
  • Posts: 1212
    • View Profile
Re: Помощь создания скрипта
« Reply #34 on: October 09, 2014, 09:41:58 AM »
Ребят, в общем мы вот так сделали:

Code: (clickermann) [Select]
GETSCREEN
SCANPICTURE($ARR_SCAN, 0,0, $_xmax,$_ymax, "отправить.bmp", -1, 100)
$ARR_NUM = 0
$SHIFT_X = 1 // смещение
$SHIFT_Y = 1
WHILE ($ARR_NUM < ARRSIZE($ARR_SCAN))
   $X = $ARR_SCAN [$ARR_NUM]
   INC($ARR_NUM,1)
   $Y = $ARR_SCAN [$ARR_NUM]
   INC($ARR_NUM,1)
   IF(($X > $X2) | ($Y > $Y2))
      $X2 = $X + $SHIFT_X
      $Y2 = $Y + $SHIFT_Y
      IF_PIXEL_IN($X-599,$Y-0, $X+0,$Y+0, 16514039) // пиксель конверта (если есть конверт, то не жмет кнопку "отправить")
         WAITMS(1)
      ELSE
         LCLICK($X, $Y)
         WAITMS(1000)
         MOVE(409,718)
         WAITMS(100)
         LCLICK(409,718)
         TOCLIP (" Привет. Увидела твои фото и не сдержалась, решила написать. Мне 34 года, я очень люблю таких мужчин как ты, а еще очень люблю слушать долгие рассказы про жизнь и приключения таких мужественных мужчин как ты. Я хочу познакомится с мужчиной который будет меня любить и дарить ласку. А ты любишь ласку?я очень люблю. Ты такой мужественный и привлекательный, просто с ума схожу когда вижу твои фотографии, ты такой секси. Расскажи что то о себе, мне очень интересна жизнь таких принцов, я люблю встречать закаты и рассветы, еще я очень люблю стихотворения, ты можешь мне подарить стихотворения? Буду ждать с нетерпением твоего ответа. Целую*** ")
         WAITMS(100)
         KEYDOWN(#CTRL)
         WAITMS(100)
         KEYPRESS(#V)
         WAITMS(50)
         KEYUP(#CTRL)
         WAITMS(100)
         MOVE(428,582)
         WAITMS(100)
         LCLICK(428,582)
         WAITMS(100)
         TOCLIP ("Привет.")
         WAITMS(100)
         KEYDOWN(#CTRL)
         WAITMS(100)
         KEYPRESS(#V)
         WAITMS(50)
         KEYUP(#CTRL)
         WAITMS(100)
         MOVE(407,386)
         WAITMS(100)
         LCLICK(407,386)
         WAITMS(100)
         TOCLIP ("Hola. Vi sus imбgenes y no pude resistir y decidн escribir. Tengo 34 aсos, me encanta este tipo de hombres como tъ, pero todavнa me gusta mucho escuchar historias largas sobre la vida y aventuras de los valientes hombres como usted. Me gustarнa conocer a un hombre que me ame y dar afecto. їTe gusta el afecto? Me encanta. Eres tan varonil y atractivo, volviendo loco cuando veo sus imбgenes, eres tan sexy. Dime algo sobre mн, que soy la vida muy interesante de un prнncipe, me encanta conocer atardeceres y amaneceres, sin embargo, me encanta el poema, que me puede dar un poema? Mirarбn adelante a su respuesta. Exact ***")
         WAITMS(100)
         KEYDOWN(#CTRL)
         WAITMS(100)
         KEYPRESS(#V)
         WAITMS(50)
         KEYUP(#CTRL)
         WAITMS(100)
         MOVE(386,261)
         WAITMS(100)
         LCLICK(386,261)
         WAITMS(100)
         TOCLIP ("Hola.")
         WAITMS(100)
         KEYDOWN(#CTRL)
         WAITMS(100)
         KEYPRESS(#V)
         WAITMS(50)
         KEYUP(#CTRL)
         WAITMS(100)
         MOVE(913,905)
         WAITMS(100)
         LCLICK(913,905)
         WAIT(1)
      END_IF
   END_IF
else
   MOVE(427,634)
   WAITMS(100)
   LCLICK(425,634)
   WAIT(2)
END_CYC
UNDEFINE($ARR_SCAN)
WAITMS(100)

Появилась проблемка... Скрипт отправляет 1 сообщение и дальше ничего не делает. Если первым же вариантом является вариант с конвертом, то кликер ВООБЩЕ ничего не делает. Объясню ситуацию... Там по всей странице (сверху в низ) идут типа анкет. У каждой есть кнопка "отправить сообщение", но у некоторых еще есть конверт, говорящий о том, что этому апоненту сообщение с даноого аккаунта уже отправлялось. Вот надо, чтобы кликер перебирал кнопки "отправить" и проверял, нет ли левее от них конвертов, и если нет, то отправлял бы сообщение.
Я не ду... Потому и не бу...

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: Помощь создания скрипта
« Reply #35 on: October 09, 2014, 11:13:05 AM »
А что за else в цикле WHILE в строке 72 и всё что за ним?


farmacedus

  • Освоившийся
  • **
  • Posts: 40
    • View Profile
Re: Помощь создания скрипта
« Reply #36 on: October 09, 2014, 11:39:02 AM »
А что за else в цикле WHILE в строке 72 и всё что за ним?
это переход на следующую страницу.

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: Помощь создания скрипта
« Reply #37 on: October 09, 2014, 12:23:06 PM »
Верный код
Code: (clickermann) [Select]
GETSCREEN
SCANPICTURE($ARR_SCAN, 0,0, $_xmax,$_ymax, "отправить.bmp", -1, 100)
$ARR_NUM = 0
WHILE ($ARR_NUM < ARRSIZE($ARR_SCAN))
   $X = $ARR_SCAN [$ARR_NUM]
   INC($ARR_NUM,1)
   $Y = $ARR_SCAN [$ARR_NUM]
   INC($ARR_NUM,1)
   IF_PIXEL_IN($X-599,$Y-0, $X+0,$Y+0, 16514039) // пиксель конверта (если есть конверт, то не жмет кнопку "отправить")
      WAITMS(1)
   ELSE
      LCLICK($X, $Y)
      WAITMS(1000)
      MOVE(409,718)
      WAITMS(100)
      LCLICK(409,718)
      TOCLIP (" Привет. Увидела твои фото и не сдержалась, решила написать. Мне 34 года, я очень люблю таких мужчин как ты, а еще очень люблю слушать долгие рассказы про жизнь и приключения таких мужественных мужчин как ты. Я хочу познакомится с мужчиной который будет меня любить и дарить ласку. А ты любишь ласку?я очень люблю. Ты такой мужественный и привлекательный, просто с ума схожу когда вижу твои фотографии, ты такой секси. Расскажи что то о себе, мне очень интересна жизнь таких принцов, я люблю встречать закаты и рассветы, еще я очень люблю стихотворения, ты можешь мне подарить стихотворения? Буду ждать с нетерпением твоего ответа. Целую*** ")
      WAITMS(100)
      KEYDOWN(#CTRL)
      WAITMS(100)
      KEYPRESS(#V)
      WAITMS(50)
      KEYUP(#CTRL)
      WAITMS(100)
      MOVE(428,582)
      WAITMS(100)
      LCLICK(428,582)
      WAITMS(100)
      TOCLIP ("Привет.")
      WAITMS(100)
      KEYDOWN(#CTRL)
      WAITMS(100)
      KEYPRESS(#V)
      WAITMS(50)
      KEYUP(#CTRL)
      WAITMS(100)
      MOVE(407,386)
      WAITMS(100)
      LCLICK(407,386)
      WAITMS(100)
      TOCLIP ("Hola. Vi sus imбgenes y no pude resistir y decidн escribir. Tengo 34 aсos, me encanta este tipo de hombres como tъ, pero todavнa me gusta mucho escuchar historias largas sobre la vida y aventuras de los valientes hombres como usted. Me gustarнa conocer a un hombre que me ame y dar afecto. їTe gusta el afecto? Me encanta. Eres tan varonil y atractivo, volviendo loco cuando veo sus imбgenes, eres tan sexy. Dime algo sobre mн, que soy la vida muy interesante de un prнncipe, me encanta conocer atardeceres y amaneceres, sin embargo, me encanta el poema, que me puede dar un poema? Mirarбn adelante a su respuesta. Exact ***")
      WAITMS(100)
      KEYDOWN(#CTRL)
      WAITMS(100)
      KEYPRESS(#V)
      WAITMS(50)
      KEYUP(#CTRL)
      WAITMS(100)
      MOVE(386,261)
      WAITMS(100)
      LCLICK(386,261)
      WAITMS(100)
      TOCLIP ("Hola.")
      WAITMS(100)
      KEYDOWN(#CTRL)
      WAITMS(100)
      KEYPRESS(#V)
      WAITMS(50)
      KEYUP(#CTRL)
      WAITMS(100)
      MOVE(913,905)
      WAITMS(100)
      LCLICK(913,905)
      WAIT(1)
   END_IF
END_CYC
UNDEFINE($ARR_SCAN)
WAITMS(100)

MOVE(427,634)
WAITMS(100)
LCLICK(425,634)
WAIT(2)

Hito

  • Герой форума
  • *****
  • Posts: 1212
    • View Profile
Re: Помощь создания скрипта
« Reply #38 on: October 09, 2014, 12:26:53 PM »
Верный код
Code: (clickermann) [Select]
GETSCREEN
SCANPICTURE($ARR_SCAN, 0,0, $_xmax,$_ymax, "отправить.bmp", -1, 100)
$ARR_NUM = 0
WHILE ($ARR_NUM < ARRSIZE($ARR_SCAN))
   $X = $ARR_SCAN [$ARR_NUM]
   INC($ARR_NUM,1)
   $Y = $ARR_SCAN [$ARR_NUM]
   INC($ARR_NUM,1)
   IF_PIXEL_IN($X-599,$Y-0, $X+0,$Y+0, 16514039) // пиксель конверта (если есть конверт, то не жмет кнопку "отправить")
      WAITMS(1)
   ELSE
      LCLICK($X, $Y)
      WAITMS(1000)
      MOVE(409,718)
      WAITMS(100)
      LCLICK(409,718)
      TOCLIP (" Привет. Увидела твои фото и не сдержалась, решила написать. Мне 34 года, я очень люблю таких мужчин как ты, а еще очень люблю слушать долгие рассказы про жизнь и приключения таких мужественных мужчин как ты. Я хочу познакомится с мужчиной который будет меня любить и дарить ласку. А ты любишь ласку?я очень люблю. Ты такой мужественный и привлекательный, просто с ума схожу когда вижу твои фотографии, ты такой секси. Расскажи что то о себе, мне очень интересна жизнь таких принцов, я люблю встречать закаты и рассветы, еще я очень люблю стихотворения, ты можешь мне подарить стихотворения? Буду ждать с нетерпением твоего ответа. Целую*** ")
      WAITMS(100)
      KEYDOWN(#CTRL)
      WAITMS(100)
      KEYPRESS(#V)
      WAITMS(50)
      KEYUP(#CTRL)
      WAITMS(100)
      MOVE(428,582)
      WAITMS(100)
      LCLICK(428,582)
      WAITMS(100)
      TOCLIP ("Привет.")
      WAITMS(100)
      KEYDOWN(#CTRL)
      WAITMS(100)
      KEYPRESS(#V)
      WAITMS(50)
      KEYUP(#CTRL)
      WAITMS(100)
      MOVE(407,386)
      WAITMS(100)
      LCLICK(407,386)
      WAITMS(100)
      TOCLIP ("Hola. Vi sus imбgenes y no pude resistir y decidн escribir. Tengo 34 aсos, me encanta este tipo de hombres como tъ, pero todavнa me gusta mucho escuchar historias largas sobre la vida y aventuras de los valientes hombres como usted. Me gustarнa conocer a un hombre que me ame y dar afecto. їTe gusta el afecto? Me encanta. Eres tan varonil y atractivo, volviendo loco cuando veo sus imбgenes, eres tan sexy. Dime algo sobre mн, que soy la vida muy interesante de un prнncipe, me encanta conocer atardeceres y amaneceres, sin embargo, me encanta el poema, que me puede dar un poema? Mirarбn adelante a su respuesta. Exact ***")
      WAITMS(100)
      KEYDOWN(#CTRL)
      WAITMS(100)
      KEYPRESS(#V)
      WAITMS(50)
      KEYUP(#CTRL)
      WAITMS(100)
      MOVE(386,261)
      WAITMS(100)
      LCLICK(386,261)
      WAITMS(100)
      TOCLIP ("Hola.")
      WAITMS(100)
      KEYDOWN(#CTRL)
      WAITMS(100)
      KEYPRESS(#V)
      WAITMS(50)
      KEYUP(#CTRL)
      WAITMS(100)
      MOVE(913,905)
      WAITMS(100)
      LCLICK(913,905)
      WAIT(1)
   END_IF
END_CYC
UNDEFINE($ARR_SCAN)
WAITMS(100)

MOVE(427,634)
WAITMS(100)
LCLICK(425,634)
WAIT(2)

А он в этом коде не будет перескакивать на другую страницу после каждого, отправленного сообщения...?
Я не ду... Потому и не бу...

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: Помощь создания скрипта
« Reply #39 on: October 09, 2014, 12:29:29 PM »
Если "отправить.bmp" не найдено то цикл будет пропущен, выполнится клик и через 2 сек все с начало. При успешном нахождении "отправить.bmp" цикл не завершится пока не отработают все найденные координаты.
« Last Edit: October 09, 2014, 12:32:13 PM by Oraven »

Hito

  • Герой форума
  • *****
  • Posts: 1212
    • View Profile
Re: Помощь создания скрипта
« Reply #40 on: October 09, 2014, 12:47:51 PM »
Если "отправить.bmp" не найдено то цикл будет пропущен, выполнится клик и через 2 сек все с начало. При успешном нахождении "отправить.bmp" цикл не завершится пока не отработают все найденные координаты.

То есть - после отправки сообщения, цикл возобновится и снова будет искать "отправить"? Без перехода на следующую страницу?
Я не ду... Потому и не бу...

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: Помощь создания скрипта
« Reply #41 on: October 09, 2014, 12:51:57 PM »
То есть - после отправки сообщения, цикл возобновится и снова будет искать "отправить"? Без перехода на следующую страницу?

Цикл не ищет Отправить, он обрабатывает массив координат полученных от SCANPICTURE. Скажем если на экране нашлось 2е отправить.bmp то цикл отработает 2а раза

Hito

  • Герой форума
  • *****
  • Posts: 1212
    • View Profile
Re: Помощь создания скрипта
« Reply #42 on: October 09, 2014, 12:53:36 PM »
То есть - после отправки сообщения, цикл возобновится и снова будет искать "отправить"? Без перехода на следующую страницу?

Цикл не ищет Отправить, он обрабатывает массив координат полученных от SCANPICTURE. Скажем если на экране нашлось 2е отправить.bmp то цикл отработает 2а раза

Как интересно... Сохраню данный скрипт для себя...  :)
Я не ду... Потому и не бу...

Hito

  • Герой форума
  • *****
  • Posts: 1212
    • View Profile
Re: Помощь создания скрипта
« Reply #43 on: October 09, 2014, 12:56:01 PM »
Но тут есть одно "но"... Дело в том, что по мере отправки сообщений, анкеты на странице исчезают и поднимаются наверх анкеты, которые были ниже экрана... На сколько я понял, цикл в данном макросе не обработает эти анкеты, так как ДО отправки сообщений, он их не видел...
Я не ду... Потому и не бу...

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: Помощь создания скрипта
« Reply #44 on: October 09, 2014, 01:03:37 PM »
Но тут есть одно "но"... Дело в том, что по мере отправки сообщений, анкеты на странице исчезают и поднимаются наверх анкеты, которые были ниже экрана... На сколько я понял, цикл в данном макросе не обработает эти анкеты, так как ДО отправки сообщений, он их не видел...
Кто написал этот скрипт?