Une zolie fenetre avec des bouttons dessus! :p [masm32]

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 649 fois - Téléchargée 27 fois

Contenu du snippet

G trouvé un exemple fournis avec masm32, pour charger une dll...
G modifier, modifier et encore modifié et a la fin, yavait plus de code pour charger ladll mais des bouttons partout avec plei nde fonctione tres tres inutiles!

ça ya est! G presque compris pourkoi ça fonctionne! lol

Source / Exemple :


; #########################################################################

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

; #########################################################################

      include \masm32\include\windows.inc
      include \masm32\include\user32.inc
      include \masm32\include\kernel32.inc

      includelib \masm32\lib\user32.lib
      includelib \masm32\lib\kernel32.lib

; #########################################################################

      ;=============
      ; Local macros
      ;=============

      szText MACRO Name, Text:VARARG
        LOCAL lbl
          jmp lbl
            Name db Text,0
          lbl:
        ENDM

      m2m MACRO M1, M2
        push M2
        pop  M1
      ENDM

      return MACRO arg
        mov eax, arg
        ret
      ENDM

        ;=================
        ; Local prototypes
        ;=================
        WinMain PROTO :DWORD,:DWORD,:DWORD,:DWORD
        WndProc PROTO :DWORD,:DWORD,:DWORD,:DWORD
        TopXY PROTO   :DWORD,:DWORD
        PushButton PROTO :DWORD,:DWORD,:DWORD,:DWORD,:DWORD,:DWORD,:DWORD

    .data
        szDisplayName db "Voici un zolie fenetre avec des bouttons dessus! lol",0
        CommandLine   dd 0
        hWnd          dd 0
        hInstance     dd 0

    .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     :DWORD,
             hPrevInst :DWORD,
             CmdLine   :DWORD,
             CmdShow   :DWORD

        ;====================
        ; Put LOCALs on stack
        ;====================

        LOCAL wc   :WNDCLASSEX
        LOCAL msg  :MSG

        LOCAL Wwd  :DWORD
        LOCAL Wht  :DWORD
        LOCAL Wtx  :DWORD
        LOCAL Wty  :DWORD

        ;==================================================
        ; Fill WNDCLASSEX structure with required variables
        ;==================================================

        mov wc.cbSize,         sizeof WNDCLASSEX
        mov wc.style,          CS_HREDRAW or CS_VREDRAW \
                               or CS_BYTEALIGNWINDOW
        mov wc.lpfnWndProc,    offset WndProc
        mov wc.cbClsExtra,     NULL
        mov wc.cbWndExtra,     NULL
        m2m wc.hInstance,      hInst   ;<< NOTE: macro not mnemonic
        mov wc.hbrBackground,  COLOR_BTNFACE+1
        mov wc.lpszMenuName,   NULL
        mov wc.lpszClassName,  offset szClassName
          invoke LoadIcon,hInst,500    ; icon ID
        mov wc.hIcon,          eax
          invoke LoadCursor,NULL,IDC_ARROW
        mov wc.hCursor,        eax
        mov wc.hIconSm,        0

        invoke RegisterClassEx, ADDR wc

        ;================================
        ; Centre window at following size
        ;================================

        mov Wwd, 292
        mov Wht, 113

        invoke GetSystemMetrics,SM_CXSCREEN
        invoke TopXY,Wwd,eax
        mov Wtx, eax

        invoke GetSystemMetrics,SM_CYSCREEN
        invoke TopXY,Wht,eax
        mov Wty, eax

        szText szClassName,"CallDLL_Class"

        invoke CreateWindowEx,WS_EX_OVERLAPPEDWINDOW,
                              ADDR szClassName,
                              ADDR szDisplayName,
                              WS_OVERLAPPEDWINDOW,
                              Wtx,Wty,Wwd,Wht,
                              NULL,NULL,
                              hInst,NULL
        mov   hWnd,eax

        invoke LoadMenu,hInst,600  ; menu ID
        invoke SetMenu,hWnd,eax

        invoke ShowWindow,hWnd,SW_SHOWNORMAL
        invoke UpdateWindow,hWnd

      ;===================================
      ; Loop until PostQuitMessage is sent
      ;===================================

    StartLoop:
      invoke GetMessage,ADDR msg,NULL,0,0
      cmp eax, 0
      je ExitLoop
      invoke TranslateMessage, ADDR msg
      invoke DispatchMessage,  ADDR msg
      jmp StartLoop
    ExitLoop:

      return msg.wParam

WinMain endp

; #########################################################################

WndProc proc hWin   :DWORD,
             uMsg   :DWORD,
             wParam :DWORD,
             lParam :DWORD

    LOCAL hLib  :DWORD
;###########################################################################
; Voici les textes des bouttons, msgbox, etc...
;###########################################################################

szText TheText,"koi?",13,10,"Vous voulez quitter???",13,10,"il vous plait pas mon prog??",10,13,10,13,"c'est programmé en ASM pure et dur (mais surtout dur!)"
szText TheText3,"Voici une msgbox avec choix!",10,13,"Cliquez sur oui ou non ::",10,13," - Aimez vous microsoft?"
szText TheText4,"alors ça va, vous etes normal!"
szText TheText5,"Vous avez rien compris a l'informatique alors...:("
szText TheText2,"Créé par BlackWizzard avec une tres tres grosse base d'un exemple de masm32..."
szText TheMsg,"Assembleur, Pure & Simple"
szText Butn1,"[-Sondage-]"
szText Butn2,"A propos..."
szText Butn3,"Quitter sans confirmation"
szText Butn4,"Quitter avec confirmation"

    .if uMsg == WM_COMMAND
    ;======== menu commands ========
        .if wParam == 1000
            invoke SendMessage,hWin,WM_SYSCOMMAND,SC_CLOSE,NULL
	.elseif wParam == 500

        invoke MessageBox,hWin,ADDR TheText3,ADDR szDisplayName,MB_YESNO
		.if eax == IDNO
	            	invoke MessageBox,hWin,ADDR TheText4,ADDR szDisplayName,MB_OK
		.else
			invoke MessageBox,hWin,ADDR TheText5,ADDR szDisplayName,MB_OK
	        .endif
	.elseif wParam == 600
	
        invoke MessageBox,hWin,ADDR TheText2,ADDR szDisplayName,MB_OK
	.elseif wParam == 700
        invoke PostQuitMessage,NULL
        return 0 
	.elseif wParam == 800
        invoke MessageBox,hWin,ADDR TheText,ADDR szDisplayName,MB_YESNO
          .if eax == IDNO
            return 0
          .endif
        invoke PostQuitMessage,NULL
        return 0 
        .elseif wParam == 1900
            
            invoke MessageBox,hWin,ADDR TheMsg,ADDR szDisplayName,MB_OK
        .endif
    ;====== end menu commands ======

    .elseif uMsg == WM_CREATE

        
        invoke PushButton,ADDR Butn1,hWin,0,0,140,25,500
        
        invoke PushButton,ADDR Butn2,hWin,140,0,140,25,600
        
        invoke PushButton,ADDR Butn3,hWin,0,25,280,25,700
        
        invoke PushButton,ADDR Butn4,hWin,0,50,280,25,800

    .elseif uMsg == WM_CLOSE
        invoke MessageBox,hWin,ADDR TheText,ADDR szDisplayName,MB_YESNO
          .if eax == IDNO
            return 0
          .endif
    .elseif uMsg == WM_DESTROY
        invoke PostQuitMessage,NULL
        return 0 
    .endif

    invoke DefWindowProc,hWin,uMsg,wParam,lParam

    ret

WndProc endp

; ########################################################################

TopXY proc wDim:DWORD, sDim:DWORD

    shr sDim, 1      ; divide screen dimension by 2
    shr wDim, 1      ; divide window dimension by 2
    mov eax, wDim    ; copy window dimension into eax
    sub sDim, eax    ; sub half win dimension from half screen dimension

    return sDim

TopXY endp

; ########################################################################

PushButton proc lpText:DWORD,hParent:DWORD,
                a:DWORD,b:DWORD,wd:DWORD,ht:DWORD,ID:DWORD

    szText btnClass,"BUTTON"

    invoke CreateWindowEx,0,
            ADDR btnClass,lpText,
            WS_CHILD or WS_VISIBLE,
            a,b,wd,ht,hParent,ID,
            hInstance,NULL

    ret

PushButton endp

; ########################################################################

end start

A voir également

Ajouter un commentaire Commentaire
Messages postés
374
Date d'inscription
vendredi 20 octobre 2000
Statut
Modérateur
Dernière intervention
30 novembre 2020

C bien, mais n'oubliez pas que pour l'asembleur sous windows certains outils visuels existe. Ca simplifie fortement la vie.

essayez donc nagora http://www.visual-assembler.pt.vu/
vous verez c tres tres cool.

ManChesTer

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.