home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / ARQS_ZIP / MAINF.ZIP / LURKGLOB.BAS < prev    next >
Encoding:
BASIC Source File  |  1992-07-05  |  4.1 KB  |  128 lines
  1. 'General Declarations
  2. Global Const TRUE = -1
  3. Global Const FALSE = 0
  4. Global Const MODAL = 1
  5. Global Const MODELESS = 0
  6. Global Const CHECKED = 1
  7. Global Const UNCHECKED = 0
  8. Global Const GRAYED = 2
  9.  
  10. ' Declare for testing only
  11. Global FilePath$
  12.  
  13. 'MsgBox() constants
  14. Global Const BoxOK = 0                      ' OK button only
  15. Global Const BoxOKCANCEL = 1                ' OK and Cancel buttons
  16. Global Const BoxABORTRETRYIGNORE = 2        ' Abort, Retry, and Ignore buttons
  17. Global Const BoxYESNOCANCEL = 3             ' Yes, No, and Cancel buttons
  18. Global Const BoxYESNO = 4                   ' Yes and No buttons
  19. Global Const BoxRETRYCANCEL = 5             ' Retry and Cancel buttons
  20. Global Const GioHeader = "VBCT Lurker"
  21. Global Const GioDEFAULT = "Bad News"
  22.  
  23. 'MsgBox Types (flags)
  24. Global Const BoxSTOP = 16                   ' Critical message
  25. Global Const BoxQUESTION = 32               ' Warning query
  26. Global Const BoxEXCLAMATION = 48            ' Warning message
  27. Global Const BoxINFORMATION = 64            ' Information message
  28.  
  29. ' Constants for FileOpener
  30. Global Const REPLACEFILE = 1
  31. Global Const READFILE = 2
  32. Global Const ADDTOFILE = 3
  33. Global Const RANDOMFILE = 4
  34. Global Const BINARYFILE = 5
  35.  
  36. ' FileError constants
  37. Global Const ErrBADFILENAMEORNUMBER = 52    ' A selection of likely runtime
  38. Global Const ErrBADFILEMODE = 54            ' errors....
  39. Global Const ErrFILEALREADYOPEN = 55
  40. Global Const ErrDEVICEIO = 57
  41. Global Const ErrDISKFULL = 61
  42. Global Const ErrINPUTPASTENDOFFILE = 62
  43. Global Const ErrBADFILENAME = 64
  44. Global Const ErrDEVICEUNAVAILABLE = 68
  45. Global Const ErrDISKNOTREADY = 71
  46. Global Const ErrPATHDOESNOTEXIST = 76
  47.  
  48. ' Global variables used by configuration routines
  49. Global GSioLurkerPath As String
  50.  
  51. ' LURKER.INI App names
  52. Global Const GioAPPNAME = "Lurker"          ' for Get/Write Profile
  53. Global Const GioLURKER = "Lurker.ini"       ' for Get/Write PrivateProfile
  54. Global Const GioFILES = "Files"             ' for File information
  55.  
  56. ' global constants for WIN.INI
  57. Global Const GioLURKERPATH = "FilePath"     ' Path to Lurker files
  58. Global Const GioNULLSTRING = ""             ' for zeroing Profiles
  59.  
  60. 'Constants for modified msgbox routines FioMsgBox() and SioMsgBox
  61. Global Const MB_OK = &H0
  62. Global Const MB_ICONHAND = &H10
  63. Global Const MB_ICONQUESTION = &H20
  64. Global Const MB_ICONEXCLAMATION = &H30
  65. Global Const MB_ICONASTERISK = &H40
  66.  
  67. 'Global variables initialized at startup
  68. Global GSioLurkerIni As String   ' Full path to Lurker.ini
  69. Global GSioUserIni As String     ' Full path to active UserX.Ini
  70. Global GSioActiveUser As String  ' Need to keep track of current user
  71. Global GSioActiveHost As String  ' Name of active host
  72.  
  73. Type User
  74.     Name As String
  75.     ID As String
  76.     Password As String
  77.     Ini As String
  78. End Type
  79.  
  80. 'ListBox Messages for searching and clearing listboxes
  81. Global Const WM_USER = 1024
  82. Global Const LB_SETCURSEL = WM_USER + 7
  83. Global Const LB_SELECTSTRING = WM_USER + 13
  84. Global Const LB_SETTOPINDEX = WM_USER + 24
  85. Global Const LB_RESETCONTENT = (WM_USER + 5)
  86. Global Const CB_RESETCONTENT = WM_USER + 11
  87.  
  88. 'Profile keys
  89. Global Const GioPASSWORD = "Password"       ' Encrypted password
  90. Global Const GioNOPASSWORD = "ZippoZeroNada"' Message if no password in LURKER.INI
  91. Global Const GioDLDir = "DL Directory"      ' Where COMM stores DL'd files for processing
  92.  
  93. Type AllForumsNdx
  94.      Name As String * 30        ' Name of Forums
  95.      BytePos As Long            ' Byte position in Sectns.lst file
  96. End Type
  97.  
  98. ' These are used by to get date and time stamp from files
  99. Global Const OF_EXIST = &H4000
  100. Type OFSTRUCT
  101.     RecLen As String * 1
  102.     IsFixed As String * 1
  103.     ErrCode As Integer
  104.     r1 As Integer
  105.     r2 As Integer
  106.     CompleteName As String * 128
  107. End Type
  108. Declare Function OpenFile Lib "kernel" (ByVal fname$, aStruct As OFSTRUCT, ByVal ofstyle%) As Integer
  109.  
  110. Type forum
  111.     Name As String
  112. '    HMN As String
  113.     GoWord As String
  114.     Gateway As String
  115.     MessageFile As String
  116. '    ActiveSections As String
  117.     MsgDirectory As String
  118.     DLDirectory As String
  119.     AppendMsg As Integer
  120.     UserName As String
  121. End Type
  122.  
  123. Type Section
  124.     Number As Integer
  125.     Name As String
  126. End Type
  127.  
  128.