Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - aast2012

Pages: [1] 2
1
Общие вопросы / Re: оптимизация кода
« on: December 29, 2018, 10:25:52 PM »
А зачем в команде GETSCREEN(1645,856,1645,954) ставить диапазон??? я думал что эта команда ставиться без диапазона, а далее мы указываем его с командой действия

2
Общие вопросы / Re: оптимизация кода
« on: December 28, 2018, 12:31:07 AM »
с добавленным кодом

3
Общие вопросы / Re: оптимизация кода
« on: December 28, 2018, 12:30:46 AM »
Code: (clickermann) [Select]
#logfile
start:

$startSume = 1
$stepIncriment = 3     // умножение

$wait=2              // попыток


if($wait > 0)
   lclick(1789,210)
   waitms(200)
   
   FOR($a=0,$a<10) // первая инициализация для старта
      KEYPRESS(#BACKSPACE)
      WAITMS(20)
   END_CYC
   wait(1)
   print("попыток"," ", $wait)
   KEYSTRING($startSume)
   waitms(200)
   
 start1:
 
   $var = 0
   $check = 0
   $vverh = 0
   $vniz = 0
   $checkk = 0
   $proigr = 0
   //===========================================================================
   WHILE($check = 0)
      GETSCREEN
      IF_PIXEL_IN(1645,856,1645,954,2176491)
         
         
         $var = $_return2
         // move($_return1, $_return2)
         
      END_IF
     
      if ($var>935)
         //повышение
         $check = 1
         $vverh = 1
         $vniz = 0
         //move($_return1, $_return2)
         
      END_IF
     
     
      if ($var<870)
         //понижение
         $check = 1
         //move($_return1, $_return2)
         $vverh = 0
         $vniz = 1
      END_IF
   END_CYC
   
   //=====================================================================
   
   if ($vverh = 1)
     
      print("ставка","-", $startSume)
      //----------------------
      KEYDOWN (#Q) // нажатие клавиши "Q"
      WAITMS (50)
      KEYUP (#Q)
      WAIT (2)
     
      //скриншот
      GETSCREEN
      SCREENSHOTFIX(0,0,$_xmax,$_ymax,STRCONCAT($_time_h,"-", $_time_m,"-", $_time_s,".bmp"),0)
      //------------------------------------
      WAIT (15)
   END_IF
   
   if ($vniz = 1)
     
      print("ставка","-", $startSume)
      KEYDOWN (#R)  // нажатие клавиши "R"
      WAITMS (50)
      KEYUP (#R)
      WAIT (2)
     
      //скриншот
      GETSCREEN
      SCREENSHOTFIX(0,0,$_xmax,$_ymax,STRCONCAT($_time_h,"-", $_time_m,"-", $_time_s,".bmp"),0)
      //------------------------------------
      WAIT (15)
   END_IF
   
   //=============================================================================
   
   WHILE($checkk = 0)
      //Print ("отслеживаем")
      //Print ($checkk, " ", "окончание")
      // отслеживание окончания сделки выигрыша
      GETSCREEN
      IF_PIXEL_IN(100,932,390,986,4709631)  // выигрыш
         //скриншот
         GETSCREEN
         SCREENSHOTFIX(0,0,$_xmax,$_ymax,STRCONCAT($_time_h,"-", $_time_m,"-", $_time_s,".bmp"),0)
         //------------------------------------
         Print ("выигрыш")
         print("==================")
         wait(1)
         goto(start)
      end_if
      //--------------------------------
      // отслеживание окончания сделки проигрыша
      GETSCREEN
      IF_PIXEL_IN(343,932,390,958,16777215)  // проигрыш
         //скриншот
         GETSCREEN
         SCREENSHOTFIX(0,0,$_xmax,$_ymax,STRCONCAT($_time_h,"-",$_time_m,"-", $_time_s,".bmp"),0)
         //------------------------------------
         Print ("проигрыш")
         print("==================")
         INC($wait,-1)
         print("попыток", " ", $wait)
         if($wait = 0)
      print("окончание попыток")
      print("===============")
      goto(start)
     end_if      
         if($wait > 0)
            $startSume = $startSume*$stepIncriment
            //print("сумма", " ", $startSume)
            $proigr = 1
            $checkk = 1
            lclick(1789,210)
           
            waitms(200)
           
            FOR($a=0,$a<10) // первая инициализация для старта
               KEYPRESS(#BACKSPACE)
               WAITMS(20)
            END_CYC
            wait(1)
           
            KEYSTRING($startSume)
           
            wait(1)
            WHILE($proigr = 1)
             //print("поиск 2 зоны")
               GETSCREEN
               IF_PIXEL_IN(1645,877,1645,934,2176491)
                  $proigr = 2
               END_IF
            END_CYC
      END_IF
 
            if ($vverh = 1)
               
               print("ставка","-", $startSume)
               //----------------------
               KEYDOWN (#Q) // нажатие клавиши "Q"
               WAITMS (50)
               KEYUP (#Q)
               WAIT (2)
               
               //скриншот
               GETSCREEN
               SCREENSHOTFIX(0,0,$_xmax,$_ymax,STRCONCAT($_time_h,"-", $_time_m,"-", $_time_s,".bmp"),0)
               //------------------------------------
               WAIT (15)
            END_IF
           
            if ($vniz = 1)
               
               print("ставка","-", $startSume)
               KEYDOWN (#R)  // нажатие клавиши "R"
               WAITMS (50)
               KEYUP (#R)
               WAIT (2)
               
               //скриншот
               GETSCREEN
               SCREENSHOTFIX(0,0,$_xmax,$_ymax,STRCONCAT($_time_h,"-", $_time_m,"-", $_time_s,".bmp"),0)
               //------------------------------------
               WAIT (15)
            END_IF
           
            //=============================================================================
           
            WHILE($proigr = 2)
               
               //Print ("отслеживаем")
               // отслеживание окончания сделки выигрыша
               GETSCREEN
               IF_PIXEL_IN(100,932,390,986,4709631)  // выигрыш
                  //скриншот
                  GETSCREEN
                  SCREENSHOTFIX(0,0,$_xmax,$_ymax,STRCONCAT($_time_h,"-", $_time_m,"-", $_time_s,".bmp"),0)
                  //------------------------------------
                  Print ("выигрыш")
                  print("==================")
                  wait(1)
                  goto(start)
               end_if
               //--------------------------------
               // отслеживание окончания сделки проигрыша
               GETSCREEN
               IF_PIXEL_IN(343,932,390,958,16777215)  // проигрыш
                  //скриншот
                  GETSCREEN
                  SCREENSHOTFIX(0,0,$_xmax,$_ymax,STRCONCAT($_time_h,"-",$_time_m,"-", $_time_s,".bmp"),0)
                  //------------------------------------
                  Print ("проигрыш")
                  print("==================")
                  INC($wait,-1)
                  print("попыток", " ", $wait)
                  if($wait = 0)
      print("окончание попыток")
      print("===============")
      goto(start)
     end_if
                  if($wait > 0)
                     $startSume = $startSume*$stepIncriment
                     //print("сумма", " ", $startSume)
                     $proigr = 1
                     $checkk = 0
                     lclick(1789,210)
                     
                     waitms(200)
                     
                     FOR($a=0,$a<10) // первая инициализация для старта
                        KEYPRESS(#BACKSPACE)
                        WAITMS(20)
                     END_CYC
                     wait(1)
                     
                     KEYSTRING($startSume)
                     
                     wait(1)
                     Goto(start1)
                     
                  END_IF
                 
                 
                END_IF 
               END_CYC

 
 
            END_IF
           
           
           
   END_CYC         
 
         
     
   END_IF
       

4
Общие вопросы / Re: оптимизация кода
« on: December 27, 2018, 11:06:13 PM »
там надо добавить
if($wait = 0)
      print("окончание попыток")
      print("===============")
      goto(start)
     end_if               
   
вот куда прошу добавить вам в новый скрипт... ваш скрипт буду использовать для собственного обучения, так как я не програмист , а самоучка... пишу скрипты как могу... уже многое в этих новых скриптах я взял с исправлений ваших ранее... спс за ответы

5
Общие вопросы / оптимизация кода
« on: December 27, 2018, 04:04:24 AM »
Помогите упростить код.... все работает на УРА... просто сейчас будут писать что я не правильно делаю, что ГОТО выхожу с цикла... и т.д.. вот прошу если есть время и желание оптимизируйте или напишите правильно этот код... повторюсь КОД работает как надо

Code: (clickermann) [Select]
#logfile
start:

$startSume = 1
$stepIncriment = 3     // умножение

$wait=10               // попыток


if($wait > 0)
   lclick(1789,210)
   waitms(200)
   
   FOR($a=0,$a<10) // первая инициализация для старта
      KEYPRESS(#BACKSPACE)
      WAITMS(20)
   END_CYC
   wait(1)
   print("попыток"," ", $wait)
   KEYSTRING($startSume)
   waitms(200)
   
 start1: 
   $var = 0
   $check = 0
   $vverh = 0
   $vniz = 0
   $checkk = 0
   $proigr = 0
   //===========================================================================
   WHILE($check = 0)
      GETSCREEN
      IF_PIXEL_IN(1645,856,1645,954,2176491)
         
         
         $var = $_return2
         // move($_return1, $_return2)
         
      END_IF
     
      if ($var>935)
         //повышение
         $check = 1
         $vverh = 1
         $vniz = 0
         //move($_return1, $_return2)
         
      END_IF
     
     
      if ($var<870)
         //понижение
         $check = 1
         //move($_return1, $_return2)
         $vverh = 0
         $vniz = 1
      END_IF
   END_CYC
   
   //=====================================================================
   
   if ($vverh = 1)
     
      print("ставка","-", $startSume)
      //----------------------
      KEYDOWN (#Q) // нажатие клавиши "Q"
      WAITMS (50)
      KEYUP (#Q)
      WAIT (2)
     
      //скриншот
      GETSCREEN
      SCREENSHOTFIX(0,0,$_xmax,$_ymax,STRCONCAT($_time_h,"-", $_time_m,"-", $_time_s,".bmp"),0)
      //------------------------------------
      WAIT (15)
   END_IF
   
   if ($vniz = 1)
     
      print("ставка","-", $startSume)
      KEYDOWN (#R)  // нажатие клавиши "R"
      WAITMS (50)
      KEYUP (#R)
      WAIT (2)
     
      //скриншот
      GETSCREEN
      SCREENSHOTFIX(0,0,$_xmax,$_ymax,STRCONCAT($_time_h,"-", $_time_m,"-", $_time_s,".bmp"),0)
      //------------------------------------
      WAIT (15)
   END_IF
   
   //=============================================================================
   
   WHILE($checkk = 0)
      //Print ("отслеживаем")
      //Print ($checkk, " ", "окончание")
      // отслеживание окончания сделки выигрыша
      GETSCREEN
      IF_PIXEL_IN(100,932,390,986,4709631)  // выигрыш
         //скриншот
         GETSCREEN
         SCREENSHOTFIX(0,0,$_xmax,$_ymax,STRCONCAT($_time_h,"-", $_time_m,"-", $_time_s,".bmp"),0)
         //------------------------------------
         Print ("выигрыш")
         print("==================")
         wait(1)
         goto(start)
      end_if
      //--------------------------------
      // отслеживание окончания сделки проигрыша
      GETSCREEN
      IF_PIXEL_IN(343,932,390,958,16777215)  // проигрыш
         //скриншот
         GETSCREEN
         SCREENSHOTFIX(0,0,$_xmax,$_ymax,STRCONCAT($_time_h,"-",$_time_m,"-", $_time_s,".bmp"),0)
         //------------------------------------
         Print ("проигрыш")
         print("==================")
         INC($wait,-1)
         print("попыток", " ", $wait)
         if($wait > 0)
            $startSume = $startSume*$stepIncriment
            //print("сумма", " ", $startSume)
            $proigr = 1
            $checkk = 1
            lclick(1789,210)
           
            waitms(200)
           
            FOR($a=0,$a<10) // первая инициализация для старта
               KEYPRESS(#BACKSPACE)
               WAITMS(20)
            END_CYC
            wait(1)
           
            KEYSTRING($startSume)
           
            wait(1)
            WHILE($proigr = 1)
             //print("поиск 2 зоны")
               GETSCREEN
               IF_PIXEL_IN(1645,877,1645,934,2176491)
                  $proigr = 2
               END_IF
            END_CYC
      END_IF
 
            if ($vverh = 1)
               
               print("ставка","-", $startSume)
               //----------------------
               KEYDOWN (#Q) // нажатие клавиши "Q"
               WAITMS (50)
               KEYUP (#Q)
               WAIT (2)
               
               //скриншот
               GETSCREEN
               SCREENSHOTFIX(0,0,$_xmax,$_ymax,STRCONCAT($_time_h,"-", $_time_m,"-", $_time_s,".bmp"),0)
               //------------------------------------
               WAIT (15)
            END_IF
           
            if ($vniz = 1)
               
               print("ставка","-", $startSume)
               KEYDOWN (#R)  // нажатие клавиши "R"
               WAITMS (50)
               KEYUP (#R)
               WAIT (2)
               
               //скриншот
               GETSCREEN
               SCREENSHOTFIX(0,0,$_xmax,$_ymax,STRCONCAT($_time_h,"-", $_time_m,"-", $_time_s,".bmp"),0)
               //------------------------------------
               WAIT (15)
            END_IF
           
            //=============================================================================
           
            WHILE($proigr = 2)
               
               //Print ("отслеживаем")
               // отслеживание окончания сделки выигрыша
               GETSCREEN
               IF_PIXEL_IN(100,932,390,986,4709631)  // выигрыш
                  //скриншот
                  GETSCREEN
                  SCREENSHOTFIX(0,0,$_xmax,$_ymax,STRCONCAT($_time_h,"-", $_time_m,"-", $_time_s,".bmp"),0)
                  //------------------------------------
                  Print ("выигрыш")
                  print("==================")
                  wait(1)
                  goto(start)
               end_if
               //--------------------------------
               // отслеживание окончания сделки проигрыша
               GETSCREEN
               IF_PIXEL_IN(343,932,390,958,16777215)  // проигрыш
                  //скриншот
                  GETSCREEN
                  SCREENSHOTFIX(0,0,$_xmax,$_ymax,STRCONCAT($_time_h,"-",$_time_m,"-", $_time_s,".bmp"),0)
                  //------------------------------------
                  Print ("проигрыш")
                  print("==================")
                  INC($wait,-1)
                  print("попыток", " ", $wait)
                  if($wait > 0)
                     $startSume = $startSume*$stepIncriment
                     //print("сумма", " ", $startSume)
                     $proigr = 1
                     $checkk = 0
                     lclick(1789,210)
                     
                     waitms(200)
                     
                     FOR($a=0,$a<10) // первая инициализация для старта
                        KEYPRESS(#BACKSPACE)
                        WAITMS(20)
                     END_CYC
                     wait(1)
                     
                     KEYSTRING($startSume)
                     
                     wait(1)
                     Goto(start1)
                     
                  END_IF
                 
                 
                END_IF 
               END_CYC
            END_IF
           
           
           
   END_CYC         
           
         
     
   END_IF

6
Общие вопросы / Re: по нажатию клавиши
« on: October 07, 2018, 04:12:02 PM »
большое спасибо... это очень сильно оптимизировало мой скрипт))) буду учиться)))

7
Общие вопросы / Re: по нажатию клавиши
« on: October 07, 2018, 03:57:57 PM »
 
Code: (clickermann) [Select]
IF (ISKEYDOWN(103)=1)  //(7)
   FOR ($i, $i<9)
      LCLICK($_xmouse,$_ymouse)
   END_CYC
 lclick(841,216)
  FOR($a=0,$a<3) // после клика в (841,216) стирает что все написанно
   KEYPRESS(#BACKSPACE)
   WAITMS(20)
END_CYC
 KEYSTRING(2) // ввод числа 2
  lclick(849,833)
 
  FOR($b=0,$b<1) // количество нажатий на клавишу "Е"
   KEYDOWN (#E)
WAITMS (20)
KEYUP (#E)
WAITMS (20)
END_CYC 

KEYDOWN (#Q) // нажатие клавиши "Q"
WAITMS (50)
KEYUP (#Q)
WAITMS (500)
   
FOR($c=0,$c<4) // количество нажатий на клавишу "D"
   KEYDOWN (#D)
WAITMS (20)
KEYUP (#D)
WAITMS (20)
END_CYC

END_IF
 IF (ISKEYDOWN(100)=1)  //(4)
 FOR ($i, $i<9)
      LCLICK($_xmouse,$_ymouse)
   END_CYC
 click(841,216)
  FOR($a=0,$a<3)// после клика в (841,216) стирает что все написанно
   KEYPRESS(#BACKSPACE)
   WAITMS(20)
END_CYC
 KEYSTRING(5)
  lclick(849,833)
 
  FOR($b=0,$b<2) // количество нажатий на клавишу "Е"
   KEYDOWN (#E)
WAITMS (20)
KEYUP (#E)
WAITMS (20)
END_CYC 

KEYDOWN (#Q)  // нажатие клавиши "Q"
WAITMS (50)
KEYUP (#Q)
WAITMS (500)
   
FOR($c=0,$c<4) // количество нажатий на клавишу "D"
   KEYDOWN (#D)
WAITMS (20)
KEYUP (#D)
WAITMS (20)
END_CYC

END_IF

 IF (ISKEYDOWN(97)=1)  // (1)
 FOR ($i, $i<9)
      LCLICK($_xmouse,$_ymouse)
   END_CYC
 click(841,216)
  FOR($a=0,$a<3) // после клика в (841,216) стирает что все написанно
   KEYPRESS(#BACKSPACE)
   WAITMS(20)
END_CYC
 KEYSTRING(11)
  lclick(849,833)
 
  FOR($b=0,$b<3) // количество нажатий на клавишу "Е"
   KEYDOWN (#E)
WAITMS (20)
KEYUP (#E)
WAITMS (20)
END_CYC 

KEYDOWN (#Q)  // нажатие клавиши "Q"
WAITMS (50)
KEYUP (#Q)
WAITMS (500)
   
FOR($c=0,$c<4) // количество нажатий на клавишу "D"
   KEYDOWN (#D)
WAITMS (20)
KEYUP (#D)
WAITMS (20)
END_CYC

END_IF

 IF (ISKEYDOWN(105)=1)  // (9)
 FOR ($i, $i<9)
      LCLICK($_xmouse,$_ymouse)
   END_CYC
 click(841,216)
  FOR($a=0,$a<3) // после клика в (841,216) стирает что все написанно
   KEYPRESS(#BACKSPACE)
   WAITMS(20)
END_CYC
 KEYSTRING(2)
  lclick(849,833)
 
  FOR($b=0,$b<1) // количество нажатий на клавишу "Е"
   KEYDOWN (#E)
WAITMS (20)
KEYUP (#E)
WAITMS (20)
END_CYC 

KEYDOWN (#R)  // нажатие клавиши "R"
WAITMS (50)
KEYUP (#R)
WAITMS (500)
   
FOR($c=0,$c<4) // количество нажатий на клавишу "D"
   KEYDOWN (#D)
WAITMS (20)
KEYUP (#D)
WAITMS (20)
END_CYC

END_IF
 
 IF (ISKEYDOWN(102)=1)  // (6)
 FOR ($i, $i<9)
      LCLICK($_xmouse,$_ymouse)
   END_CYC
  click(841,216)
  FOR($a=0,$a<3) // после клика в (841,216) стирает что все написанно
   KEYPRESS(#BACKSPACE)
   WAITMS(20)
END_CYC
 KEYSTRING(5)
  lclick(849,833)
 
  FOR($b=0,$b<2) // количество нажатий на клавишу "Е"
   KEYDOWN (#E)
WAITMS (20)
KEYUP (#E)
WAITMS (20)
END_CYC 

KEYDOWN (#R)     // нажатие клавиши "R"
WAITMS (50)
KEYUP (#R)
WAITMS (500)
   
FOR($c=0,$c<4) // количество нажатий на клавишу "D"
   KEYDOWN (#D)
WAITMS (20)
KEYUP (#D)
WAITMS (20)
END_CYC

END_IF
 
 IF (ISKEYDOWN(99)=1)  // (3)
 FOR ($i, $i<9)
      LCLICK($_xmouse,$_ymouse)
   END_CYC
  click(841,216)
  FOR($a=0,$a<3) // после клика в (841,216) стирает что все написанно
   KEYPRESS(#BACKSPACE)
   WAITMS(20)
END_CYC
 KEYSTRING(11)
  lclick(849,833)
 
  FOR($b=0,$b<3) // количество нажатий на клавишу "Е"
   KEYDOWN (#E)
WAITMS (20)
KEYUP (#E)
WAITMS (20)
END_CYC 

KEYDOWN (#R)       // нажатие клавиши "R"
WAITMS (50)
KEYUP (#R)
WAITMS (500)
   
FOR($c=0,$c<4) // количество нажатий на клавишу "D"
   KEYDOWN (#D)
WAITMS (20)
KEYUP (#D)
WAITMS (20)
END_CYC

END_IF

все 6 клавишь с разным условием...
До того как я добавил циклы ФОР все работало... я копировал как Q количество нажатия клавиш...

8
Общие вопросы / Re: по нажатию клавиши
« on: October 07, 2018, 03:49:12 PM »
там 6 клавиш и 6 условий... отличается в цыкле ФОР количеством нажатий и 3 клавиши должны нажать клавишу "Q" а другие 3 - "R"

9
Общие вопросы / Re: по нажатию клавиши
« on: October 07, 2018, 03:21:28 PM »
IF (ISKEYDOWN(103)=1) //(7)
   FOR ($i, $i<9)
      LCLICK($_xmouse,$_ymouse)
   END_CYC
 lclick(841,216)
  FOR($a=0,$a<3) // первая инициализация для старта
   KEYPRESS(#BACKSPACE)
   WAITMS(20)
END_CYC
 KEYSTRING(2)
  lclick(849,833)
 
  FOR($b=0,$b<1) // первая инициализация для старта
   KEYDOWN (#E)
WAITMS (20)
KEYUP (#E)
WAITMS (20)
END_CYC

   KEYDOWN (#Q)
WAITMS (50)
KEYUP (#Q)
WAITMS (500)
     
FOR($b=0,$b<4) // первая инициализация для старта
   KEYDOWN (#D)
WAITMS (20)
KEYUP (#D)
WAITMS (20)
END_CYC
       
END_IF   


Вот этот работает... а остальные клавиши нет. причем неважно программа только запустилась или уже 7ка использовалась...

10
Общие вопросы / Re: по нажатию клавиши
« on: October 07, 2018, 03:20:46 PM »
но при нажатии 7ки работает как надо... да и остальные работали пока я не начал оптимизировать циклами FOR, до них все работало

11
Общие вопросы / Re: по нажатию клавиши
« on: October 07, 2018, 03:19:13 PM »
click(841,216) это просто клик в пустое место... а комментарии были скопированы и поэтому они безсмыслены

12
Общие вопросы / по нажатию клавиши
« on: October 07, 2018, 02:46:46 PM »
Подскажите пожалуйста почему работает при нажатии IF (ISKEYDOWN(103)=1), а при других выкидывает с сайта... мышь не двигается... даже не пытается... что не так?_)
 
Code: (clickermann) [Select]
IF (ISKEYDOWN(103)=1) //(7)
   FOR ($i, $i<9)
      LCLICK($_xmouse,$_ymouse)
   END_CYC
 lclick(841,216)
  FOR($a=0,$a<3) // первая инициализация для старта
   KEYPRESS(#BACKSPACE)
   WAITMS(20)
END_CYC
 KEYSTRING(2)
  lclick(849,833)
 
  FOR($b=0,$b<1) // первая инициализация для старта
   KEYDOWN (#E)
WAITMS (20)
KEYUP (#E)
WAITMS (20)
END_CYC 

KEYDOWN (#Q)
WAITMS (50)
KEYUP (#Q)
WAITMS (500)
   
FOR($b=0,$b<4) // первая инициализация для старта
   KEYDOWN (#D)
WAITMS (20)
KEYUP (#D)
WAITMS (20)
END_CYC

END_IF
 IF (ISKEYDOWN(100)=1)  // (4)
 FOR ($i, $i<9)
      LCLICK($_xmouse,$_ymouse)
   END_CYC
 click(841,216)
  FOR($a=0,$a<3) // первая инициализация для старта
   KEYPRESS(#BACKSPACE)
   WAITMS(20)
END_CYC
 KEYSTRING(5)
  lclick(849,833)
 
  FOR($b=0,$b<2) // первая инициализация для старта
   KEYDOWN (#E)
WAITMS (20)
KEYUP (#E)
WAITMS (20)
END_CYC 

KEYDOWN (#Q)
WAITMS (50)
KEYUP (#Q)
WAITMS (500)
   
FOR($b=0,$b<4) // первая инициализация для старта
   KEYDOWN (#D)
WAITMS (20)
KEYUP (#D)
WAITMS (20)
END_CYC

END_IF

 IF (ISKEYDOWN(97)=1 ) //  (1)
 FOR ($i, $i<9)
      LCLICK($_xmouse,$_ymouse)
   END_CYC
 click(841,216)
  FOR($a=0,$a<3) // первая инициализация для старта
   KEYPRESS(#BACKSPACE)
   WAITMS(20)
END_CYC
 KEYSTRING(11)
  lclick(849,833)
 
  FOR($b=0,$b<3) // первая инициализация для старта
   KEYDOWN (#E)
WAITMS (20)
KEYUP (#E)
WAITMS (20)
END_CYC 

KEYDOWN (#Q)
WAITMS (50)
KEYUP (#Q)
WAITMS (500)
   
FOR($b=0,$b<4) // первая инициализация для старта
   KEYDOWN (#D)
WAITMS (20)
KEYUP (#D)
WAITMS (20)
END_CYC

END_IF

 IF (ISKEYDOWN(105)=1)  // (9)
 FOR ($i, $i<9)
      LCLICK($_xmouse,$_ymouse)
   END_CYC
 click(841,216)
  FOR($a=0,$a<3) // первая инициализация для старта
   KEYPRESS(#BACKSPACE)
   WAITMS(20)
END_CYC
 KEYSTRING(2)
  lclick(849,833)
 
  FOR($b=0,$b<1) // первая инициализация для старта
   KEYDOWN (#E)
WAITMS (20)
KEYUP (#E)
WAITMS (20)
END_CYC 

KEYDOWN (#R)
WAITMS (50)
KEYUP (#R)
WAITMS (500)
   
FOR($b=0,$b<4) // первая инициализация для старта
   KEYDOWN (#D)
WAITMS (20)
KEYUP (#D)
WAITMS (20)
END_CYC

END_IF
 
 IF (ISKEYDOWN(102)=1)  // (6)
 FOR ($i, $i<9)
      LCLICK($_xmouse,$_ymouse)
   END_CYC
  click(841,216)
  FOR($a=0,$a<3) // первая инициализация для старта
   KEYPRESS(#BACKSPACE)
   WAITMS(20)
END_CYC
 KEYSTRING(5)
  lclick(849,833)
 
  FOR($b=0,$b<2) // первая инициализация для старта
   KEYDOWN (#E)
WAITMS (20)
KEYUP (#E)
WAITMS (20)
END_CYC 

KEYDOWN (#R)
WAITMS (50)
KEYUP (#R)
WAITMS (500)
   
FOR($b=0,$b<4) // первая инициализация для старта
   KEYDOWN (#D)
WAITMS (20)
KEYUP (#D)
WAITMS (20)
END_CYC

END_IF
 
 IF (ISKEYDOWN(99)=1)  // (3)
 FOR ($i, $i<9)
      LCLICK($_xmouse,$_ymouse)
   END_CYC
  click(841,216)
  FOR($a=0,$a<3) // первая инициализация для старта
   KEYPRESS(#BACKSPACE)
   WAITMS(20)
END_CYC
 KEYSTRING(11)
  lclick(849,833)
 
  FOR($b=0,$b<3) // первая инициализация для старта
   KEYDOWN (#E)
WAITMS (20)
KEYUP (#E)
WAITMS (20)
END_CYC 

KEYDOWN (#R)
WAITMS (50)
KEYUP (#R)
WAITMS (500)
   
FOR($b=0,$b<4) // первая инициализация для старта
   KEYDOWN (#D)
WAITMS (20)
KEYUP (#D)
WAITMS (20)
END_CYC

END_IF

13
   GETSCREEN
    SCANPXL($ARR_SCAN, 0,0, $_xmax,$_ymax, 7765503)
   
   
    $Y=ARRPOP($ARR_SCAN)
    $X=ARRPOP($ARR_SCAN)
   
   
     if($X>0)
      WAITMS(100)
     else
    UNDEFINE($ARR_SCAN)
       SCANPXL($ARR_SCAN, 0,0, $_xmax,$_ymax, 9036139)
     $Y=ARRPOP($ARR_SCAN)
    $X=ARRPOP($ARR_SCAN)
   
   
    WAITMS(100)
      
    end_if
     
   LCLICK($X, $Y) // Клик по нижнему правому пикселю
    print ($X, $Y)
    WAITMS(100)   
 
    UNDEFINE($ARR_SCAN)

Вот этот код работает... кто подскажет как его модернизаровать или упростить???

14
чет я не разобрался как сделать по двум разным пикселям этот код

15
не работает((( или так???
GETSCREEN
    SCANPXL($ARR_SCAN, 169,240, 1231,573, 7765503)
else

    SCANPXL($ARR_SCAN, 169,240, 1231,573, 9036139)
UNDEFINE($ARR_SCAN)

Pages: [1] 2