Автокликер Clickermann :: Форум

Основной раздел => Общие вопросы => Topic started by: Alex14 on October 10, 2019, 02:13:42 PM

Title: Исполнение внутри цикла
Post by: Alex14 on October 10, 2019, 02:13:42 PM

Здравствуйте! Заранее прошу простить возможно за глупый вопрос. Но как сделать что бы "KEYPRESS(#ENTER)" исполнялся каждый третий цикл, а не каждое исполнение цикла?

Code: [Select]

FOR($nst = 1, $nst < TFCount("Text1.txt")+1)
    $nst2 = TFREAD ("Text1.txt", $nst)
    TOCLIP($nst2)
KEYDOWN (#CTRL)
WAITMS (50)
KEYPRESS (#V)
KEYUP (#CTRL)
    KEYPRESS(#ENTER)       
END_CYC
     
HALT


Title: Re: Исполнение внутри цикла
Post by: Космич on October 10, 2019, 03:35:36 PM

Code: (clickermann) [Select]

FOR($nst = 1, $nst < TFCount("Text1.txt") + 1)
   $nst2 = TFREAD ("Text1.txt", $nst)
   TOCLIP($nst2)
   KEYDOWN (#CTRL)
   WAITMS (50)
   KEYPRESS (#V)
   KEYUP (#CTRL)
   IF($nst - INT($nst / 3) * 3 = 0)
      KEYPRESS(#ENTER)
   END_IF
END_CYC

HALT

Title: Re: Исполнение внутри цикла
Post by: Alex14 on October 10, 2019, 04:09:49 PM

Quote from: Космич on October 10, 2019, 03:35:36 PM

Code: (clickermann) [Select]

FOR($nst = 1, $nst < TFCount("Text1.txt") + 1)
   $nst2 = TFREAD ("Text1.txt", $nst)
   TOCLIP($nst2)
   KEYDOWN (#CTRL)
   WAITMS (50)
   KEYPRESS (#V)
   KEYUP (#CTRL)
   IF($nst - INT($nst / 3) * 3 = 0)
      KEYPRESS(#ENTER)
   END_IF
END_CYC

HALT

Благодарю!

Title: Re: Исполнение внутри цикла
Post by: Alex14 on October 17, 2019, 01:18:37 PM

Здравствуйте! Помогите еще добавить условие в Switch Case

Code: [Select]

   FOR($nst = 1, $nst < TFCount("Text1.txt") + 1)
       $nst2 = TFREAD ("Text1.txt", $nst)
       TOCLIP($nst2)
       KEYDOWN (#CTRL)
       WAITMS (50)
       KEYPRESS (#V)
       KEYUP (#CTRL)
       IF($nst - INT($nst / 3) * 3 = 0)
          KEYPRESS(#ENTER)
       END_IF
    SWITCH($nst)
        CASE(5)
           //Условие (ждать одной из нажатых клавиш)
           //При нажатии клавиши (#1) продолжается цикл скрипта
           //При нажатии клавиши (#2) исполнялся KEYPRESS(#ENTER) пять раз и продолжался цикл скрипта
    END_SWITCH
    END_CYC
HALT


Title: Re: Исполнение внутри цикла
Post by: Oraven on October 17, 2019, 04:19:13 PM

Code: (clickermann) [Select]

FOR($nst = 1, $nst < TFCount("Text1.txt") + 1)
   $nst2 = TFREAD ("Text1.txt", $nst)
   TOCLIP($nst2)
   KEYDOWN (#CTRL)
   WAITMS (50)
   KEYPRESS (#V)
   KEYUP (#CTRL)
   IF($nst - INT($nst / 3) * 3 = 0)
      KEYPRESS(#ENTER)
   END_IF
   IF($nst = 5)
      $check = 0
      WHILE($check = 0)
         IF(ISKEYDOWN(#1)=1)
            WHILE(ISKEYDOWN(#1)=1)
            END_CYC
            $check = 1
         ELSE
            IF(ISKEYDOWN(#2)=1)
               WHILE(ISKEYDOWN(#2)=1)
               END_CYC
               FOR($a=0,$a<5)
                  KEYPRESS(#ENTER)
                  WAITMS(50)
               END_CYC
               $check = 1
            END_IF
         END_IF
      END_CYC
   END_IF
END_CYC
HALT

Title: Re: Исполнение внутри цикла
Post by: Alex14 on October 17, 2019, 09:23:33 PM

Quote from: Oraven on October 17, 2019, 04:19:13 PM

Code: (clickermann) [Select]

FOR($nst = 1, $nst < TFCount("Text1.txt") + 1)
   $nst2 = TFREAD ("Text1.txt", $nst)
   TOCLIP($nst2)
   KEYDOWN (#CTRL)
   WAITMS (50)
   KEYPRESS (#V)
   KEYUP (#CTRL)
   IF($nst - INT($nst / 3) * 3 = 0)
      KEYPRESS(#ENTER)
   END_IF
   IF($nst = 5)
      $check = 0
      WHILE($check = 0)
         IF(ISKEYDOWN(#1)=1)
            WHILE(ISKEYDOWN(#1)=1)
            END_CYC
            $check = 1
         ELSE
            IF(ISKEYDOWN(#2)=1)
               WHILE(ISKEYDOWN(#2)=1)
               END_CYC
               FOR($a=0,$a<5)
                  KEYPRESS(#ENTER)
                  WAITMS(50)
               END_CYC
               $check = 1
            END_IF
         END_IF
      END_CYC
   END_IF
END_CYC
HALT

Благодарю!