Что нового

Автоматизация Проверка на количество циклов

hello

Новичок
Сообщения
1
Репутация
0
Всем привет.
я не очень умный и мне плохо.
помогите пж понять в чем тут дело.
знаю что код не структурирован, за это можете на....ть мне в мои руки, главное помогите.
Код:
#include <WinAPIEx.au3>
If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)
Global $counter = 0 
$i=0  
Kach()
Func Kach()
While 1
Local $coord = PixelSearch(950, 980, 970, 985,0xfefefe,1)
If Not @error Then
Local $coord = PixelSearch(700, 570, 1220, 950,0x78FEA7,1)
If Not @error Then
Sleep(24)
Send("{SPACE UP}")
Sleep(100)
EndIf
EndIf
$i = $i + 1
WEnd
While 1
     If $i = 5 then
        Send("{9}")
EndIf
$i = $i - 5
WEnd
EndFunc
While 1
$counter +=1
WEnd
 

Glass4217

Осваивающий
Сообщения
276
Репутация
48
убрал лишний бесконечный цикл, но без описания, что вам нужно сложно помочь.
Код:
#include <WinAPIEx.au3>

;~ If WinExists(@ScriptName) Then Exit ;не ясно зачем это, пока убираем
   AutoItWinSetTitle(@ScriptName)
   Global $counter = 0
   $i=0

While 1
Kach()
WEnd

Func Kach()
   Local $coord = PixelSearch(950, 980, 970, 985,0xfefefe,1)
   If Not @error Then
      Local $coord = PixelSearch(700, 570, 1220, 950,0x78FEA7,1)
      If Not @error Then
         Sleep(24)
         Send("{SPACE UP}")
         Sleep(100)
         $i = $i + 1
      EndIf
   EndIf

   If $i = 5 then
      Send("{9}")
      $i = $i - 5
   EndIf
EndFunc



While 1 ;тоже не ясно зачем это здесь.

   $counter +=1
WEnd
 
Последнее редактирование:
Верх