test.bas

来自「ASProtect的2.4版」· BAS 代码 · 共 21 行

#COMPILE EXE
#IF NOT %DEF(%WINAPI)
    #INCLUDE "WIN32API.INC"
#ENDIF
#INCLUDE "PB.INC"

FUNCTION EnvelopeCheck() AS BYTE
    ENVELOPE_CHECK_FUNC
END FUNCTION

FUNCTION PBMAIN()
    MSGBOX "Begin", %MB_ICONINFORMATION, "Envelope Example"
    IF EnvelopeCheck() = %TRUE THEN
        MSGBOX "Envelope found!", %MB_ICONINFORMATION, "Envelope Example"
    ELSE
        MSGBOX "Envelope not found!", %MB_ICONINFORMATION, "Envelope Example"
    END IF
    ENVELOPE_CHECK
    MSGBOX "End", %MB_ICONINFORMATION, "Envelope Example"
END FUNCTION