home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD40173162000.psc / NewBook.bas next >
Encoding:
BASIC Source File  |  2000-03-14  |  2.0 KB  |  85 lines
  1. Attribute VB_Name = "Module1"
  2. Type dbHeader
  3.  hdTotal As Long
  4.  hdTime As String * 8
  5.  hdDate As String * 10
  6.  hdDiskID As String * 9
  7.  hdUser As String * 20
  8.  hdLast1 As Long
  9.  hdLast2 As Long
  10.  hdRegOK As String * 9
  11.  hdSdate As String * 10
  12.  hdNull As String * 161
  13. End Type
  14.  
  15. Type dbRecord
  16.  dbName As String * 20
  17.  dbAdd1 As String * 20
  18.  dbAdd2 As String * 20
  19.  dbAdd3 As String * 20
  20.  dbAdd4 As String * 6
  21.  dbTel1 As String * 15
  22.  dbTel2 As String * 15
  23.  dbTel3 As String * 15
  24.  dbTel4 As String * 15
  25.  dbTel5 As String * 25
  26.  dbDate As String * 10
  27.  dbEvent As String * 2
  28.  dbWhen As String * 2
  29.  dbNotes As String * 52
  30.  dbDelEv As String * 2
  31.  End Type
  32.  
  33. Global hd As dbHeader, db As dbRecord
  34. Global dbTotal, dbCurrent
  35. Global NewDate, TempDate, DayOfWeek, LastDay, TempEdit, cl, Pm
  36.  
  37. Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" ( _
  38.  ByVal lpRootPathName As String, _
  39.  ByVal lpVolumeNameBuffer As String, _
  40.  ByVal nVolumeNameSize As Long, _
  41.  lpVolumeSerialNumber As Long, _
  42.  lpMaximumComponentLength As Long, _
  43.  lpFileSystemFlags As Long, _
  44.  ByVal lpFileSystemNameBuffer As String, _
  45.  ByVal nFileSystemNameSize As Long) As Long
  46. Public Function DriveInfo()
  47.  
  48. VolumeNum = Space$(15): ResStr = Space$(32)
  49. RetVal = GetVolumeInformation("C:\", VolumeNum, Len(VolumeNum), _
  50.  DiskId, 0, 0, ResStr, Len(ResStr))
  51.  
  52. TempId = Right(String(8, "0") + Hex$(DiskId), 8)
  53. DriveInfo = Left(TempId, 4) + "-" + Right$(TempId, 4)
  54. End Function
  55.  
  56. Function EnCode(TempTxT)
  57. Dim f As Integer, Temp As String
  58.  
  59. KeyCode = 5
  60. For f = 1 To Len(TempTxT)
  61.                        
  62. X = Asc(Mid(TempTxT, f, 1))
  63. X = X + KeyCode
  64. If X = 256 Then X = 1
  65.    Temp = Temp & Chr(X)
  66. Next
  67.    EnCode = Temp
  68. End Function
  69.  
  70. Function DeCode(TempTxT)
  71. Dim f As Integer, Temp As String
  72.  
  73. KeyCode = 5
  74. For f = 1 To Len(TempTxT)
  75.                        
  76. X = Asc(Mid(TempTxT, f, 1))
  77. X = X - KeyCode
  78. If X = 0 Then X = 255
  79.    Temp = Temp & Chr(X)
  80. Next
  81.    DeCode = Temp
  82. End Function
  83.  
  84.  
  85.