Author Topic: Помогите остановить и начать заново при появлении зеленого круга  (Read 1454 times)

0 Members and 1 Guest are viewing this topic.

Viktor

  • Зашел в гости
  • *
  • Posts: 5
    • View Profile
1:
INC($num,1)// наращиваем номер строки
IF($num > TFCOUNT("1.txt"))
END_IF
$str = TFREAD("1.txt", $num)  // в цикле, читаем строки из файла

STRSEPARATE($str, "   ", $arr)// разбираем строку в массив по разделителям ENTER
2:
FOR($a=0,$a<ARRSIZE($arr))// в цикле читаем массив, копируем в буфер и вставляем
WAIT(1)
LOGWRITE ("Открываем   браузер")
LCLICK($browser_x1,$browserl_y)
WAITMS(300)

LOGWRITE ("окно вставки")
DBLCLICK($r_st_x,$r_st_y)
WAITMS(300)
   TOCLIP($arr[$a])
   WAITMS(50)
   KEYDOWN (#CTRL)
   WAITMS (50)
   KEYDOWN (#V)
   WAITMS (50)
   KEYUP (#V)
   KEYUP (#CTRL)
   WAITMS (50)
   KEYPRESS(#ENTER)
   WAIT(1)
END_CYC
UNDEFINE($arr) // удаляем массив

LOGWRITE ("Нажимаем кнопку ")
LCLICK($hide_x,$hide_y)
WAIT(1)

GETSCREEN                                               
IF_PIXEL_IN($green_x1,$green_y1,$green_x2,$green_y2, $green_color)
      LOGWRITE ("вылез зеленый круг  ")
    WAIT(1) 
   GOTO(1)
ELSE
   WAITMS(1000)
   GETSCREEN
   IF_PIXEL_IN($red_x1,$red_y1,$red_x2,$red_y2,$red_color) 
    LOGWRITE ("вылез  красный круг")
    WAIT(1)
    GOTO(2)
   ELSE   
   END_IF
END_IF