Эмулятор мыши - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программное обеспечение Windows (http://forum.oszone.net/forumdisplay.php?f=7)

- - Эмулятор мыши (http://forum.oszone.net/showthread.php?t=124511)

Эмулятор мыши

Подскажите пожалуйста программу - эмулятор мыши. Нужно что-б на кнопку 3 привязывалась левая кнопка мыши. А на кнопку 4 - правая кнопка мыши. Я нашол подобную прогу - Hotkey Master. Но она не поддерживает зажатие кнопки! Работают только клики. Нужна программа то-б работали и зажатия. (Для перетаскивания)

Можно, с помощью AutoIt написать скрипт зажатия определенной кнопки мыши.

Код:

MouseClickDownDelay

MouseDown("left")

и т.д.

r3r,

Цитата:

Цитата r3r

Можно, с помощью AutoIt написать скрипт зажатия определенной кнопки мыши. »

Не почти за наглость, а ты не мог-бы написать такую програмку? А ещё на 5 кнопку нужно навесить среднюю мышиную. Буду очень признателен! 5 лет за компом, и тут вдруг лучезапясный синдром развился на мышу... :(

не получился аттач

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

Автор решил свою проблему, тему можете закрывать.
Его ответ в ПМ:

Код:

Мне уже помогли, отбой. Если что, вот код:



3::Lbutton

4::Rbutton

5::Mbutton

Код для программы AutoHotKey.

З.Ы. мой, хоть и страшный, кажется лучше ;)

Цитата:

Цитата r3r

З.Ы. мой, хоть и страшный, кажется лучше »

А чем лучше?

А Keyboard Maniac не подойдёт? В нём можно заменять клавиши и щелчки мыши.