Что нового

[Мышь, клавиатура] Симуляция нажатия клавиш

Absolut

Новичок
Сообщения
1
Репутация
0
Добрый день.
У меня возникла такая проблема..
Мне нужно сделать что-то на подобии автокликера для игры, который должен будет нажимать определенные клавиши (с F1 по F8).
Также автокликер должен запускаться по горячей клавише TAB нажать с F1-F8 и остановиться до следующего нажатия горячей клавиши.. Пытался сделать ни чего не получилось.
Смотрел темы на форуме, ни чего такого не нашел.
Пожалуйста помогите или объясните как сделать.
Код:
Global $Paused
HotKeySet("{TAB}", "ToggleTAB")
HotKeySet("{ESC}", "Terminate")

   While 1
    Sleep(100)
 WEnd
 
 Func ToggleTAB()
   
    $Start = Not $Start
	  While $Start
        Sleep(100)
		
	  
	   Send("{F1}")
       Sleep(145)
       Send("{F2}")
	   Sleep(145)
	   Send("{F2}")
       Sleep(145)
       Send("{F3}")
       Sleep(145)
	   Send("{F3}")
       Sleep(145)
       Send("{F4}")
       Sleep(145)
       Send("{F4}")
       Sleep(145)
       Send("{F4}")
       Sleep(145)
       Send("{F5}")
	   Sleep(145)
       Send("{F5}")
       Sleep(145)
       Send("{F6}")
       Sleep(145)
       Send("{F6}")
       Sleep(145)
	   Send("{F7}")
       Sleep(145)
       Send("{F7}")
       Sleep(145)
       Send("{F8}")
	   Sleep(145)
       Send("{F8}")
       Sleep(145)
       Send("{5}")
 WEnd
EndFunc


Func Terminate()
    Exit 0
 EndFunc
 

InnI

AutoIT Гуру
Сообщения
4,912
Репутация
1,429
Absolut
Код:
HotKeySet("{TAB}", "ToggleTAB")
HotKeySet("{ESC}", "Terminate")

While 1
  Sleep(100)
WEnd

Func ToggleTAB()
  Sleep(100)
  Send("{F1}")
  Sleep(145)
  Send("{F2}")
  Sleep(145)
  Send("{F2}")
  Sleep(145)
  Send("{F3}")
  Sleep(145)
  Send("{F3}")
  Sleep(145)
  Send("{F4}")
  Sleep(145)
  Send("{F4}")
  Sleep(145)
  Send("{F4}")
  Sleep(145)
  Send("{F5}")
  Sleep(145)
  Send("{F5}")
  Sleep(145)
  Send("{F6}")
  Sleep(145)
  Send("{F6}")
  Sleep(145)
  Send("{F7}")
  Sleep(145)
  Send("{F7}")
  Sleep(145)
  Send("{F8}")
  Sleep(145)
  Send("{F8}")
  Sleep(145)
  Send("{5}")
EndFunc

Func Terminate()
  Exit 0
EndFunc
 
Верх