Ассемблер для Windows



         

Данный раздел будет поевящен обработке команд мыши и клавиатуры - часть 3


.386P ; плоская модель .MODEL FLAT, stdcall

; константы STD_OUTPUT_HANDLE equ -11 STD_INPUT_HANDLE equ -10

; тип события KEY_EV equ 1h MOUSE_EV equ 2h

; константы - состояния клавиатуры RIGHT_ALT_PRESSED equ 1h LEFT_ALT_PRESSED equ 2h RIGHT_CTRL_PRESSED equ 4h LEFT_CTRL_PRESSED equ 8h SHIFT_PRESSED equ 10h NUMLOCK_ON equ 20h SCROLLLOCK_ON equ 40h CAPSLOCK_ON equ 80h ENHANCED_KEY equ 100h

; прототипы внешних процедур EXTERN wsprintfA:NEAR EXTERN GetStdHandle@4:NEAR EXTERN WriteConsoleA@20:NEAR EXTERN SetConsoleCursorPosition@8:NEAR EXTERN SetConsoleTitleA@4:NEAR EXTERN FreeConsole@0:NEAR EXTERN AllocConsole@0:NEAR EXTERN CharToOemA@8:NEAR EXTERN SetConsoleTextAttribute@8:NEAR EXTERN ReadConsoleInputA@16:NEAR EXTERN ExitProcess@4:NEAR

; директивы компоновщику для подключения библиотек includelib c:\masm32\lib\user32.lib includelib c:\masm32\lib\kernel32.lib ;------------------------------------------------- ; структура для определения событий COOR STRUC Х WORD ? Y WORD ? COOR ENDS

; сегмент данных _DATA SEGMENT DWORD PUBLIC USE32 'DATA' HANDL DWORD ? HANDL1 DWORD ? TITL DB "Обработка событий мыши",0 BUF DB 200 dup (?) LENS DWORD ? ; количество выведенных символов C0 DWORD ? FORM DB "Координаты: %u %u " CRD COOR <?> STR1 DB "Для выхода нажмите ESC",0 MOUS_KEY WORD 9 dup (?) _DATA ENDS

; сегмент кода _TEXT SEGMENT DWORD PUBLIC USE32 'CODE' START: ; образовать консоль ; вначале освободить уже существующую CALL FreeConsole@0 CALL AllocConsole@0 ; получить HANDL1 ввода PUSH STD_INPUT_HANDLE CALL GetStdHandle@4 MOV HANDL1,EAX ; получить HANDL вывода PUSH STD_OUTPUT_HANDLE CALL GetStdHandle@4 MOV HANDL,EAX ; задать заголовок окна консоли PUSH OFFSET TITL CALL SetConsoleTitleA@4 ;********************************** ; перекодировка строки PUSH OFFSET STR1 PUSH OFFSET STR1 CALL CharToOemA@8 ; длина строки PUSH OFFSET STR1 CALL LENSTR ; вывести строку PUSH 0 PUSH OFFSET LENS PUSH EBX PUSH OFFSET STR1 PUSH HANDL CALL WriteConsoleA@20 ; цикл ожиданий: движение мыши или двойной щелчок L00: ; координаты курсора MOV CRD.X,0 MOV CRD.Y,10 PUSH CRD PUSH HANDL CALL SetConsoleCursorPosition@8 ; прочитать одну запись о событии PUSH OFFSET C0 PUSH 1 PUSH OFFSET MOUS_KEY PUSH HANDL1 CALL ReadConsoleInputA@16 ; проверим, не с мышью ли что? CMP WORD PTR MOUS_KEY, MOUSE_EV JNE L001 ; здесь преобразуем координаты мыши в строку MOV AX, WORD PTR MOUS_KEY+6 ; Y-мышь ; копирование с обнулением старших битов MOVZX EAX,AX PUSH EAX MOV AX, WORD PTR MOUS_KEY+4 ; Х-мышь ; копирование с обнулением старших битов MOVZX EAX,AX PUSH EAX PUSH OFFSET FORM PUSH OFFSET BUF CALL wsprintfA ; восстановить стек ADD ESP,16 ; перекодировать строку для вывода PUSH OFFSET BUF PUSH OFFSET BUF CALL CharToOemA@8 ; длина строки PUSH OFFSET BUF CALL LENSTR ; вывести на экран координаты курсора PUSH 0 PUSH OFFSET LENS PUSH EBX PUSH OFFSET BUF PUSH HANDL CALL WriteConsoleA@20 JMP L00 ; к началу цикла L001: ; нет ли события от клавиатуры? CMP WORD PTR MOUS_KEY,KEY_EV JNE L00 ; есть, какое? CMP BYTE PTR MOUS_KEY+14,27 JNE L00 ;******************************** ; закрыть консоль CALL FreeConsole@0 PUSH 0 CALL ExitProcess@4 RET ; процедура определения длины строки ; строка - [EBP+08Н] ; длина в EBX LENSTR PROC ENTER 0,0 PUSH EAX CLD MOV EDI, DWORD PTR [EBP+08Н] MOV EBX, EDI MOV ECX, 100 ; ограничить длину строки XOR AL,AL REPNE SCASB ; найти символ 0 SUB EDI, EBX ; длина строки, включая 0 MOV EBX, EDI DEC EBX POP EAX LEAVE RET 4 LENSTR ENDP _TEXT ENDS END START




Содержание  Назад  Вперед