#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.6.1
Author: MHack
Script Function:
Gestore FTP =)
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
#AutoIt3Wrapper_res_legalcopyright=CreativeCommons:http://creativecommons.org/licenses/by-nc-nd/2.5/it/
#NoTrayIcon
#include <guiconstants.au3>
#include <buttonconstants.au3>
#include <string.au3>
#include <staticconstants.au3>
#include <guiedit.au3>
#include <process.au3>
#include <memory.au3>
#include <ftpex.au3>
;variabili
Global $title = "Hydra "
Global $autore = "MHack"
Global $versione = "0.2"
Global $sito = "http://autoitprogrammer.altervista.org/"
;gui
$gui = GUICreate($title&$versione,500,300,-1,-1)
$gcp = GUICtrlCreatePic("",0,0,500,300)
GUICtrlSetState(-1,128)
GUISetState(@SW_SHOW)
;label
$main = GUICtrlCreateLabel("____________________________________________________________________________________",0,56,510,17)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
$lhost = GUICtrlCreateLabel("Host:",8,8,29,17)
$luser = GUICtrlCreateLabel("Username:", 168, 8, 55, 17)
$lpass = GUICtrlCreateLabel("Password:",312,8,53,17)
$finvia = GUICtrlCreateLabel("File da inviare:",16,88,72,17)
$lstato = GUICtrlCreateLabel("Stato:",210,40,50,20)
$stato = GUICtrlCreateLabel("Disconnesso",250,40,150,20)
GUICtrlSetColor(-1,0xFF0000)
$lport = GUICtrlCreateLabel("Porta:",96,40,32,17)
$lfddown = GUICtrlCreateLabel("File da scaricare:",16,128,84,17)
$lndir = GUICtrlCreateLabel("Nome cartella:",16,208,72,17)
$lddir = GUICtrlCreateLabel("Nome cartella:",18,254,72,17)
$lfdel = GUICtrlCreateLabel("File da eliminare:",16,168,82,17)
;button
$connect = GUICtrlCreateButton("Connetti",416,32,75,25)
$disconnect = GUICtrlCreateButton("Disconnetti",8,32,75,25)
$sfoglia = GUICtrlCreateButton("Sfoglia...",320,84,75,25)
GUICtrlSetState(-1,$GUI_DISABLE)
$upload = GUICtrlCreateButton("Upload",410,84,75,25)
GUICtrlSetState(-1,$GUI_DISABLE)
$download = GUICtrlCreateButton("Download",384,128,75,25)
GUICtrlSetState(-1,$GUI_DISABLE)
$delfile = GUICtrlCreateButton("Elimina file",392,168,75,25)
GUICtrlSetState(-1,$GUI_DISABLE)
$credir = GUICtrlCreateButton("Crea cartella",384,208,83,25)
GUICtrlSetState(-1,$GUI_DISABLE)
$deldir = GUICtrlCreateButton("Elimina cartella",384,248,91,25)
GUICtrlSetState(-1,$GUI_DISABLE)
;input
$host = GUICtrlCreateInput("",40,8,121,21)
GUICtrlSetTip(-1,"Host")
$user = GUICtrlCreateInput("",224,8,81,21)
GUICtrlSetTip(-1,"Username")
$pass = GUICtrlCreateInput("",368,8,121,21,$ES_PASSWORD)
GUICtrlSetTip(-1,"Password")
$port = GUICtrlCreateInput("21",128,38,41,21)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetTip(-2,"Porta - Di default si usa la porta 21")
$fiperc = GUICtrlCreateInput("",96,85,215,21)
GUICtrlSetTip(-1,"File da inviare")
GUICtrlSetState(-1,$GUI_DISABLE)
$inputdown = GUICtrlCreateInput("/", 112, 128, 249, 21)
GUICtrlSetTip(-1,"File da scaricare")
GUICtrlSetState(-1,$GUI_DISABLE)
$inputndir = GUICtrlCreateInput("/Nuova cartella", 96, 208, 257, 21)
GUICtrlSetTip(-1,"Nome della nuova cartella")
GUICtrlSetState(-1,$GUI_DISABLE)
$inputddir = GUICtrlCreateInput("/", 102, 251, 257, 21)
GUICtrlSetTip(-1,"Elimina cartella")
GUICtrlSetState(-1,$GUI_DISABLE)
$inputfdel = GUICtrlCreateInput("/", 112, 168, 241, 21)
GUICtrlSetTip(-1,"Elimina file")
GUICtrlSetState(-1,$GUI_DISABLE)
;menu
$file = GUICtrlCreateMenu("File")
$apri = GUICtrlCreateMenuItem("Apri file server...",$file)
$salva = GUICtrlCreateMenuItem("Salva dati server...",$file)
$space = GUICtrlCreateMenuItem("",$file)
$esci = GUICtrlCreateMenuItem("Esci",$file)
$aspetto = GUICtrlCreateMenu("Aspetto")
$colore = GUICtrlCreateMenu("Colore finestra",$aspetto)
$sfondo = GUICtrlCreateMenu("Seleziona sfondo",$aspetto)
$sceglis = GUICtrlCreateMenuItem("Sfoglia...",$sfondo)
$rsfondo = GUICtrlCreateMenuItem("Rimuovi sfondo",$sfondo)
GUICtrlSetState(-1,$GUI_DISABLE)
$mblu = GUICtrlCreateMenu("Blu",$colore)
$navi = GUICtrlCreateMenuItem("Navi",$mblu)
$blum = GUICtrlCreateMenuItem("Blu medio",$mblu)
$blu = GUICtrlCreateMenuItem("Blu",$mblu)
$mverde = GUICtrlCreateMenu("Verde",$colore)
$verdel = GUICtrlCreateMenuItem("Verde limone",$mverde)
$verdef = GUICtrlCreateMenuItem("Verde foresta",$mverde)
$verde = GUICtrlCreateMenuItem("Verde",$mverde)
$rosso = GUICtrlCreateMenuItem("Rosso",$colore)
$mgiallo = GUICtrlCreateMenu("Giallo",$colore)
$giallo = GUICtrlCreateMenuItem("Giallo",$mgiallo)
$oro = GUICtrlCreateMenuItem("Oro",$mgiallo)
$kaki = GUICtrlCreateMenuItem("Kaki",$mgiallo)
$nero = GUICtrlCreateMenuItem("Nero",$colore)
$bianco = GUICtrlCreateMenuItem("Bianco",$colore)
$mazzurro = GUICtrlCreateMenu("Azzurro",$colore)
$skyb = GUICtrlCreateMenuItem("Skyblue",$mazzurro)
$acquam = GUICtrlCreateMenuItem("Acqua marina",$mazzurro)
$fucsia = GUICtrlCreateMenuItem("Fucsia",$colore)
$arancione = GUICtrlCreateMenuItem("Arancione",$colore)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
$cpdu1 = MsgBox(4,$title,"Uscire?")
If $cpdu1 = 6 Then
Exit
Else
ContinueLoop
EndIf
Case $esci
$cpdu2 = MsgBox(4,$title,"Uscire?")
If $cpdu2 = 6 Then
Exit
Else
ContinueLoop
EndIf
Case $sceglis
$asfondo = FileOpenDialog("Scegli file...",@DesktopDir,"File JPG,PNG(*.jpg);(*.jpeg);(*.png)")
$gsi = GuiCtrlSetImage($gcp,$asfondo)
ControlMove("","",$gsi,0,0,500,300)
GUICtrlSetState($rsfondo,$GUI_ENABLE)
Case $rsfondo
GUICtrlSetImage($gcp,"")
GUICtrlSetState($rsfondo,$GUI_DISABLE)
Case $navi
GUISetBkColor(0x000080)
Case $blum
GUISetBkColor(0x0000CD)
Case $blu
GUISetBkColor(0x0000FF)
Case $verdel
GUISetBkColor(0x00FF00)
Case $verdef
GUISetBkColor(0x228B22)
Case $verde
GUISetBkColor(0x008000)
Case $rosso
GUISetBkColor(0xFF0000)
Case $giallo
GUISetBkColor(0xFFFF00)
Case $oro
GUISetBkColor(0xFFD700)
Case $kaki
GUISetBkColor(0xF0E68C)
Case $nero
GUISetBkColor(0x000000)
Case $bianco
GUISetBkColor(0xFFFFFF)
Case $acquam
GUISetBkColor(0x7FFFD4)
Case $skyb
GUISetBkColor(0x87CEEB)
Case $fucsia
GUISetBkColor(0xFF00FF)
Case $arancione
GUISetBkColor(0xFFA500)
Case $salva
_SaveFTP()
Case $apri
_OpenFTP()
Case $sfoglia
$aprendo = FileOpenDialog("Scegli file...",@DesktopDir,"Tutti i file (*.*)")
GUICtrlSetData($fiperc,$aprendo)
Case $connect
If GUICtrlRead($user) And GUICtrlRead($pass) <> "" Then
GUICtrlSetData($stato,"Connessione in corso...")
GUICtrlSetColor($stato,0xFFA000)
Global $fopen = _FTP_Open("Hydra FTP")
Global $conftp = _FTP_Connect($fopen,GUICtrlRead($host),GUICtrlRead($user),GUICtrlRead($pass),0,GUICtrlRead($port))
_Connetti()
Else
MsgBox(16,$title,"Devi inserire l'username e la password!")
EndIf
Case $upload
If GUICtrlRead($fiperc) <> "" Then
_Upload()
Else
MsgBox(16,$title,"Prima selezionare un file!")
EndIf
Case $disconnect
_FTP_Close("Hydra FTP")
GUICtrlSetData($stato,"Disconnesso")
GUICtrlSetColor($stato,0xFF0000)
_WhenIsDisconnected()
GUICtrlSetData($pass,"")
GUICtrlSetData($user,"")
Case $credir
_CreateDir()
Case $deldir
_DelDir()
Case $download
_Download()
Case $delfile
_DelFile()
EndSwitch
WEnd
Func _Connetti()
If $conftp = True Then
GUICtrlSetData($stato,"Connesso")
GUICtrlSetColor($stato,0x00FF00)
_WhenIsConnected()
Else
GUICtrlSetData($stato,"Disconnesso")
GUICtrlSetColor($stato,0xFF0000)
EndIf
EndFunc
Func _Upload()
_MemGlobalAlloc(31457280)
$dupload = InputBox("Upload","Percorso dove salvare il file più estensione:","/file.ext")
_FTP_FilePut($conftp,GUICtrlRead($fiperc),$upload)
_FTP_ProgressUpload($conftp,GUICtrlRead($fiperc),$dupload)
If Not @error Then
MsgBox(0,$title,"Upload eseguito!")
Else
MsgBox(16,$title,"Errore! Upload non riuscito, riprovare!")
EndIf
EndFunc
Func _Download()
_MemGlobalAlloc(15728640)
$ridown = GUICtrlRead($inputdown)
$ifdown = FileSaveDialog("Salva file...",@DesktopDir,"Tutti i file (*.*)","nomefile.ext")
$fdown = _FTP_ProgressDownload($conftp,$ifdown,$ridown)
If FileExists($ifdown) Then
MsgBox(0,$title,"File scaricato!")
Else
MsgBox(16,$title,"Errore! File non scaricato, riprovare!")
EndIf
EndFunc
Func _DelDir()
$ridel = GUICtrlRead($inputddir)
$ddel = _FTP_DirDelete($conftp,$ridel)
If Not @error Then
MsgBox(0,$title,"Cartella eliminata!")
Else
MsgBox(16,$title,"Errore! Cartella non eliminata!")
EndIf
EndFunc
Func _CreateDir()
$ricre = GUICtrlRead($inputndir)
$dcre = _FTP_DirCreate($conftp,$ricre)
If Not @error Then
MsgBox(0,$title,"Cartella creata!")
Else
MsgBox(16,$title,"Errore! Cartella non creata!")
EndIf
EndFunc
Func _DelFile()
$rifdel = GUICtrlRead($inputfdel)
$domd = MsgBox(4,$title,"Eliminare il file scelto?")
If $domd = 6 Then
$fdel = _FTP_FileDelete($conftp,$rifdel)
If Not @error Then
MsgBox(0,$title,"File eliminato!")
Else
MsgBox(16,$title,"Errore! File non eliminato!")
EndIf
Else
MsgBox(0,$title,"File non eliminato")
EndIf
EndFunc
Func _WhenIsConnected()
GUICtrlSetState($inputddir,$GUI_ENABLE)
GUICtrlSetState($inputdown,$GUI_ENABLE)
GUICtrlSetState($inputfdel,$GUI_ENABLE)
GUICtrlSetState($inputndir,$GUI_ENABLE)
GUICtrlSetState($fiperc,$GUI_ENABLE)
GUICtrlSetState($credir,$GUI_ENABLE)
GUICtrlSetState($deldir,$GUI_ENABLE)
GUICtrlSetState($delfile,$GUI_ENABLE)
GUICtrlSetState($download,$GUI_ENABLE)
GUICtrlSetState($sfoglia,$GUI_ENABLE)
GUICtrlSetState($upload,$GUI_ENABLE)
EndFunc
Func _WhenIsDisconnected()
GUICtrlSetState($inputddir,$GUI_DISABLE)
GUICtrlSetState($inputdown,$GUI_DISABLE)
GUICtrlSetState($inputfdel,$GUI_DISABLE)
GUICtrlSetState($inputndir,$GUI_DISABLE)
GUICtrlSetState($fiperc,$GUI_DISABLE)
GUICtrlSetState($credir,$GUI_DISABLE)
GUICtrlSetState($deldir,$GUI_DISABLE)
GUICtrlSetState($delfile,$GUI_DISABLE)
GUICtrlSetState($download,$GUI_DISABLE)
GUICtrlSetState($sfoglia,$GUI_DISABLE)
GUICtrlSetState($upload,$GUI_DISABLE)
EndFunc
Func _SaveFTP()
$ruser = GUICtrlRead($user)
$rpass = GUICtrlRead($pass)
$rserver = GUICtrlRead($host)
DirCreate(@ScriptDir&"\Hydra")
$shfiles = FileSaveDialog("Salva dati server...",@ScriptDir&"\Hydra","Hydra FTP file(*.hyf)")
FileWriteLine($shfiles&".hyf",$ruser)
FileWriteLine($shfiles&".hyf",$rpass)
FileWriteLine($shfiles&".hyf",$rserver)
EndFunc
Func _OpenFTP()
$ohfiles = FileOpenDialog("Apri dati server...",@ScriptDir&"\Hydra","Hydra FTP file (*.hyf)")
$rouserf = FileReadLine($ohfiles,1)
$ropassf = FileReadLine($ohfiles,2)
$roserverf = FileReadLine($ohfiles,3)
GUICtrlSetData($user,$rouserf)
GUICtrlSetData($pass,$ropassf)
GUICtrlSetData($host,$roserverf)
EndFunc
Commentate 
