[Мышь, клавиатура] Поочередное нажатие кнопок мыши

[AndreySeVeN]

Func ClickD()
   MouseDown("LEFT")
EndFunc

Func ClickU()
   MouseUp("LEFT")
EndFunc

В общем нужно сделать так, программа при вызове функции ClickD нажимает левую кнопку мыши, затем при вызове ClickU программа отпускает левую кнопку. Потом снова при вызове ClickD программа уже нажимает ПРАВУЮ кнопку мыши, а при вызове ClickU программа отпускает ПРАВУЮ кнопку мыши. И так далее...

 

[InnI]

Спойлер

ClickD("left")
ClickU("left")
ClickD("right")
ClickU("right")

Func ClickD($btn)
  MouseDown($btn)
EndFunc

Func ClickU($btn)
  MouseUp($btn)
EndFunc

 

[AndreySeVeN]

Не так нужно

 

[Garrett]

Так?

Local $aBtn[2]=['left','right']
$i = 0

ClickD()
ClickU()
ClickD()
ClickU()
ClickD()
ClickU()

Func ClickD()
   MouseDown($aBtn[Mod($i, 2)])
EndFunc

Func ClickU()
   MouseUp($aBtn[Mod($i, 2)])
   $i+=1
EndFunc

 

[Olim98]

AndreySeVeN

Спойлер

Global $fRightDown = False
Global $fRightUp = False
Func ClickD()
If $fRightDown Then
    MouseDown("LEFT")
    $fRightDown = True
Else
    MouseDown("RIGHT")
    $fRightDown = False
EndIf
EndFunc

Func ClickU()
If $fRightUp Then
    MouseUp("LEFT")
    $fRightUp = True
Else
    MouseUp("RIGHT")
    $fRightUp = False
EndIf
EndFunc

 

[AndreySeVeN]

Garrett

Спасибо. Все работает