- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
format PE64 GUI 5.0
include 'win64a.inc'
entry $
xor rdi,rdi
push rdi
push rdi
push rdi;$400000
push rdi
push rdi
mov rax,CW_USEDEFAULT
push rax
push rax
push rax
push rax
push rdi
push rdi
push rdi
push rdi
mov r9,WS_VISIBLE+WS_OVERLAPPEDWINDOW
mov r8,_title
mov rdx,_class
mov rcx,rdi
call [CreateWindowEx]
mov r8,WindowProc
mov rdx,-4
mov rcx,rax
call [SetWindowLongPtrA]
mov qword[_title],rax
pop rdi
mov rsi,rsp
xor rbx,rbx
mov bl,40
@@:sub rsp,rbx
xor r9,r9
xor r8,r8
xor rdx,rdx
mov rcx,rsi
call [GetMessage]
mov rcx,rsi
call [DispatchMessage]
add rsp,rbx
jmp @b
WindowProc:
push r9
cmp rdx,WM_CLOSE
je app_close
defwndproc:
push rdi
push rdi
push rdi
push rdi
mov r9,r8
mov r8,rdx
mov rdx,rcx
mov rcx,qword[_title]
call [CallWindowProc]
pop rdi
pop rdi
pop rdi
pop rdi
pop rdi
ret
app_close:
call [exit]
_title db '1KBytex64',0
_class db '#32770',0
data import
library\
user32,'USER32.DLL',\
msvcrt,'msvcrt.dll'
include 'api\user32.inc'
import msvcrt,\
exit,'_exit'
end data
Steve_Brown 28.01.2021 14:40 # 0
chiacorp 28.01.2021 17:05 # 0
doomginho 31.07.2024 17:23 # 0