BeginPaint - Page 1

1

Le 25/07/2004 à 12:58

Bonjour,
le problème est tout simple je comprends absolument pas ce qui marche pas. Le "programme" est censé créer une fenêtre est afficher du texte en plein milieu. Le problème est que la partie qui crée la fenêtre ne marche que quand le code qui "peint" le texte est absent du programme. Je comprends pas pourquoi puisque il refuse de créer (CreateWindow) la fenêtre (génère une erreur).

Code:

[EXTERN MessageBoxA]
[import MessageBoxA user32.dll]

[EXTERN ExitProcess]
[import ExitProcess kernel32.dll]
[EXTERN CreateWindowExA]
[import CreateWindowExA user32.dll]
[extern GetModuleHandleA]
[import GetModuleHandleA kernel32.dll]
[extern GetCommandLineA]
[import GetCommandLineA kernel32.dll]
[EXTERN RegisterClassExA]
[import RegisterClassExA user32.dll]
[EXTERN ShowWindow]
[import ShowWindow user32.dll]
[EXTERN LoadIconA]
[import LoadIconA user32.dll]
[EXTERN LoadCursorA]
[import LoadCursorA user32.dll]
[EXTERN DefWindowProcA]
[import DefWindowProcA user32.dll]
[EXTERN PostQuitMessage]
[import PostQuitMessage user32.dll]
[EXTERN TranslateMessage]
[import TranslateMessage user32.dll]
[EXTERN DispatchMessageA]
[import DispatchMessageA user32.dll]
[EXTERN GetMessageA]
[import GetMessageA user32.dll]
[EXTERN CreateFontIndirectA]
[import CreateFontIndirectA gdi32.dll]
[EXTERN DeleteObject]
[import DeleteObject gdi32.dll]
[EXTERN PostMessageA]
[import PostMessageA user32.dll]

[EXTERN BeginPaint]
[import BeginPaint user32.dll]
[EXTERN GetClientRect]
[import GetClientRect user32.dll]
[EXTERN DrawTextA]
[import DrawTextA user32.dll]
[EXTERN EndPaint]
[import EndPaint user32.dll]

;_______________________________________________

[SECTION CODE USE32 CLASS=CODE]

..start:

push dword 00h ; null
call [GetModuleHandleA]
mov dword [instance], eax

Call [GetCommandLineA]
mov dword [commandline], eax

push dword 0Ah ; SW_SHOW
push dword eax
push dword 00h ; null
push dword [instance]
call WinMain

push dword eax
call [ExitProcess]

;************************************************
;* winMain *
;************************************************
;%define hInstance ebp+8
;%define hPrevInstance ebp+12
;%define lpCmdLine ebp+16
;%define nCmdShow ebp+20

WinMain:
enter 0,0
mov dword [winclass+0], 30h ; 48(d)
mov dword [winclass+4], 03h ; CS_HREDRAW | CS_VREDRAW
mov dword [winclass+8], WinProc
mov dword [winclass+12], 0
mov dword [winclass+16], 0
mov eax, dword [instance]
mov dword [winclass+20], eax

push word 0
push word 101
mov eax, dword [instance]
push dword eax
call [LoadIconA]
mov dword [winclass+24], eax
mov dword [winclass+44], eax

push dword 07F00h ; IDC_ARROW
push dword 00h ; NULL
call [LoadCursorA]
mov dword [winclass+28], eax

mov dword [winclass+32], 10h ; background COLOR_BTNFACE+1
mov dword [winclass+36], 00h ; (MenuName)
mov dword [winclass+40], nomclass

push dword winclass
call [RegisterClassExA]

cmp eax,0
jne RegisterOk

push dword 00h
push dword message1
push dword message2
push dword 00h
call [MessageBoxA]

push word 00h
call [ExitProcess]

RegisterOk:

mov dword [atom], eax

push dword 00h ; null
mov eax, dword [instance]
push dword eax
push dword 00h ; null
push dword 00h ; null
push dword 500 ; Wigth
push dword 500 ; Height
push dword 20 ; Left
push dword 20 ; Top
push dword 00CF0000h ; WS_TILEDWINDOW
push dword nom
push dword nomclass
push dword 00h ; WS_EX_LEFT
call [CreateWindowExA]

cmp eax , 0
jne CreateWindowOk

push dword 00h
push dword message1
push dword message3
push dword 00h
call [MessageBoxA]

push word 00h
call [ExitProcess]

CreateWindowOk:

mov dword [handle], eax

push dword 5h ; SW_SHOW
push dword [handle]
call [ShowWindow]

BoucleMessages:

push dword 0
push dword 0
push dword [handle]
push dword msg1
call [GetMessageA]

cmp eax, 12h ; WM_QUIT
je FinBoucle

cmp eax, -1
jne GetMEssageOk

push dword 00h
push dword message1
push dword message4
push dword 00h
call [MessageBoxA]

push word 00h
call [ExitProcess]

GetMEssageOk:

push dword msg1
call [TranslateMessage]
push dword msg1
call [DispatchMessageA]

jmp BoucleMessages

FinBoucle:
mov eax, dword [msg1+8]

Fin:
leave
ret 16

;*********************************************
;* WindowProc *
;*********************************************
%define hwnd ebp+8
%define uMsg ebp+12
%define wParam ebp+16
%define lParam ebp+20

WinProc:
enter 0,0
mov eax,[uMsg]

cmp eax,01b
je near Create
cmp eax,10b
je near Destroy

Defaut:
push dword [lParam]
push dword [wParam]
push dword [uMsg]]
push dword [hwnd]
call [DefWindowProcA]

;==========================================================
push dword PAINTSTRUCT
push dword [handle]
call [BeginPaint]

mov dword [hdc] ,eax

push dword RECT1
push dword [handle]
call [GetClientRect]

push dword 1
push dword RECT1
push dword -1
push dword mon_text
push dword [hdc]
call [DrawTextA]

push dword PAINTSTRUCT
push dword [handle]
call [EndPaint]
;==========================================================
Fin2:
leave
ret 16

Create: ;**************************************
push dword FontStandard
call [CreateFontIndirectA]
mov dword [hFontStandard], eax

jmp Fin2

Destroy: ;*************************************
push dword [hFontStandard]
call [DeleteObject]
jmp Fin2
;_______________________________________________

; Procedures et fonctions secondaires
;_______________________________________________

;Procedure qui assigne une font standard à un contrôle
; Param : Handle du contrôle dans eax

SetFontStandard:
push dword 01b
push dword [hFontStandard]
push dword 30h
push dword eax
call [PostMessageA]
ret
;_______________________________________________

[SECTION DATA USE32 CLASS=DATA]

; Données
;_______________________________________________
instance resd 1
commandline resd 1
winclass resd 12
atom resd 1
handle resd 1
msg1 resd 9
nomclass db "WindowClass01",0
nom db "premiere fenetre window",0
message1 db "Erreur !",0
message2 db "Première erreur !",0
message3 db "Deuxsième erreur !",0
message4 db "bye !",0

FontStandard dd 10
resd 6
db "MS sans Serif",0

hFontStandard resd 1

mon_text db "Mon texte !!",0
hdc resd 1

STRUC PAINTSTRUCT
.hdc resd 1
.fErase resd 1
.rcPaint resb 16
.fRestore resd 1
.fIncUpdate resd 1
.rgbReserved resb 32
ENDSTRUC

STRUC RECT1
.left resd 1
.top resd 1
.right resd 1
.bottom resd 1
ENDSTRUC
;_______________________________________________

Merci
TRAX

Les mots ont la valeurs que l'on veuw bien leur accorder (TRAX)

2

Le 25/07/2004 à 22:09

[EXTERN MessageBoxA]    
[import MessageBoxA user32.dll] 

[EXTERN ExitProcess] 
[import ExitProcess kernel32.dll] 
[EXTERN CreateWindowExA] 
[import CreateWindowExA user32.dll] 
[extern GetModuleHandleA] 
[import GetModuleHandleA kernel32.dll] 
[extern GetCommandLineA] 
[import GetCommandLineA kernel32.dll] 
[EXTERN RegisterClassExA] 
[import RegisterClassExA user32.dll] 
[EXTERN ShowWindow] 
[import ShowWindow user32.dll] 
[EXTERN LoadIconA] 
[import LoadIconA user32.dll] 
[EXTERN LoadCursorA] 
[import LoadCursorA user32.dll] 
[EXTERN DefWindowProcA] 
[import DefWindowProcA user32.dll] 
[EXTERN PostQuitMessage] 
[import PostQuitMessage user32.dll] 
[EXTERN TranslateMessage] 
[import TranslateMessage user32.dll] 
[EXTERN DispatchMessageA] 
[import DispatchMessageA user32.dll] 
[EXTERN GetMessageA] 
[import GetMessageA user32.dll] 
[EXTERN CreateFontIndirectA] 
[import CreateFontIndirectA gdi32.dll] 
[EXTERN DeleteObject] 
[import DeleteObject gdi32.dll] 
[EXTERN PostMessageA] 
[import PostMessageA user32.dll] 


[EXTERN BeginPaint] 
[import BeginPaint user32.dll] 
[EXTERN GetClientRect] 
[import GetClientRect user32.dll] 
[EXTERN DrawTextA] 
[import DrawTextA user32.dll] 
[EXTERN EndPaint] 
[import EndPaint user32.dll] 

;_______________________________________________ 
  
[SECTION CODE USE32 CLASS=CODE] 
  
..start: 

push dword 00h            ; null 
call [GetModuleHandleA] 
mov dword [instance], eax 

Call [GetCommandLineA] 
mov dword [commandline], eax 

push dword 0Ah            ; SW_SHOW 
push dword eax 
push dword 00h            ; null 
push dword [instance] 
call WinMain 

push dword eax 
call [ExitProcess] 


;************************************************ 
;*                winMain         * 
;************************************************ 
;%define hInstance    ebp+8 
;%define hPrevInstance   ebp+12 
;%define lpCmdLine   ebp+16 
;%define nCmdShow   ebp+20 

   WinMain: 
  enter 0,0 
mov dword [winclass+0], 30h               ; 48(d) 
mov dword [winclass+4], 03h               ; CS_HREDRAW | CS_VREDRAW    
mov dword [winclass+8], WinProc 
mov dword [winclass+12], 0 
mov dword [winclass+16], 0 
mov eax, dword [instance] 
mov dword [winclass+20], eax 

push word 0 
push word 101 
mov eax, dword [instance] 
push dword eax 
call [LoadIconA] 
mov dword [winclass+24], eax 
mov dword [winclass+44], eax 

push dword 07F00h                           ; IDC_ARROW 
push dword 00h                           ; NULL 
call [LoadCursorA] 
mov dword [winclass+28], eax 

mov dword [winclass+32], 10h                  ; background COLOR_BTNFACE+1 
mov dword [winclass+36], 00h                  ; (MenuName) 
mov dword [winclass+40], nomclass 

push dword winclass 
call [RegisterClassExA] 

cmp eax,0 
jne RegisterOk 

push dword 00h 
push dword message1 
push dword message2 
push dword 00h 
call [MessageBoxA] 

push word 00h 
call [ExitProcess] 



 RegisterOk: 

mov dword [atom], eax 

push dword 00h                     ; null 
mov eax, dword [instance] 
push dword eax 
push dword 00h                     ; null 
push dword 00h                     ; null 
push dword 500                      ; Wigth 
push dword 500                      ; Height 
push dword 20                      ; Left 
push dword 20                      ; Top 
push dword 00CF0000h                  ; WS_TILEDWINDOW 
push dword nom 
push dword nomclass 
push dword 00h                     ; WS_EX_LEFT 
call [CreateWindowExA] 

cmp eax , 0 
jne CreateWindowOk 


push dword 00h 
push dword message1 
push dword message3 
push dword 00h 
call [MessageBoxA] 

push word 00h 
call [ExitProcess] 


 CreateWindowOk: 

mov dword [handle], eax 

push dword 5h                        ; SW_SHOW 
push dword [handle] 
call [ShowWindow] 

 BoucleMessages: 

push dword 0 
push dword 0 
push dword [handle] 
push dword msg1 
call [GetMessageA] 

cmp eax, 12h                         ; WM_QUIT 
je FinBoucle 

cmp eax, -1 
jne GetMEssageOk 


push dword 00h 
push dword message1 
push dword message4 
push dword 00h 
call [MessageBoxA] 

push word 00h 
call [ExitProcess] 

  GetMEssageOk: 

push dword msg1 
call [TranslateMessage] 
push dword msg1 
call [DispatchMessageA] 

jmp BoucleMessages 

 FinBoucle: 
mov eax, dword [msg1+8]       

 Fin: 
  leave 
   ret 16 

;********************************************* 
;*           WindowProc           * 
;********************************************* 
%define hwnd    ebp+8 
%define uMsg    ebp+12 
%define wParam   ebp+16 
%define lParam   ebp+20 

   WinProc: 
  enter 0,0 
mov eax,[uMsg] 

cmp eax,01b 
je near Create  
cmp eax,10b 
je near Destroy 

 Defaut: 
push dword  [lParam] 
push dword   [wParam] 
push dword   [uMsg]] 
push dword   [hwnd] 
call [DefWindowProcA] 

;========================================================== 
push dword PAINTSTRUCT 
push dword [handle] 
call [BeginPaint] 

mov dword [hdc] ,eax 

push dword RECT1 
push dword [handle] 
call [GetClientRect] 

push dword 1 
push dword RECT1 
push dword -1 
push dword mon_text 
push dword [hdc] 
call [DrawTextA] 

push dword PAINTSTRUCT 
push dword [handle] 
call [EndPaint] 
;========================================================== 
 Fin2: 
    leave 
   ret 16 

 Create: ;************************************** 
push dword FontStandard 
call [CreateFontIndirectA] 
mov dword [hFontStandard], eax 

 jmp Fin2 

 Destroy: ;************************************* 
push dword [hFontStandard] 
call [DeleteObject] 
 jmp Fin2 
;_______________________________________________ 

  
  ; Procedures et fonctions secondaires 
;_______________________________________________ 

 ;Procedure qui assigne une font standard à un contrôle 
 ; Param : Handle du contrôle dans eax 

 SetFontStandard: 
push dword 01b 
push dword [hFontStandard] 
push dword 30h 
push dword eax 
call [PostMessageA] 
 ret  
;_______________________________________________ 
  
  
[SECTION DATA USE32 CLASS=DATA] 
  
  ; Données 
;_______________________________________________ 
instance          resd 1 
commandline         resd 1 
winclass         resd 12 
atom            resd 1 
handle         resd 1 
msg1            resd 9 
nomclass         db "WindowClass01",0 
nom            db "premiere fenetre window",0 
message1         db "Erreur !",0 
message2         db "Première erreur !",0 
message3         db "Deuxsième erreur !",0 
message4         db "bye !",0 


FontStandard    dd      10 
                resd    6 
                db      "MS sans Serif",0 
                
hFontStandard   resd    1 


mon_text          db "Mon texte !!",0 
hdc            resd 1 

STRUC PAINTSTRUCT 
  .hdc                 resd 1 
  .fErase              resd 1 
  .rcPaint             resb 16 
  .fRestore            resd 1 
  .fIncUpdate          resd 1 
  .rgbReserved         resb 32 
ENDSTRUC 

STRUC RECT1 
  .left             resd 1 
  .top              resd 1 
  .right            resd 1 
  .bottom           resd 1 
ENDSTRUC 
;_______________________________________________

I'm on a boat motherfucker, don't you ever forget

3

Le 08/08/2004 à 21:34

wao il est long ton truc.....mais pourquoi tu met pas le vrai code source....c'est bien un programme disassemblé que tu nous montre la.....trop long a comprendre.....essai de mettre le bon code source pour que je puisse voir le probleme....

4

Le 09/08/2004 à 12:54

Non, ca ressemble pas à du desassemblé ca ....

http://rgaucher.info (blog:tech)
FuckTheSpam! ~ spam@fuckthespam.com

5

Le 10/08/2004 à 14:16

grave.. si un dasm savait distinguer les datas du code aussi proprement..

6

Le 10/08/2004 à 22:18Edité par O_o le 04/09/2017 à 11:40

-

7

Le 10/09/2004 à 16:37

le pbm ,c'est quel est l'interet de programmer du windows en asm ? je vois pas trop perso

surtout de pour utiliser une interface graphique

Proud to be CAKE©®™

GCC4TI importe qui a problème en Autriche, pour l'UE plus et une encore de correspours nucléaire, ce n'est pas ytre d'instérier. L'état très même contraire, toujours reconstruire un pouvoir une choyer d'aucrée de compris le plus mite de genre, ce n'est pas moins)
Stalin est l'élection de la langie.

8

Le 11/09/2004 à 23:19

Tous les programmes que tu utilise sont en majorité des programmes windows donc "du windows en asm"...pfff
"orion_ " j'ai remarquer que je me trouve dans un forum assembleur......
au fait, c'est pas du désassembler mais il emploie des syntax d'appelle de tros bas nieau donc plus lourd ,long....

9

Le 11/09/2004 à 23:32

Tous les programmes que tu utilise sont en majorité des programmes windows donc "du windows en asm"...pfff

c'est sensé vouloir dire qq chose ?

au fait, c'est pas du désassembler mais il emploie des syntax d'appelle de tros bas nieau donc plus lourd ,long...

Ca a deja été dit plus haut, mais je me demande si tu sait lire

Proud to be CAKE©®™

GCC4TI importe qui a problème en Autriche, pour l'UE plus et une encore de correspours nucléaire, ce n'est pas ytre d'instérier. L'état très même contraire, toujours reconstruire un pouvoir une choyer d'aucrée de compris le plus mite de genre, ce n'est pas moins)
Stalin est l'élection de la langie.

10

Le 16/09/2004 à 12:25

win32asm est plus facile que l'asm sous dos si tu veux....on peut creer tous ceux qu'on veux de façon assez simple ( compare a l'asm sous dos)