beer.via

来自「一个用VB写的很好的编译器,功能超好,不过就是代码有点多,是进一步学习编译的好」· VIA 代码 · 共 17 行

// Beer.lnl

application PE GUI;

import MessageBox ascii lib "USER32.DLL",4;
import mciSendString ascii lib "WINMM.DLL",4;

const IDYES = 6;

entry
    if (MessageBox(0,"Do you need additional place for beer?",
                   "Desktop Configuration",$24) = IDYES) {
        mciSendString("open cdaudio",0,0,0);
        mciSendString("set cdaudio door open",0,0,0);
        mciSendString("close cdaudio",0,0,0);
    }
end.