AHK: FTP Работа с фтп

fileTransfer := FtpPutFile(localFile, remoteFile)

FtpHost = ftp.***
FtpPort = 21
FtpUsername = ***
FtpPassword = ***
localFile = E:\***
remoteFile = ***

uploadFile:
   FtpConnection := FtpOpen(FtpHost, FtpPort, FtpUsername, FtpPassword)
   If (FtpConnection != 1)
   {
      msgbox, Пропал инет
      GoTo, uploadFile
   }
   fileTransfer := FtpPutFile(localFile, remoteFile)
   If (fileTransfer != 1)
   {
      msgbox, Нету места
      GoTo, uploadFile
   }
   msgbox, upload complete
   Size := FtpGetFileSize(remoteFile)
   msgbox, % Size
   FtpClose()
   Return


;;;; THE BELOW CODE IS FROM THE LIBRARY - just to make this a runnable example

/* 
http://msdn.microsoft.com/library/en-us/wininet/wininet/ftp_sessions.asp 
http://msdn.microsoft.com/library/en-us/wininet/wininet/internetopen.asp 
http://msdn.microsoft.com/library/en-us/wininet/wininet/internetconnect.asp 
*/ 

FtpCreateDirectory(DirName) { 
global ic_hInternet 
r := DllCall("wininet\FtpCreateDirectory", "Ptr", ic_hInternet, "str", DirName) 
If (ErrorLevel != 0 or r = 0) 
return 0 
else 
return 1 
} 

FtpRemoveDirectory(DirName) { 
global ic_hInternet 
r := DllCall("wininet\FtpRemoveDirectory", "Ptr", ic_hInternet, "str", DirName) 
If (ErrorLevel != 0 or r = 0) 
return 0 
else 
return 1
} 

FtpSetCurrentDirectory(DirName) { 
global ic_hInternet 
r := DllCall("wininet\FtpSetCurrentDirectory", "Ptr", ic_hInternet, "str", DirName) 
If (ErrorLevel != 0 or r = 0) 
return 0 
else 
return 1 
} 

FtpPutFile(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\FtpPutFile" 
, "Ptr", ic_hInternet 
, "str", LocalFile 
, "str", NewRemoteFile 
, "uint", Flags 
, "uint", 0) ;dwContext 
If (ErrorLevel != 0 or r = 0) 
return 0 
else 
return 1 
} 

FtpGetFile(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\FtpGetFile" 
, "Ptr", ic_hInternet 
, "str", RemoteFile 
, "str", NewFile 
, "int", 1 ;do not overwrite existing files 
, "uint", 0 ;dwFlagsAndAttributes 
, "uint", Flags 
, "uint", 0) ;dwContext 
If (ErrorLevel != 0 or r = 0) 
return 0 
else 
return 1 
} 

FtpGetFileSize(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\FtpOpenFile" 
, "Ptr", ic_hInternet 
, "str", FileName 
, "uint", 0x80000000 ;dwAccess: GENERIC_READ 
, "uint", Flags 
, "uint", 0, "Ptr") ;dwContext 
If (ErrorLevel != 0 or fof_hInternet = 0) 
return -1 

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


FtpDeleteFile(FileName) { 
global ic_hInternet 
r :=  DllCall("wininet\FtpDeleteFile", "Ptr", ic_hInternet, "str", FileName) 
If (ErrorLevel != 0 or r = 0) 
return 0 
else 
return 1 
} 

FtpRenameFile(Existing, New) { 
global ic_hInternet 
r := DllCall("wininet\FtpRenameFile", "Ptr", ic_hInternet, "str", Existing, "str", New) 
If (ErrorLevel != 0 or r = 0) 
return 0 
else 
return 1 
} 

FtpOpen(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, io_hInternet, hModule 
hModule := DllCall("LoadLibrary", "str", "wininet.dll", "Ptr") 

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

If (ErrorLevel != 0 or io_hInternet = 0) { 
FtpClose() 
return 0
} 

ic_hInternet := DllCall("wininet\InternetConnect" 
, "Ptr", io_hInternet 
, "str", Server 
, "uint", Port 
, "str", Username 
, "str", Password 
, "uint" , 1 ;dwService (INTERNET_SERVICE_FTP = 1) 
, "uint", 0 ;dwFlags 
, "uint", 0, "Ptr") ;dwContext 

If (ErrorLevel != 0 or ic_hInternet = 0) 
return 0 
else 
return 1 
} 

FtpClose() { 
global ic_hInternet, io_hInternet, hModule 
DllCall("wininet\InternetCloseHandle",  "Ptr", ic_hInternet) 
DllCall("wininet\InternetCloseHandle",  "Ptr", io_hInternet) 
DllCall("FreeLibrary", "Ptr", hModule) 
}

MsgBox % InternetFileGetSize( "ftp://ftp.winzip.com/testdown/testdown.htm" )
MsgBox % InternetFileGetSize( "http://ahkscript.org/favicon.ico" )
 
InternetFileGetSize( URL ) {
 
  hMod := DllCall( "LoadLibrary", WStr, "wininet.dll" )
 
  hIO  := DllCall( "wininet\InternetOpenW"
                 , WStr, "Microsoft Internet Explorer" 
                 , UInt, 4          ; INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY
                 , Int,  0, Int, 0, UInt, 0 )
 
  hIU  := DllCall( "wininet\InternetOpenUrlW"
                 , UInt, hIO, WStr, URL, Int, 0, Int, 0
                 , UInt, 0x84000000 ; INTERNET_FLAG_DONT_CACHE|INTERNET_FLAG_RELOAD
                 , UInt, 0 )
 
  If ( hIO & hIU ) 
 
    If ( SubStr( URL,1,4 ) = "ftp:" ) 
 
          FileSize := DllCall( "wininet\FtpGetFileSize", UInt,hIU, UIntP,0, UInt )  
 
    Else  DllCall( "wininet\HttpQueryInfoW"
                , UInt,  hIU
                , UInt,  0x20000005     ; HTTP_QUERY_CONTENT_LENGTH|HTTP_QUERY_FLAG_NUMBER
                , UIntP, FileSize, UIntP,4, Int,0 )
 
 
  DllCall( "wininet\InternetCloseHandle", UInt, hIU )
  DllCall( "wininet\InternetCloseHandle", UInt, hIO )
  DllCall( "FreeLibrary", UInt, hMod )  
 
Return FileSize
}

Local $High  = dllstructCreate(("uint")
Local $pHigh = dllstructgetptr($High)
Local $ai_FTPGetFileSize = DllCall('wininet.dll', 'int', 'FtpGetFileSize', 'long', $ai_FTPGetSizeHandle[0], 'long_ptr', $pHigh )

$ai_FTPGetFileSize = $ai_FTPGetFileSize[0] + DllStructGetData($High,1) * (2^32)