简单有创意登陆界面

.循环判断首 ()
ret ＝ MsgWaitForMultipleObjects (1, GetCurrentThreadId (), 假, -1, 1215)
' 使用这个MsgWaitForMultipleObjects的函数的特点就是,等待调用线程里是否有消息循环,
' 如果有消息循环,函数将返回,如果不使用这个函数的话,将会造成CPU100%的结果.
.判断循环首 (PeekMessageA (Msg, 0, 0, 0, 0) 且 Msg [2] ≠ 18 且 Msg [2] ≠ 位或 (65536, 18, GetCurrentThreadId ()))
' 调用PeekMessageA (Msg, 0, 0, 0, 0)
' 仅仅查看是否为QUIT消息，如果是将不处理，直接跳出，让系统处理。
PeekMessageA (Msg, 0, 0, 0, 1)
' 如果不是，将调用[PeekMessageA (Msg, 0, 0, 0, 1)]取出消息，并且处理。
TranslateMessage (Msg)
DispatchMessageA (Msg)
.判断循环尾 ()
.循环判断尾 (ret ≠ 0 且 ret ≠ 258 且 Msg [2] ≠ 18 且 Msg [2] ≠ 位或 (65536, 18, GetCurrentThreadId ()))