Что нового

Помогите прикрутить цикл While

MrAutoitSinior

Новичок
Сообщения
2
Репутация
0
Всем привет, совсем недавно начал изучать програмирование. Помогите прикрутить цикл while. Сделал бота для инсты, по отпискам. Мне нужно искать определённый цвет если он не найден то mousewhell и ищем дальше. Подскажите куда добавить while в этот код.
Код:
While (1)
    $pix=PixelSearch(877, 367,974, 413,0x262626,5)   ;цвет эталон
    If Not(@error) Then
       MouseClick("left",$pix[0],$pix[1],1,15)     ;делает клик если найден.
       
       
       ;тут как то надо сделать цикл, что бы он искал цвет и скролил пока цвет не будет найден. 
       
       Sleep(Random(1000, 3000, 0))
       MouseWheel("down",1)              ;roll mouse whell one step
       Sleep(Random(1000, 3000, 0))
       MouseClick("left",806, 564,1,20) ;click cancel subscribe
       Sleep(Random(1000, 3000, 0))
       MouseMove(1199, 507,5)           ;отодвинуть вправо что бы не высвечивалась информация о подписчике
       Sleep(Random(1000, 2000, 0))
       MouseMove(992, 384,5)             ;вернуть на полосу прокрутки что бы она заработала
       MouseWheel("down",1)
       Sleep(Random(1000, 3000, 0))

    EndIf
    WEnd


Помогите пожалуйста только начал изучать ваша подсказка поможет мне освоить цикл while.
 

Oki

Продвинутый
Сообщения
452
Репутация
62
Имеется в виду такой цикл?
Код:
While 1
   $i = 0 ; Счётчик попыток поиска цвета подряд
   Do
      $i += 1
      If $i > 1 Then ; В первый раз перед поиском не скроЛЛить, а затем скроЛЛить при каждой неудаче поиска цвета
         Sleep(Random(1000, 3000, 0))
         MouseWheel("down", 1)              ; roll mouse WHEEL one step
      EndIf
      $pix=PixelSearch(877, 367, 974, 413, 0x262626, 5)   ; цвет эталон
   Until @error = 0
   MouseClick("left", $pix[0], $pix[1], 1, 15)     ; делает клик, если найден.
   Sleep(Random(1000, 3000, 0))
   MouseClick("left", 806, 564, 1, 20) ; click cancel subscribe
   Sleep(Random(1000, 3000, 0))
   MouseMove(1199, 507, 5)           ; отодвинуть вправо, ЧТОБЫ не высвечивалась информация о подписчике
   Sleep(Random(1000, 2000, 0))
   MouseMove(992, 384, 5)             ; вернуть на полосу прокрутки, ЧТОБЫ она заработала
   MouseWheel("down", 1)
   Sleep(Random(1000, 3000, 0))
WEnd
 
Последнее редактирование:
Автор
M

MrAutoitSinior

Новичок
Сообщения
2
Репутация
0
Имеется в виду такой цикл?
Код:
While 1
   $i = 0 ; Счётчик попыток поиска цвета подряд
   Do
      $i += 1
      If $i > 1 Then ; В первый раз перед поиском не скроЛЛить, а затем скроЛЛить при каждой неудаче поиска цвета
         Sleep(Random(1000, 3000, 0))
         MouseWheel("down", 1)              ; roll mouse WHEEL one step
      EndIf
      $pix=PixelSearch(877, 367, 974, 413, 0x262626, 5)   ; цвет эталон
   Until @error = 0
   MouseClick("left", $pix[0], $pix[1], 1, 15)     ; делает клик, если найден.
   Sleep(Random(1000, 3000, 0))
   MouseClick("left", 806, 564, 1, 20) ; click cancel subscribe
   Sleep(Random(1000, 3000, 0))
   MouseMove(1199, 507, 5)           ; отодвинуть вправо, ЧТОБЫ не высвечивалась информация о подписчике
   Sleep(Random(1000, 2000, 0))
   MouseMove(992, 384, 5)             ; вернуть на полосу прокрутки, ЧТОБЫ она заработала
   MouseWheel("down", 1)
   Sleep(Random(1000, 3000, 0))
WEnd
Да, прямо то что нужно, спасибо что потратил своё время на эту подсказку.
 
Верх