Author Topic: Не вставляеться в окно  (Read 1683 times)

0 Members and 1 Guest are viewing this topic.

lDC512L

  • Освоившийся
  • **
  • Posts: 39
    • View Profile
Не вставляеться в окно
« on: February 08, 2016, 05:16:59 AM »
помогите, код выполняеться, доходит до ввода капчи, нажимает распознать а после распознания не тыкает в окно и не вставляет расшифрованный код капчи
Code: [Select]
//========ВСТАВИТЬ КАПЧу В ОКНО======================

// Переделанный скрипт на капчу для ВК
SUB(paste)     ///Paste
   GETSCREEN
   IF_PICTURE_IN (0,0, $_xmax,$_ymax, "kodsuda.bmp", -1, 100) //Код Сюда
      WAITMS (50)
      lclick($_return1, $_return2)
      KEYDOWN (#CTRL) // Ctrl+V
      WAITMS (50)
      KEYDOWN (#V)
      WAITMS (50)
      KEYUP (#V)
      WAITMS (50)
      KEYUP (#CTRL)
      WAITMS (50)
      KEYDOWN (#ENTER)
      WAITMS (50)
      KEYUP (#ENTER)
      WAITMS (50)
   END_IF
END_SUB
//========ВСТАВИТЬ КАПЧу В ОКНО======================



//=============РАСПОЗНАЕМ КАПЧУ==================

SUB(capcha)////// Капча       ////
   repeat:                                                                          ///Capcha
   GETSCREEN      //Делаем скрин
   IF_PICTURE_IN (0,0, $_xmax,$_ymax, "key1.bmp", -1, 100) //ищем значок AGC
      lclick($_return1+50, $_return2+90)       //тык в распознать
      WAITMS(100)
      GETSCREEN
      IF_PICTURE_IN (0,0,$_xmax,$_ymax, "key1.bmp")
         $AGC_x = $_return1+25            //навели на поле с индикатором по Х
         $AGC_y = $_return2+56      //Навели на поле с индикатором по Y
       
      END_IF
              $pic=0
      WHILE($pic=0)
         GETSCREEN
         IF (PXL($AGC_x, $AGC_y)=65535) // жёлтый
            WAITMS(300)
         END_IF
         IF (PXL($AGC_x, $AGC_y)=65280) // зелёный
            WAITMS(100)
            $pic=1 // выходим из цикла
         END_IF
         IF (PXL($AGC_x, $AGC_y)=255) // красный
            LOGWRITE("Не распознали")
            HINTPOPUP("Не распознали")
            $pic=2
         END_IF
      END_CYC
     
      IF($pic=2) // если не распознали отправляем повторно
         GOTO(repeat)
      END_IF
      paste()
      WAITMS(300)
   END_IF
END_SUB
//=============РАСПОЗНАЕМ КАПЧУ==================

sub(Tuk)
   LCLICK($_return1, $_return2)
   waitms(50)
end_sub
sub(Chel)
   IF_PICTURE_IN (0,0, $_xmax,$_ymax, "green.bmp", -1, 100)
      waitms(200)
      Tuk()
   end_if
   IF_PICTURE_IN (0,0, $_xmax,$_ymax, "green2.bmp", -1, 100)
      waitms(250)
      Tuk()
   end_if
   
   IF_PIXEL_IN(588,396, 994,656, 25087)
      Tuk()
   END_IF
   IF_PICTURE_IN (0,0, $_xmax,$_ymax, "Otpravit.bmp", -1, 100)
      Tuk()
   END_IF
   
   IF_PICTURE_IN (0,0, $_xmax,$_ymax, "tormoz.bmp", -1, 100)
      wait(1)
   end_if
   
   
   IF_PICTURE_IN (648,338, 725,378, "kodsuda.bmp", -1, 100)
     capcha()
   END_IF
end_sub
GETSCREEN
Chel()

lDC512L

  • Освоившийся
  • **
  • Posts: 39
    • View Profile
Re: Не вставляеться в окно
« Reply #1 on: February 13, 2016, 10:15:28 PM »
может кто написать кусок программы для AGClientа, кто как реализовывал, желательно с проверкой цвета готовности окна, и кодом для вставки в поле кода, заранее благодарю

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: Не вставляеться в окно
« Reply #2 on: February 13, 2016, 10:18:21 PM »
Уже писали и выкладывали. Поищи на форуме.
Я точно делал и выкладывал определение капчи ВК.