Что нового

Subway Surfers PC - управление клавиатурой

vit619

Новичок
Сообщения
2
Репутация
0
Код:
#NoTrayIcon
#RequireAdmin

Opt("MouseClickDragDelay", 1)

If Not FileExists("Subway_Surfers.exe") Then
	MsgBox(16, "Ошибка", 'Файл "Subway_Surfers.exe" не найден.')
	Exit
Else
	If Not ProcessExists("Subway_Surfers.exe") Then
		ShellExecute("Subway_Surfers.exe")
	EndIf
EndIf

Func MoveLeft()
	MouseClickDrag("Left", @DesktopWidth/2, @DesktopHeight/2, @DesktopWidth/2-200, @DesktopHeight/2, 1)
	MouseMove(@DesktopWidth/2, @DesktopHeight/2, 1)
EndFunc

Func MoveRight()
	MouseClickDrag("Left", @DesktopWidth/2, @DesktopHeight/2, @DesktopWidth/2+200, @DesktopHeight/2, 1)
	MouseMove(@DesktopWidth/2, @DesktopHeight/2, 1)
EndFunc

Func MoveUp()
	MouseClickDrag("Left", @DesktopWidth/2, @DesktopHeight/2, @DesktopWidth/2, @DesktopHeight/2-200, 1)
	MouseMove(@DesktopWidth/2, @DesktopHeight/2, 1)
EndFunc

Func MoveDown()
	MouseClickDrag("Left", @DesktopWidth/2, @DesktopHeight/2, @DesktopWidth/2, @DesktopHeight/2+200, 1)
	MouseMove(@DesktopWidth/2, @DesktopHeight/2, 1)
EndFunc

Func Click()
	MouseClick("Left")
	MouseClick("Left")
EndFunc

HotKeySet("{Left}", "MoveLeft")
HotKeySet("{Right}", "MoveRight")
HotKeySet("{Up}", "MoveUp")
HotKeySet("{Down}", "MoveDown")
HotKeySet("{Space}", "Click")

While 1
	Sleep(100)
	ToolTip('Subway Surfers Keyboard', 0, 0)
	If Not ProcessExists("Subway_Surfers.exe") Then Exit
WEnd
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,321
Предупреждение За нарушение правил форума (пункт В.11):
Любые отрывки AutoIt кода необходимо заключать в тег [autoit]
autoit.gif
(подробнее), а обычный код соответственно в тег [code]
code.gif
(подробнее). Также большие выдержки текста помещайте под тег [spoiler]
spoiler.gif
(подробнее), там где это поддерживается естественно. Как в случае с названием темы, также короткое и эргономичное сообщение привлекает больше внимания, и шансы на получение конкретного ответа увеличиваются.


С уважением, ваш Глобальный модератор.
 
Верх