;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
;Name : Dialog1.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
btnNo_NewWndProc PROTO :DWORD, :DWORD, :DWORD, :DWORD
MoveCurosrToBtnYes PROTO
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
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 ?
g_btnYesRect RECT <>
btnNo_OldWndProc 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
;-----------------------------------------
; Subclass btnNo!
;-----------------------------------------
invoke SetWindowLong,eax,GWL_WNDPROC, addr btnNo_NewWndProc
mov btnNo_OldWndProc, eax
;Get the handle of btnYes
invoke GetDlgItem, hWnd, IDC_btnYES
mov g_hbtnYes, eax
invoke SetFocus, 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_btnNO
invoke MoveCurosrToBtnYes
invoke PostMessage, hWnd, WM_COMMAND, IDC_btnYES, BM_CLICK;WM_LBUTTONDOWN
.elseif ax == IDC_btnYES
.IF g_dwReplied==0
invoke CreateWindowEx, WS_EX_STATICEDGE or WS_EX_WINDOWEDGE, ADDR szStaticTxtName, ADDR szAgree, WS_CHILD or WS_VISIBLE or SS_LEFT, 15, 90, 230, 85, hWnd, 3, hInstance, NULL
mov g_dwReplied, 1
.ENDIF
.else
invoke ShellAbout, hWnd, ADDR szAboutTitle, ADDR szAboutMsg, 0
.endif
.ENDIF
;popad
.endif
.ELSE
mov eax, FALSE
ret
.ENDIF
mov eax,TRUE
ret
DlgProc endp
;===========================================================================
btnNo_NewWndProc PROC hBtn: DWORD, uMsg: DWORD, wParam: DWORD, lParam: DWORD
;===========================================================================
.if uMsg==WM_MOUSEMOVE
invoke MoveCurosrToBtnYes
.elseif uMsg==WM_SETFOCUS
invoke PostMessage, g_hbtnYes,WM_SETFOCUS, hBtn, NULL
.elseif uMsg==WM_KEYDOWN
invoke PostMessage, g_hbtnYes, WM_KEYDOWN, wParam, lParam
.else
invoke CallWindowProc, btnNo_OldWndProc, hBtn, uMsg, wParam, lParam
ret
.endif
xor eax, eax
ret
btnNo_NewWndProc endp
;======================================================================
MoveCurosrToBtnYes proc
;======================================================================
invoke SetFocus, g_hbtnYes
invoke GetWindowRect, g_hbtnYes, addr g_btnYesRect
mov ebx, g_btnYesRect.left
add ebx, 30
mov ecx, g_btnYesRect.top
add ecx, 10
invoke SetCursorPos, ebx, ecx
ret
MoveCurosrToBtnYes 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 "程序设计语言用户调查"
{
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
}
