TEST.bas
上传用户:graphite
上传日期:2020-09-09
资源大小:2587k
文件大小:1k
- #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