Добовление друга в приват.

 .386 
.model flat,stdcall 
option casemap:none 
 
include \masm32\include\windows.inc 
include \masm32\include\user32.inc 
include \masm32\include\kernel32.inc 
includelib \masm32\lib\user32.lib 
includelib \masm32\lib\kernel32.lib 
 
.data 
 
  class_name db "PrivateChat",0 
  window_name db "Add Friend to Private Chat",0 
 
  msg1 db "Enter friend's username:",0 
  msg2 db "User added to private chat!",0 
 
  prompt_col equ 10 
  prompt_row equ 10 
 
  input_col equ 30 
  input_row equ 10 
 
.code 
 
WinMain proc hInstance:HINSTANCE,hPrevInstance:HINSTANCE,lpCmdLine:LPSTR,nCmdShow:DWORD 
 
  local wc:WNDCLASSEX 
  local hwnd:HWND 
  local msg:MSG 
 
  ; register window class 
  mov wc.cbSize,SIZEOF WNDCLASSEX 
  mov wc.style,CS_HREDRAW or CS_VREDRAW 
  mov wc.lpfnWndProc,offset WndProc 
  mov wc.cbClsExtra,NULL 
  mov wc.cbWndExtra,NULL 
  push hInstance 
  pop wc.hInstance 
  mov wc.hbrBackground,COLOR_WINDOW+1 
  mov wc.lpszMenuName,NULL 
  mov wc.lpszClassName,offset class_name 
  invoke LoadIcon,NULL,IDI_APPLICATION 
  mov wc.hIcon,eax 
  mov wc.hIconSm,eax 
  invoke LoadCursor,NULL,IDC_ARROW 
  mov wc.hCursor,eax 
  invoke RegisterClassEx,addr wc 
 
  ; create window 
  invoke CreateWindowEx,\ 
         NULL,\ 
         offset class_name,\ 
         offset window_name,\ 
         WS_OVERLAPPEDWINDOW,\ 
         CW_USEDEFAULT,\ 
         CW_USEDEFAULT,\ 
         CW_USEDEFAULT,\ 
         CW_USEDEFAULT,\ 
         NULL,\ 
         NULL,\ 
         hInstance,\ 
         NULL 
  mov hwnd,eax 
    invoke ShowWindow,hwnd,nCmdShow 
  invoke UpdateWindow,hwnd 
 
  ; enter message loop 
  message_loop: 
    invoke GetMessage,addr msg,NULL,0,0 
    cmp eax,1 
    jne quit_loop 
    invoke TranslateMessage,addr msg 
    invoke DispatchMessage,addr msg 
    jmp message_loop 
  quit_loop: 
 
  invoke ExitProcess,eax 
 
WinMain endp 
 
WndProc proc hwnd:HWND,uMsg:UINT,wParam:WPARAM,lParam:LPARAM 
 
  local hdc:HDC 
  local rect:RECT 
  local prompt_rect:RECT 
  local input_rect:RECT 
  local prompt_text_size:SIZE 
  local input_text_size:SIZE 
  local prompt_hwnd:HWND 
  local input_hwnd:HWND 
  local button_hwnd:HWND 
  local friend_username db 100 dup(0) 
 
  .IF uMsg==WM_PAINT 
    invoke BeginPaint,hwnd,addr ps 
    mov hdc,eax  
    ; draw input box 
    mov input_rect.left,input_col 
    mov input_rect.top,input_row 
    invoke GetTextExtentPoint32,hdc,offset friend_username,sizeof friend_username,addr input_text_size 
    add input_rect.right,input_rect.left,input_text_size.cx 
    add input_rect.bottom,input_rect.top,input_text_size.cy 
    invoke CreateWindowEx,\ 
           WS_EX_CLIENTEDGE,\ 
           offset edit_class,\ 
           NULL,\ 
           WS_CHILD or WS_VISIBLE or ES_LEFT or ES_AUTOHSCROLL,\ 
           input_col,\ 
           input_row,\ 
           input_text_size.cx,\ 
           input_text_size.cy,\ 
           hwnd,\ 
           NULL,\ 
           hInstance,\ 
           NULL 
    mov input_hwnd,eax 
 
    ; create button 
    invoke CreateWindowEx,\ 
           NULL,\ 
           offset button_class,\ 
           offset button_text,\ 
           WS_CHILD or WS_VISIBLE or BS_PUSHBUTTON,\ 
           input_col,\ 
           input_row+input_text_size.cy+10,\ 
           100,\ 
           20,\ 
           hwnd,\ 
           IDM_ADD_FRIEND,\ 
           hInstance,\ 
           NULL 
    mov button_hwnd,eax 
 
    invoke EndPaint,hwnd,addr ps 
    xor eax,eax 
    ret 
  .ENDIF 
 
  .IF uMsg==WM_COMMAND 
    .IF wParam==IDM_ADD_FRIEND 
      ; get username from input box 
      invoke SendMessage,input_hwnd,WM_GETTEXT,100,offset friend_username 
 
    .ENDIF 
  .ENDIF 
 
  xor eax,eax 
  ret 
 
WndProc endp 
 
end WinMain