• Гідрологія і Гідрометрія
• Господарське право
• Економіка будівництва
• Економіка природокористування
• Економічна теорія
• Земельне право
• Історія України
• Кримінально виконавче право
• Медична радіологія
• Методи аналізу
• Міжнародне приватне право
• Міжнародний маркетинг
• Основи екології
• Предмет Політологія
• Соціальне страхування
• Технічні засоби організації дорожнього руху
• Товарознавство продовольчих товарів

WNDCLASS STRUC

MSGSTRUCT ENDS

MSGSTRUCT STRUC

RGBS equ (160 or (70 shl 8)) or (100 shl 16)

RGBP equ 250 or (100 shl 8)

RGBL equ 0

RGBR equ 80

RGBW equ (0 or (100 shl 8)) or (60 shl 16)

PS_DASHDOT equ 3

HS_DIAGCROSS equ 5

SW_SHOWNORMAL equ 1

IDC_CROSS equ 32515

IDI_APPLICATION equ 32512

WS_OVERLAPPEDWINDOW equ 000CF0000H

CS_GLOBALCLASS equ 4000h

CS_HREDRAW equ 2h

CS_VREDRAW equ 1h

WM_COMMAND equ 111h

WM_PAINT equ 0Fh

WM_RBUTTONDOWN equ 204h

WM_LBUTTONDOWN equ 201h

WM_CREATE equ 1

WM_DESTROY equ 2

END START

LENSTR ENDP

RET 4

LEAVE

POP EAX

DEC EBX

MOV EBX, EDI

XOR AL,AL

MOV EBX, EDI

CLD

PUSH EAX

ENTER 0,0

LENSTR PROC

PUSH 0

JNE L00

JNE L00

CMP BYTE PTR EVENT,KEY_EV

JMP L00

PUSH HANDL

PUSH OFFSET BUF

PUSH EBX

PUSH OFFSET LENS

PUSH 0

PUSH OFFSET BUF

PUSH HANDL

PUSH CRD

MOV CRD.Y,AX

MOV CRD.X,BX

JMP L00

JE DOUBLE

JNE L001

CMP WORD PTR EVENT, MOUSE_EV

PUSH HANDL1

PUSH OFFSET EVENT

PUSH 1

PUSH OFFSET SLOVO

PUSH HANDL1

PUSH OFFSET BUF

PUSH 200

PUSH OFFSET LENS

PUSH 0

PUSH HANDL

PUSH OFFSET STR2

CALL WriteConsoleA@20

; чекати виведення консолі

CALL ReadConsoleA@20

L00:

; отримання інформації про подію

CALL ReadConsoleInputA@16

CMP BYTE PTR EVENT+16, MOUSE_EV

DOUBLE:

MOV BX,WORD PTR EVENT+4 ;X

MOV AX,WORD PTR EVENT+6 ;Y

CALL SetConsoleCursorPosition@8

; виведення рядка

CALL LENSTR ; в EBX довжина рядка

CALL WriteConsoleA@20

L001:

; перевірка події

; перевірка нажаття кнопки

CMP BYTE PTR EVENT+14,27

CALL FreeConsole@0

CALL ExitProcess@4

; рядок - [EBP+08H]

; довжина в EBX

;--------------

MOV EDI, DWORD PTR [EBP+08H]

MOV ECX, 100 ; обмежити довжину рядка

REPNE SCASB ; найти символ 0

SUB EDI, EBX ; довжина рядка, включаючи 0

;--------------

_TEXT ENDS

;директиви компонувальнику для підключення бібліотек

includelib C:\masm32\lib\user32.lib

includelib C:\masm32\lib\kernel32.lib

includelib C:\masm32\lib\gdi32.lib

includelib C:\masm32\lib\masm32.lib

;константи

;властивості вікна

style equ CS_HREDRAW+CS_VREDRAW+CS_GLOBALCLASS

;ідентифікатор стандартної піктограми

;ідентифікатор курсору

;режим показу вікна — нормальний

;прототипи зовнішніх процедур

EXTERN CreateWindowExA@48:NEAR

…

;структури

MSHWND DD ?;ідентифікатор вікна, що отримує ;повідомлення

MSMESSAGE DD ? ;ідентифікатор повідомлення

MSWPARAM DD ? ;додаткова інформація про повідомлення

MSLPARAM DD ? ;додаткова інформація про повідомлення

MSTIME DD ? ;час посилання повідомлення

MSPT DD ?;положення курсору, під час посилання ;повідомлення

CLSSTYLE DD ? ;стиль вікна

CLWNDPROC DD ? ;вказівник на процедуру вікна

CLSCEXTRA DD ? ;інформація про додаткові байти для даної ;структури

CLWNDEXTRA DD ? ;інформація про додаткові байти для вікна

CLSHINSTANCE DD ? ;дескриптор додатка

CLSHICON DD ? ;ідентифікатор ікони вікна

CLSHCURSOR DD ? ;ідентифікатор курсору вікна

CLBKGROUND DD ? ;ідентифікатор пензля вікна

CLMENUNAME DD ? ;ім’я-ідентифікатор меню

CLNAME DD ? ;специфікує ім'я класу вікон

Читайте також:

1. Arithmetic Instructions
2. Branch Instructions
3. Classification of phraseological units and their structural types.
4. Computer Instructions
5. Conditional Branch Instructions
6. Data Transfer Instructions
7. Divergences in the semantic structure of words
8. Emphatic Negative Constructions
9. Exercise 1. Translate the following sentences paying attention to Participle Constructions in different syntactic functions.
10. Formats of instructions
11. III. Manner of noise production and the type of obstruction
12. Instruction Length

Переглядів: 465