Подсмотрено и недоделано
с форума AutoIt.
По нажатию "3" с дополнительной клавиатуры зажимается левая кнопка мыши, по 4 - правая, по 5 - средняя.
Внимание: Смотрите, что пишет программа. После запуска программы, нажать нужно 2 раза. Выход по кнопке end
Код:
HotKeySet("{END}", "_Exit")
HotKeySet("{NUMPAD3}", "_left")
HotKeySet("{NUMPAD4}", "_right")
HotKeySet("{NUMPAD5}", "_middle")
Global $Paused=False
While 1
WEnd
Func _left()
$Paused = NOT $Paused
If $Paused=True Then
ToolTip("Paused")
MouseUp ( "left" )
Else
ToolTip("Started")
MouseDown ( "left" )
EndIf
While $Paused=True
Sleep(10)
WEnd
EndFunc
Func _right()
$Paused = NOT $Paused
If $Paused=True Then
ToolTip("Paused")
MouseUp ( "right" )
Else
ToolTip("Started")
MouseDown ( "right" )
EndIf
While $Paused=True
Sleep(10)
WEnd
EndFunc
Func _middle()
$Paused = NOT $Paused
If $Paused=True Then
ToolTip("Paused")
MouseUp ( "middle" )
Else
ToolTip("Started")
MouseDown ( "middle" )
EndIf
While $Paused=True
Sleep(10)
WEnd
EndFunc
Func _Exit()
Exit
EndFunc