Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Название темы: Эмулятор мыши
Показать сообщение отдельно
r3r r3r вне форума

Новый участник


Сообщения: 11
Благодарности: 0

Профиль | Отправить PM | Цитировать


Вложения
Тип файла: zip mouse.zip
(237.4 Kb, 11 просмотров)

Подсмотрено и недоделано с форума 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

Отправлено: 21:26, 01-12-2008 | #4

Название темы: Эмулятор мыши