home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1999 April / CD_Shareware_Magazine_31.iso / Free / Prg / ftpcl.exe / FTP.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-07-18  |  2.6 KB  |  86 lines
  1. Attribute VB_Name = "FTP"
  2. 'FTP Global Variables
  3. Global CRLF As String
  4. Global TempCommFileName As String
  5. Global TempDataFileName As String
  6. Global FTPServer As String
  7. Global UserID As String
  8. Global UserPassword As String
  9. Global InitDir As String
  10. Global FTP_CommState As Integer
  11. Global NumberOfFiles As Integer
  12. Global FTPFiles() As String
  13. Global FTPDataPort As Integer
  14. Global FTPCommand As String
  15. Global AliasDB() As String
  16. Global HotListRecords As Integer
  17. Global DataInComm As String
  18. Global DataInData As String
  19. Global SystemCode As String
  20. Global RemotePath As String
  21. Global FileTimeStarted As String
  22. Global BatchTimeStarted As String
  23. Global BatchFiles As Integer
  24. Global BatchCurrentFile As Integer
  25. Global ConnectionLogName As String
  26. Global FileHandling As Integer
  27. Global ThisFileSize As Long
  28. Global SendFileName As String
  29. Global UserInput As String
  30. Global CommBuffer As String
  31. Global DoneTransferring As String * 1
  32. Global ScaleFactor As Integer
  33. Global MaintenanceHostName As String
  34.  
  35.  
  36. 'FTP Global Constants
  37. Global Const FTP_OpeningConnectionComm% = 100
  38. Global Const FTP_DownloadingDirectory% = 200
  39. Global Const FTP_DownloadingFiles% = 300
  40. Global Const FTP_ParseDirectory% = 510
  41. Global Const FTP_LoginID% = 600
  42. Global Const FTP_LoginPassword% = 610
  43. Global Const FTP_CallPASV% = 710
  44. Global Const FTP_ParsePASV% = 750
  45. Global Const FTP_SystemType% = 800
  46. Global Const FTP_ChangeDirectory% = 822
  47. Global Const FTP_Send% = 1000
  48. Global Const FTP_Receive% = 1001
  49. Global Const FTP_PrepareToSend% = 1100
  50. Global Const FTP_SendingFile% = 1101
  51. Global Const FTP_CleanupFromSend% = 1102
  52.  
  53.  
  54. ' CommState Constants for WINSOCK
  55. Global Const idle% = 10
  56. Global Const waitingforaddress% = 100
  57. Global Const readingdata% = 200
  58. Global Const waitingforread% = 210
  59. Global Const waitingforconnect% = 110
  60. Global Const waitingforwrite% = 300
  61. Global Const connectionclosed% = 400
  62. Global Const FIONREAD& = 1074030207
  63.  
  64. 'Global Variables for WINSOCK
  65. Global StartUpInfo As WSAData
  66. Global DataInBuffer As String * 1024
  67. Global DataOutBuffer As String
  68. Global BufferData As String
  69. Global HostEntry As String * 1024
  70. Global IPAddress As Long
  71. Global SocketName As sockaddr
  72. Global I_SocketAddress As sockaddr_in
  73. Global UsedSocketComm As Integer
  74. Global UsedSocketData As Integer
  75. Global CommPort As Integer
  76. Global DataPort As Integer
  77. Global CommState As Integer
  78. Global DataState As Integer
  79.  
  80.  
  81.  
  82. Declare Sub hmemcpy Lib "Kernel" (des As Any, source As Any, ByVal bytes As Long)
  83. Declare Sub hmemcpylong Lib "Kernel" Alias "hmemcpy" (des As Any, ByVal source As Long, ByVal bytes As Long)
  84. Declare Function lstrcpy Lib "Kernel" (lpString1 As Any, lpString2 As Any) As Long
  85.  
  86.