[Процессы] Как можно ускорить проверку "if" или команду "send"?

[AndreySeVeN]

While(1)
If $Run = 1 Then; читаем значение из адреса
  $Mem_Read = _MemoryRead('0x' & '001337ED' , $MemoryOpen)
  If ($Mem_Read > $mas[$i] - 30) And ($Mem_Read < $mas[$i] + 35) Then
	    If ($but[$i] = 4) Then
		 Send("{Ч down}")
		 Send("{С down}")
		 $i = $i + 1
		 Send("{Ч up}")
		 Send("{С up}")
		 ElseIf ($but[$i] = 0) Then
		 Send($aRed[Mod($na, 2)])
		 $i = $i + 1
		 $na+=1
		 ElseIf ($but[$i] = 8) Then
		 Send($aBlue[Mod($na, 2)])
		 $i = $i + 1
		 $na+=1
		 ElseIf ($but[$i] = 12) Then
		 Send("{Я down}")
		 Send("{М down}")
		 $i = $i + 1
		 Send("{Я up}")
		 Send("{М up}")
	  EndIf
  EndIf
  EndIf
WEnd

SEND работает ОООЧень медленно. Думаю это связано с целой кучей IF. Но как это можно ускорить?

 

[AndreySeVeN]

С помощью ToolTip нашел, что проблема в переменной $i
А именно

Func Reader()
  $Mem_Read = _MemoryRead('0x' & '00286E14' , $MemoryOpen)
  If ($Mem_Read > $mas[$i] +- 30) Then
	   ReaderButton($but[$i])
	   $i = $i + 1
	   Return
  EndIf
EndFunc

К $i не всегда прибавляется единица.
Что делать?


Добавлено:

Сообщение автоматически объединено: 8 Мар 2015

А нет! Оказывается с $i все идеально.
Не всегда Send отправляется


Добавлено:

Сообщение автоматически объединено: 8 Мар 2015

Вообще не понятно. Send еле еле отправляется. Можно сказать через раз работает.

Func ReaderButton($event)
If ($event = 4) Then
   Send("{Ч down}")
   Send("{С down}")
   Send("{Ч up}")
   Send("{С up}")
   Return
ElseIf ($event = 0) Then
   Send($aRed[Mod($na, 2)])
   $na+=1
   Return
ElseIf ($event = 8) Then
   Send($aBlue[Mod($na, 2)])
   $na+=1
   Return
ElseIf ($event = 12) Then
   Send("{Я down}")
   Send("{М down}")
   Send("{Я up}")
   Send("{М up}")
   Return
EndIf
EndFunc

Добавлено:

Сообщение автоматически объединено: 8 Мар 2015

Проблема решена. Долой send, да здравствует WinAPI

 

[AZJIO]

AndreySeVeN
Используй Switch вместо ElseIf

Switch $event
    Case 0
       Send("{М up}")
    Case 8
        Send("{М up}")
    Case 12
        Send("{М up}")
EndSwitch

разный стиль

$i = $i + 1
         $na+=1

почему бы не

$i += 1

AndreySeVeN [?]

SEND работает ОООЧень медленно

Оно работает мгновенно, при том не дожидается обработало ли окно переданное, и вполне может отправить в пустоту, если окно к примеру не успело обновится после получения первой порции.