ASM Community

.386
.model flat,stdcall
option casemap:none
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
WinMain proto :DWORd,:DWORD,:DWORD,:DWORD
KillThread proto 
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
include \masm32\include\windows.inc
include \masm32\include\user32.inc
include \masm32\include\kernel32.inc
include \masm32\include\masm32.inc 

includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib
includelib \masm32\lib\masm32.lib
include \masm32\Macros\macros.asm
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.const
IDM_CREATE_THREAD	 equ 1
IDM_KILL_THREAD	 equ 3
IDM_EXIT		 equ 2
WM_FINISH	equ WM_USER+100h
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.data
ClassName	db "Win32ASMThreadClass",0
AppName	db "Win32 ASM MultiThreading Example",0
MenuName	db "FirstMenu",0
ok	db "Reset ECX, Continue running!"
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.data?
hInstance	HINSTANCE ?
CommandLine	LPSTR ?
hMenu		HANDLE ?
ExitCode	DWORD ?
hwnd		HANDLE ?
ThreadID	DWORD ?
THandle1	DWORD ?
dwExitCode	DWORD ?
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.code
start:
	invoke GetModuleHandle, NULL
	mov? ? hInstance,eax
	invoke GetCommandLine
	mov CommandLine,eax
	invoke WinMain, hInstance,NULL,CommandLine, SW_SHOWDEFAULT
	invoke ExitProcess,eax
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
WinMain proc hInst:HINSTANCE,hPrevInst:HINSTANCE,CmdLine:LPSTR,CmdShow:DWORD
	LOCAL wc:WNDCLASSEX
	LOCAL msg:MSG
	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? hInst
	pop? ?wc.hInstance
	mov? ?wc.hbrBackground,COLOR_WINDOW+1
	mov? ?wc.lpszMenuName,OFFSET MenuName
	mov? ?wc.lpszClassName,OFFSET ClassName
	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
	invoke CreateWindowEx,WS_EX_CLIENTEDGE,ADDR ClassName,ADDR AppName,\
? ? ? ? ? ?WS_OVERLAPPEDWINDOW,CW_USEDEFAULT,\
? ? ? ? ? ?CW_USEDEFAULT,300,200,NULL,NULL,\
? ? ? ? ? ?hInst,NULL
	mov? ?hwnd,eax
	invoke ShowWindow, hwnd,SW_SHOWNORMAL
	invoke UpdateWindow, hwnd
	invoke GetMenu,hwnd
	mov? hMenu,eax
	.WHILE TRUE
? ? ? ? ? ? ? ? invoke GetMessage, ADDR msg,NULL,0,0
? ? ? ? ? ? ? ? .BREAK .IF (!eax)
? ? ? ? ? ? ? ? invoke TranslateMessage, ADDR msg
? ? ? ? ? ? ? ? invoke DispatchMessage, ADDR msg
	.ENDW
	mov? ? ?eax,msg.wParam
	ret
WinMain endp
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
WndProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM
	.IF uMsg==WM_DESTROY
		invoke PostQuitMessage,NULL
	.ELSEIF uMsg==WM_COMMAND
		mov eax,wParam
		.if lParam==0
			.if ax==IDM_CREATE_THREAD
				mov? eax,OFFSET ThreadProc
				invoke CreateThread,NULL,NULL,eax,\
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? NULL,NORMAL_PRIORITY_CLASS,\
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ADDR ThreadID
				mov THandle1,eax
			.elseif ax==IDM_KILL_THREAD
				invoke CreateThread,NULL,NULL,addr KillThread,\
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? NULL,NORMAL_PRIORITY_CLASS,\
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ADDR ThreadID
				invoke CloseHandle,eax
			.else
				invoke DestroyWindow,hWnd
			.endif
		.endif
	.ELSEIF uMsg==WM_FINISH
		invoke MessageBox,NULL,ADDR AppName,ADDR AppName,MB_OK
	.ELSE
		invoke DefWindowProc,hWnd,uMsg,wParam,lParam
		ret
	.ENDIF
	xor? ? eax,eax
	ret
WndProc endp
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
ThreadProc PROC USES ecx Param:DWORD
Loop2:
	mov? ecx,300000000
Loop1:	
	inc? eax
	dec? ecx
	.if ecx == 0
		invoke MessageBox,NULL,addr ok,ADDR AppName,MB_OK
		invoke Sleep, 2000
		jmp? Loop2
	.endif
	jmp Loop1
? ? ? ? invoke SendMessage,hwnd,WM_FINISH,NULL,NULL
? ? ? ? ret
ThreadProc ENDP
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
KillThread PROC 
	invoke GetExitCodeThread,THandle1,addr dwExitCode
	invoke ExitThread,dwExitCode 
? ? ? ? ;invoke SendMessage,hwnd,WM_FINISH,NULL,NULL
? ? ? ? ret
KillThread ENDP
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

end start

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>