Автор Тема: Увеличение клика мыши  (Прочитано 20406 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Lemm333 [?]

  • Новичок
  • *
  • Сообщений: 7
  • Репутация: 0
    • Награды
Увеличение клика мыши
« Создано: Ноябрь 11, 2009, 00:32:23 »
Версия AutoIt:
3.3.0.0
Описание:
Я новичек в этой теме. У меня просьба: помогите написать скрипт.
Кнопка "INSERT" - запускает скрипт
Кнопка "HOME" - пауза (скрипт не работает)
Кнопка "PGUP" - выключает скрипт
Сам скрипт - присвоение кнопки LMouse, 4-ного клика. Т.е. скрипт меняет количество кликов мыши. Одно нажатие на LMouse и происходит 4-ное кликание. Желательно без sleep или sleep (1).
После завершения работы скрипта, настройки мыши вернулись бы по дефолту.
Примечания:
Сам конечно пробовал, но не получилось((
MouseClick ( "button" [, x, y [, clicks [, speed ]]] ) – пробовал работать с этой строкой. Не получилось.

Спасибо заранее.
« Последнее редактирование: Ноябрь 11, 2009, 16:33:18 от Lemm333 »

Русское сообщество AutoIt

Увеличение клика мыши
« Отправлен: Ноябрь 11, 2009, 00:32:23 »

Оффлайн Lemm333 [?]

  • Новичок
  • *
  • Сообщений: 7

  • Автор темы
  • Репутация: 0
    • Награды
Re: Увеличение клика мыши
« Ответ #1, Отправлен: Ноябрь 11, 2009, 16:31:04 »
Я тут сделал простенький скрипт для вкл./паузы/выкл., моего будущего скрипта, протестил его, но пауза почему-то не работает. Подскажите, что не так?  (3.exe - пробный скрипт)
Код: AutoIt [Выделить]
HotKeySet("{PGUP}","_exit")
HotKeySet("{HOME}","_Pause")
HotKeySet("{INSERT}","_Run")
While 1
Sleep (100)
WEnd
Func _exit()
ProcessClose("3.exe")
EndFunc
Func _Pause()
ProcessWait("3.exe")
EndFunc
Func _Run()
ShellExecute("3.exe")
EndFunc


Оффлайн Nik_rus [?]

  • Продвинутый
  • ***
  • Сообщений: 214
  • Репутация: 62
  • Python The Snake.
    • Награды
Re: Увеличение клика мыши
« Ответ #2, Отправлен: Ноябрь 11, 2009, 16:40:14 »
Ну это вопщето легко...
Код: AutoIt [Выделить]
#include <MouseSetOnEvent_UDF.au3>
HotKeySet("!e","_Exit")
_MouseSetOnEvent($MOUSE_SECONDARYDOWN_EVENT, "_4LM")
While 1
    Sleep(0)
WEnd
Func _4LM()
    For $i=1 To 4 Step 1
        MouseClick("left")
    Next
EndFunc
Func _Exit()
    Exit
EndFunc

Я нашел среди UDF - MouseSetOnEvent, поэтому не забудь скачать её!
Работает на нажатие правой кнопки, на левой у меня какой-то глюк(нажимает не переставая) =(
Насчет запускатора:
Код: AutoIt [Выделить]
HotKeySet("{PGUP}","_Exit")
HotKeySet("{HOME}","_Pause")
HotKeySet("{INSERT}","_Run")
$in = 0
While 1
    Sleep (100)
WEnd
Func _Exit()
    If $in=1 Then
        $in=0
        ProcessClose("3.exe")
    EndIf
EndFunc
Func _Pause()
    If $in=1 Then
        $in=0
        ProcessClose("3.exe")
    ElseIf $in=0 Then
        $in=1
        Run("3.exe")
    EndIf
EndFunc
Func _Run()
    if $in=0 Then
        $in=1
        Run("3.exe")
    EndIf
EndFunc

« Последнее редактирование: Ноябрь 11, 2009, 17:44:22 от Nik_rus »
Конференция на jabber.ru - [email protected]

Оффлайн Lemm333 [?]

  • Новичок
  • *
  • Сообщений: 7

  • Автор темы
  • Репутация: 0
    • Награды
Re: Увеличение клика мыши
« Ответ #3, Отправлен: Ноябрь 11, 2009, 17:54:41 »
Ну это вопщето легко...
Единственно что я не знаю - это как в HotKeySet обозначить левую кнопку мыши.. но по моему где-то в дебрях форума есть библиотека OnMouseClick... дерзай!
Так вот и я не смог найти "OnMouseClick". По крайней мере поиск не дал ничего... Проверил твой скрипт SciTE4AutoIt3 - выдал ошибку сразу
HotKeySet("{ENTER}",_4LM)
~~~~~~~~~~~~~~~~~~~~~~~~^

Попробовал запустить, тоже ошибка.
HotKeySet("{ENTER}",_4LM^ERROR
Что это за ошибки и как исправить, я незнаю.

Русское сообщество AutoIt

Re: Увеличение клика мыши
« Ответ #3 Отправлен: Ноябрь 11, 2009, 17:54:41 »

Оффлайн SyDr [?]

  • Локальный модератор
  • *
  • Сообщений: 649
  • Репутация: 157
  • Пол: Мужской
  • Сидра
    • Награды
  • Версия AutoIt: 3.3.12.0
Re: Увеличение клика мыши
« Ответ #4, Отправлен: Ноябрь 11, 2009, 18:10:37 »
Я тут сделал простенький скрипт для вкл./паузы/выкл., моего будущего скрипта, протестил его, но пауза почему-то не работает. Подскажите, что не так?  (3.exe - пробный скрипт)
Что подразумевается под тем, что пауза не работает?
Насколько я знаю, HotKey обрабатываются в том числе и во время Sleep.
ProcessWait - ожидает появления указанного процесса.



Nik_rus  [?]
Цитировать
Работает на нажатие правой кнопки, на левой у меня какой-то глюк(нажимает не переставая) =(
Перед тем как нажимать кнопку скриптом - отключи проверку на это самое нажатие)).


http://www.autoitscript.com/forum/index.php?showtopic=64738


Оффлайн Nik_rus [?]

  • Продвинутый
  • ***
  • Сообщений: 214
  • Репутация: 62
  • Python The Snake.
    • Награды
Re: Увеличение клика мыши
« Ответ #5, Отправлен: Ноябрь 11, 2009, 18:24:12 »
точно, не подумал что цикл бесконечный получается :D
Но на правой работает, думаю автор заказа и так съест :P

Оффлайн Lemm333 [?]

  • Новичок
  • *
  • Сообщений: 7

  • Автор темы
  • Репутация: 0
    • Награды
Re: Увеличение клика мыши
« Ответ #6, Отправлен: Ноябрь 11, 2009, 18:42:09 »
Нет, не сьем)  Во-первых:Правая мне не нужна, во-вторых:у меня на правой не работает почему-то...
Я так понял, нужно вставить комаду - $MOUSE_PRIMARYUP_EVENT ;Отжатие главной кнопки?
И как отключить это самое "отключи проверку на это самое нажатие"?
Или прописать как-то по другому строку:
_MouseSetOnEvent($EVENT [, "FuncName" [, $sParam1 [, $sParam2 [, $iBlockDefProc]]]])  ??
« Последнее редактирование: Ноябрь 11, 2009, 18:55:14 от Lemm333 »

Оффлайн Nik_rus [?]

  • Продвинутый
  • ***
  • Сообщений: 214
  • Репутация: 62
  • Python The Snake.
    • Награды
Re: Увеличение клика мыши
« Ответ #7, Отправлен: Ноябрь 11, 2009, 18:52:53 »
пля чем не нравится правой
мб передавать параметр? ну честно говоря я не знаю) дерзай, пусть твоя мысль дополнит этот код!
Да прибудет с тобой АвтоСила!
« Последнее редактирование: Ноябрь 11, 2009, 18:58:17 от Nik_rus »

Русское сообщество AutoIt

Re: Увеличение клика мыши
« Ответ #7 Отправлен: Ноябрь 11, 2009, 18:52:53 »

Оффлайн Lemm333 [?]

  • Новичок
  • *
  • Сообщений: 7

  • Автор темы
  • Репутация: 0
    • Награды
Re: Увеличение клика мыши
« Ответ #8, Отправлен: Ноябрь 11, 2009, 18:56:57 »
Так как  "отключить проверку на это самое нажатие"?



Добавлено: Ноябрь 11, 2009, 19:20:39
Кстати, что-то происходит с самой мышью во время этого скрипта, дергается ужасно. Видимо скорость перемещения увеличивается или сенса...незнаю.
« Последнее редактирование: Ноябрь 11, 2009, 19:20:39 от Lemm333, Причина: Объединение сообщений »

Оффлайн SyDr [?]

  • Локальный модератор
  • *
  • Сообщений: 649
  • Репутация: 157
  • Пол: Мужской
  • Сидра
    • Награды
  • Версия AutoIt: 3.3.12.0
Re: Увеличение клика мыши
« Ответ #9, Отправлен: Ноябрь 11, 2009, 20:54:29 »
Код: AutoIt [Выделить]
#include <MouseSetOnEvent_UDF.au3>
AutoItSetOption("MouseClickDelay", 10)
AutoItSetOption("MouseClickDownDelay", 10)
HotKeySet("{HOME}","Pause")
HotKeySet("{PGUP}","_Exit")

Global $bPause = True

Pause()

While 1
    Sleep(100)
WEnd

Func _4LM()
    _MouseSetOnEvent($MOUSE_PRIMARYDOWN_EVENT)
    MouseClick("left", MouseGetPos(0), MouseGetPos(1), 4)
    _MouseSetOnEvent($MOUSE_PRIMARYDOWN_EVENT, "_4LM")
EndFunc

Func Pause()
    If Not $bPause Then _MouseSetOnEvent($MOUSE_PRIMARYDOWN_EVENT)
    $bPause = Not ($bPause)
    If Not $bPause Then _MouseSetOnEvent($MOUSE_PRIMARYDOWN_EVENT, "_4LM")
    While $bPause
        Sleep(100)
    WEnd
EndFunc

Func _Exit()
    Exit
EndFunc


Кнопки старт нет. Только пауза.

Оффлайн Lemm333 [?]

  • Новичок
  • *
  • Сообщений: 7

  • Автор темы
  • Репутация: 0
    • Награды
Re: Увеличение клика мыши
« Ответ #10, Отправлен: Ноябрь 12, 2009, 00:11:41 »
Спасибо, заработало!
НО (!), мышка дергается (перемещается) как ненормальная от этого скрипта....жуть просто. Аж в глазах ребит! Как можно сделать, чтобы скорость перемещения мыши (или её сенса) осталась прежней?


Добавлено: Ноябрь 12, 2009, 00:27:07
Потестил, ещё один недостаток - просто вылетает после нескольких нажатий. Иногда сразу, иногда после 4-5 использования.


Добавлено: Ноябрь 12, 2009, 00:45:23
+ Иногда вот такая ошибка вылетает((
« Последнее редактирование: Ноябрь 12, 2009, 00:45:23 от Lemm333, Причина: Объединение сообщений »

Русское сообщество AutoIt

Re: Увеличение клика мыши
« Ответ #10 Отправлен: Ноябрь 12, 2009, 00:11:41 »

 

Похожие темы

  Тема / Автор Ответов Последний ответ
9 Ответов
6794 Просмотров
Последний ответ Апрель 13, 2011, 00:31:01
от Bloodrinker
5 Ответов
1497 Просмотров
Последний ответ Сентябрь 29, 2015, 23:31:43
от Kaster
1 Ответов
1153 Просмотров
Последний ответ Август 12, 2016, 22:48:04
от InnI
21 Ответов
2763 Просмотров
Последний ответ Сентябрь 07, 2016, 01:44:35
от Anna
2 Ответов
682 Просмотров
Последний ответ Май 27, 2017, 02:14:38
от [email protected]
1 Ответов
513 Просмотров
Последний ответ Июль 05, 2017, 12:56:43
от InnI
10 Ответов
1115 Просмотров
Последний ответ Август 04, 2017, 12:02:07
от Петр
1 Ответов
389 Просмотров
Последний ответ Ноябрь 27, 2017, 11:45:01
от gunter123
6 Ответов
780 Просмотров
Последний ответ Декабрь 18, 2017, 17:45:42
от Tempo
2 Ответов
371 Просмотров
Последний ответ Февраль 06, 2018, 14:43:31
от mr.Gbabak