TEST.bas
上传用户:graphite
上传日期:2020-09-09
资源大小:2587k
文件大小:0k
源码类别:

破解

开发平台:

Others

  1. #COMPILE EXE
  2. #IF NOT %DEF(%WINAPI)
  3.     #INCLUDE "WIN32API.INC"
  4. #ENDIF
  5. #INCLUDE "PB.INC"
  6. FUNCTION PBMAIN()
  7.     LOCAL i AS BYTE
  8.     MSGBOX "Begin", %MB_ICONINFORMATION, "UserBuffer Example"
  9.     USER_POLY_BUFFER
  10.     FOR i = 1 TO 5
  11.     MSGBOX STR$(i), %MB_ICONINFORMATION, "Index"
  12.     NEXT i
  13.     MSGBOX "End", %MB_ICONINFORMATION, "UserBuffer Example"
  14. END FUNCTION