【原创】玩笑程序1，看看你是否能点中"否"按钮

;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
;Name    : Dialog2.asm
;Function: 玩话程序,看看你是否能点中"否"按钮
;Author  : Purple Endurer
;Version : 0.1 
;--------------------------------------------------------------------------
;Date        Summary
;2005-07-02    Created 
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

.386
.model flat,stdcall
option casemap:none 

include /masm32/include/windows.inc
include /masm32/include/user32.inc
include /masm32/include/kernel32.inc
include /masm32/include/shell32.inc 

includelib /masm32/lib/user32.lib
includelib /masm32/lib/kernel32.lib
includelib /masm32/lib/shell32.lib 

DlgProc PROTO :DWORD,:DWORD,:DWORD,:DWORD
Static  PROTO  :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD 
btn_NewWndProc    PROTO :DWORD, :DWORD, :DWORD, :DWORD


m2m MACRO d1, d2
    push d2
    pop d1
ENDM


.const
IDC_btnYES     equ 3000
IDC_btnNO      equ 3001
IDC_btnAbout   equ 3002 

.data
szDlgName db "MyDialog",0
szAppName db "程序设计语言用户调查",0 

szYes db "是", 0
szNo  db "否", 0
szAgree db "您的回答真令我高兴，因为"
szAboutMsg db 13, 10, "☆ 我就是由【Purple Endurer】用纯32位汇编语言编写的！☆", 0
szAboutTitle db "汇编语言用户调查程序 1.0", 0
szStaticTxtName db "STATIC", 0
szWarning db "你必须接受调查！", 0 

g_dwReplied         dword 0

.data?
hInstance   HINSTANCE ?
g_hWnd      HWND ?
g_hbtnYes   HWND ?
g_hbtnNo    HWND ?
btnNo_OldWndProc    dd  ?
btnYes_OldWndProc   dd  ?

g_dwCurrentYesBtn   dd  ?
g_dwCurrentNoBtn    dd  ?


.code

start:
      invoke GetModuleHandle, NULL
      mov    hInstance,eax
      invoke DialogBoxParam, hInstance, ADDR szDlgName, NULL, addr DlgProc, NULL
      Invoke ExitProcess,eax 

;==================================================================
DlgProc proc hWnd: HWND, uMsg: UINT, wParam: WPARAM, lParam: LPARAM
;------------------------------------------------------------------      
    .IF uMsg == WM_INITDIALOG
        push hWnd
        pop  g_hWnd

    ;Get the handle of btnNo
        invoke GetDlgItem, hWnd, IDC_btnNO
        mov g_hbtnNo, eax
        mov g_dwCurrentNoBtn, eax

    ;----------------------------------------- 
        ; Subclass btnNo! 
        ;----------------------------------------- 
        invoke SetWindowLong,eax,GWL_WNDPROC, addr btn_NewWndProc
        mov btnNo_OldWndProc, eax

        ;Get the handle of btnYes
        invoke GetDlgItem, hWnd, IDC_btnYES
        mov g_hbtnYes, eax
        mov g_dwCurrentYesBtn, eax
        invoke SetFocus, eax

        ;----------------------------------------- 
        ; Subclass btnYes! 
        ;----------------------------------------- 
        invoke SetWindowLong,g_hbtnYes, GWL_WNDPROC, addr btn_NewWndProc
        mov btnYes_OldWndProc, eax
         
    .ELSEIF uMsg == WM_CLOSE
        .if g_dwReplied==0
            invoke MessageBox, hWnd, ADDR szWarning, ADDR szAppName,
                         MB_OK + MB_ICONWARNING
        .else
            invoke EndDialog, hWnd, NULL
        .endif
    .ELSEIF uMsg == WM_COMMAND
        .if lParam
            ;pushad
            mov edx,wParam
            mov eax,edx
            shr edx,16
            .IF dx == BN_CLICKED
                .if ax == IDC_btnAbout
                    invoke ShellAbout, hWnd, ADDR szAboutTitle, ADDR szAboutMsg, 0
                .else
                    .IF g_dwReplied==0
                        invoke Static, ADDR szAgree, hWnd, 15, 90, 230, 85, 3
                        mov g_dwReplied, 1
                    .ENDIF
                .endif
            .ENDIF
            ;popad
        .endif                        
    .ELSE
        mov eax, FALSE
        ret
    .ENDIF

    mov eax,TRUE
    ret
DlgProc endp 


;======================================================================
Static proc lpText: DWORD, hParent: DWORD, dwLeft: DWORD, dwTop: DWORD,
            dwWidth: DWORD, dwHeight :DWORD,ID:DWORD
;======================================================================
    invoke CreateWindowEx, WS_EX_STATICEDGE or WS_EX_WINDOWEDGE,
           ADDR szStaticTxtName, lpText,
           WS_CHILD or WS_VISIBLE or SS_LEFT,
           dwLeft, dwTop, dwWidth, dwHeight, hParent, ID,
           hInstance,NULL
    ret 
Static endp 


;===========================================================================
btn_NewWndProc PROC hBtn: DWORD, uMsg: DWORD, wParam: DWORD, lParam: DWORD 
;===========================================================================
    m2m eax, hBtn
    .IF g_dwCurrentYesBtn != eax
        .if uMsg==WM_MOUSEMOVE  
            m2m g_dwCurrentNoBtn, g_dwCurrentYesBtn
            m2m g_dwCurrentYesBtn, hBtn

            ;--------------------------
            ;Must use SendMessage
            ;--------------------------
            invoke SendMessage, g_dwCurrentYesBtn, WM_SETTEXT, NULL, ADDR szYes
            invoke SendMessage, g_dwCurrentNoBtn, WM_SETTEXT, NULL, ADDR szNo
        .elseif uMsg==WM_SETFOCUS
            invoke PostMessage, g_dwCurrentYesBtn,WM_SETFOCUS, hBtn, NULL
        .elseif uMsg==WM_KEYDOWN
            invoke PostMessage, g_dwCurrentYesBtn, WM_KEYDOWN, wParam, lParam
        .else
            jmp @F
        .endif 
        xor eax,eax 
        ret
    .ENDIF

@@:
    mov eax,g_hbtnNo
    .IF g_dwCurrentYesBtn == eax
        mov eax, btnNo_OldWndProc
    .ELSE
        mov eax, btnYes_OldWndProc
    .ENDIF
    invoke CallWindowProc, eax, hBtn, uMsg, wParam, lParam 
    ret

btn_NewWndProc endp 

end start



;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
;rsrc.rc
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
#include "/masm32/include/resource.h" 

#define IDC_btnYES                                   3000
#define IDC_btnNO                                    3001
#define IDC_btnAbout                                 3002
#define IDC_Question                                 3003 

MyDialog DIALOG 10, 10, 215, 70 

STYLE 0x0001 | DS_CENTER | WS_CAPTION  | DS_SYSMODAL |
WS_VISIBLE | WS_OVERLAPPED | DS_MODALFRAME | DS_3DLOOK
| WS_POPUP | WS_SYSMENU | WS_EX_TOOLWINDOW  

CAPTION "程序设计语言用户调查"
/*CLASS "DLGCLASS"*/ 

{
    DEFPUSHBUTTON   "是", IDC_btnYES, 131, 10, 52, 13
    PUSHBUTTON      "否", IDC_btnNO,  131, 30, 52, 13
    PUSHBUTTON      "[&A]关于…", IDC_btnAbout, 131, 50, 52, 13
    LTEXT           "问题:/r/r你喜欢用汇编语言写程序吗？",IDC_Question,10, 10, 110, 55
}