ASM Community

    pStart POINT <?>
    MCdown dd 0
    MCup dd 0
(...)
    .elseif uMsg==WM_MCDOWN
        cmp MCdown, 0
        jz @F
            mov MCdown, FALSE
            mov MCup, TRUE
            push wParam
            pop pStart.x
            push lParam
            pop pStart.y
        @@:
    .elseif uMsg==WM_MCUP
        cmp MCup, 0
        jz @F
            mov MCup, FALSE
            ; So now I would use that formula here, but how? I have the WM_MCDOWN cordinates (pStart.x, pStart.y)
            ; And the MC_UP ones (wParam, lParam)...
            invoke SetDlgItemText, hWnd, IDC_GETSIZE, CTXT("Get size")
        @@:
    .elseif uMsg==WM_COMMAND
	mov eax, wParam
	cmp ax, IDC_GETSIZE
	jnz @F
	    mov MCdown, TRUE
	    invoke SetDlgItemText, hWnd, IDC_GETSIZE, CTXT("Click and drag your mouse")
	@@:
(...)

MouseProc proc nCode:DWORD,wParam:DWORD,lParam:DWORD
	invoke CallNextHookEx,hHook,nCode,wParam,lParam
	mov edx,lParam
	assume edx:PTR MOUSEHOOKSTRUCT
	.if wParam == WM_LBUTTONDOWN
	    invoke PostMessage,hWnd,WM_MCDOWN,.pt.x,.pt.y
	.elseif wParam == WM_LBUTTONUP
	    invoke PostMessage,hWnd,WM_MCUP,.pt.x,.pt.y
	.else
	    invoke PostMessage,hWnd,WM_MOUSEMV,.pt.x,.pt.y
	.endif
	assume edx:nothing
	xor eax,eax
	ret
MouseProc endp

.386
.model flat, stdcall  ;32 bit memory model
option casemap :none  ;case sensitive

include windows.inc
include kernel32.inc
include user32.inc
include gdi32.inc
include \masm32\macros\macros.asm

includelib AutoClickDll.lib
includelib kernel32.lib
includelib user32.lib
includelib gdi32.lib

DlgProc proto :DWORD,:DWORD,:DWORD,:DWORD
InstallHook proto :DWORD
UninstallHook proto
MouseProc proto :DWORD,:DWORD,:DWORD

.const
    IDC_HOOK equ 12
    IDC_XPOINT equ 10
    IDC_YPOINT equ 11
    IDC_COLORBOX equ 12
    IDC_GETSIZE equ 13
    WM_MOUSEMV equ WM_USER+6
    WM_MCUP equ WM_USER+7
    WM_MCDOWN equ WM_USER+8
.data?
    rect RECT <?>
    ps PAINTSTRUCT <?>
    pStart POINT <?>
    pEnd POINT <?>
    result dd ?
    buffer db 50 dup(?)
.data
    template db "There are %lu pixels",0
    MCdown dd 0
    Capture dd 0
.code
start:
	invoke GetModuleHandle, NULL 
	invoke DialogBoxParam, eax, 1, NULL, addr DlgProc, NULL
	invoke ExitProcess, 0

DlgProc proc hWnd:HWND,uMsg:UINT,wParam:WPARAM,lParam:LPARAM
    .if uMsg==WM_PAINT
        .if Capture
            invoke BeginPaint,hWnd,addr ps
            invoke GetStockObject, BLACK_PEN
            push eax
            invoke SelectObject,ps.hdc,eax
            invoke MoveToEx,ps.hdc,pStart.x,pStart.y,NULL
            invoke LineTo,ps.hdc,pEnd.x,pEnd.y
            invoke EndPaint,hWnd,addr ps
            call DeleteObject
        .endif
    .elseif uMsg==WM_MOUSEMV
        invoke SetDlgItemInt, hWnd, IDC_XPOINT, wParam, FALSE
        invoke SetDlgItemInt, hWnd, IDC_YPOINT, lParam, FALSE
        .if Capture
            m2m pEnd.x, wParam
            m2m pEnd.y, lParam
            invoke InvalidateRect,hWnd,0,TRUE
        .endif
    .elseif uMsg==WM_MCUP
        mov Capture, FALSE
        
        mov eax, pStart.x
        mov edx, pEnd.x
        sub eax, edx
        imul eax, eax
        
        push eax
        
        mov eax, pStart.y
        mov edx, pEnd.y
        sub eax, edx
        imul eax, eax
        
        pop edx
        add eax, edx
        mov result, eax
        
        finit
        fild result
        fsqrt
        fistp result
        
        invoke wsprintf, addr buffer, addr template, result
        invoke MessageBox, hWnd, addr buffer, 0, MB_OK
    .elseif uMsg==WM_MCDOWN
        .if MCdown
            mov MCdown, FALSE
            mov Capture, TRUE
            m2m pStart.x, wParam
            m2m pStart.y, lParam
        .endif
    .elseif uMsg==WM_COMMAND
        mov eax, wParam
        .if ax==IDC_GETSIZE
            mov MCdown, TRUE
            invoke SetDlgItemText, hWnd, IDC_GETSIZE, CTXT("Click and drag your mouse")
        .endif         
    .elseif uMsg==WM_INITDIALOG
        invoke GetWindowRect,hWnd,addr rect
        invoke SetWindowPos,hWnd,HWND_TOPMOST,rect.left,rect.top,rect.right,rect.bottom,SWP_SHOWWINDOW

        invoke InstallHook, hWnd
    .elseif uMsg==WM_CLOSE
        invoke UninstallHook
        invoke EndDialog,hWnd,0
    .else
        mov	eax,FALSE
        ret
	.endif
	mov	eax,TRUE
	ret
DlgProc endp

end start

.386
.model flat, stdcall  ;32 bit memory model
option casemap :none  ;case sensitive

include windows.inc
include kernel32.inc
include user32.inc
include gdi32.inc
include \masm32\macros\macros.asm

includelib AutoClickDll.lib
includelib kernel32.lib
includelib user32.lib
includelib gdi32.lib

DlgProc proto :DWORD,:DWORD,:DWORD,:DWORD
InstallHook proto :DWORD
UninstallHook proto
MouseProc proto :DWORD,:DWORD,:DWORD

.const
    IDC_HOOK equ 12
    IDC_XPOINT equ 10
    IDC_YPOINT equ 11
    IDC_COLORBOX equ 12
    IDC_GETSIZE equ 13
    WM_MOUSEMV equ WM_USER+6
    WM_MCUP equ WM_USER+7
    WM_MCDOWN equ WM_USER+8
.data?
    BoxColor dd ?
    ColorBoxHwnd dd ?
    rect RECT <?>
    ps PAINTSTRUCT <?>
    pStart POINT <?>
    pEnd POINT <?>
    result dd ?
    buffer db 50 dup(?)
.data
    template db "There are %lu pixels",0
    MCdown dd 0
    Capture dd 0
.code
start:
	invoke GetModuleHandle, NULL 
	invoke DialogBoxParam, eax, 1, NULL, addr DlgProc, NULL
	invoke ExitProcess, 0

DlgProc proc hWnd:HWND,uMsg:UINT,wParam:WPARAM,lParam:LPARAM
    .if uMsg==WM_MOUSEMV
        invoke SetDlgItemInt, hWnd, IDC_XPOINT, wParam, FALSE
        invoke SetDlgItemInt, hWnd, IDC_YPOINT, lParam, FALSE

comment * ==========================================
        .if Capture
            m2m pEnd.x, wParam
            m2m pEnd.y, lParam
            invoke InvalidateRect,hWnd,0,TRUE
        .endif
    .elseif uMsg==WM_PAINT
        .if Capture
            invoke BeginPaint,hWnd,addr ps
            invoke GetStockObject, BLACK_PEN
            push eax
            invoke SelectObject,ps.hdc,eax
            invoke MoveToEx,ps.hdc,pStart.x,pStart.y,NULL
            invoke LineTo,ps.hdc,pEnd.x,pEnd.y
            invoke EndPaint,hWnd,addr ps
            call DeleteObject
        .endif
comment * ==========================================
    .elseif uMsg==WM_MCUP
        .if Capture
            mov Capture, FALSE
        
            m2m pEnd.x, wParam
            m2m pEnd.y, lParam
        
            mov eax, pStart.x
            mov edx, pEnd.x
            sub eax, edx
            imul eax, eax
        
            push eax
        
            mov eax, pStart.y
            mov edx, pEnd.y
            sub eax, edx
            imul eax, eax
            
            pop edx
            add eax, edx
            mov result, eax
        
            finit
            fild result
            fsqrt
            fistp result
            
            invoke wsprintf, addr buffer, addr template, result
            invoke MessageBox, hWnd, addr buffer, 0, MB_OK
            invoke SetDlgItemText, hWnd, IDC_GETSIZE, CTXT("Get Size")
        .endif
    .elseif uMsg==WM_MCDOWN
        .if MCdown
            mov MCdown, FALSE
            mov Capture, TRUE
            m2m pStart.x, wParam
            m2m pStart.y, lParam
        .endif
    .elseif uMsg==WM_COMMAND
        mov eax, wParam
        .if ax==IDC_GETSIZE
            mov MCdown, TRUE
            invoke SetDlgItemText, hWnd, IDC_GETSIZE, CTXT("Click and drag your mouse")
        .endif         
    .elseif uMsg==WM_INITDIALOG
        invoke GetWindowRect,hWnd,addr rect
        invoke SetWindowPos,hWnd,HWND_TOPMOST,rect.left,rect.top,rect.right,rect.bottom,SWP_SHOWWINDOW

        invoke InstallHook, hWnd
    .elseif uMsg==WM_CLOSE
        invoke UninstallHook
        invoke EndDialog,hWnd,0
    .else
        mov	eax,FALSE
        ret
	.endif
	mov	eax,TRUE
	ret
DlgProc endp

end start