Что нового

[Мышь, клавиатура] Бесконечное нажатие клавиши [3] с задержкой и с вкл/выкл на одну клавишу

Legion35

Новичок
Сообщения
4
Репутация
0
Версия AutoIt: 3.3.12.0

Описание:
Нужно чтобы при нажатии на клавишу [TAB] происходил бесконечный цикл нажатия клавиши [3] с задержкой 0.5 секунд,при повторном нажатии на [TAB] он должен выключится.

Примечания:
Нужно строго как в описании без погрешностей
 

IMStrelcov

CTPEJIbLLOB
Сообщения
253
Репутация
64
Код:
HotKeySet('{Tab}','TabOnOff_')
$TabState = 0

While Sleep(100)
   ToolTip('Таб выключен. Нажми чтобы включить')
WEnd



Func TabOnOff_()
   If $TabState Then
	  $TabState = 0
   Else
	  $TabState = 1
	  While Sleep(500) ;время задержки 0.5 секунд.
		 If $TabState Then
			ToolTip('Таб включен, нажми еще раз чтобы выключить.'&@HOUR&':'&@MIN&':'&@SEC)
			;Здесь пишешь код для эмуляции нажатия нужной клавиши.
			;Send( "keys" [, flag = 0 ] ) ;Эмулирует нажатие клавиш в активном окне. (читай справку)
		 Else
			ExitLoop
		 EndIf
	  WEnd
   EndIf
EndFunc
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
IMStrelcov
Так меньше кода :smile:
Код:
HotKeySet('{Tab}', '_TabOnOff')
HotKeySet('{Esc}', '_Exit')
ToolTip('Таб выключен. Нажми чтобы включить', 0, 0)
While Sleep(1000)
WEnd

Func _TabOnOff()
	Local Static $i_Ind
	Local $a_AL[2][2] = [['AdlibUnRegister("_Send")', 'ToolTip("")'],['AdlibRegister("_Send", 500)', '_Send()']]
	$i_Ind = Not $i_Ind
	For $i = 0 To 1
		Execute($a_AL[$i_Ind][$i])
	Next
EndFunc   ;==>_TabOnOff

Func _Exit()
	Exit
EndFunc   ;==>_Exit

Func _Send()
	ToolTip('Таб включен, нажми еще раз чтобы выключить.' & @HOUR & ':' & @MIN & ':' & @SEC, 0, 0)
EndFunc   ;==>_Send
 
Автор
L

Legion35

Новичок
Сообщения
4
Репутация
0
А каков код эмуляции? Я в написании таких вещей ничего не смыслю.
 
Автор
L

Legion35

Новичок
Сообщения
4
Репутация
0
То что мне нужно и не получается,вставил все коды выбивает ошибку. Дальше думаю,можно не объяснять


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

Ладно,не важно,нашёл альтернативу.
 
Верх