Работа с ссылками

[Viktor77]

Не работает - растянутое понятие.

Где у тебя основной поток видишь? Там одна Команда HALT она останавливает весь скрипт.
Убери поток t2 пусть он будет основным (не надо его явно задавать THREAD(t2)...). Он у тебя не управляется, значит и запихивать код в поток нет смысла.

подскажите пожалуйста как добавить еще такое, чтоб поток приостанавливался в 13.00, делал некоторые действия, после продолжал основной код t1, тормозил в 16.00 снова делал некоторые действия и снова продолжал основной код t1

[Viktor77]

Не работает - растянутое понятие.

Где у тебя основной поток видишь? Там одна Команда HALT она останавливает весь скрипт.
Убери поток t2 пусть он будет основным (не надо его явно задавать THREAD(t2)...). Он у тебя не управляется, значит и запихивать код в поток нет смысла.

сейчас код останавливается на 180 строке, заходит на акк и стоп. без потока все работало

Code: (clickermann) [Select]

THREAD(t1)
   //здесь весь основной скрипт
   
   //=============================================
   SUB(клик,$par1,$par2,$par3) //========== клик =================
      LCLICK($par1,$par2)
      WAITMS($par3)
   END_SUB
   //=============================================
   SUB(шаг,$par30,$par31,$par32) //========== шаг =================
      MOVE($par30,$par31)
      WAITMS($par32)
   END_SUB
   //========= поиск картинки ====================================
   SUB(картинка,$par4,$par5,$par6,$par7,$par8,$par9,$par10,$par11)
      GETSCREEN($par4,$par5,$par6,$par7)
      IF_PICTURE_IN ($par4,$par5,$par6,$par7,$par8, -1, 100)
         $check = 1
         клик($_return1+$par9,$_return2+$par10,$par11)
      END_IF
   END_SUB
   //============ ожидание картинки ==============================
   SUB(ожидание_картинки,$par21,$par22,$par23,$par24,$par25,$par26,$par27,$par28,$par29)
      $check = 0
      WHILE($check = 0)
         GETSCREEN($par21,$par22,$par23,$par24)
         IF_PICTURE_IN ($par21,$par22,$par23,$par24,$par25, -1,$par26)
            $check = 1
            клик($_return1+$par27,$_return2+$par28,$par29)
         ELSE    // если не найдена  11.bmp
            клик(309,610,2000) // сменить главу
         END_IF
      END_CYC
   END_SUB
   //=============================================
   SUB(paste) //========== Вставить ==============================
      KEYDOWN(#CTRL) // Ctrl+V
      WAITMS(50)
      KEYPRESS(#V)
      WAITMS(50)
      KEYUP(#CTRL)
      WAITMS(2000)
   END_SUB
   //=============================================
   //=============================================
   SUB(лог,$note) //=============== Запись в лог файл =============
      IF($note = "пробел")
         LOGWRITE (" ")
         TFWRITE("Log.txt", " ")
      ELSE
         $th = $_time_h
         $tm = $_time_m
         $ts = $_time_s
         $dd = $_date_d
         $dm = $_date_m
         $dy = $_date_y
         
         IF(STRLEN($th)<2)
            $th = STRCONCAT ("0", $th)
         END_IF
         IF(STRLEN($tm)<2)
            $tm = STRCONCAT ("0", $tm)
         END_IF
         IF(STRLEN($ts)<2)
            $ts = STRCONCAT ("0", $ts)
         END_IF
         IF(STRLEN($dd)<2)
            $dd = STRCONCAT ("0", $dd)
         END_IF
         IF(STRLEN($dm)<2)
            $dm = STRCONCAT ("0", $dm)
         END_IF
         IF(STRLEN($dy)<2)
            $dy = STRCONCAT ("0", $dy)
         END_IF
         LOGWRITE ($dd,".",$dm,".",$dy," ",$th,":",$tm,":",$ts, " ", $note) // запись в лог
         TFWRITE("Log.txt", STRCONCAT($dd,".",$dm,".",$dy," ",$th,":",$tm,":",$ts, " ", $note))
      END_IF
   END_SUB
   //=============================================
   SUB(recognize, $x1,$y1, $x2,$y2) //== Распознавание символов ==
      GETFILELIST($Letters_arr, "Letters\*.bmp")
      FOR($Let_num=0,$Let_num<ARRSIZE($Letters_arr))
         STRSEPARATE($Letters_arr[$Let_num], "_", $a_l)
         SCANPICTURE($ARR_SCAN, $x1,$y1, $x2,$y2, STRCONCAT("Letters\", $Letters_arr[$Let_num]), -1, STRREPLACE($a_l[ARRSIZE($a_l)-1],".bmp",""))
         UNDEFINE($a_l)
         FOR($arr_num=0,$arr_num<ARRSIZE($ARR_SCAN),2)
            ARRPUSH($ARR_OUT, $ARR_SCAN[$arr_num])
            ARRPUSH($ARR_OUT, STRCUT($Letters_arr[$Let_num], 1, 1))
         END_CYC
         UNDEFINE($ARR_SCAN)
      END_CYC
      $siz = ARRSIZE($ARR_OUT)
      $srtcheck = 0
      $srt = 0
      FOR($a=$siz-2,($a>0)&($srt=0),-2)
         FOR($b=0,$b<$a,2)
            IF($ARR_OUT[$b] > $ARR_OUT[$b+2])
               $srtcheck = 1
               $tmp = $ARR_OUT[$b]
               $tmp2 = $ARR_OUT[$b+1]
               $ARR_OUT[$b] = $ARR_OUT[$b+2]
               $ARR_OUT[$b+1] = $ARR_OUT[$b+3]
               $ARR_OUT[$b+2] = $tmp
               $ARR_OUT[$b+3] = $tmp2
            END_IF
         END_CYC
         IF($srtcheck = 0)
            $srt = 1
         END_IF
      END_CYC
      $str = ""
      FOR($a=0,$a<ARRSIZE($ARR_OUT),2)
         IF(STRLEN($str) > 0)
            IF($ARR_OUT[$a]-$ARR_OUT[$a-2] > 50) // определение пробела (сколько пикселов между символами считать за пробел)
               $str = STRCONCAT($str, " ")
            END_IF
            $str = STRCONCAT($str, $ARR_OUT[$a+1])
         ELSE
            $str = $ARR_OUT[$a+1]
         END_IF
      END_CYC
      UNDEFINE($ARR_OUT)
      UNDEFINE($ARR_SCAN)
   END_SUB
   //=============================================
   LOGCLEAR
   TFCLEAR("Log.txt", 0)
   WAITMS(50)
   LOGWRITE("")
   WAITMS(50)
   лог(STRCONCAT("")) // комбинированная запись
   
   $akk_total = TFCOUNT("LogPass.txt")
   LOGWRITE("Всего аккаунтов: ", $akk_total)
   лог(STRCONCAT("Всего аккаунтов: ", $akk_total))
   FOR($akk=1, $akk <= $akk_total)
      LOGWRITE("Текущий аккаунт: ", $akk)
      лог(STRCONCAT("Текущий аккаунт: ", $akk))
      $str = TFREAD ("LogPass.txt", $akk)
      $log = STRCUT2 ($str, 1, STRPOS ($str, ":")-1)
      $pass = STRCUT2 ($str, STRPOS ($str, ":")+1, STRLEN ($str))
      клик(1271,1002,2000)
      DBLCLICK(635,30) //запуск браузера
      WAIT(20)
      IF($akk < 15)
         LCLICK(390,55) //клик по панель поиска
         WAITMS (500)
         $portal = TFREAD("portal.txt", 1)
         // здесь ввод строки, чтобы это не значило
         TOCLIP($portal) //скопировать
         WAITMS (1000)
         paste()
         KEYPRESS(#ENTER) // Enter
         WAITMS (100)
         WAITMS (15000)
         GETSCREEN(0,0,$_xmax,$_ymax)
         IF_PICTURE_IN (0,0,$_xmax,$_ymax, "55.bmp", - 1, 100)
            MOVE($_return1,$_return2)
            WAIT(2)
         ELSE
            WAIT(2)
            картинка(0,0,$_xmax,$_ymax,"38.bmp",1,1,15000)
         END_IF
         LCLICK(505,345) // клик по полю логина
         WAITMS (1000)
         TOCLIP($log) // скопировать логин в буфер
         лог(STRCONCAT(" :",$log))
         WAITMS (500)
         paste()
         
         KEYPRESS(#TAB) // переход на поле пароля
         WAITMS (1000)
         
         WAITMS (1000)
         TOCLIP($pass) // скопировать пароль в буфер
         WAITMS (500)
         paste()
         
         KEYPRESS(#ENTER) // Enter
         WAITMS (100)
         WAIT(10)
         // тут команды после входа
         $servera = STRCONCAT("servera_", $akk,".txt")
         $serv_len = TFCOUNT($servera)
         FOR($serv=1, $serv <= $serv_len)
            LCLICK(390,55) //клик по панель поиска
            WAIT(2)
            TOCLIP(TFREAD($servera,$serv))
            WAITMS(100)
            print("файл ", $servera)
            print("ссылка ", TFREAD($servera, $serv))
            лог(STRCONCAT("файл ", $servera))
            лог(STRCONCAT("ссылка ", TFREAD($servera, $serv)))
            paste()
            WAITMS(50)
           
           
            KEYPRESS(#ENTER)
            WAIT (5)
            // тут команды после
           
         END_CYC
         лог(STRCONCAT("")) // комбинированная запись
         
         WAIT(10)
      else
         LCLICK(390,55) //клик по панель поиска
         WAITMS (500)
         $portal = TFREAD("portal.txt", 2)
         // здесь ввод строки, чтобы это не значило
         TOCLIP($portal) //скопировать
         WAITMS (1000)
         paste()
         KEYPRESS(#ENTER) // Enter
         WAITMS (100)
         WAITMS (5000)
         //LCLICK(217, 624) //
         WAITMS (500)
         картинка(0,0,$_xmax,$_ymax,"42.bmp",2,2,2000)
         //LCLICK(360,170) // клик по вход
         WAITMS (500)
         картинка(0,0,$_xmax,$_ymax,"39.bmp",2,2,2000)
         WAITMS (5000)
         LCLICK(355,236) // клик по полю логина
         WAITMS (1000)
         TOCLIP($log) // скопировать логин в буфер
         лог(STRCONCAT(" :",$log))
         WAITMS (100)
         paste()
         
         KEYPRESS(#TAB) // переход на поле пароля
         WAITMS (1000)
         
         //LCLICK(505,395) // клик по полю пароля
         WAITMS (1000)
         TOCLIP($pass) // скопировать в пароль в буфер
         WAITMS (100)
         paste()
         
         KEYPRESS(#ENTER) // Enter
         WAITMS (100)
         //LCLICK(640,470) // клик по "Вход"
         WAIT(10)
         // тут команды после входа
         $servera = STRCONCAT("servera_", $akk,".txt")
         $serv_len = TFCOUNT($servera)
         FOR($serv=1, $serv <= $serv_len)
            LCLICK(390,55) //клик по панель поиска
            WAIT(2)
            TOCLIP(TFREAD($servera,$serv))
            WAITMS(100)
            print("файл ", $servera)
            print("ссылка ", TFREAD($servera, $serv))
            лог(STRCONCAT("файл ", $servera))
            лог(STRCONCAT("ссылка ", TFREAD($servera, $serv)))
            paste()
            WAITMS(50)
           
           
            KEYPRESS(#ENTER)
            WAIT (30)
            // тут команды после
           
           
         END_CYC
         
      END_IF
      IF($akk < 15)
         //выход
         картинка(0,0,$_xmax,$_ymax,"36.bmp",2,2,2000)
         WAIT(5)
         картинка(0,0,$_xmax,$_ymax,"37.bmp",2,2,2000)
         //print("37.bmp")
         //LCLICK(1170,120)  // 2467327
         WAIT(5)
         клик(1257,15,2000)  // закрыть браузер
         WAIT(3)
      ELSE
         //выход
         LCLICK(390,55) //клик по панель поиска
         WAITMS (500)
         $portal = TFREAD("portal.txt", 2)
         TOCLIP($portal) //скопировать
         WAITMS (1000)
         paste()
         KEYPRESS(#ENTER)
         WAIT (3)
         WAITMS (2000)
         
         картинка(0,0,$_xmax,$_ymax,"41.bmp",2,2,2000)
         
         //LCLICK(1175,101)  // 2467327
         WAIT(5)
         клик(1257,15,2000)  // закрыть браузер
         WAIT(3)
      END_IF
      лог(STRCONCAT("")) // комбинированная запись
   END_CYC
   WAIT(3)
END_THREAD

// проверки Error
   //=============================================
   SUB(шаг,$par30,$par31,$par32) //========== шаг =================
      MOVE($par30,$par31)
      WAITMS($par32)
   END_SUB
   SETTHREAD(t1,0) //ставим поток t1 на паузу, чтобы GETSCREEN второго потока не пересекался с GETSCREEN первого
   
   GETSCREEN
   COLORMODE(7)
   IF_PICTURE_IN (0,0, $_xmax,$_ymax, "ErrorCode.bmp", -1, 100)
      шаг($_return1, $_return2,2000)
      SETTHREAD(t1,2) //ставим поток t1 на паузу, при последующем снятии с паузы поток начинает выполняться с начала, независимо от того, на какой инструкции тела он был остановлен
      //здесь действия по перезапуску игры
      KEYPRESS(#F5)  // обновить страницу
      WAIT(20)
      GETSCREEN
      IF_PICTURE_IN(0,0,$_xmax,$_ymax,"2.bmp",-1,100)
         шаг($_return1, $_return2,2000)
      END_IF
      WAITMS(500)
      SETTHREAD(t1,1) //снимаем поток t1 с паузы
   ELSE
      IF_PICTURE_IN (0,0, $_xmax,$_ymax, "Adobe Flash Player color7.bmp", -1, 100)
         шаг($_return1, $_return2,2000)
         SETTHREAD(t1,2) //ставим поток t1 на паузу, при последующем снятии с паузы поток начинает выполняться с начала, независимо от того, на какой инструкции тела он был остановлен
         //здесь действия по перезапуску игры
         KEYPRESS(#F5)  // обновить страницу
         WAIT(20)
         GETSCREEN
         IF_PICTURE_IN(0,0,$_xmax,$_ymax,"2.bmp",-1,100)
            шаг($_return1, $_return2,3000)
         END_IF
      END_IF
      SETTHREAD(t1,1) //снимаем поток t1 с паузы
   END_IF
   SETTHREAD(t1,1) //снимаем поток t1 с паузы
   WAIT(60) //периодичность проверки на error

halt

[Viktor77]

Не работает - растянутое понятие.

Где у тебя основной поток видишь? Там одна Команда HALT она останавливает весь скрипт.
Убери поток t2 пусть он будет основным (не надо его явно задавать THREAD(t2)...). Он у тебя не управляется, значит и запихивать код в поток нет смысла.

помогите дописать скрипт.

Code: (clickermann) [Select]

//проверка на сбои прерывания сессии или слетел флеш плеер. проверять до конца сценария. так же проверить прошла авторизация или нет, если нет перелогинится, и подсчет стадий выполнения всех действий. за ранее спасибо за помощь
THREAD(t1)
// основной скрипт ниже
END_THREAD
THREAD(t2)// приостановить поток t1 и запустить t2 в 12.00
//здесь действия t2
END_THREAD
 // продолжить выполение потока t1
THREAD(t3)// приостановить поток t1 и запустить t3 в 14.00
//здесь действия t3
END_THREAD
 // продолжить выполение потока t1
THREAD(t4)// приостановить поток t1 и запустить t4 в 17.00
//здесь действия t4
END_THREAD
// продолжить выполение потока t1
Halt

[Viktor77]

Не работает - растянутое понятие.

Где у тебя основной поток видишь? Там одна Команда HALT она останавливает весь скрипт.
Убери поток t2 пусть он будет основным (не надо его явно задавать THREAD(t2)...). Он у тебя не управляется, значит и запихивать код в поток нет смысла.

сами подпрограммы

Code: (clickermann) [Select]

SUB(клик,$par1,$par2,$par3) //========== клик =================
   LCLICK($par1,$par2)
   WAITMS($par3)
END_SUB
//========= поиск картинки ====================================
SUB(картинка,$par4,$par5,$par6,$par7,$par8,$par9,$par10,$par11)
   GETSCREEN($par4,$par5,$par6,$par7)
   COLORMODE(8)
   IF_PICTURE_IN ($par4,$par5,$par6,$par7,$par8, -1, 100)
      $check = 1
      клик($_return1+$par9,$_return2+$par10,$par11)
   END_IF
END_SUB
//============ ожидание картинки ==============================
SUB(ожидание_картинки,$par21,$par22,$par23,$par24,$par25,$par26,$par27,$par28,$par29)
   $check = 0
   WHILE($check = 0)
      GETSCREEN($par21,$par22,$par23,$par24)
      COLORMODE(8)
      IF_PICTURE_IN ($par21,$par22,$par23,$par24,$par25, -1,$par26)
         $check = 1
         клик($_return1+$par27,$_return2+$par28,$par29)
      ELSE    // если не найдена  34.bmp
         клик(309,595,2000) // 35 сменить главу
      END_IF
   END_CYC
END_SUB
//=============================================
SUB(paste) //========== Вставить ==============================
   KEYDOWN(#CTRL) // Ctrl+V
   WAITMS(50)
   KEYPRESS(#V)
   WAITMS(50)
   KEYUP(#CTRL)
   WAITMS(2000)
END_SUB
//=============================================
SUB(close) //========== Закрыть ==============================
   KEYDOWN(#CTRL) // Ctrl+F4
   WAITMS(50)
   KEYPRESS(#F4)
   WAITMS(50)
   KEYUP(#CTRL)
   WAITMS(500)
END_SUB
//=============================================
SUB(лог,$note) //=============== Запись в лог файл =============
   IF($note = "пробел")
      LOGWRITE (" ")
      TFWRITE("Log.txt", " ")
   ELSE
      $th = $_time_h
      $tm = $_time_m
      $ts = $_time_s
      $dd = $_date_d
      $dm = $_date_m
      $dy = $_date_y
     
      IF(STRLEN($th)<2)
         $th = STRCONCAT ("0", $th)
      END_IF
      IF(STRLEN($tm)<2)
         $tm = STRCONCAT ("0", $tm)
      END_IF
      IF(STRLEN($ts)<2)
         $ts = STRCONCAT ("0", $ts)
      END_IF
      IF(STRLEN($dd)<2)
         $dd = STRCONCAT ("0", $dd)
      END_IF
      IF(STRLEN($dm)<2)
         $dm = STRCONCAT ("0", $dm)
      END_IF
      IF(STRLEN($dy)<2)
         $dy = STRCONCAT ("0", $dy)
      END_IF
      LOGWRITE ($dd,".",$dm,".",$dy," ",$th,":",$tm,":",$ts, " ", $note) // запись в лог
      TFWRITE("Log.txt", STRCONCAT($dd,".",$dm,".",$dy," ",$th,":",$tm,":",$ts, " ", $note))
   END_IF
END_SUB
//=============================================
SUB(recognize, $x1,$y1, $x2,$y2) //== Распознавание символов ==
   GETFILELIST($Letters_arr, "Letters\*.bmp")
   FOR($Let_num=0,$Let_num<ARRSIZE($Letters_arr))
      STRSEPARATE($Letters_arr[$Let_num], "_", $a_l)
      SCANPICTURE($ARR_SCAN, $x1,$y1, $x2,$y2, STRCONCAT("Letters\", $Letters_arr[$Let_num]), -1, STRREPLACE($a_l[ARRSIZE($a_l)-1],".bmp",""))
      UNDEFINE($a_l)
      FOR($arr_num=0,$arr_num<ARRSIZE($ARR_SCAN),2)
         ARRPUSH($ARR_OUT, $ARR_SCAN[$arr_num])
         ARRPUSH($ARR_OUT, STRCUT($Letters_arr[$Let_num], 1, 1))
      END_CYC
      UNDEFINE($ARR_SCAN)
   END_CYC
   $siz = ARRSIZE($ARR_OUT)
   $srtcheck = 0
   $srt = 0
   FOR($a=$siz-2,($a>0)&($srt=0),-2)
      FOR($b=0,$b<$a,2)
         IF($ARR_OUT[$b] > $ARR_OUT[$b+2])
            $srtcheck = 1
            $tmp = $ARR_OUT[$b]
            $tmp2 = $ARR_OUT[$b+1]
            $ARR_OUT[$b] = $ARR_OUT[$b+2]
            $ARR_OUT[$b+1] = $ARR_OUT[$b+3]
            $ARR_OUT[$b+2] = $tmp
            $ARR_OUT[$b+3] = $tmp2
         END_IF
      END_CYC
      IF($srtcheck = 0)
         $srt = 1
      END_IF
   END_CYC
   $str = ""
   FOR($a=0,$a<ARRSIZE($ARR_OUT),2)
      IF(STRLEN($str) > 0)
         IF($ARR_OUT[$a]-$ARR_OUT[$a-2] > 50) // определение пробела (сколько пикселов между символами считать за пробел)
            $str = STRCONCAT($str, " ")
         END_IF
         $str = STRCONCAT($str, $ARR_OUT[$a+1])
      ELSE
         $str = $ARR_OUT[$a+1]
      END_IF
   END_CYC
   UNDEFINE($ARR_OUT)
   UNDEFINE($ARR_SCAN)
END_SUB
//=============================================


[Viktor77]

Не работает - растянутое понятие.

Где у тебя основной поток видишь? Там одна Команда HALT она останавливает весь скрипт.
Убери поток t2 пусть он будет основным (не надо его явно задавать THREAD(t2)...). Он у тебя не управляется, значит и запихивать код в поток нет смысла.

основной скрипт

Code: (clickermann) [Select]

LOGCLEAR
TFCLEAR("Log.txt", 0)
WAITMS(50)
LOGWRITE("Старт")
WAITMS(50)
лог(STRCONCAT("Запуск ")) // комбинированная запись
клик(1271,1002,5000)

$akk_total = TFCOUNT("LogPass.txt")
LOGWRITE("Всего аккаунтов: ", $akk_total)
лог(STRCONCAT("Всего аккаунтов: ", $akk_total))
FOR($akk=1, $akk <= $akk_total)
   LOGWRITE("Текущий аккаунт: ", $akk)
   лог(STRCONCAT("Текущий аккаунт: ", $akk))
   $str = TFREAD ("LogPass.txt", $akk)
   $log = STRCUT2 ($str, 1, STRPOS ($str, ":")-1)
   $pass = STRCUT2 ($str, STRPOS ($str, ":")+1, STRLEN ($str))
   EXECUTE("Browser.exe")
   WAIT(10)
   IF($akk < 5)
      LCLICK(390,55) //клик по панель поиска
      WAITMS (500)
      $portal = TFREAD("portal.txt", 1)
      // здесь ввод строки, чтобы это не значило
      TOCLIP($portal) //скопировать
      WAITMS (1000)
      paste()
      KEYPRESS(#ENTER) // Enter
      WAITMS (100)
      WAITMS (5000)
      GETSCREEN
      COLORMODE(8)
      IF_PICTURE_IN (0,0,$_xmax,$_ymax, "1.bmp", - 1, 100)
         MOVE($_return1,$_return2)
         WAIT(1)
      ELSE
         GETSCREEN
         COLORMODE(8)
         IF_PICTURE_IN (0,0,$_xmax,$_ymax, "2.bmp", - 1, 100)
            LCLICK($_return1,$_return2)
            WAIT(1)
         END_IF
      END_IF
      LCLICK(505,345) // клик по полю логина
      WAITMS (1000)
      TOCLIP($log) // скопировать логин в буфер
      лог(STRCONCAT(" :",$log))
      WAITMS (100)
      paste()
     
      KEYPRESS(#TAB) // переход на поле пароля
      WAITMS (1000)
     
      //LCLICK(505,395) // клик по полю пароля
      WAITMS (1000)
      TOCLIP($pass) // скопировать пароль в буфер
      WAITMS (100)
      paste()
     
      KEYPRESS(#ENTER) // Enter
      WAITMS (100)
      WAIT(10)
      GETSCREEN
      COLORMODE(8)
      IF_PICTURE_IN (0,0,$_xmax,$_ymax, "5.bmp", - 1, 100)
         LCLICK($_return1,$_return2)  // если 5 найдена то продолжать, если нет перелогинится
         WAIT(1)
      END_IF
      // тут команды после входа
      $servera = STRCONCAT("servera_", $akk,".txt")
      $serv_len = TFCOUNT($servera)
      FOR($serv=1, $serv <= $serv_len)
         LCLICK(390,55) //клик по панель поиска
         WAIT(2)
         TOCLIP(TFREAD($servera,$serv))
         WAITMS(100)
         print("файл ", $servera)
         print("ссылка ", TFREAD($servera, $serv))
         лог(STRCONCAT("файл ", $servera))
         лог(STRCONCAT("ссылка ", TFREAD($servera, $serv)))
         paste()
         WAITMS(50)
         
         
         KEYPRESS(#ENTER)
         WAIT (5)
         // тут команды после
         картинка(0,0,$_xmax,$_ymax,"9.bmp",2,2,2000)// 9   крестик флеша
         GETSCREEN(0,0,$_xmax,$_ymax)
         IF_PIXEL_IN(0,0,$_xmax,$_ymax, 16777215)
            клик($_return1, $_return2,2000)
         END_IF
         WAIT(20)
         GETSCREEN(0,0,$_xmax,$_ymax)
         COLORMODE(8)
         IF_PICTURE_IN (0,0,$_xmax,$_ymax, "10.bmp", - 1, 100) //проверка на сбой
            клик($_return1,$_return2,2000)
         ELSE
            $check = 0
            WHILE($check = 0)
               KEYPRESS(#F5)  // обновить страницу
               WAIT(20)
               картинка(0,0,$_xmax,$_ymax,"10.bmp",1,1,2000)
            END_CYC
         END_IF
         WAIT(3)
         GETSCREEN(0,0,$_xmax,$_ymax)
         IF_PIXEL_IN(0,0,$_xmax,$_ymax, 16777215)
            клик($_return1, $_return2,2000)
         END_IF
         картинка(0,0,$_xmax,$_ymax,"12.bmp",2,2,2000)
         картинка(0,0,$_xmax,$_ymax,"12.bmp",2,2,2000)
         картинка(0,0,$_xmax,$_ymax,"12.bmp",2,2,2000)
         картинка(0,0,$_xmax,$_ymax,"13.bmp",2,2,2000)
         картинка(0,0,$_xmax,$_ymax,"14.bmp",2,2,2000)
         картинка(0,0,$_xmax,$_ymax,"12.bmp",2,2,2000)
         картинка(0,0,$_xmax,$_ymax,"12.bmp",2,2,2000)
         картинка(0,0,$_xmax,$_ymax,"18.bmp",2,2,2000)
         картинка(0,0,$_xmax,$_ymax,"12.bmp",2,2,2000)
         картинка(0,0,$_xmax,$_ymax,"19.bmp",2,2,5000)
         картинка(0,0,$_xmax,$_ymax,"20.bmp",2,2,3000)
         картинка(0,0,$_xmax,$_ymax,"21.bmp",2,2,2000)
         картинка(0,0,$_xmax,$_ymax,"22.bmp",2,2,2000)
         картинка(430,250,585,390,"23.bmp",2,60,2000)
         картинка(500,465,635,610,"24.bmp",2,60,2000)
         картинка(0,0,$_xmax,$_ymax,"25.bmp",2,2,2000)
         картинка(0,0,$_xmax,$_ymax,"26.bmp",100,53,2000)
         картинка(0,0,$_xmax,$_ymax,"27.bmp",2,2,2000)
         картинка(0,0,$_xmax,$_ymax,"28.bmp",2,2,2000)
         картинка(0,0,$_xmax,$_ymax,"12.bmp",2,2,2000)
         картинка(0,0,$_xmax,$_ymax,"12.bmp",2,2,2000)
         картинка(0,0,$_xmax,$_ymax, "40.bmp",15,15,2000)
         GETSCREEN(0,0,$_xmax,$_ymax)
         COLORMODE(8)
         IF_PICTURE_IN (0,0,$_xmax,$_ymax, "41.bmp", - 1, 100)
            клик($_return1+2, $_return2+2,2000)
         END_IF
         GETSCREEN(0,0,$_xmax,$_ymax)
         COLORMODE(8)
         IF_PICTURE_IN (0,0,$_xmax,$_ymax, "42.bmp", - 1, 100)
            клик($_return1+5, $_return2+5,2000)
            GETSCREEN(0,0,$_xmax,$_ymax)
            COLORMODE(8)
            IF_PICTURE_IN (0,0,$_xmax,$_ymax, "43.bmp", - 1, 100)
               клик($_return1+5, $_return2+5,2000)
               картинка(0,0,$_xmax,$_ymax, "44.bmp",5,5,2000)
            END_IF
         END_IF
         WAIT(1)
         KEYPRESS(#B)
         WAIT(3)
         
         GETSCREEN(0,0,$_xmax,$_ymax)
         COLORMODE(8)
         IF_PICTURE_IN (0,0,$_xmax,$_ymax, "45.bmp", - 1, 100)
            DBLCLICK($_return1+15, $_return2+15)
            WAIT(1)
         END_IF
         GETSCREEN(0,0,$_xmax,$_ymax)
         COLORMODE(8)
         IF_PICTURE_IN (0,0,$_xmax,$_ymax, "46.bmp", - 1, 100)
            MOVE($_return1+1, $_return2+1)
            WAIT(1)
            IF(FExists(STRCONCAT("C:\files\twin1\",$_date_y,"-",$_date_m,"-",$_date_d)) = 0)//если папки с датой нету
               FCreate(STRCONCAT("C:\files\twin1\",$_date_y,"-",$_date_m,"-",$_date_d))//то создаем ее
            END_IF
            SCREENSHOTFIX(0,0,$_xmax,$_ymax,STRCONCAT ("C:\files\twin1\",$_date_y,"-",$_date_m,"-",$_date_d,"\file", $n,".bmp"))
            inc($n)
         END_IF
         WAIT(1)
         KEYPRESS(#B)
         WAIT(1)
         
         $older = 10  // старее N дней
         
         IF($sgfvkvjgka = 0)
            STRSEPARATE("31,28,31,30,31,30,31,31,30,31,30,31", ",", $md)
            $sgfvkvjgka = 1
         END_IF
         
         SUB(day_of_year, $dy_d, $dy_m, $dy_y)
            $fdm = 0
            FOR($dyi=0, $dyi < ($dy_m-1))
               $fdm = $fdm + $md[$dyi]
            END_CYC
            $full_day = $dy_y*365 + $fdm + $dy_d
         END_SUB
         
         
         day_of_year($_date_d, $_date_m, $_date_y)
         $cur_day = $full_day
         
         GETDIRLIST($twins, "C:\files\twin*")
         FOR($tw=0, $tw < ARRSIZE($twins))
            $twin = $twins[$tw]
            LOGWRITE($twin)
           
            $mask = STRCONCAT("C:\files\", $twin, "\*")
            GETDIRLIST($dirs, $mask)
            FOR($i=0, $i < ARRSIZE($dirs))
               $dir = $dirs[$i]
               STRSEPARATE($dir, "-", $dat)
               day_of_year(INT($dat[0]), INT($dat[1]), INT($dat[2]))
               $folder_day = $full_day
               
               IF(($cur_day - $folder_day) > $older-1)
                  $fullname = STRCONCAT("C:\files\", $twin, "\", $dir)
                  FDELETE($fullname)
                  LOGWRITE("   ├─", $dir, "   Old  ", $fullname)
               ELSE
                  LOGWRITE("   ├─", $dir)
                  //LOGWRITE("   ├─", $dir, "   Ok")
               END_IF
            END_CYC
            //LOGWRITE()
         END_CYC
         
         WAIT(1)
         // вызов подпрограммы распознавания
         GETSCREEN
         COLORMODE(8)
         recognize(131,118, 175,140) // область распознавания
         LOGWRITE($str) // переменная с результатом (смотрим лог)
         лог(STRCONCAT(": ", $str)) // комбинированная запись
         WAITMS (50)
         картинка(0,0,$_xmax,$_ymax,"47.bmp",2,2,2000)
         картинка(450,580,540,625,"48.bmp",5,5,2000)
         картинка(0,0,$_xmax,$_ymax,"49.bmp",2,2,3000)
         картинка(0,0,$_xmax,$_ymax,"49.bmp",2,2,3000)
         картинка(0,0,$_xmax,$_ymax,"12.bmp",2,2,7000)
         картинка(0,0,$_xmax,$_ymax,"50.bmp",1,1,2000)
         картинка(0,0,$_xmax,$_ymax,"51.bmp",1,1,2000)
         картинка(0,0,$_xmax,$_ymax,"52.bmp",1,1,2000)
         картинка(785,370,$_xmax,$_ymax,"54.bmp",1,1,2000)
         картинка(0,0,$_xmax,$_ymax,"55.bmp",1,1,2000)
         картинка(0,0,$_xmax,$_ymax,"56.bmp",1,1,2000)
         картинка(0,0,$_xmax,$_ymax,"57.bmp",1,1,2000)
         картинка(0,0,$_xmax,$_ymax,"59.bmp",1,1,2000)
         картинка(0,0,$_xmax,$_ymax,"63.bmp",1,1,2000)
      END_CYC
      лог(STRCONCAT("1")) // комбинированная запись
     
      WAIT(5)
   else
      LCLICK(390,55) //клик по панель поиска
      WAITMS (500)
      $portal = TFREAD("portal.txt", 2)
      // здесь ввод строки, чтобы это не значило
      TOCLIP($portal) //скопировать
      WAITMS (1000)
      paste()
      KEYPRESS(#ENTER) // Enter
      WAITMS (100)
      WAITMS (5000)
      WAITMS (500)
      GETSCREEN
      COLORMODE(8)
      IF_PICTURE_IN (0,0,$_xmax,$_ymax, "3.bmp", - 1, 100)
         LCLICK($_return1,$_return2)
         WAIT(2)
      END_IF
      WAITMS (500)
      GETSCREEN
      COLORMODE(8)
      IF_PICTURE_IN (0,0,$_xmax,$_ymax, "4.bmp", - 1, 100)
         LCLICK($_return1,$_return2)
         WAIT(2)
      END_IF
      WAITMS (5000)
      LCLICK(355,236) // клик по полю логина
      WAITMS (1000)
      TOCLIP($log) // скопировать логин в буфер
      лог(STRCONCAT(" :",$log))
      WAITMS (100)
      paste()
     
      KEYPRESS(#TAB) // переход на поле пароля
      WAITMS (1000)
     
      WAITMS (1000)
      TOCLIP($pass) // скопировать в пароль в буфер
      WAITMS (100)
      paste()
     
      KEYPRESS(#ENTER) // Enter
      WAITMS (100)
      WAIT(10)
     
      GETSCREEN
      COLORMODE(8)
      IF_PICTURE_IN (0,0,$_xmax,$_ymax, "6.bmp", - 1, 100)
         LCLICK($_return1,$_return2)  // если 6 найдена, перелогинится
         WAIT(1)
      END_IF
      // тут команды после входа
      $servera = STRCONCAT("servera_", $akk,".txt")
      $serv_len = TFCOUNT($servera)
      FOR($serv=1, $serv <= $serv_len)
         LCLICK(390,55) //клик по панель поиска
         WAIT(2)
         TOCLIP(TFREAD($servera,$serv))
         WAITMS(100)
         print("файл ", $servera)
         print("ссылка ", TFREAD($servera, $serv))
         лог(STRCONCAT("файл ", $servera))
         лог(STRCONCAT("ссылка ", TFREAD($servera, $serv)))
         paste()
         WAITMS(50)
         
         KEYPRESS(#ENTER)
         WAIT (10)
         // тут команды после тоже самое что и выше только добалено поиск еще картинок
         картинка(0,0,$_xmax,$_ymax,"9.bmp",2,2,2000)    //9 крест флеш
         GETSCREEN(0,0,$_xmax,$_ymax)
         IF_PIXEL_IN(0,0,$_xmax,$_ymax, 16777215)
            клик($_return1, $_return2,2000)
         END_IF
         WAIT(20)
         GETSCREEN(0,0,$_xmax,$_ymax)
         COLORMODE(8)
         IF_PICTURE_IN (0,0,$_xmax,$_ymax, "10.bmp", - 1, 100) //10
            клик($_return1,$_return2,2000)
         ELSE
            $check = 0
            WHILE($check = 0)
               KEYPRESS(#F5)  // обновить страницу
               WAIT(20)
               картинка(0,0,$_xmax,$_ymax,"10.bmp",1,1,2000)
            END_CYC
         END_IF
         WAIT(3)
         GETSCREEN(0,0,$_xmax,$_ymax)
         IF_PIXEL_IN(0,0,$_xmax,$_ymax, 16777215)
            клик($_return1, $_return2,2000)
         END_IF
         картинка(0,0,$_xmax,$_ymax,"12.bmp",2,2,2000)
         картинка(0,0,$_xmax,$_ymax,"12.bmp",2,2,2000)
         картинка(0,0,$_xmax,$_ymax,"12.bmp",2,2,2000)
         картинка(0,0,$_xmax,$_ymax,"15.bmp",2,2,2000)
         картинка(0,0,$_xmax,$_ymax,"16.bmp",7,10,2000)
         картинка(0,0,$_xmax,$_ymax,"17.bmp",2,2,2000)
         картинка(0,0,$_xmax,$_ymax,"12.bmp",2,2,2000)
         картинка(0,0,$_xmax,$_ymax,"12.bmp",2,2,2000)
         картинка(0,0,$_xmax,$_ymax,"12.bmp",2,2,2000)
         картинка(0,0,$_xmax,$_ymax,"19.bmp",2,2,5000)
         картинка(0,0,$_xmax,$_ymax,"20.bmp",2,2,3000)
         картинка(0,0,$_xmax,$_ymax,"21.bmp",2,2,2000)
         картинка(0,0,$_xmax,$_ymax,"22.bmp",2,2,2000)
         картинка(430,250,585,390,"23.bmp",2,60,2000)
         картинка(500,465,635,610,"24.bmp",2,60,2000)
         картинка(0,0,$_xmax,$_ymax,"25.bmp",2,2,2000)
         картинка(0,0,$_xmax,$_ymax,"26.bmp",100,53,2000)
         картинка(0,0,$_xmax,$_ymax,"27.bmp",2,2,2000)
         картинка(0,0,$_xmax,$_ymax,"28.bmp",2,2,2000)
         картинка(0,0,$_xmax,$_ymax,"29.bmp",2,2,2000)
         картинка(0,0,$_xmax,$_ymax,"30.bmp",2,2,2000)
         картинка(0,0,$_xmax,$_ymax,"31.bmp",2,2,5000)
         картинка(0,0,$_xmax,$_ymax,"12.bmp",2,2,2000)
         картинка(0,0,$_xmax,$_ymax,"13.bmp",2,2,2000)
         картинка(0,0,$_xmax,$_ymax,"14.bmp",2,2,2000)
         картинка(0,0,$_xmax,$_ymax, "32.bmp",1,1, 2000)
         картинка(0,0,$_xmax,$_ymax, "33.bmp",0,0, 5000)
         ожидание_картинки(0,0,$_xmax,$_ymax,"34.bmp",100,0,0,2000)
         картинка(0,0,$_xmax,$_ymax, "36.bmp",0,0, 2000)
         картинка(0,0,$_xmax,$_ymax, "37.bmp",54,0, 2000)
         KEYPRESS(#9)
         WAITMS(2000)
         картинка(0,0,$_xmax,$_ymax, "38.bmp",0,0, 2000)
         GETSCREEN(0,0,$_xmax,$_ymax)
         COLORMODE(8)
         IF_PICTURE_IN (0,0,$_xmax,$_ymax, "39.bmp", - 1, 100)
            клик($_return1, $_return2,2000)
         END_IF
         картинка(0,0,$_xmax,$_ymax,"12.bmp",2,2,2000)
         картинка(0,0,$_xmax,$_ymax, "40.bmp",15,15,2000)
         GETSCREEN(0,0,$_xmax,$_ymax)
         COLORMODE(8)
         IF_PICTURE_IN (0,0,$_xmax,$_ymax, "41.bmp", - 1, 100)
            клик($_return1+2, $_return2+2,2000)
         END_IF
         GETSCREEN(0,0,$_xmax,$_ymax)
         COLORMODE(8)
         IF_PICTURE_IN (0,0,$_xmax,$_ymax, "42.bmp", - 1, 100)
            клик($_return1+5, $_return2+5,2000)
            GETSCREEN(0,0,$_xmax,$_ymax)
            COLORMODE(8)
            IF_PICTURE_IN (0,0,$_xmax,$_ymax, "43.bmp", - 1, 100)
               клик($_return1+5, $_return2+5,2000)
               картинка(0,0,$_xmax,$_ymax, "44.bmp",5,5,2000)
            END_IF
         END_IF
         WAIT(1)
         KEYPRESS(#B)
         WAIT(3)
         GETSCREEN(0,0,$_xmax,$_ymax)
         COLORMODE(8)
         IF_PICTURE_IN (0,0,$_xmax,$_ymax, "45.bmp", - 1, 100)
            DBLCLICK($_return1+15, $_return2+15)
            WAIT(1)
         END_IF
         GETSCREEN(0,0,$_xmax,$_ymax)
         COLORMODE(8)
         IF_PICTURE_IN (0,0,$_xmax,$_ymax, "46.bmp", - 1, 100)
            MOVE($_return1+1, $_return2+1)
            WAIT(1)
            IF(FExists(STRCONCAT("C:\files\twin1\",$_date_y,"-",$_date_m,"-",$_date_d)) = 0)//если папки с датой нету
               FCreate(STRCONCAT("C:\files\twin1\",$_date_y,"-",$_date_m,"-",$_date_d))//то создаем ее  - E:\files\twin1\6-11-2019  на сегодняшний день
            END_IF
            SCREENSHOTFIX(0,0,$_xmax,$_ymax,STRCONCAT ("C:\files\twin1\",$_date_y,"-",$_date_m,"-",$_date_d,"\file", $n,".bmp"))
            inc($n)
         END_IF
         WAIT(1)
         KEYPRESS(#B)
         WAIT(1)
         
         $older = 10  // старее N дней
         
         IF($sgfvkvjgka = 0)
            STRSEPARATE("31,28,31,30,31,30,31,31,30,31,30,31", ",", $md)
            $sgfvkvjgka = 1
         END_IF
         
         SUB(day_of_year, $dy_d, $dy_m, $dy_y)
            $fdm = 0
            FOR($dyi=0, $dyi < ($dy_m-1))
               $fdm = $fdm + $md[$dyi]
            END_CYC
            $full_day = $dy_y*365 + $fdm + $dy_d
         END_SUB
         
         
         day_of_year($_date_d, $_date_m, $_date_y)
         $cur_day = $full_day
         
         GETDIRLIST($twins, "C:\files\twin*")
         FOR($tw=0, $tw < ARRSIZE($twins))
            $twin = $twins[$tw]
            LOGWRITE($twin)
           
            $mask = STRCONCAT("C:\files\", $twin, "\*")
            GETDIRLIST($dirs, $mask)
            FOR($i=0, $i < ARRSIZE($dirs))
               $dir = $dirs[$i]
               STRSEPARATE($dir, "-", $dat)
               day_of_year(INT($dat[0]), INT($dat[1]), INT($dat[2]))
               $folder_day = $full_day
               
               IF(($cur_day - $folder_day) > $older-1)
                  $fullname = STRCONCAT("C:\files\", $twin, "\", $dir)
                  FDELETE($fullname)
                  LOGWRITE("   ├─", $dir, "   Old  ", $fullname)
               ELSE
                  LOGWRITE("   ├─", $dir)
                  //LOGWRITE("   ├─", $dir, "   Ok")
               END_IF
            END_CYC
            //LOGWRITE()
         END_CYC
         
         WAIT(1)
         // вызов подпрограммы распознавания
         GETSCREEN
         COLORMODE(8)
         recognize(131,118, 175,140) // область распознавания
         LOGWRITE($str) // переменная с результатом (смотрим лог)
         лог(STRCONCAT(": ", $str)) // комбинированная запись
         WAITMS (50)
         
         картинка(0,0,$_xmax,$_ymax,"47.bmp",2,2,2000)
         картинка(450,580,540,625,"48.bmp",5,5,2000)
         картинка(0,0,$_xmax,$_ymax,"49.bmp",2,2,3000)
         картинка(0,0,$_xmax,$_ymax,"49.bmp",2,2,3000)
         картинка(0,0,$_xmax,$_ymax,"12.bmp",2,2,7000)
         картинка(0,0,$_xmax,$_ymax,"50.bmp",1,1,2000)
         картинка(0,0,$_xmax,$_ymax,"51.bmp",1,1,2000)
         картинка(0,0,$_xmax,$_ymax,"52.bmp",1,1,2000)
         картинка(785,370,$_xmax,$_ymax,"54.bmp",1,1,2000)
         картинка(0,0,$_xmax,$_ymax,"55.bmp",1,1,2000)
         картинка(0,0,$_xmax,$_ymax,"56.bmp",1,1,2000)
         картинка(0,0,$_xmax,$_ymax,"57.bmp",1,1,2000)
         картинка(0,0,$_xmax,$_ymax,"59.bmp",1,1,2000)
         картинка(0,0,$_xmax,$_ymax,"63.bmp",1,1,2000)
         
         лог(STRCONCAT("")) // комбинированная запись
      END_CYC
   END_IF
   IF($akk < 5)
      //выход
      GETSCREEN
      COLORMODE(8)
      IF_PICTURE_IN (0,0,$_xmax,$_ymax, "60.bmp", - 1, 100)
         LCLICK($_return1,$_return2)
         WAIT(2)
      END_IF
      GETSCREEN
      COLORMODE(8)
      IF_PICTURE_IN (0,0,$_xmax,$_ymax, "61.bmp", - 1, 100)
         LCLICK($_return1,$_return2)
         WAIT(10)
      END_IF
      WAIT(5)
      close()
      WAIT(5)
     
   ELSE
      //выход
      LCLICK(390,55) //клик по панель поиска
      WAITMS (500)
      $portal = TFREAD("portal.txt", 2)
      TOCLIP($portal) //скопировать
      WAITMS (1000)
      paste()
      KEYPRESS(#ENTER)
      WAIT (3)
      KEYPRESS(#PAGEDOWN)
      WAITMS (2000)
      GETSCREEN
      COLORMODE(8)
      IF_PICTURE_IN (0,0,$_xmax,$_ymax, "62.bmp", - 1, 100)
         LCLICK($_return1,$_return2)
         WAIT(10)
      END_IF
      WAIT(5)
      close()
      WAIT(5)
   END_IF
   лог(STRCONCAT("2")) // комбинированная запись
END_CYC
END_THREAD