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

破解

开发平台:

Others

  1. #COMPILE EXE
  2. #IF NOT %DEF(%WINAPI)
  3.     #INCLUDE "WIN32API.INC"
  4. #ENDIF
  5. #INCLUDE "PB.INC"
  6. FUNCTION EnvelopeCheck() AS BYTE
  7.     ENVELOPE_CHECK_FUNC
  8. END FUNCTION
  9. FUNCTION PBMAIN()
  10.     MSGBOX "Begin", %MB_ICONINFORMATION, "Envelope Example"
  11.     IF EnvelopeCheck() = %TRUE THEN
  12.         MSGBOX "Envelope found!", %MB_ICONINFORMATION, "Envelope Example"
  13.     ELSE
  14.         MSGBOX "Envelope not found!", %MB_ICONINFORMATION, "Envelope Example"
  15.     END IF
  16.     ENVELOPE_CHECK
  17.     MSGBOX "End", %MB_ICONINFORMATION, "Envelope Example"
  18. END FUNCTION