Что нового

Иммитация нажатия кнопок

Rakim

Новичок
Сообщения
85
Репутация
4
Здраствуйте ребят *)
Мне нужен скрипт который бы при зажатии ЛКМ нажимал на кнопку Ш , а при отжимании нажимал Щ .
Можно кодик *)
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4 020
Репутация
622
читаем справку. там это идет под пунктом номер 1
 
Автор
R

Rakim

Новичок
Сообщения
85
Репутация
4
О_о где ? *) Сорь если вопрос тупой *)
 
Автор
R

Rakim

Новичок
Сообщения
85
Репутация
4
Пасяб, но справка у меня есть ! я спрашивал где там написанно ! Можно скринчик ?*)
 

edward_freedom

Осваивающий
Сообщения
200
Репутация
44
Код:
_IsPressed
Send

Вот что тебе надо :ok:


Добавлено:
Сообщение автоматически объединено:

Код:
;Както так
#include <Misc.au3>

While 1
    If _IsPressed("11") Then
        MsgBox(0,"Нажали Ctrl", "xD")
	if _IsPressed("11") = 0 then
		MsgBox(0,"Отпустили Ctrl", "xD")
		endif
    EndIf
WEnd
 
Автор
R

Rakim

Новичок
Сообщения
85
Репутация
4
Пасябки *) Ща буду под себя настраивать *)
 

edward_freedom

Осваивающий
Сообщения
200
Репутация
44
Вот переделал под клик мыши
Код:
#include <Misc.au3>

While 1
    If _IsPressed("01") Then
        MsgBox(0,"Нажали Ctrl", "xD")
		Send("Ш")
	if _IsPressed("01") = 0 then
		MsgBox(0,"Отпустили Ctrl", "xD")
		send("Щ")
		endif
    EndIf
WEnd
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4 020
Репутация
622
Rakim

Предупреждение За нарушение общих правил (пункт В.8):
Так как эта конференция называется "Русское сообщество AutoIt", язык общения на ней - Русский. Названия фирм или программных продуктов, аббревиатуры и т.д. должны быть написаны так, как они пишутся в оригинале, например не следует писать УСБ вместо USB. На форуме крайне не рекомендуется намеренно искажать русский язык и использовать "сетевой жаргон" на подобии "Аффтар выпей йадау!".


С уважением, Модератор раздела.
 
Автор
R

Rakim

Новичок
Сообщения
85
Репутация
4
Всё работает только, при нажатии ЛКМ он бесконечно жмёт Ш и не всегда нажимает !
А мне надо что бы нажатие было одно и всегда нажимал *)
Можно как то зделать ?
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
Rakim,
Попробуйте примерно так:
Код:
#include <Misc.au3>

HotKeySet('{Esc}', '_Exit')
If FileExists(@WindowsDir & '\notepad.exe') Then
	Run(@WindowsDir & '\notepad.exe')
Else
	MsgBox(16, 'Error', 'У Вас нет блокнота')
	Exit
EndIf
$hWin = WinWait('[Class:Notepad]', '', 3)
If Not $hWin Then
	MsgBox(16, 'Error', 'Error')
	Exit
EndIf
While 1
	If _IsPressed('04') Then ;средняя кнопка мыши
		ControlSend($hWin, '', '[CLASS:Edit;INSTANCE:1]', 'Нажата средняя кнопка мыши {ENTER}')
		While _IsPressed('04')
			Sleep(50)
		WEnd
		ControlSend($hWin, '', 'Edit1', 'Отпущена средняя кнопка мыши {ENTER}')
	EndIf
	If Not WinExists($hWin) Then Exit
	Sleep(50)
WEnd

Func _Exit()
	Exit
EndFunc   ;==>_Exit
 
Верх