QuickFTP Server 4+

My only complaint is that there's no way to have the server automatically start running when launched (automatically when computer boots up). So you have to manually start the server anytime the computer restarts.

As we known, FTP is unsafe than SFTP or FTPS, but we still need it for some other old devices, e.g. my old Dell Scanner. My Dell E515dw scanner can't work with my Macbook Big Sur(though it works well as a printer with my Macbook) because Dell didn't update their scanner driver for Big Sur. So I can't scan my file to my macbook. I also tried to scan and send through SMTP with Gmail, but Gmail only support SSL/TLS smtp, which doesn't supported by my old Dell Scanner. Finnally, I noticed that I can scan and send through FTP. Unfortunately, Big Sur removed the built-in FTP support. So I tried with thie QuickFTP. It's really easy to use and configure. Now I can scan my files and send to my macbook easily. Awesome! BTW, security tips: 1. Only start QuickFTP when you need it 2. Use another Port number instead of 21 if possible 3. Use a complicated password

I couldn't stand it anymore, I wrote the following script to fully automate the starting of the server.
Cut and paste the following & save it as an application. Then install in the user login to fully automate when the computer is booted. Enjoy ;)

tell application "QuickFTP" to activate

-- Click the “Start Server” button.
set timeoutSeconds to 0.0
set uiScript to "click UI Element \"Start Server\" of group 1 of window \"QuickFTP Server\" of application process \"QuickFTP\""
my doWithTimeout(uiScript, timeoutSeconds)

-- Click the “<fill in title>” button.
set timeoutSeconds to 0.0
set uiScript to "click UI Element 4 of window \"QuickFTP Server\" of application process \"QuickFTP\""
my doWithTimeout(uiScript, timeoutSeconds)

on doWithTimeout(uiScript, timeoutSeconds)
set endDate to (current date) timeoutSeconds
repeat
try
run script "tell application \"System Events\"
" & uiScript & "
end tell"
exit repeat
on error errorMessage
if ((current date) > endDate) then
error "Can not " & uiScript
end if
end try
end repeat
end doWithTimeout