Включить капс лок - Assembler

Формулировка задачи:

Добрый вечер! Как включить капс лок?

Решение задачи: «Включить капс лок»

textual
                            Листинг программы 
                        

                            .386
 
.model flat, stdcall 
option casemap :none   ; case sensitive 
 
 
include \MASM32\INCLUDE\windows.inc
include \MASM32\INCLUDE\masm32.inc
include \MASM32\INCLUDE\gdi32.inc
include \MASM32\INCLUDE\user32.inc
include \MASM32\INCLUDE\kernel32.inc
includelib \MASM32\LIB\masm32.lib
includelib \MASM32\LIB\gdi32.lib
includelib \MASM32\LIB\user32.lib
includelib \MASM32\LIB\kernel32.lib
 
.const
.data?
.data
    sText db "stop",0
    sCaption db "Message",0
.code
start:
  
   ; Имитировать нажатие клавиши на клавиатуре 
    invoke  keybd_event,[VK_CAPITAL],0,0,NULL
    invoke  keybd_event,[VK_CAPITAL],0,KEYEVENTF_KEYUP,NULL 
        
    invoke MessageBox, 0, offset sText, offset sCaption, MB_OK or MB_ICONINFORMATION
    invoke GetKeyState,VK_CAPITAL 
       
    invoke ExitProcess, 0
end start
                        