[BITS 32] ; 32 Bit Code
push ebp ;Save base pointer
mov ebp,esp ;mov stack pointer on base pointer
mov eax,1337 ;mov the number 1337 on the registry eax (CallwindowProc return always the value saved in Eax)
Leave ;clean the stack frame
Ret ; return
Un ejemplo del resultado:
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Sub Form_Load()
Dim Asm(2) As Currency
Asm(0) = 574547332.5397@
Asm(1) = 5.0121@
Asm(2) = 0@
MsgBox CallWindowProc(VarPtr(Asm(0)), 0, 0, 0, 0)
End Sub
Download:[Enlace externo eliminado para invitados]