test.bas

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

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

FUNCTION PBMAIN()
    LOCAL i AS BYTE
    MSGBOX "Begin", %MB_ICONINFORMATION, "UserBuffer Example"
    USER_POLY_BUFFER
    FOR i = 1 TO 5
    MSGBOX STR$(i), %MB_ICONINFORMATION, "Index"
    NEXT i
    MSGBOX "End", %MB_ICONINFORMATION, "UserBuffer Example"
END FUNCTION