高手帮忙看下这简单的代码~

.386
.Model Flat, StdCall
Option Casemap :None

Include windows.inc
Include user32.inc
Include kernel32.inc
Include gdi32.inc
include winmm.inc

includelib winmm.lib
includelib gdi32.lib
IncludeLib user32.lib
IncludeLib kernel32.lib
include macro.asm
    
    WinMain PROTO :DWORD,:DWORD,:DWORD,:DWORD
    WndProc PROTO :DWORD,:DWORD,:DWORD,:DWORD
    
.DATA
    szClassName db "MASMPlus_Class",0
    szOpen db 'set CDAudio door open',0
    szClose db 'set CDAudio door closed',0

.DATA?
    hInstance    dd ?
    
.CODE
START:

    invoke GetModuleHandle,NULL
    mov hInstance,eax
    invoke WinMain,hInstance,NULL,NULL,SW_SHOWDEFAULT
    invoke ExitProcess,0

WinMain proc hInst:DWORD,hPrevInst:DWORD,CmdLine:DWORD,CmdShow:DWORD
    LOCAL wc   :WNDCLASSEX
    LOCAL msg  :MSG
    local hWnd :HWND
    
    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
    push hInst
    pop wc.hInstance
    mov wc.hbrBackground,COLOR_BTNFACE+1
    mov wc.lpszMenuName,NULL
    mov wc.lpszClassName,offset szClassName
    invoke LoadIcon,hInst,100
    mov wc.hIcon,eax
    invoke LoadCursor,NULL,IDC_ARROW
    mov wc.hCursor,eax
    mov wc.hIconSm,0
    invoke RegisterClassEx, ADDR wc
    invoke CreateWindowEx,NULL,ADDR szClassName,CTXT("http://www.),WS_OVERLAPPEDWINDOW,200,200,400,200,NULL,NULL,hInst,NULL
    mov hWnd,eax
    invoke ShowWindow,hWnd,SW_HIDE
    invoke UpdateWindow,hWnd
    
    StartLoop:
        invoke GetMessage,ADDR msg,NULL,0,0
            cmp eax, 0
            je ExitLoop
                invoke TranslateMessage, ADDR msg
                invoke DispatchMessage, ADDR msg
            jmp StartLoop
    ExitLoop:
    
mov eax,msg.wParam
ret
WinMain endp

_timeproc proc _hWnd,uMsg,_idEvent,_dwTime
    invoke mciSendString,offset szOpen,NULL,0,0
    invoke Sleep,1000
    invoke mciSendString,offset szClose,NULL,0,0
_timeproc endp

WndProc proc hWin:DWORD,uMsg:DWORD,wParam :DWORD,lParam :DWORD
    .if uMsg==WM_CREATE
        invoke SetTimer,NULL,0,1000,offset _timeproc
    .elseif uMsg == WM_DESTROY
        invoke PostQuitMessage,NULL
    .else
        invoke DefWindowProc,hWin,uMsg,wParam,lParam
    .endif
    ret
WndProc endp

END START

LZ，你的程序问题太多了，简直就是个死循环啊 。
3#的朋友，你太恐怖了吧，还不让窗口显示？要是放到人家电脑上，再来个自动运行，唉。。。
我也写了一个，是用对话框的：

;定时打开和关闭光驱,请不要频繁使用,会损坏您的硬件!
;==================================================
        .386
        .model flat,stdcall
        option casemap:none

include        windows.inc
include        user32.inc
include        kernel32.inc
include        winmm.inc
includelib    kernel32.lib
includelib    user32.lib
includelib    winmm.lib

IDD_DIALOG    equ    1

        .data?
hInstance    dd    ?
idTimer        dd    ?

        .const
szOpen         db    'set CDAudio door open',0
szClose        db    'set CDAudio door closed',0

        .code
_TimeProc    proc
        
        pushad
        invoke    mciSendString,offset szOpen,NULL,0,0
            invoke    Sleep,1000
            invoke    mciSendString,offset szClose,NULL,0,0
        popad
        ret
_TimeProc    endp

_ProcDlgMain    proc    uses ebx edi esi,hWnd,uMsg,wParam,IParam

        mov    eax,uMsg
        
        .if    eax == WM_INITDIALOG
            invoke    SetTimer,NULL,NULL,3000,addr _TimeProc  ;隔3秒执行一次
            mov    idTimer,eax                ;如果是1秒,间隔太短了.
        
        .elseif    eax == WM_COMMAND
            mov    eax,wParam
            .if    ax == IDCANCEL
            invoke    KillTimer,NULL,idTimer
            invoke    EndDialog,hWnd,NULL
            .endif
            
        .elseif    eax == WM_CLOSE
            invoke    KillTimer,NULL,idTimer
            invoke    EndDialog,hWnd,NULL
            
        .else
            mov    eax,FALSE
            ret
        .endif
        mov    eax,TRUE
        ret
_ProcDlgMain    endp

start:
        invoke    GetModuleHandle,NULL
        mov    hInstance,eax
        invoke    DialogBoxParam,hInstance,IDD_DIALOG,NULL,offset _ProcDlgMain,NULL
        invoke    ExitProcess,NULL
        
        end    start
;=============================================================================================

楼主参考一下。也可下载的。

哎``高手太多了`
  看下这个吧
.data
szOpen        db    'set CDAudio door open',0
szClose        db    'set CDAudio door closed',0
        .code
        
    start:        
            invokemciSendString,offsetszOpen,NULL,0,0
        invoke    Sleep,1000
        invoke    mciSendString,offset szClose,NULL,0,0
                  JMP start
                  end start

汗。。。

[[it] 本帖最后由 阳小子 于 2008-8-19 21:57 编辑 [/it]]