Что нового

[Мышь, клавиатура] Не нажимает по указанным координатам

hope2018

Новичок
Сообщения
6
Репутация
0
Здравствуйте, у меня проблемы в коде.
Нужно, чтоб мышка нажималась по определённым координатам на кнопку.
Вот код, он не работает.
Код:
Dim $Click = 0
While 1
	HotKeySet("{Alt}", "c1")
	HotKeySet("{Space}", "c2")
	Sleep(100)
	If $Click = 1 Then
		MouseClick("Left", 115, 55, 1, 2)
	ElseIf $Click = 0 Then
		Sleep(100)
	EndIf
WEnd
Func c1()
	$Click = 1
EndFunc
Func c2()
	$Click = 0
EndFunc

В AutoIT новичок.
 

Tempo

AutoIT Гуру
Сообщения
616
Репутация
205
hope2018, альт это клавиша-модификатор ее нельзя установить как горячую клавишу и постоянно делать это в цикле тоже не нужно

Справка
48b23f069aa7.png

Пример
Код:
Opt("TrayAutoPause", 0)
HotKeySet("{TAB}", "_Toggle")
HotKeySet("{SPACE}", "_Toggle")
HotKeySet("{ESC}", "_Toggle")

While Sleep(10)
WEnd

Func _Toggle()
	Switch @HotKeyPressed
		Case "{TAB}"
			AdlibRegister("_Click", 100)
		Case "{SPACE}"
			AdlibUnRegister("_Click")
		Case "{ESC}"
			Exit
	EndSwitch
EndFunc   ;==>_Toggle

Func _Click()
	MouseClick("Left", 115, 55, 1, 2)
EndFunc   ;==>_Click
 
Автор
H

hope2018

Новичок
Сообщения
6
Репутация
0
Спасибо.
Благодаря вам, я смог сделать правильно.
Переделал код....
Код:
Dim $Click = 0
	HotKeySet("{Tab}", "c1")
	HotKeySet("{Space}", "c2")
	HotKeySet("{Esc}", "c3")
While 1
	If $Click = 1 Then
		MouseClick("Left", 115, 55, 1, 2)
		Sleep(100)
		$Click = 0
	ElseIf $Click = 0 Then
		Sleep(100)
	EndIf
WEnd
Func c1()
	$Click = 1
EndFunc
Func c2()
	$Click = 0
EndFunc
Func c3()
	Exit
EndFunc
Можете скинуть пару гайдов?
:IL_AutoIt_1:
 

Tempo

AutoIT Гуру
Сообщения
616
Репутация
205
hope2018, просто внимательней изучайте справку нужных вам функций и пользуйтесь поиском на форуме тоже есть много готовых примеров
 
Верх