test.bas

ASProtect的2.4版

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

FUNCTION PBMAIN()
    MSGBOX "Begin", %MB_ICONINFORMATION, "CRC Example"
    CRC_BEGIN
    MSGBOX "Under protection", %MB_ICONINFORMATION, "CRC Example"
    CRC_END
    MSGBOX "End", %MB_ICONINFORMATION, "CRC Example"
END FUNCTION