passing some parameters to the thread

[six_L]

please del the topic. Before a thread can be created, you must allocate memory. A thread can't allowed to request resources.

the result of outputting  is wrong.
i will hope the result is
Tid = 1001,Randm = 55
Tid = 1002,Randm = 125
Tid = 1003,Randm = 271

Code Select Expand

option casemap:none
option win64:7

include \UASM64\include\windows.inc

includelib \UASM64\Lib\user32.lib
includelib \UASM64\Lib\kernel32.lib

ICO_MAIN equ 1000
DLG_MAIN equ 100
IDC_S equ 101
IDC_M equ 102
IDC_EXIT equ 103
IDC_OUTPUT equ 104

THREAD_RUN_PARAMETERS STRUCT
Tid WORD ?
tRunFlag BOOL ?
tMax QWORD ?
tMin QWORD ?
THREAD_RUN_PARAMETERS ENDS

.data?
hInstance dq ?
hWinMain dq ?
threadId_1 dd ?
threadId_2 dd ?
threadId_3 dd ?

.data
OutBuffer db 8192 dup (0)
tParameters THREAD_RUN_PARAMETERS<0>
stCS CRITICAL_SECTION <0>
tszBuf db 128 dup (0)

.code

iRand proc _dqMin:QWORD, _dqMax:QWORD
local @dqRet:qword, @dqFreq:qword
   
invoke QueryPerformanceCounter,addr @dqFreq
mov rax, @dqFreq
mov rcx, 13
mul rcx
add rax, 7
mov rcx, _dqMax
sub rcx, _dqMin
inc rcx
xor rdx, rdx
div rcx
mov @dqRet, rdx
mov rax, @dqRet
add rax,_dqMin    ; rax = Rand_Number
ret

iRand endp

_memcpy proc uses rdi rsi pDest:qword, pSource:qword, SizeByte:qword
cld
mov     rcx, SizeByte
        mov     rsi, pSource
        mov     rdi, pDest
        mov     rax, rcx
        shr     rcx, 3
        rep movsq
        mov     rcx, rax
        and     rcx, 7
        rep movsb
        ret
_memcpy endp

iwork_thread proc USES rsi plParameters:THREAD_RUN_PARAMETERS
local @szBuf[128]:BYTE
LOCAL dqMin:QWORD
LOCAL dqMax:QWORD
LOCAL pm:THREAD_RUN_PARAMETERS

mov rsi,plParameters
invoke _memcpy,addr pm,rsi, sizeof THREAD_RUN_PARAMETERS
lea rsi,pm
.while THREAD_RUN_PARAMETERS.tRunFlag[rsi] == TRUE

invoke RtlZeroMemory,ADDR @szBuf, sizeof @szBuf
mov rdx,THREAD_RUN_PARAMETERS.tMin[rsi]
mov dqMin,rdx
mov rcx,THREAD_RUN_PARAMETERS.tMax[rsi]
mov dqMax,rcx
invoke  iRand,dqMin,dqMax
invoke wsprintf,ADDR @szBuf,CStr("Tid = %d,Randm = %d",13,10),THREAD_RUN_PARAMETERS.Tid[rsi],rax

invoke EnterCriticalSection,ADDR stCS

invoke lstrcat,addr OutBuffer,ADDR @szBuf
invoke SetDlgItemText,hWinMain,IDC_OUTPUT,addr OutBuffer

invoke LeaveCriticalSection,ADDR stCS
invoke Sleep,1000
.endw

ret

iwork_thread endp

xwork_thread proc USES rsi plParameters:THREAD_RUN_PARAMETERS
local @szBuf[128]:BYTE
LOCAL dqMin:QWORD
LOCAL dqMax:QWORD

mov rsi,plParameters
.while THREAD_RUN_PARAMETERS.tRunFlag[rsi] == TRUE

invoke RtlZeroMemory,ADDR @szBuf, sizeof @szBuf
mov rdx,THREAD_RUN_PARAMETERS.tMin[rsi]
mov dqMin,rdx
mov rcx,THREAD_RUN_PARAMETERS.tMax[rsi]
mov dqMax,rcx
invoke  iRand,dqMin,dqMax
invoke wsprintf,ADDR @szBuf,CStr("Tid = %d,Randm = %d",13,10),THREAD_RUN_PARAMETERS.Tid[rsi],rax

invoke EnterCriticalSection,ADDR stCS

invoke lstrcat,addr OutBuffer,ADDR @szBuf
invoke SetDlgItemText,hWinMain,IDC_OUTPUT,addr OutBuffer

invoke LeaveCriticalSection,ADDR stCS
invoke Sleep,1000
.endw

ret

xwork_thread endp

_ProcDlgMain proc hWnd:qword,wMsg:dword,wParam:qword,lParam:qword
LOCAL ThreadId:DWORD

mov eax,wMsg
.if eax == WM_INITDIALOG
push hWnd
pop hWinMain
invoke LoadIcon,hInstance,ICO_MAIN
invoke SendMessage,hWnd,WM_SETICON,ICON_BIG,eax

invoke InitializeCriticalSection,ADDR stCS
invoke RtlZeroMemory,ADDR OutBuffer, sizeof OutBuffer

.elseif eax == WM_COMMAND
mov rax,wParam
.if ax == IDC_EXIT
invoke SendMessage,hWnd,WM_CLOSE,NULL,NULL
.elseif ax == IDC_S

invoke RtlZeroMemory,ADDR tParameters, sizeof tParameters

mov tParameters.Tid,1001
mov tParameters.tRunFlag,TRUE
mov tParameters.tMax,100
mov tParameters.tMin,1
invoke CreateThread,NULL,NULL, offset iwork_thread,offset tParameters, 0, offset threadId_1
invoke CloseHandle, rax

mov tParameters.Tid,1002
mov tParameters.tRunFlag,TRUE
mov tParameters.tMax,200
mov tParameters.tMin,101
invoke CreateThread,NULL,NULL, offset iwork_thread, offset tParameters, 0,offset threadId_2
invoke CloseHandle, rax

mov tParameters.Tid,1003
mov tParameters.tRunFlag,TRUE
mov tParameters.tMax,300
mov tParameters.tMin,201
invoke CreateThread,NULL,NULL, offset iwork_thread, offset tParameters, 0, offset threadId_3
invoke CloseHandle, rax

.elseif ax == IDC_M
invoke RtlZeroMemory,ADDR tszBuf, sizeof tszBuf
invoke wsprintf,ADDR tszBuf,CStr("1_tid = %d, 2_tid = %d, 3_tid = %d"),threadId_1,threadId_2,threadId_3
invoke MessageBox, 0, ADDR tszBuf,CStr("Thread_Id"), MB_OK
.endif
.elseif eax == WM_CLOSE
invoke DeleteCriticalSection,ADDR stCS
invoke EndDialog,hWnd,NULL
.else
mov rax,FALSE
ret
.endif
mov rax,TRUE
ret

_ProcDlgMain endp

WinMainCRTStartup Proc
invoke GetModuleHandle,NULL
mov hInstance,rax

invoke DialogBoxParam,hInstance,DLG_MAIN,NULL,offset _ProcDlgMain,NULL
invoke ExitProcess,NULL
WinMainCRTStartup Endp

end

Code Select Expand

#include <\UASM64\include\resource.h>

#define ICO_MAIN 1000
#define DLG_MAIN 100
#define IDC_S 101
#define IDC_M 102
#define IDC_EXIT 103
#define IDC_OUTPUT 104
//>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
ICO_MAIN ICON "ICON.ico"
//>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
DLG_MAIN DIALOG 0, 0, 337, 144
STYLE DS_MODALFRAME | DS_CENTER | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME
CAPTION "Test_Thread"
FONT 10, "Calibri"
{
EDITTEXT IDC_OUTPUT, 2, 2, 332, 125,ES_MULTILINE | ES_AUTOVSCROLL | ES_READONLY | WS_BORDER | WS_TABSTOP | WS_VSCROLL
PUSHBUTTON "StartT", IDC_S,2, 128, 40, 14
PUSHBUTTON "MdfyT", IDC_M,43, 128, 40, 14
PUSHBUTTON "Exit", IDC_EXIT, 294, 128, 40, 14, WS_TABSTOP
}