-Anubi- |
|
| Client: #include
#include
#include
;Client
$fileCHAT = @UserProfileDir & "\344Client.log"
$server = ' '
$username = ' '
$pass = ' '
$Open = _FTP_Open('MyFTP Control')
$Conn = _FTP_Connect($Open, $server, $username, $pass)
GUICreate("Chat Client",300,250)
$edit=GUICtrlCreateEdit("",0,0,300,200)
$msg=GUICtrlCreateInput("",10,210,200,20)
$send=GUICtrlCreateButton("Send to Server",215,210,80,20)
GUISetState()
While 1
Switch GUIGetMsg()
Case $gui_event_close
Exit
Case $send
$msg1 = _GUICtrlEdit_GetText ($msg)
FileWrite ( $fileCHAT, $msg1 )
_FTP_FilePut ( $Conn, $fileCHAT, "CLIENT.log" )
_GUICtrlEdit_AppendText($edit,"Client write: " & $msg1 & @CRLF & " At : " & @MDAY & " Hour-- " & @HOUR & ":" & @MIN & ":" & @SEC & @CRLF)
FileDelete ( $fileCHAT )
EndSwitch
WEnd Server : #include
#include
#include
;Server
$fileCHAT = @UserProfileDir & "\344.log"
$server = ' '
$username = ' '
$pass = ' '
$Open = _FTP_Open('MyFTP Control')
$Conn = _FTP_Connect($Open, $server, $username, $pass)
GUICreate("Chat Server",500,500)
$edit=GUICtrlCreateEdit("",0,0,300,200)
$send=GUICtrlCreateButton("RECEIVE",215,210,80,20)
GUISetState()
While 1
Switch GUIGetMsg()
Case $gui_event_close
Exit
Case $send
_FTP_FileGet ( $Conn, "CLIENT.log", $fileCHAT )
$serve = FileRead ( $fileCHAT )
_GUICtrlEdit_AppendText ( $edit, "Client write : " & $serve & @CRLF & " At : " & @MDAY & " Hour-- " & @HOUR & ":" & @MIN & ":" & @SEC & @CRLF )
_FTP_FileDelete ( $Conn, "CLIENT.log" )
EndSwitch
WEnd Anubi non ha messo l'infirizzo e la password del suo sito per ovvi motivi ... Soprattutto con Kurt in giro... |
| | |
XD
...