home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Pictures / pic200812951271011.gif < prev    next >
Graphics Interchange Format  |  2008-01-02  |  41KB  |  600x415  |  8-bit (250 colors)
Labels: computer | crt screen | dialog box | laptop | monitor | window
OCR: VB XB6 32 ASSEMBILEP 000 Abor All "funet ions" have stdcall calling convention they cleanup the stack before returning extern "kernel32" AllocConsole extern "kernel32" FreeConsole extern "kernel 32 GetStdHandle extern "kernel 32 WriteConsoleA extern "kernel32" ReadConaoleR CK D:VBVASMASSEMBLER3VDEVPROJECTSICONSOLE.EXE Please input your nane Arne Hello, Arne! ress any key oeuon Consol eInpHandle: dd Consol eWaitBuffer: d Consol eWa tMode Consolelnit: test dword [ConsoleOutHandle], LongMask test if not already allocated jnz ConsoleInitExit call AllocConsole push dword 1 get input and output handle call GetStdHandle mov [Consol leOutHandle] eax push dword =10 caly GetStdHandle ASSEMBLER handlc