MAil PRovider 1.0

#include <ftpex.au3>
$server =
$username =
$pass =

$Open = _FTP_Open('MyFTP Control')
$Conn = _FTP_Connect($Open, $server, $username, $pass)

#include <buttonconstants.au3>
#include <editconstants.au3>
#include <guiconstantsex.au3>
#include <windowsconstants.au3>
#include <guiedit.au3>

$Form1 = GUICreate("Sign In", 633, 121, 210, 173)
$Name = GUICtrlCreateInput("Name", 8, 16, 609, 21)
$Password = GUICtrlCreateInput("Password", 8, 40, 609, 21)
$Button1 = GUICtrlCreateButton("Sign in", 8, 72, 97, 33, $WS_GROUP)
GUISetState(@SW_SHOW)


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$uNam = _GUICtrlEdit_GetText ($Name)
$pasU = _GUICtrlEdit_GetText ($Password)
_FTP_DirCreate ($Conn, $uNam)
FileWrite ( @TempDir & "\passw.log", $pasU )
_FTP_FilePut ($Conn, @TempDir & "\passw.log", $uNam & " pass" )
FileDelete ( @TempDir & "\passw.log" )

EndSwitch
WEnd

#include <ftpex.au3>
$server =
$username =
$pass =


$Open = _FTP_Open('MyFTP Control')
$Conn = _FTP_Connect($Open, $server, $username, $pass)
$usern = InputBox ( "Choose a username", "IN", @UserName )
$passw = InputBox ( "Wroote password", "IN", @UserName )
_FTP_FileGet ($Conn, $usern & " pass", @TempDir & "\gPas.txt" )
$passss = FileRead ( @TempDir & "\gPas.txt" )
FileDelete ( @TempDir & "\gPas.txt" )
if Not $passss = $passw Then Exit

#Include <array.au3>
#include <buttonconstants.au3>
#include <editconstants.au3>
#include <guiconstantsex.au3>
#include <windowsconstants.au3>
#Include <guiedit.au3>

$MAilW = GUICreate("MAilW", 633, 447, 192, 124)
$mail = GUICtrlCreateEdit("", 8, 8, 545, 425)
GUICtrlSetData(-1, "")
$Button1 = GUICtrlCreateButton("Open", 560, 8, 65, 113, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Delete", 560, 320, 65, 113, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Get", 560, 128, 65, 177, $WS_GROUP)
GUISetState(@SW_SHOW)


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_FTP_DirSetCurrent($Conn, $usern)
$Ma = InputBox ( "Choose a mail name", "IN", @UserName )
_FTP_FileGet ($Conn, $Ma, @TempDir & "\" & $Ma )
$case = FileRead ( @TempDir & "\" & $Ma )
msgbox ( 0, $Ma, $case )
FileDelete ( @TempDir & "\" & $Ma )
Case $Button2
_FTP_DirSetCurrent($Conn, $usern)
$Ma = InputBox ( "Choose a mail name", "IN", @UserName )
_FTP_FileDelete ( $Conn, $Ma )
Case $Button3
_GUICtrlEdit_SetText ($mail, "" )
_FTP_DirSetCurrent($Conn, $usern)
$filelist = _Ftp_ListToArray($Conn)
Local $i
for $i = 1 to $filelist
_GUICtrlEdit_AppendText ($mail, $filelist[$i] & @CRLF)
Next

EndSwitch
WEnd

#include <ftpex.au3>
$server =
$username =
$pass =


$Open = _FTP_Open('MyFTP Control')
$Conn = _FTP_Connect($Open, $server, $username, $pass)
#include <buttonconstants.au3>
#include <editconstants.au3>
#include <guiconstantsex.au3>
#include <windowsconstants.au3>
#include <guiedit.au3>

$Form1 = GUICreate("Sender", 633, 447, 259, 133)
$Body = GUICtrlCreateEdit("", 8, 64, 617, 369)
GUICtrlSetData(-1, "Body")
$Username = GUICtrlCreateInput("Username", 8, 8, 361, 21)
$Subject = GUICtrlCreateInput("Subject", 8, 40, 361, 21)
$Button1 = GUICtrlCreateButton("Send", 376, 8, 249, 49, $WS_GROUP)
GUISetState(@SW_SHOW)


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$usern = _GUICtrlEdit_GetText ($Username)
$body = _GUICtrlEdit_GetText ($Body)
$Subj = _GUICtrlEdit_GetText ($Subject)
_FTP_DirSetCurrent ($Conn, $usern)
FileWrite ( @TempDir & "\mail.log", $body )
_FTP_FilePut ($Conn, @TempDir & "\mail.log", $Subj)
EndSwitch
WEnd