Имя пользователя:
Пароль:
 | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » эмуляция нажатия клавиш

Ответить
Настройки темы
эмуляция нажатия клавиш

Новый участник


Сообщения: 1
Благодарности: 0

Профиль | Отправить PM | Цитировать


Добрый день. Такая проблема, хочу написать программу, чтобы при попадании в центр экрана определенного цвета, автоматический нажимались клавиши :
Цитата:
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

Отправлено: 20:41, 01-09-2012

 


Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » эмуляция нажатия клавиш

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Любой язык - [решено] эмуляция нажатий клавиш DOS Anufriev Скриптовые языки администрирования Windows 3 22-05-2012 15:37
CMD/BAT - Эмуляция нажития клавиш Forpost Скриптовые языки администрирования Windows 3 13-02-2012 19:15
Разное - Нажатия клавиш интерпретируются как нажатия комбинаций клавиш ineXPert Microsoft Windows 7 5 18-09-2011 10:58
[решено] эмуляция нажатия клавиш с помощью Autoit lekivanv AutoIt 5 18-11-2010 02:35
.NET - C#.NET&&обработка нажатия клавиш bezumes Программирование и базы данных 5 29-02-2008 00:51




 
Переход