Что нового

[Мышь, клавиатура] Как по нажатию клавиши на клавиатуре автоматически нажимать ещё несколько клавиш

Evgen_KV

Новичок
Сообщения
2
Репутация
0
Здравствуйте. Нужен небольшой скрипт для компьютерной игры. Задача скрипта: 1. Прожимать клавиши 1,2,3,4,5 когда я прожимаю пробел. 2. Прожимать клавиши E, R с интервалом 5 секунд пока зажат шифт (шифт зажимаю я руками :smile:). Подскажите как такое реализовать. А лучше покажите, а то в программировании я не силён.
 

gunter123

Продвинутый
Сообщения
159
Репутация
69
Re: [Мышь, клавиатура] Как по нажатию клавиши на клавиатуре автоматически нажимать ещё несколько кл

Код:
#include <Misc.au3>
HotKeySet("{INSERT}", "_Exit")
HotKeySet("{SPACE}", "_SpacePress")

Func _Exit()
   Exit
EndFunc

Func _SpacePress()
   For $i=1 To 5
	  Send($i)
	  Sleep(5)
   Next
EndFunc

Func _ShiftPress()
   Send("E")
   Send("R")
EndFunc

While True
   If _IsPressed(10) Then
	  _ShiftPress()
	  AdlibRegister("_ShiftPress", 5000)
	  While _IsPressed(10)
		 Sleep(10)
	  WEnd
	  AdlibUnRegister("_ShiftPress")
   EndIf
   Sleep(10)
WEnd
 
Автор
E

Evgen_KV

Новичок
Сообщения
2
Репутация
0
Re: [Мышь, клавиатура] Как по нажатию клавиши на клавиатуре автоматически нажимать ещё несколько кл

gunter123 сказал(а):
Код:
#include <Misc.au3>
HotKeySet("{INSERT}", "_Exit")
HotKeySet("{SPACE}", "_SpacePress")

Func _Exit()
   Exit
EndFunc

Func _SpacePress()
   For $i=1 To 5
	  Send($i)
	  Sleep(5)
   Next
EndFunc

Func _ShiftPress()
   Send("E")
   Send("R")
EndFunc

While True
   If _IsPressed(10) Then
	  _ShiftPress()
	  AdlibRegister("_ShiftPress", 5000)
	  While _IsPressed(10)
		 Sleep(10)
	  WEnd
	  AdlibUnRegister("_ShiftPress")
   EndIf
   Sleep(10)
WEnd
Спасибо огромное. Всё работает как надо. Ещё один маленький вопрос: Если мне нужна задержка между нажатием клавиши E и R, то я после команды Send("E") вставляю команду Sleep с нужной мне задержкой?
 
Верх