AutoHotkey Community

LocalFile=puttest.txt
NewRemoteFile= puttest.txt
server= www.ftptestserver.de
port:=21
username= testuser
password:="123"
 

FTP_Init()
hConnect:=FTP_Open(Server, Port, Username, Password)
FTP_PutFile(hConnect,LocalFile, NewRemoteFile)
FTP_CloseSocket(hConnect)
FTP_Close()

return
;======
;ftpfunctions
;======
...

dirnam = /lrfiles

hConnect:=FTP_Open(Server, Port, Username, Password)
FTP_SetCurrentDirectory(hConnect,dirnam)
FTP_CloseSocket(hConnect)
FTP_Close()

hConnect:=FTP_Open(Server, Port, Username, Password)
FTP_GetCurrentDirectory(hConnect, getdirnam)
FTP_CloseSocket(hConnect)
FTP_Close()
MsgBox %getdirnam%

Runwait %comspec% /c %a_temp%\ncftpls.exe -1 -u %id% -p %pw% ftp://%id%@%host% >%a_temp%\rmtdir.txt,,hide

FtpHost = 127.0.0.1
FtpPort = 21
FtpUsername = test1
FtpPassword = testpass1
localFile = C:\FtpTest.txt
remoteFile = test\FtpTest.txt

uploadFile()

 ^!h::
 exitapp
 return

uploadFile()
{
    ; establish connection to FTP server
   GoSub, connect
   ; backup existing file -- DEBUG: to do
   ; N.B.: existing files are being overwritten automatically
   ; store file on FTP server
   fileTransfer := FtpPutFile(localFile, remoteFile)
   If (fileTransfer != 1)
   {
      MsgBox, Error uploading file.
      GoSub, quit
   }
   ; close connection
   FtpClose()
   ; confirmation message
   MsgBox, Upload complete.
   ; terminate script
   GoSub, quit
   }
Return

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

connect:
   FtpConnection := FtpOpen(FtpHost, FtpPort, FtpUsername, FtpPassword)
   If (FtpConnection != 1)
   {
      MsgBox, Error connecting to FTP server.
      GoSub, quit
   }
Return

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 := 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) {
FtpClose()
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 != 0 or ic_hInternet = 0)
return 0
else
return 1
}

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

quit:
   FtpClose()
   ExitApp
Return