ftp.ahk

; http://www.autohotkey.com/forum/viewtopic.php?p=170587#170587

;Origional FTP Functions by Olfen & Andreone
;See the following post:
; http://www.autohotkey.com/forum/viewtopic.php?t=10393
;Modified by ahklerner

FTP_CreateDirectory(hConnect,DirName) {
   ;global ic_hInternet
   r := DllCall("wininet\FtpCreateDirectoryA", "uint", hConnect, "str", DirName)
   If (ErrorLevel or !r)
      Return 0
   else
      Return 1
   }

FTP_RemoveDirectory(hConnect,DirName) {
   ;global ic_hInternet
   r := DllCall("wininet\FtpRemoveDirectoryA", "uint", hConnect, "str", DirName)
   If (ErrorLevel or !r)
      Return 0
   else
      Return 1
   }

FTP_SetCurrentDirectory(hConnect,DirName) {
   ;global ic_hInternet
   r := DllCall("wininet\FtpSetCurrentDirectoryA", "uint", hConnect, "str", DirName)
   If (ErrorLevel or !r)
      Return 0
   else
      Return 1
   }

FTP_PutFile(hConnect,LocalFile, NewRemoteFile="", Flags=0) {
   ;Flags:
   ;FTP_TRANSFER_TYPE_UNKNOWN = 0 (Defaults to FTP_TRANSFER_TYPE_BINARY)
   ;FTP_TRANSFER_TYPE_ASCII = 1
   ;FTP_TRANSFER_TYPE_BINARY = 2
   If NewRemoteFile=
      NewRemoteFile := LocalFile
   ;global ic_hInternet
   r := DllCall("wininet\FtpPutFileA"
   , "uint", hConnect
   , "str", LocalFile
   , "str", NewRemoteFile
   , "uint", Flags
   , "uint", 0) ;dwContext
   If (ErrorLevel or !r)
      Return 0
   else
      Return 1
   }

FTP_GetFile(hConnect,RemoteFile, NewFile="", Flags=0) {
   ;Flags:
   ;FTP_TRANSFER_TYPE_UNKNOWN = 0 (Defaults to FTP_TRANSFER_TYPE_BINARY)
   ;FTP_TRANSFER_TYPE_ASCII = 1
   ;FTP_TRANSFER_TYPE_BINARY = 2
   If NewFile=
      NewFile := RemoteFile
   ;global ic_hInternet
   r := DllCall("wininet\FtpGetFileA"
   , "uint", hConnect
   , "str", RemoteFile
   , "str", NewFile
   , "int", 1 ;do not overwrite existing files
   , "uint", 0 ;dwFlagsAndAttributes
   , "uint", Flags
   , "uint", 0) ;dwContext
   If (ErrorLevel or !r)
      Return 0
   else
      Return 1
   }

FTP_GetFileSize(hConnect,FileName, Flags=0) {
   ;Flags:
   ;FTP_TRANSFER_TYPE_UNKNOWN = 0 (Defaults to FTP_TRANSFER_TYPE_BINARY)
   ;FTP_TRANSFER_TYPE_ASCII = 1
   ;FTP_TRANSFER_TYPE_BINARY = 2
   ;global ic_hInternet
   fof_hInternet := DllCall("wininet\FtpOpenFileA"
   , "uint", hConnect
   , "str", FileName
   , "uint", 0x80000000 ;dwAccess: GENERIC_READ
   , "uint", Flags
   , "uint", 0) ;dwContext
   If (ErrorLevel or !fof_hInternet)
      Return -1

   FileSize := DllCall("wininet\FtpGetFileSize", "uint", fof_hInternet, "uint", 0)
   DllCall("wininet\InternetCloseHandle",  "UInt", fof_hInternet)
   Return, FileSize
   }


FTP_DeleteFile(hConnect,FileName) {
   ;global ic_hInternet
   r :=  DllCall("wininet\FtpDeleteFileA", "uint", hConnect, "str", FileName)
   If (ErrorLevel or !r)
      Return 0
   else
      Return 1
   }

FTP_RenameFile(hConnect,Existing, New) {
   ;global ic_hInternet
   r := DllCall("wininet\FtpRenameFileA", "uint", hConnect, "str", Existing, "str", New)
   If (ErrorLevel or !r)
      Return 0
   else
      Return 1
   }

FTP_Open(Server, Port=21, Username=0, Password=0 ,Proxy="", ProxyBypass="") {
   IfEqual, Username, 0, SetEnv, Username, anonymous
   IfEqual, Password, 0, SetEnv, Password, anonymous

   If (Proxy != "")
      AccessType=3
   Else
      AccessType=1
   ;#define INTERNET_OPEN_TYPE_PRECONFIG                    0   // use registry configuration
   ;#define INTERNET_OPEN_TYPE_DIRECT                       1   // direct to net
   ;#define INTERNET_OPEN_TYPE_PROXY                        3   // via named proxy
   ;#define INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY  4   // prevent using java/script/INS
   
   ;global ic_hInternet
   global ic_hInternet,io_hInternet, hModule
   hModule := DllCall("LoadLibrary", "str", "wininet.dll")

   io_hInternet := DllCall("wininet\InternetOpenA"
   , "str", A_ScriptName ;lpszAgent
   , "UInt", AccessType
   , "str", Proxy
   , "str", ProxyBypass
   , "UInt", 0) ;dwFlags

   If (ErrorLevel != 0 or io_hInternet = 0) {
      FTP_Close()
      Return 0
      }

   ic_hInternet := DllCall("wininet\InternetConnectA"
   , "uint", io_hInternet
   , "str", Server
   , "uint", Port
   , "str", Username
   , "str", Password
   , "uint" , 1 ;dwService (INTERNET_SERVICE_FTP = 1)
   , "uint", 0 ;dwFlags
   , "uint", 0) ;dwContext
   
   If (ErrorLevel or !ic_hInternet)
      Return 0
   else
      Return ic_hInternet
   }

FTP_CloseSocket(hConnect) {
   DllCall("wininet\InternetCloseHandle",  "UInt", hConnect)
   }
   
FTP_Close() {
   global ic_hInternet, io_hInternet, hModule
   DllCall("wininet\InternetCloseHandle",  "UInt", ic_hInternet)
   DllCall("wininet\InternetCloseHandle",  "UInt", io_hInternet)
   DllCall("FreeLibrary", "UInt", hModule)
   }


FTP_GetFileInfo(ByRef @FindData, InfoName) {
   If(InfoName == "Name") {
      VarSetCapacity(value, 1040, 0)
      DllCall("RtlMoveMemory", "str", value, "uint", &@FindData + 44, "uint", 1040)
      VarSetCapacity(value, -1)
      }
   else If(InfoName == "CreationTime") {
      value := NumGet(@FindData, 4) << 32 | NumGet(@FindData, 8)
      value := FTP_FileTimeToStr(value)
      }
   else If(InfoName == "LastAccessTime") {
      value := NumGet(@FindData, 12) << 32 | NumGet(@FindData, 16)
      value := FTP_FileTimeToStr(value)
      }
   else If(InfoName == "LastWriteTime") {
      value := NumGet(@FindData, 20) << 32 | NumGet(@FindData, 24)
      value := FTP_FileTimeToStr(value)
      }
   else If(InfoName == "Size") {
      value := NumGet(@FindData, 28) << 32 | NumGet(@FindData, 32)
      }
   else If(InfoName == "Attrib") {
      If(FTP_GetFileInfo(@FindData, "IsNormal"))
         value .= "N"
      If(FTP_GetFileInfo(@FindData, "IsDirectory"))
         value .= "D"
      If(FTP_GetFileInfo(@FindData, "IsReadOnly"))
         value .= "R"
      If(FTP_GetFileInfo(@FindData, "IsHidden"))
         value .= "H"
      If(FTP_GetFileInfo(@FindData, "IsSystem"))
         value .= "S"
      If(FTP_GetFileInfo(@FindData, "IsArchive"))
         value .= "A"
      If(FTP_GetFileInfo(@FindData, "IsTemp"))
         value .= "T"
      If(FTP_GetFileInfo(@FindData, "IsEncrypted"))
         value .= "E"
      If(FTP_GetFileInfo(@FindData, "IsCompressed"))
         value .= "C"
      If(FTP_GetFileInfo(@FindData, "IsVirtual"))
         value .= "V"
      }
   else If(InfoName == "IsReadOnly") {
      value := (NumGet(@FindData, 0) & 1) != 0 ; FILE_ATTRIBUTE_READONLY
      }
   else If(InfoName == "IsHidden") {
      value := (NumGet(@FindData, 0) & 2) != 0 ; FILE_ATTRIBUTE_HIDDEN
      }
   else If(InfoName == "IsSystem") {
      value := (NumGet(@FindData, 0) & 4) != 0 ; FILE_ATTRIBUTE_SYSTEM
      }
   else If(InfoName == "IsDirectory") {
      value := (NumGet(@FindData, 0) & 16) != 0 ; FILE_ATTRIBUTE_DIRECTORY
      }
   else If(InfoName == "IsArchive") {
      value := (NumGet(@FindData, 0) & 32) != 0 ; FILE_ATTRIBUTE_ARCHIVE
      }
   else If(InfoName == "IsNormal") {
      value := (NumGet(@FindData, 0) & 128) != 0 ; FILE_ATTRIBUTE_NORMAL
      }
   else If(InfoName == "IsTemp") {
      value := (NumGet(@FindData, 0) & 256) != 0 ; FILE_ATTRIBUTE_TEMPORARY
      }
   else If(InfoName == "IsEncrypted") {
      value := (NumGet(@FindData, 0) & 2048) != 0 ; FILE_ATTRIBUTE_OFFLINE
      }
   else If(InfoName == "IsOffline") {
      value := (NumGet(@FindData, 0) & 4096) != 0 ; FILE_ATTRIBUTE_ENCRYPTED
      }
   else If(InfoName == "IsCompressed") {
      value := (NumGet(@FindData, 0) & 16384) != 0 ; FILE_ATTRIBUTE_COMPRESSED
      }
   else If(InfoName == "IsVirtual") {
      value := (NumGet(@FindData, 0) & 65536) != 0 ; FILE_ATTRIBUTE_VIRTUAL
      }
   Return value
   }



FTP_FileTimeToStr(FileTime) {
   VarSetCapacity(SystemTime, 16, 0)
   DllCall("FileTimeToSystemTime", "uint", &FileTime, "uint", &SystemTime)
   Return NumGet(SystemTime,2,"short")
      . "/" . NumGet(SystemTime,6,"short")
      . "/" . NumGet(SystemTime,0,"short")
      . " " . NumGet(SystemTime,8,"short")
      . ":" . NumGet(SystemTime,10,"short")
      . ":" . NumGet(SystemTime,12,"short")
      . "." . NumGet(SystemTime,14,"short")
}


FTP_FindFirstFile(hConnect, SearchFile, ByRef @FindData) {
   ; WIN32_FIND_DATA structure size is 4 + 3*8 + 4*4 + 260*4 + 14*4 = 1140
   VarSetCapacity(@FindData, 1140, 0)
   ;MsgBox % "FFF:= " . 
   hEnum := DllCall("wininet\FtpFindFirstFileA"
      , "uint", hConnect
      , "str", SearchFile
      , "uint", &@FindData
      , "uint", 0
      , "uint", 0)
   
   If(!hEnum)
      VarSetCapacity(@FindData, 0)
   Return hEnum
}


FTP_FindNextFile(hEnum, ByRef @FindData) {
   Return DllCall("wininet\InternetFindNextFileA"
      , "uint", hEnum
      , "uint", &@FindData)
} 

; This function is made by fincs
; http://www.autohotkey.com/forum/viewtopic.php?p=246250#246250
FTP_GetCurrentDirectory(hConnect,ByRef DirName){
   VarSetCapacity(DirName, 256)
   VarSetCapacity(MaxDirN, 4)
   NumPut(256, MaxDirN)
   r := DllCall("wininet\FtpGetCurrentDirectoryA", "uint", hConnect, "str", DirName, "str", MaxDirN)
   If (ErrorLevel or !r)
      Return 0
   Else
      Return 1
}