format PE GUI 4.0
entry start

include 'win32a.inc'

section '.data' data readable writeable

hInt dd 0
hCon dd 0

user_agent  db 'Microsoft Internet Explorer',0
server_name db 'ftp.narod.ru',0
user_name   db 'user',0
_pass       db 'password',0
local_file  db 'C:\file.txt',0
rem_file    db 'upfile.txt',0
_fail       db 'Could not connect to server',0

section '.code' code readable executable
   start:
         invoke InternetOpen,user_agent,0,0,0,0
         mov [hInt],eax
         invoke InternetConnect,eax,server_name,21,user_name,_pass,INTERNET_SERVICE_FTP,0,0
         test eax,eax
         jnz @f
         jmp _error

@@:
         mov [hCon],eax
         invoke FtpPutFile,[hCon],local_file,rem_file,FTP_TRANSFER_TYPE_BINARY,0
         invoke InternetCloseHandle,[hInt]
         invoke ExitProcess,0

_error:
        invoke MessageBox,0,_fail,0,MB_ICONERROR+MB_TOPMOST

section '.idata' import data readable

library kernel,'KERNEL32.DLL',\
        wininet,'WININET.DLL',\
        user32,'USER32.DLL'

import kernel,\
       ExitProcess,'ExitProcess'

import wininet,\
       InternetOpen,'InternetOpenA',\
       InternetConnect,'InternetConnectA',\
       FtpPutFile,'FtpPutFileA',\
       InternetCloseHandle,'InternetCloseHandle'

import user32,\
       MessageBox,'MessageBoxA'    

How define INTERNET_SERVICE_FTP and FTP_TRANSFER_TYPE_BINARY ?

INTERNET_SERVICE_FTP = 1
FTP_TRANSFER_TYPE_BINARY = 2