Foro de elhacker.net

format  pe gui 4.0
include 'win32a.inc'
          invoke  GetModuleHandle,0
         invoke  DialogBoxParam,eax,37,0,DialogProc1,0
proc DialogProc1 hwnddlg,msg,wparam,l
        push    ebx esi edi
        cmp     [msg],0110h
        je      .processed
        cmp     [msg],0010h
        je      .wmclose
        cmp     [msg],0111h
        je .boton
        xor eax,eax
        jmp .finish
  .boton:
  invoke MessageBox,0,apretaste,0,0
  jmp   .processed
  .wmclose:
        invoke  EndDialog,[hwnddlg],0
       invoke ExitProcess,0

  .processed:
        mov     eax,1
  .finish:
        pop     edi esi ebx
        ret
endp
apretaste db 'Aprestaste el boton' ,0
data import
  library kernel32,'KERNEL32.DLL',\
          user32,'USER32.DLL'
          include 'api\KERNEL32.inc'
            include 'api\user32.inc'
end data
data resource
directory 5,dialogs
resource  dialogs,\
            37,0Ah+01h shl 10,VENTANA

              dialog VENTANA,'Ejemplo',200,100,200,43,000C00000h+080000000h+000080000h+0080h+000020000h
  dialogitem 'BUTTON','Examinar',IDOK,20,15,80,15,010000000h+000010000h+0001h
  enddialog

end data