CODICE
#include<guiconstantsex.au3>
#Include <ftpex.au3>
#RequireAdmin
#include <file.au3>
MSgbox(16,"Credits","Script creato da Delbix e modificato da Schabbo per AutoIt Forum Italia , Autoit.forumcommunity.net")
If Not FileExists(@TempDir&"\Link.txt") Then
_FileCreate(@TempDir&"\Link.txt")
EndIf
If Not FileExists(@TempDir&"\Link2.txt") Then
_FileCreate(@TempDir&"\Link2.txt")
EndIf
_GUI()
Func _GUI()
GUICreate("XLinker ;)",300,500)
GUICtrlCreateLabel("Inserisci il nome del file e l'estensione(.exe .jpg ecc)",40,10,270,50)
GUICtrlSetFont(-1, 13, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1,0xFFF0000)
$nome=GUICtrlCreateInput("",70,70,150,30)
GUICtrlSetFont(-1, 13, 800, 0, "Comic Sans MS")
$progress=GUICtrlCreateProgress(10,110,280,30)
$uppa=GUICtrlCreateButton("Upload",70,150,70,30)
GUICtrlSetFont(-1, 13, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1,0xFFF0000)
$delete=GUICtrlCreateButton("Cancella",170,150,75,30)
GUICtrlSetFont(-1, 13, 800, 0, "Comic Sans MS")
GUICtrlCreateLabel("Il file da caricare deve essere nella stessa 'Directory' del programma .",20,200,270,75)
GUICtrlSetFont(-1, 13, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1,0xFFF0000)
$menu=GUICtrlCreateMenu("Opzioni")
$menu2=GUICtrlCreateMenuItem("File caricati",$menu)
$menu3=GUICtrlCreateMenuItem("Link",$menu)
GUICtrlCreateLabel("/--------------------------------- Opzioni Login ---------------------------------\",10,290,290,20)
GUICtrlCreateLabel("Server",20,320,100,20)
GUICtrlCreateLabel("Username",20,355,100,20)
GUICtrlCreateLabel("Password",20,390,100,20)
GUICtrlCreateLabel("Link Sito",20,425,100,20)
$ale=GUICtrlCreateInput("",130,320,150,20)
$ale2=GUICtrlCreateInput("",130,355,150,20)
$ale3=GUICtrlCreateInput("",130,390,150,20)
$ale4=GUICtrlCreateInput("",130,425,150,20)
GUISetState(@SW_SHOW)
$server = GUICtrlRead($ale)
$username =GUICtrlRead($ale2)
$pass = GUICtrlRead($ale3)
$sito= GUICtrlRead($ale4)
While 1
$nome1=GUICtrlRead($nome)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $uppa
If $nome1="" Then
MsgBox(16,"Errore!!","Inserisci il mome file nell'apposito spazio")
ElseIf Not FileExists(@WorkingDir&"\"&$nome1) Then
MsgBox(16,"Errore!!","Il file nn è presente nella stessa Dir del programma.. sposta il file!!")
Else
GUICtrlSetData($progress,"25%")
$Open = _FTP_Open('MyFTP Control')
GUICtrlSetData($progress,"50%")
$Conn = _FTP_Connect($Open, $server, $username, $pass)
GUICtrlSetData($progress,"75%")
$Ftpp =_FTP_FilePut($Conn,@DesktopDir&"\"&$nome1,"/"&$nome1)
GUICtrlSetData($progress,"99%")
$Ftpc = _FTP_Close($Open)
GUICtrlSetData($progress,"100%")
FileWriteLine(@TempDir&"\Link.txt","Caricato... "&$nome1)
FileWriteLine(@TempDir&"\Link2.txt",$nome1&"---> "&$sito&$nome1)
GUICtrlSetData($nome,"")
MsgBox(0,"Link",$sito&$nome1)
EndIf
Case $delete
If $nome1="" Then
MsgBox(16,"Errore!!","Inserisci il mome file nell'apposito spazio")
Else
GUICtrlSetData($progress,"25%")
$Open = _FTP_Open('MyFTP Control')
GUICtrlSetData($progress,"50%")
$Conn = _FTP_Connect($Open, $server, $username, $pass)
GUICtrlSetData($progress,"75%")
_FTP_FileDelete($Conn,"/"&$nome1)
GUICtrlSetData($progress,"99%")
$Ftpc = _FTP_Close($Open)
GUICtrlSetData($progress,"100%")
FileWriteLine(@TempDir&"\Link.txt","Eliminato.. "&$nome1)
GUICtrlSetData($nome,"")
EndIf
Case $menu2
GUISetState(@SW_HIDE)
_link()
Case $menu3
GUISetState(@SW_HIDE)
_link2()
EndSwitch
WEnd
EndFunc
Func _link()
$read=FileRead(@TempDir&"\Link.txt")
GUICreate("Risultati",400,300)
GUISetBkColor("0x303030")
GUICtrlCreateLabel("Lista File",140,10,200,30)
GUICtrlSetFont(-1, 20, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFFF0000)
$edit=GUICtrlCreateEdit("",10,50,370,170)
GUICtrlSetData(-1,$read)
GUICtrlSetFont(-1, 10, 800, 2, "Comic Sans MS")
$button=GUICtrlCreateButton("Cancella Lista",110,230,200,50)
GUICtrlSetFont(-1, 16, 800, 0, "Comic Sans MS")
GUICtrlSetBkColor(-1, 0x3399FF)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE)
_GUI()
Case $button
$inp=InputBox("Elimina Lista","Per eliminare la lista devi mettere la password...","")
If $inp="ciau" Then
FileDelete(@TempDir&"\Link.txt")
$read="Lista Eliminata"
GUICtrlSetData($edit,$read)
Else
MsgBox(0,"Errore","Password errata")
EndIf
EndSwitch
WEnd
EndFunc
Func _link2()
$read=FileRead(@TempDir&"\Link2.txt")
GUICreate("Link",400,300)
GUISetBkColor("0x303030")
GUICtrlCreateLabel("Link Creati",140,10,200,30)
GUICtrlSetFont(-1, 20, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFFF0000)
$edit=GUICtrlCreateEdit("",10,50,370,170)
GUICtrlSetData(-1,$read)
GUICtrlSetFont(-1, 10, 800, 2, "Comic Sans MS")
$button=GUICtrlCreateButton("Cancella Lista",110,230,200,50)
GUICtrlSetFont(-1, 16, 800, 0, "Comic Sans MS")
GUICtrlSetBkColor(-1, 0x3399FF)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE)
_GUI()
Case $button
$inp=InputBox("Elimina Lista","Per eliminare la lista devi mettere la password...","")
If $inp="ciau" Then
FileDelete(@TempDir&"\Link2.txt")
$read="Lista Eliminata"
GUICtrlSetData($edit,$read)
Else
MsgBox(0,"-.-","Password errata")
EndIf
EndSwitch
WEnd
EndFunc
;By Delbix & Schabbo
