« previous next »
Pages: [1] 2 3 4

Author Topic: Работа с ссылками  (Read 12387 times)

0 Members and 2 Guests are viewing this topic.

Viktor77

  • Активный участник
  • ***
  • Posts: 106
    • View Profile
Работа с ссылками
« on: October 16, 2020, 04:25:56 PM »
так все работает, но стоит добавить в верху пару команд на свернуть все окна и запуск браузера с рабочего стола то получается совсем другой результат, верхние команды так же запускаются повторно. что приводит к некорректной работе.
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)
   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
LOGCLEAR
WAITMS(50)
LOGWRITE ("Старт")
WAITMS(50)
LCLICK(370,55) //клик по панель поиска
WAIT(2)
INC($num,1) // накручиваем номер строки каждый проход
IF($num > TFCOUNT ("servera_1.txt"))
   HALT // стоп
END_IF
TOCLIP (TFREAD ("servera_1.txt", $num)) // копируем строку в буфер
WAITMS(50)
KEYDOWN (#CTRL) // Ctrl+V
WAITMS (50)
KEYDOWN (#V)
WAITMS (50)
KEYUP (#V)
KEYUP (#CTRL)
WAITMS (100)
KEYPRESS(#ENTER) // Enter
WAIT (15)
картинка(0,0,$_xmax,$_ymax,"1.bmp",2,2,2000)
GETSCREEN(0,0,$_xmax,$_ymax)
IF_PIXEL_IN(0,0,$_xmax,$_ymax, 16777215)
   клик($_return1, $_return2,2000)
END_IF
WAIT(30)
GETSCREEN(0,0,$_xmax,$_ymax)
IF_PICTURE_IN (0,0,$_xmax,$_ymax, "2.bmp", - 1, 100)
   клик($_return1+15,$_return2+15,2000)
ELSE
   $check = 0
   WHILE($check = 0)
      KEYPRESS(#F5)  // обновить страницу
      WAIT(30)
      картинка(0,0,$_xmax,$_ymax,"2.bmp",15,15,2000)
   END_CYC
END_IF
WAIT(3)
картинка(0,0,$_xmax,$_ymax,"3.bmp",2,2,2000)
GETSCREEN(0,0,$_xmax,$_ymax)
IF_PIXEL_IN(0,0,$_xmax,$_ymax, 16777215)
   клик($_return1, $_return2,2000)
END_IF
картинка(0,0,$_xmax,$_ymax,"6.bmp",2,2,2000)//
картинка(0,0,$_xmax,$_ymax,"6.bmp",2,2,2000)//
картинка(0,0,$_xmax,$_ymax,"6.bmp",2,2,2000)//
картинка(0,0,$_xmax,$_ymax,"7.bmp",2,2,2000)//
картинка(0,0,$_xmax,$_ymax,"8.bmp",2,2,2000)//
картинка(0,0,$_xmax,$_ymax,"4.bmp",2,2,2000)
картинка(0,0,$_xmax,$_ymax,"32.bmp",10,8,2000)
картинка(0,0,$_xmax,$_ymax,"5.bmp",2,2,2000)
картинка(0,0,$_xmax,$_ymax,"33.bmp",2,2,2000)
картинка(0,0,$_xmax,$_ymax,"6.bmp",2,2,2000)
картинка(0,0,$_xmax,$_ymax,"15.bmp",2,2,5000)//
картинка(0,0,$_xmax,$_ymax,"16.bmp",2,2,3000)//
картинка(0,0,$_xmax,$_ymax,"17.bmp",2,2,2000)//
клик(527,190,2000) //
клик(518,370,2000)//
клик(564,585,2000)//
клик(654,188,2000) //
клик(571,310,2000) //
картинка(0,0,$_xmax,$_ymax,"20.bmp",2,2,2000) //
картинка(0,0,$_xmax,$_ymax,"21.bmp",2,2,2000) //
картинка(0,0,$_xmax,$_ymax,"6.bmp",2,2,2000)//
картинка(0,0,$_xmax,$_ymax, "22.bmp",15,15,2000)
GETSCREEN(0,0,$_xmax,$_ymax)
IF_PICTURE_IN (0,0,$_xmax,$_ymax, "23.bmp", - 1, 100)//
   клик($_return1+2, $_return2+2,2000)
   клик(567,493,2000)  //
END_IF
GETSCREEN(0,0,$_xmax,$_ymax)
IF_PICTURE_IN (0,0,$_xmax,$_ymax, "24.bmp", - 1, 100)//
   клик($_return1+5, $_return2+5,2000)
   GETSCREEN(0,0,$_xmax,$_ymax)
   IF_PICTURE_IN (0,0,$_xmax,$_ymax, "25.bmp", - 1, 100)//
      клик($_return1+5, $_return2+5,2000)
      картинка(0,0,$_xmax,$_ymax, "26.bmp",5,5,2000)//
   END_IF
END_IF
WAIT(1)
KEYPRESS(#B)
WAIT(3)
GETSCREEN(0,0,$_xmax,$_ymax)
IF_PICTURE_IN (0,0,$_xmax,$_ymax, "27.bmp", - 1, 100)
   DBLCLICK($_return1+15, $_return2+15)
   WAIT(1)
   картинка(0,0,$_xmax,$_ymax, "34.bmp",5,5,2000)
END_IF
GETSCREEN(0,0,$_xmax,$_ymax)
IF_PICTURE_IN (0,0,$_xmax,$_ymax, "28.bmp", - 1, 100)
   MOVE($_return1+15, $_return2+15)
   WAIT(1)
   IF(FExists(STRCONCAT("C:\files\twin1\",$_date_d,"-",$_date_m,"-",$_date_y)) = 0)//если папки с датой нету
      FCreate(STRCONCAT("C:\files\twin1\",$_date_d,"-",$_date_m,"-",$_date_y))//то создаем ее  - E:\files\twin1\6-11-2019  на сегодняшний день
   END_IF
   SCREENSHOTFIX(0,0,$_xmax,$_ymax,STRCONCAT ("C:\files\twin1\",$_date_d,"-",$_date_m,"-",$_date_y,"\file", $n,".bmp"))
   inc($n)
END_IF
WAIT(1)
KEYPRESS(#B)
WAIT(1)
картинка(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,3000)//
картинка(0,0,$_xmax,$_ymax,"31.bmp",2,2,3000)//
картинка(0,0,$_xmax,$_ymax,"6.bmp",2,2,2000)//
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)
   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
LOGCLEAR
WAITMS(50)
LOGWRITE ("Старт")
WAITMS(50)
клик(1271,1002,2000)
DBLCLICK(635,30) //запуск браузера
WAIT(15)
LCLICK(370,55) //клик по панель поиска
WAIT(2)
INC($num,1) // накручиваем номер строки каждый проход
IF($num > TFCOUNT ("servera_1.txt"))
   HALT // стоп
END_IF
TOCLIP (TFREAD ("servera_1.txt", $num)) // копируем строку в буфер
WAITMS(50)
KEYDOWN (#CTRL) // Ctrl+V
WAITMS (50)
KEYDOWN (#V)
WAITMS (50)
KEYUP (#V)
KEYUP (#CTRL)
WAITMS (100)
KEYPRESS(#ENTER) // Enter
WAIT (15)
картинка(0,0,$_xmax,$_ymax,"1.bmp",2,2,2000)
GETSCREEN(0,0,$_xmax,$_ymax)
IF_PIXEL_IN(0,0,$_xmax,$_ymax, 16777215)
   клик($_return1, $_return2,2000)
END_IF
WAIT(30)
GETSCREEN(0,0,$_xmax,$_ymax)
IF_PICTURE_IN (0,0,$_xmax,$_ymax, "2.bmp", - 1, 100)
   клик($_return1+15,$_return2+15,2000)
ELSE
   $check = 0
   WHILE($check = 0)
      KEYPRESS(#F5)  // обновить страницу
      WAIT(30)
      картинка(0,0,$_xmax,$_ymax,"2.bmp",15,15,2000)
   END_CYC
END_IF
WAIT(3)
картинка(0,0,$_xmax,$_ymax,"3.bmp",2,2,2000)
GETSCREEN(0,0,$_xmax,$_ymax)
IF_PIXEL_IN(0,0,$_xmax,$_ymax, 16777215)
   клик($_return1, $_return2,2000)
END_IF
картинка(0,0,$_xmax,$_ymax,"6.bmp",2,2,2000)//
картинка(0,0,$_xmax,$_ymax,"6.bmp",2,2,2000)//
картинка(0,0,$_xmax,$_ymax,"6.bmp",2,2,2000)//
картинка(0,0,$_xmax,$_ymax,"7.bmp",2,2,2000)//
картинка(0,0,$_xmax,$_ymax,"8.bmp",2,2,2000)//
картинка(0,0,$_xmax,$_ymax,"4.bmp",2,2,2000)
картинка(0,0,$_xmax,$_ymax,"32.bmp",10,8,2000)
картинка(0,0,$_xmax,$_ymax,"5.bmp",2,2,2000)
картинка(0,0,$_xmax,$_ymax,"33.bmp",2,2,2000)
картинка(0,0,$_xmax,$_ymax,"6.bmp",2,2,2000)
картинка(0,0,$_xmax,$_ymax,"15.bmp",2,2,5000)//
картинка(0,0,$_xmax,$_ymax,"16.bmp",2,2,3000)//
картинка(0,0,$_xmax,$_ymax,"17.bmp",2,2,2000)//
клик(527,190,2000) //
клик(518,370,2000)//
клик(564,585,2000)//
клик(654,188,2000) //
клик(571,310,2000) //
картинка(0,0,$_xmax,$_ymax,"20.bmp",2,2,2000) //
картинка(0,0,$_xmax,$_ymax,"21.bmp",2,2,2000) //
картинка(0,0,$_xmax,$_ymax,"6.bmp",2,2,2000)//
картинка(0,0,$_xmax,$_ymax, "22.bmp",15,15,2000)
GETSCREEN(0,0,$_xmax,$_ymax)
IF_PICTURE_IN (0,0,$_xmax,$_ymax, "23.bmp", - 1, 100)//
   клик($_return1+2, $_return2+2,2000)
   клик(567,493,2000)  //
END_IF
GETSCREEN(0,0,$_xmax,$_ymax)
IF_PICTURE_IN (0,0,$_xmax,$_ymax, "24.bmp", - 1, 100)//
   клик($_return1+5, $_return2+5,2000)
   GETSCREEN(0,0,$_xmax,$_ymax)
   IF_PICTURE_IN (0,0,$_xmax,$_ymax, "25.bmp", - 1, 100)//
      клик($_return1+5, $_return2+5,2000)
      картинка(0,0,$_xmax,$_ymax, "26.bmp",5,5,2000)//
   END_IF
END_IF
WAIT(1)
KEYPRESS(#B)
WAIT(3)
GETSCREEN(0,0,$_xmax,$_ymax)
IF_PICTURE_IN (0,0,$_xmax,$_ymax, "27.bmp", - 1, 100)
   DBLCLICK($_return1+15, $_return2+15)
   WAIT(1)
   картинка(0,0,$_xmax,$_ymax, "34.bmp",5,5,2000)
END_IF
GETSCREEN(0,0,$_xmax,$_ymax)
IF_PICTURE_IN (0,0,$_xmax,$_ymax, "28.bmp", - 1, 100)
   MOVE($_return1+15, $_return2+15)
   WAIT(1)
   IF(FExists(STRCONCAT("C:\files\twin1\",$_date_d,"-",$_date_m,"-",$_date_y)) = 0)//если папки с датой нету
      FCreate(STRCONCAT("C:\files\twin1\",$_date_d,"-",$_date_m,"-",$_date_y))//то создаем ее  - E:\files\twin1\6-11-2019  на сегодняшний день
   END_IF
   SCREENSHOTFIX(0,0,$_xmax,$_ymax,STRCONCAT ("C:\files\twin1\",$_date_d,"-",$_date_m,"-",$_date_y,"\file", $n,".bmp"))
   inc($n)
END_IF
WAIT(1)
KEYPRESS(#B)
WAIT(1)
картинка(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,3000)//
картинка(0,0,$_xmax,$_ymax,"31.bmp",2,2,3000)//
картинка(0,0,$_xmax,$_ymax,"6.bmp",2,2,2000)//
Logged

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: Работа с ссылками
« Reply #1 on: October 16, 2020, 05:12:29 PM »
А вопрос то какой?

Ну заверни основной код в цикл без этих команд. Или засунь эти команды в одноразовое условие. Это, если я правильно понял.
Logged

Viktor77

  • Активный участник
  • ***
  • Posts: 106
    • View Profile
Re: Работа с ссылками
« Reply #2 on: October 16, 2020, 08:06:29 PM »
Quote from: Vint on October 16, 2020, 05:12:29 PM
А вопрос то какой?

Ну заверни основной код в цикл без этих команд. Или засунь эти команды в одноразовое условие. Это, если я правильно понял.
возможно вызывать командной строкой execute яндекс браузер или другой браузер с несколькими профилями, нужный профиль?
Logged

Viktor77

  • Активный участник
  • ***
  • Posts: 106
    • View Profile
Re: Работа с ссылками
« Reply #3 on: October 18, 2020, 06:52:32 PM »
Quote from: Vint on October 16, 2020, 05:12:29 PM
А вопрос то какой?

Ну заверни основной код в цикл без этих команд. Или засунь эти команды в одноразовое условие. Это, если я правильно понял.
добрый вечер вот не могу сообразить как прикрутить, чтоб дальше брало 2 строку с файла LogPass.txt, заходило, и уже работало с  servera_2.txt, и так далее 3 строку LogPass.txt и с  servera_3.txt
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)
   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
LOGCLEAR
WAITMS(50)
LOGWRITE ("Старт")
WAITMS(50)

LOGWRITE("Всего аккаунтов: ", $count)

IF($a=0,$a<1 )
   клик(1271,1002,2000)
   DBLCLICK(635,30) //запуск браузера
   WAIT(15)
END_IF
IF(TFCOUNT("LogPass.txt") > $count)
   INC($count,1)
ELSE
   HALT // Стоп по достижении конца файла
END_IF
$str = TFREAD ("LogPass.txt", $count)
$log = STRCUT2 ($str, 1, STRPOS ($str, ":")-1)
$pass = STRCUT2 ($str, STRPOS ($str, ":")+1, STRLEN ($str))


LCLICK(505,345) // клик по полю логина
WAITMS (1000)
TOCLIP($log) // скопировать логин в буфер
WAITMS (50)
KEYDOWN (#CTRL) // вставить
WAITMS (50)
KEYPRESS(#V)
WAITMS (50)
KEYUP (#CTRL)
WAITMS (1000)

KEYPRESS(#TAB) // переход на поле пароля
WAITMS (1000)

//LCLICK(505,395) // клик по полю пароля
WAITMS (1000)
TOCLIP($pass) // скопировать в пароль в буфер
WAITMS (50)
KEYDOWN (#CTRL) // вставить
WAITMS (50)
KEYPRESS(#V)
WAITMS (50)
KEYUP (#CTRL)
WAITMS (1000)
KEYPRESS(#ENTER) // Enter
WAITMS (100)
//LCLICK(640,470) // клик по "Вход"
WAIT(5)
// тут команды после входа

FOR($a=0,$a<16)
   LCLICK(370,55) //клик по панель поиска
   WAIT(2)
   IF(TFCOUNT ("servera_1.txt") > $num)
      INC($num,1) // накручиваем номер строки каждый проход
   ELSE
      HALT // стоп
   END_IF
   TOCLIP (TFREAD ("servera_1.txt", $num)) // копируем строку в буфер
   WAITMS(50)
   KEYDOWN (#CTRL) // Ctrl+V
   WAITMS (50)
   KEYDOWN (#V)
   WAITMS (50)
   KEYUP (#V)
   KEYUP (#CTRL)
   WAITMS (100)
   KEYPRESS(#ENTER) // Enter
   WAIT (5)
   // тут команды после
END_CYC
//выход
LCLICK(1175,101)  // 2467327
WAIT (5)
Logged

Viktor77

  • Активный участник
  • ***
  • Posts: 106
    • View Profile
Re: Работа с ссылками
« Reply #4 on: October 18, 2020, 10:29:02 PM »
Quote from: Vint on October 16, 2020, 05:12:29 PM
А вопрос то какой?

Ну заверни основной код в цикл без этих команд. Или засунь эти команды в одноразовое условие. Это, если я правильно понял.
не хочет работать как надо(
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)
   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
//------------------------------------------------------------------------------

LOGCLEAR
WAITMS(50)
LOGWRITE ("Старт")
WAITMS(50)
IF($a=0,$a<1 )
      клик(1271,1002,2000)
   DBLCLICK(635,30) //запуск браузера
   WAIT(15)
END_IF
FOR($a=0,$a<4)
   IF(TFCOUNT("LogPass.txt") > $count)
      INC($count,1)
   ELSE
      HALT // Стоп по достижении конца файла
   END_IF
   $str = TFREAD ("LogPass.txt", $count)
   $log = STRCUT2 ($str, 1, STRPOS ($str, ":")-1)
   $pass = STRCUT2 ($str, STRPOS ($str, ":")+1, STRLEN ($str))
   
   
   LCLICK(505,345) // клик по полю логина
   WAITMS (1000)
   TOCLIP($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(5)
   // тут команды после входа
   
   FOR($a=0,$a<3)
      LCLICK(370,55) //клик по панель поиска
      WAIT(2)
      IF(TFCOUNT ("servera_1.txt") > $num)
         INC($num,1) // накручиваем номер строки каждый проход
      ELSE
         HALT // Стоп по достижении конца файла
      END_IF
      TOCLIP (TFREAD ("servera_1.txt", $num)) // копируем строку в буфер
      WAITMS(100)
      paste()
     
      KEYPRESS(#ENTER) // Enter
      WAIT (5)
      // тут команды после
     
     
   END_CYC
   
   
   //выход
   LCLICK(1175,101)  // 2467327
   WAIT (10)
   FOR($b=0,$b<3)
      LCLICK(370,55) //клик по панель поиска
      WAIT(2)
      IF(TFCOUNT ("servera_2.txt") > $num)
         INC($num,2) // накручиваем номер строки каждый проход
      ELSE
         HALT // Стоп по достижении конца файла
      END_IF
      TOCLIP (TFREAD ("servera_2.txt", $num)) // копируем строку в буфер
      WAITMS(100)
      paste()
     
      KEYPRESS(#ENTER) // Enter
      WAIT (5)
      // тут команды после
     
     
   END_CYC
END_CYC
Logged

Viktor77

  • Активный участник
  • ***
  • Posts: 106
    • View Profile
Re: Работа с ссылками
« Reply #5 on: October 19, 2020, 01:29:31 AM »
Quote from: Vint on October 16, 2020, 05:12:29 PM
А вопрос то какой?

Ну заверни основной код в цикл без этих команд. Или засунь эти команды в одноразовое условие. Это, если я правильно понял.
вот, вроде бы как добил его. все работает. но как сделать чтобы он открывал друг за другом сами текстовики, они идут друг за другом. и не копировать одно и тоже. а через servera_*.txt чтоб он на втором логине подкидывал servera_2.txt и так далее через +1
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)
   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
//------------------------------------------------------------------------------

LOGCLEAR
WAITMS(50)
LOGWRITE ("Старт")
WAITMS(50)

LOGWRITE("Всего аккаунтов: ", $count)

IF($a=0,$a<1 )
   клик(1271,1002,2000)
   DBLCLICK(635,30) //запуск браузера
   WAIT(15)
END_IF
FOR($a=0,$a<4)
   IF(TFCOUNT("LogPass.txt") > $count)
      INC($count,1)
   ELSE
      HALT // Стоп по достижении конца файла
   END_IF
   $str = TFREAD ("LogPass.txt", $count)
   $log = STRCUT2 ($str, 1, STRPOS ($str, ":")-1)
   $pass = STRCUT2 ($str, STRPOS ($str, ":")+1, STRLEN ($str))
   
   
   LCLICK(505,345) // клик по полю логина
   WAITMS (1000)
   TOCLIP($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(5)
   // тут команды после входа
   
   FOR($a=0,$a<16)
      LCLICK(370,55) //клик по панель поиска
      WAIT(2)
      IF(TFCOUNT ("servera_1.txt") > $num)
         INC($num,1) // накручиваем номер строки каждый проход
      END_IF
      TOCLIP (TFREAD ("servera_1.txt", $num)) // копируем строку в буфер
      WAITMS(100)
      paste()
      KEYPRESS(#ENTER) // Enter
      WAIT (5)
      // тут команды после
     
     
   END_CYC
   
   
   //выход
   LCLICK(1175,101)  // 2467327
   WAIT (20)
   
   
   IF(TFCOUNT("LogPass.txt") > $count)
      INC($count,1)
   ELSE
      HALT // Стоп по достижении конца файла
   END_IF
   $str = TFREAD ("LogPass.txt", $count)
   $log = STRCUT2 ($str, 1, STRPOS ($str, ":")-1)
   $pass = STRCUT2 ($str, STRPOS ($str, ":")+1, STRLEN ($str))
   
   LCLICK(505,345) // клик по полю логина
   WAITMS (1000)
   TOCLIP($log) // скопировать логин в буфер
   WAITMS (100)
   paste()
   
   
   KEYPRESS(#TAB) // переход на поле пароля
   WAITMS (1000)
   
   //LCLICK(505,395) // клик по полю пароля
   WAITMS (1000)
   TOCLIP($pass) // скопировать в пароль в буфер
   WAITMS (100)
   paste()
   
   KEYPRESS(#ENTER) // Enter
   WAITMS (100)
   
   FOR($a=0,$a<21)
      LCLICK(370,55) //клик по панель поиска
      WAIT(2)
      IF(TFCOUNT ("servera_2.txt") > $num1)
         INC($num1,1) // накручиваем номер строки каждый проход
      END_IF
      TOCLIP (TFREAD ("servera_2.txt", $num1)) // копируем строку в буфер
      WAITMS(100)
      paste()
     
      KEYPRESS(#ENTER) // Enter
      WAIT (5)
      // тут команды после
     
     
   END_CYC
   //выход
   LCLICK(1175,101)  // 2467327
   WAIT (20)
   
   IF(TFCOUNT("LogPass.txt") > $count)
      INC($count,1)
   ELSE
      HALT // Стоп по достижении конца файла
   END_IF
   $str = TFREAD ("LogPass.txt", $count)
   $log = STRCUT2 ($str, 1, STRPOS ($str, ":")-1)
   $pass = STRCUT2 ($str, STRPOS ($str, ":")+1, STRLEN ($str))
   
   LCLICK(505,345) // клик по полю логина
   WAITMS (1000)
   TOCLIP($log) // скопировать логин в буфер
   WAITMS (100)
   paste()
   
   
   KEYPRESS(#TAB) // переход на поле пароля
   WAITMS (1000)
   
   //LCLICK(505,395) // клик по полю пароля
   WAITMS (1000)
   TOCLIP($pass) // скопировать в пароль в буфер
   WAITMS (100)
   paste()
   
   KEYPRESS(#ENTER) // Enter
   WAITMS (100)
   
   
   FOR($a=0,$a<13)
      LCLICK(370,55) //клик по панель поиска
      WAIT(2)
      IF(TFCOUNT ("servera_3.txt") > $num2)
         INC($num2,1) // накручиваем номер строки каждый проход
      END_IF
      TOCLIP (TFREAD ("servera_3.txt", $num2)) // копируем строку в буфер
      WAITMS(100)
      paste()
     
      KEYPRESS(#ENTER) // Enter
      WAIT (5)
      // тут команды после
     
     
   END_CYC
   
   //выход
   LCLICK(1175,101)  // 2467327
   WAIT (20)
   
   IF(TFCOUNT("LogPass.txt") > $count)
      INC($count,1)
   ELSE
      HALT // Стоп по достижении конца файла
   END_IF
   $str = TFREAD ("LogPass.txt", $count)
   $log = STRCUT2 ($str, 1, STRPOS ($str, ":")-1)
   $pass = STRCUT2 ($str, STRPOS ($str, ":")+1, STRLEN ($str))
   
   LCLICK(505,345) // клик по полю логина
   WAITMS (1000)
   TOCLIP($log) // скопировать логин в буфер
   WAITMS (100)
   paste()
   
   
   KEYPRESS(#TAB) // переход на поле пароля
   WAITMS (1000)
   
   //LCLICK(505,395) // клик по полю пароля
   WAITMS (1000)
   TOCLIP($pass) // скопировать в пароль в буфер
   WAITMS (100)
   paste()
   
   KEYPRESS(#ENTER) // Enter
   WAITMS (100)
   
   FOR($a=0,$a<13)
      LCLICK(370,55) //клик по панель поиска
      WAIT(2)
      IF(TFCOUNT ("servera_4.txt") > $num3)
         INC($num3,1) // накручиваем номер строки каждый проход
      END_IF
      TOCLIP (TFREAD ("servera_4.txt", $num3)) // копируем строку в буфер
      WAITMS(100)
      paste()
     
      KEYPRESS(#ENTER) // Enter
      WAIT (5)
      // тут команды после
     
     
   END_CYC
   //выход
   LCLICK(1175,101)  // 2467327
   WAIT (20)
END_CYC
« Last Edit: October 19, 2020, 01:31:41 AM by Viktor77 »
Logged

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: Работа с ссылками
« Reply #6 on: October 19, 2020, 03:19:56 PM »
Quote from: Viktor77 on October 18, 2020, 06:52:32 PM
добрый вечер вот не могу сообразить как прикрутить, чтоб дальше брало 2 строку с файла LogPass.txt, заходило, и уже работало с  servera_2.txt, и так далее 3 строку LogPass.txt и с  servera_3.txt
Code: (clickermann) [Select]
IF(TFCOUNT(STRCONCAT("servera_", $count)) > $num)
    INC($num, 1)
ELSE
    HALT
END_IF
TOCLIP(TFREAD(STRCONCAT("servera_", $count), $num))
Logged

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: Работа с ссылками
« Reply #7 on: October 19, 2020, 03:22:12 PM »
Quote from: Viktor77 on October 19, 2020, 01:29:31 AM
IF($a=0,$a<1 )

Это сила! А что это такое?

Если тебе нужно сделать запуск браузера только на первом проходе скрипта
Code: (clickermann) [Select]
IF($repeat = 0)
    $repeat = 1
    клик(1271,1002,2000)
    DBLCLICK(635,30) //запуск браузера
    WAIT(15)
END_IF
« Last Edit: October 19, 2020, 03:25:46 PM by Vint »
Logged

Viktor77

  • Активный участник
  • ***
  • Posts: 106
    • View Profile
Re: Работа с ссылками
« Reply #8 on: October 19, 2020, 03:49:53 PM »
Quote from: Vint on October 19, 2020, 03:19:56 PM
Quote from: Viktor77 on October 18, 2020, 06:52:32 PM
добрый вечер вот не могу сообразить как прикрутить, чтоб дальше брало 2 строку с файла LogPass.txt, заходило, и уже работало с  servera_2.txt, и так далее 3 строку LogPass.txt и с  servera_3.txt
Code: (clickermann) [Select]
IF(TFCOUNT(STRCONCAT("servera_", $count)) > $num)
    INC($num, 1)
ELSE
    HALT
END_IF
TOCLIP(TFREAD(STRCONCAT("servera_", $count), $num))
не работает, заходит логпасс, и после останавливается.
Code: (clickermann) [Select]
LOGCLEAR
WAITMS(50)
LOGWRITE ("Старт")
WAITMS(50)

LOGWRITE("Всего аккаунтов: ", $count)

IF($repeat = 0)
   $repeat = 1
   клик(1271,1002,2000)
   DBLCLICK(635,30) //запуск браузера
   WAIT(15)
END_IF


IF(TFCOUNT("LogPass.txt") > $count)
   INC($count,1)
ELSE
   HALT // Стоп по достижении конца файла
END_IF
$str = TFREAD ("LogPass.txt", $count)
$log = STRCUT2 ($str, 1, STRPOS ($str, ":")-1)
$pass = STRCUT2 ($str, STRPOS ($str, ":")+1, STRLEN ($str))


LCLICK(505,345) // клик по полю логина
WAITMS (1000)
TOCLIP($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(5)
// тут команды после входа
IF(TFCOUNT(STRCONCAT("servera_", $count1)) > $num)
   INC($num, 1)
ELSE
   HALT
END_IF
TOCLIP(TFREAD(STRCONCAT("servera_", $count1), $num))
WAITMS(100)
paste()
KEYPRESS(#ENTER) // Enter
WAIT (5)
// тут команды после
//выход
LCLICK(1175,101)  // //выход
WAIT (20)
Logged

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: Работа с ссылками
« Reply #9 on: October 19, 2020, 03:54:40 PM »
Где ты в моём сообщении увидел $count1 ?
Logged

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: Работа с ссылками
« Reply #10 on: October 19, 2020, 03:57:12 PM »
И куда у тебя цикл пропал на 21 раз
Logged

Viktor77

  • Активный участник
  • ***
  • Posts: 106
    • View Profile
Re: Работа с ссылками
« Reply #11 on: October 19, 2020, 03:59:20 PM »
Quote from: Vint on October 19, 2020, 03:54:40 PM
Где ты в моём сообщении увидел $count1 ?
так в верхнем условии есть уже такая переменная  $count
Logged

Viktor77

  • Активный участник
  • ***
  • Posts: 106
    • View Profile
Re: Работа с ссылками
« Reply #12 on: October 19, 2020, 04:07:46 PM »
Quote from: Vint on October 19, 2020, 03:54:40 PM
Где ты в моём сообщении увидел $count1 ?
можно ли это условие положить в подпрограмму или массив? т.к это действие повторяется после загрузки с ссылки, с файла "servera_", и как можно "wait" заменить на таймеры?
Code: (clickermann) [Select]
картинка(0,0,$_xmax,$_ymax,"1.bmp",2,2,2000)
GETSCREEN(0,0,$_xmax,$_ymax)
IF_PIXEL_IN(0,0,$_xmax,$_ymax, 16777215)
   клик($_return1, $_return2,2000)
END_IF
WAIT(30)
GETSCREEN(0,0,$_xmax,$_ymax)
IF_PICTURE_IN (0,0,$_xmax,$_ymax, "2.bmp", - 1, 100)
   клик($_return1+15,$_return2+15,2000)
ELSE
   $check = 0
   WHILE($check = 0)
      KEYPRESS(#F5)  // обновить страницу
      WAIT(30)
      картинка(0,0,$_xmax,$_ymax,"2.bmp",15,15,2000)
   END_CYC
END_IF
WAIT(3)
картинка(0,0,$_xmax,$_ymax,"3.bmp",2,2,2000)
GETSCREEN(0,0,$_xmax,$_ymax)
IF_PIXEL_IN(0,0,$_xmax,$_ymax, 16777215)
   клик($_return1, $_return2,2000)
END_IF
картинка(0,0,$_xmax,$_ymax,"6.bmp",2,2,2000)//
картинка(0,0,$_xmax,$_ymax,"6.bmp",2,2,2000)//
картинка(0,0,$_xmax,$_ymax,"6.bmp",2,2,2000)//
картинка(0,0,$_xmax,$_ymax,"7.bmp",2,2,2000)//
картинка(0,0,$_xmax,$_ymax,"8.bmp",2,2,2000)//
картинка(0,0,$_xmax,$_ymax,"4.bmp",2,2,2000)
картинка(0,0,$_xmax,$_ymax,"32.bmp",10,8,2000)
картинка(0,0,$_xmax,$_ymax,"5.bmp",2,2,2000)
картинка(0,0,$_xmax,$_ymax,"33.bmp",2,2,2000)
картинка(0,0,$_xmax,$_ymax,"6.bmp",2,2,2000)
картинка(0,0,$_xmax,$_ymax,"15.bmp",2,2,5000)//
картинка(0,0,$_xmax,$_ymax,"16.bmp",2,2,3000)//
картинка(0,0,$_xmax,$_ymax,"17.bmp",2,2,2000)//
клик(527,190,2000) //
клик(518,370,2000)//
клик(564,585,2000)//
клик(654,188,2000) //
клик(571,310,2000) //
картинка(0,0,$_xmax,$_ymax,"20.bmp",2,2,2000) //
картинка(0,0,$_xmax,$_ymax,"21.bmp",2,2,2000) //
картинка(0,0,$_xmax,$_ymax,"6.bmp",2,2,2000)//
картинка(0,0,$_xmax,$_ymax, "22.bmp",15,15,2000)
GETSCREEN(0,0,$_xmax,$_ymax)
IF_PICTURE_IN (0,0,$_xmax,$_ymax, "23.bmp", - 1, 100)//
   клик($_return1+2, $_return2+2,2000)
   клик(567,493,2000)  //
END_IF
GETSCREEN(0,0,$_xmax,$_ymax)
IF_PICTURE_IN (0,0,$_xmax,$_ymax, "24.bmp", - 1, 100)//
   клик($_return1+5, $_return2+5,2000)
   GETSCREEN(0,0,$_xmax,$_ymax)
   IF_PICTURE_IN (0,0,$_xmax,$_ymax, "25.bmp", - 1, 100)//
      клик($_return1+5, $_return2+5,2000)
      картинка(0,0,$_xmax,$_ymax, "26.bmp",5,5,2000)//
   END_IF
END_IF
WAIT(1)
KEYPRESS(#B)
WAIT(3)
GETSCREEN(0,0,$_xmax,$_ymax)
IF_PICTURE_IN (0,0,$_xmax,$_ymax, "27.bmp", - 1, 100)
   DBLCLICK($_return1+15, $_return2+15)
   WAIT(1)
   картинка(0,0,$_xmax,$_ymax, "34.bmp",5,5,2000)
END_IF
GETSCREEN(0,0,$_xmax,$_ymax)
IF_PICTURE_IN (0,0,$_xmax,$_ymax, "28.bmp", - 1, 100)
   MOVE($_return1+15, $_return2+15)
   WAIT(1)
   IF(FExists(STRCONCAT("C:\files\twin1\",$_date_d,"-",$_date_m,"-",$_date_y)) = 0)//если папки с датой нету
      FCreate(STRCONCAT("C:\files\twin1\",$_date_d,"-",$_date_m,"-",$_date_y))//то создаем ее  - E:\files\twin1\6-11-2019  на сегодняшний день
   END_IF
   SCREENSHOTFIX(0,0,$_xmax,$_ymax,STRCONCAT ("C:\files\twin1\",$_date_d,"-",$_date_m,"-",$_date_y,"\file", $n,".bmp"))
   inc($n)
END_IF
WAIT(1)
KEYPRESS(#B)
WAIT(1)
картинка(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,3000)//
картинка(0,0,$_xmax,$_ymax,"31.bmp",2,2,3000)//
картинка(0,0,$_xmax,$_ymax,"6.bmp",2,2,2000)//
« Last Edit: October 19, 2020, 04:17:14 PM by Viktor77 »
Logged

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: Работа с ссылками
« Reply #13 on: October 19, 2020, 04:17:21 PM »
Quote from: Viktor77 on October 19, 2020, 03:59:20 PM
так в верхнем условии есть уже такая переменная  $count
Это она и есть!


Бдительность похвальна. Но не там  :) ;D  Чего ж ты у себя 3 раза использовал переменную $a во вложенных циклах. Это ведь совсем ломает твой скрипт.
« Last Edit: October 19, 2020, 04:19:16 PM by Vint »
Logged

Viktor77

  • Активный участник
  • ***
  • Posts: 106
    • View Profile
Re: Работа с ссылками
« Reply #14 on: October 19, 2020, 04:25:42 PM »
Quote from: Vint on October 19, 2020, 03:57:12 PM
И куда у тебя цикл пропал на 21 раз
Code: (clickermann) [Select]
SUB(paste) //========== Вставить ===============================================
   KEYDOWN(#CTRL) // Ctrl+V
   WAITMS(50)
   KEYPRESS(#V)
   WAITMS(50)
   KEYUP(#CTRL)
   WAITMS(2000)
END_SUB
//------------------------------------------------------------------------------

LOGCLEAR
WAITMS(50)
LOGWRITE ("Старт")
WAITMS(50)

LOGWRITE("Всего аккаунтов: ", $count)

IF($repeat = 0)
   $repeat = 1 
   клик(1271,1002,2000)
   DBLCLICK(635,30) //запуск браузера
   WAIT(15)
END_IF


IF(TFCOUNT("LogPass.txt") > $count)
   INC($count,1)
ELSE
   HALT // Стоп по достижении конца файла
END_IF
$str = TFREAD ("LogPass.txt", $count)
$log = STRCUT2 ($str, 1, STRPOS ($str, ":")-1)
$pass = STRCUT2 ($str, STRPOS ($str, ":")+1, STRLEN ($str))


LCLICK(505,345) // клик по полю логина
WAITMS (1000)
TOCLIP($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(5)
// тут команды после входа
// вот тут и останавливается, срабатывает HALT
FOR($a=0,$a<9)
   IF(TFCOUNT(STRCONCAT("servera_", $count)) > $num)
      INC($num, 1)
   ELSE
      HALT
   END_IF
   LCLICK(370,55) //клик по панель поиска
   WAIT(2)
   TOCLIP(TFREAD(STRCONCAT("servera_", $count), $num))
   WAITMS(100)
   paste()
   KEYPRESS(#ENTER) // Enter
   WAIT (5)
   // тут команды после
END_CYC
//выход
LCLICK(1175,101)  // //выход
WAIT (20)
Logged
Pages: [1] 2 3 4
« previous next »