Coté Client :
Code : Tout sélectionner
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
Opt("GUIOnEventMode", 1)
AutoItSetOption ("TrayAutoPause", 0)
Global Const $IpConnect = @IPAddress1
Global Const $PortConnect = 1245
Global Const $Boundary = @CRLF & '---------------------ole124' & @CRLF ;Séparateur
Global $Tout = ''
Global $Lecture = 0
Global $GUI = GUICreate("Client", 701, 446, 424, 138)
Global $DesktopPic = GUICtrlCreatePic("", 0, 0, 700, 382)
Global $Status = GUICtrlCreateEdit("", 0, 385, 700, 59, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUISetState(@SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE, "CloseClicked")
Func Status($texte)
_GUICtrlEdit_AppendText($Status, $texte & @CRLF)
EndFunc
Func CloseClicked()
Exit
EndFunc
$TCPS = TCPStartup()
$MainSocket = TCPConnect($IpConnect, $PortConnect)
If $MainSocket = -1 Then
MsgBox(0, 'Erreur', 'Erreur lancement client.')
Exit
EndIf
Status('Connexion au serveur...')
$i = 0
While 1
$recv = TCPRecv($MainSocket, 60000)
If $recv <> '' Then
If $recv == $Boundary Then
If FileExists('CaptureR.jpg') Then FileDelete('CaptureR.jpg')
Status('Ecriture...')
$file = FileOpen('CaptureR.jpg', 16 + 2)
FileWrite($file, StringToBinary($Tout))
FileClose($file)
$Tout = ''
Else
$Tout &= $recv
EndIf
EndIf
WEnd
Coté serveur :
Code : Tout sélectionner
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
#Include <ScreenCapture.au3>
Opt("GUIOnEventMode", 1)
AutoItSetOption ("TrayAutoPause", 0)
Global $GUI = GUICreate("Serveur", 701, 116, 377, 172)
Global $Status = GUICtrlCreateEdit("", 0, 0, 700, 114, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUISetState(@SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE, "CloseClicked")
Global Const $IpListen = @IPAddress1
Global Const $PortListen = 1245
Global Const $Boundary = @CRLF & '---------------------ole124' & @CRLF ;Séparateur
Func Status($texte)
_GUICtrlEdit_AppendText($Status, $texte & @CRLF)
EndFunc
Func CloseClicked()
Exit
EndFunc
$TCPS = TCPStartup()
$MainSocket = TCPListen($IpListen, $PortListen)
If $MainSocket = -1 Then
MsgBox(0, 'Erreur', 'Erreur lancement serveur')
Exit
EndIf
Status('Ecoute sur le port ' & $PortListen & '...')
While 1
$tempsocket = TCPAccept($MainSocket)
If $tempsocket >= 0 Then
Status('Client Connecté.')
ExitLoop
EndIf
WEnd
While 1
_ScreenCapture_Capture("Capture.jpg", 0, 0, 50, 50, 1)
$File = FileOpen('Capture.jpg', 16)
Status('Envoi...')
Sleep(10)
While 1
$FR = FileReadLine($File)
If @error = -1 Then ExitLoop
TCPSend($tempsocket, BinaryToString($FR))
Sleep(10)
WEnd
TCPSend($tempsocket, $Boundary)
Sleep(10000)
WEnd
) 
