#Include <ftpex.au3>
#Include <array.au3>
#include <buttonconstants.au3>
#include <editconstants.au3>
#include <guiedit.au3>
#include <guiconstantsex.au3>
#include <windowsconstants.au3>
$server = ''
$username = ''
$pass = ''
$usernameS = InputBox ( "!", "Write the name of the user to connect", "" )
$Open = _FTP_Open('MyFTP Control')
$Conn = _FTP_Connect($Open, $server, $username, $pass)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("CHAT FTP 2.0", 633, 447, 192, 124)
$Button1 = GUICtrlCreateButton("Send", 16, 336, 113, 33, $WS_GROUP)
$msg = GUICtrlCreateEdit("", 8, 9, 615, 313)
$edit = GUICtrlCreateEdit("", 136, 336, 489, 105)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
_FTP_FileGet ( $Conn, $usernameS, @UserProfileDir & "\bb.log" )
$read = FileRead ( @UserProfileDir & "\bb.log" )
if NOT $read = "" Then
_GUICtrlEdit_AppendText ($msg, $usernameS & " Write : " & @CRLF & $read & @CRLF)
_FTP_FileDelete ( $Conn, $usernameS )
FileDelete ( @UserProfileDir & "\bb.log" )
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$text = _GUICtrlEdit_GetText ($edit)
_GUICtrlEdit_AppendText ( $msg, @UserName & " Write: " & @CRLF & $text & @CRLF )
FileWrite ( @UserProfileDir & "\" & @UserName, $text )
_FTP_FilePut ( $Conn, @UserProfileDir & "\" & @UserName, @UserName )
FileDelete ( @UserProfileDir & "\" & @UserName )
EndSwitch
WEnd
)
