AutoIt Français

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
 

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