[Мышь, клавиатура] Определенное кол-во кликов

[zelich]

Подскажите пожалуйста:
Есть скрипт:

HotKeySet('{F9}', 'Click')
HotKeySet('{F10}', 'RClick')
HotKeySet('{F11}', 'Stop')

MsgBox(0, ,F9  ====>Left Clik"&@CRLF&"F10====>Right Click"&@CRLF&"F11====>Stop Click)
Global $var = 2
    $aMousePos = MouseGetPos()
	
While 1
    Sleep(10)
WEnd

Func Click()
    $var = 0
    While $var = 0
        MouseClick('LEFT')
        Sleep(15)
    WEnd
 EndFunc
 
 func RClick()
    $var = 1
    While $var = 1
        MouseClick('Right')
        Sleep(15)
    WEnd
EndFunc

Func Stop()
    $var = 2
 EndFunc

Как сделать, чтоб можно было задавать количество?
т.е.

While

понятно. А как задать число? (Что его можно было менять)??

 

[Zaramot]

HotKeySet('{F9}', 'Click')
HotKeySet('{F10}', 'RClick')

Global $var

MsgBox(0, '', "F9  ====> Left Clik" & @CRLF & "F10 ====> Right Click")
$aMousePos = MouseGetPos()

While 1
    Sleep(10)
WEnd

Func Click()
    $var = 0
    Do
        MouseClick('LEFT')
        Sleep(15)
		$var = $var + 1
    Until $var = 10 ;10 кликов
EndFunc

func RClick()
    $var = 1
    Do
        MouseClick('Right')
        Sleep(15)
		$var = $var + 1
    Until $var = 11 ;10 кликов
EndFunc

 

[zelich]

Zaramot, это всё понятно. Как задать число? (Что его можно было менять)??

 

[Zaramot]

HotKeySet('{F9}', 'Click')
HotKeySet('{F10}', 'RClick')
HotKeySet('{F11}', 'Stop')

MsgBox(0, "", "F9  ====> Left Clik" & @CRLF & "F10 ====> Right Click" & @CRLF & "F11====>Stop Click")
Global $var, $clicks = 10 ;количество кликов
$aMousePos = MouseGetPos()
    
While 1
    Sleep(10)
WEnd

Func Click()
    $var = 0
    While $var < $clicks
        MouseClick('LEFT')
        Sleep(15)
    WEnd
 EndFunc
 
 func RClick()
    $var = 1
    While $var < $clicks
        MouseClick('Right')
        Sleep(15)
    WEnd
EndFunc

Func Stop()
    $var = $clicks
 EndFunc

Добавлено:

Сообщение автоматически объединено: 17 Фев 2012

У MouseClick есть параметр на количество кликов:

HotKeySet('{F9}', 'Click')
HotKeySet('{F10}', 'RClick')

Global $clicks = 10

MsgBox(0, '', "F9  ====> Left Clik" & @CRLF & "F10 ====> Right Click")

While 1
    Sleep(10)
WEnd

Func Click()
    MouseClick('LEFT', MouseGetPos(0), MouseGetPos(1), $clicks)
EndFunc

func RClick()
    MouseClick('RIGHT', MouseGetPos(0), MouseGetPos(1), $clicks)
EndFunc

 

[zelich]

Zaramot, И это понятно. Может я не правильно выражаюсь... Мне надо, что после того как запустил Exe'ик можно было указать Количество... MsgBox или чтот типа.... И в неё укзать...

 

[Zaramot]

$Clicks = InputBox('Title', "F9  ====> Left Clik" & @CRLF & "F10 ====> Right Click" & @CRLF & "F11====>Stop Click" & @CRLF & "Type click number:")

 

[zelich]

Пасиб!!!