Добрый день. Такая проблема, хочу написать программу, чтобы при попадании в центр экрана определенного цвета, автоматический нажимались клавиши :
Уже запутался в этих клавишах, не подскажете как написать (доработать) код?
Вот сам код (помечено куда нужно вставить)
1.Правая кнопка мыши
Задержка 20 мсек
2.Левая кнопка мыши
Задержка 20 мсек
3.Цифра "3" (верхняя цифр. клавиатура)
Задержка 20 мсек
4.Цифра "1" (верхняя цифр. клавиатура)
Уже запутался в этих клавишах, не подскажете как написать (доработать) код?
Вот сам код (помечено куда нужно вставить)
Код:
#Region #AutoIt3Wrapper_Version=Beta
#AutoIt3Wrapper_Icon=icon.ico
#AutoIt3Wrapper_Outfile=zzz.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Compile_Both=y
#AutoIt3Wrapper_UseX64=y
#AutoIt3Wrapper_Res_Comment=papkamod
#AutoIt3Wrapper_Res_Description=papkamod
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_Language=1049
#AutoIt3Wrapper_Res_requestedExecutionLevel=highestAvailable
#EndRegion
#Include <Resources.au3>
#Include <HotKey.au3>
If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)
Opt("MouseCoordMode", 0)
Opt("TrayIconHide", 1)
Opt("PixelCoordMode", 2)
Opt("MouseClickDelay", 1)
Opt("MouseClickDownDelay", 100)
Global $Cscript = 1
Global $PAUSARASBROSA = 10
Global Const $VK_OEM_PLUS = 0xBB
Global Const $VK_OEM_MINUS = 0xBD
MsgBox(48, "Hello",10)
_HotKeyAssign($VK_HOME, 'TogglePause')
_HotKeyAssign($VK_END, 'Terminate')
_HotKeyAssign($VK_OEM_PLUS, 'Zna4eniePLUS')
_HotKeyAssign($VK_OEM_MINUS, 'Zna4enieMINUS')
While 1
While $Cscript = 1
; координаты поиска и цвета
$left='492'
$top='429'
$right='533'
$bottom='434'
$color='15878679';Цвет пиксела
$pos = PixelSearch ( $left, $top, $right, $bottom, $color)
If Not @error Then ; если цвет найден выполняем условие
; Вот здесь нужно чтобы выполнилось нажатие клавиш
EndIf
If $Cscript <> 1 Then
ToolTip("ПАУЗА", 0, 0)
Beep(500,100)
ToolTip("")
EndIf
WEnd
While $Cscript = 0
sleep(1000)
If $Cscript <> 0 Then
ToolTip("ЗАПУСК", 0, 0)
Beep(500,100)
ToolTip("")
EndIf
WEnd
WEnd
Func Zna4eniePLUS()
$PAUSARASBROSA = $PAUSARASBROSA + "5"
ToolTip("Задержка - "&$PAUSARASBROSA, 0, 0)
sleep(300)
ToolTip("")
EndFunc Func Zna4enieMINUS()
$PAUSARASBROSA = $PAUSARASBROSA - "5"
ToolTip(" + "&$PAUSARASBROSA, 0, 0)
sleep(300)
ToolTip("")
EndFunc
Func TogglePause()
$Cscript = NOT $Cscript
EndFunc
Func Terminate()
ToolTip("Autoshot - ВЫКЛЮЧЕНИЕ", 0, 0)
Beep(500,500)
Exit 0
EndFunc