AutoIt Français

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

Opt("MustDeclareVars", 1)
Opt("GUIOnEventMode", 1)

Dim $Gui
Dim $SrvIP = @IPAddress1
Dim $SrvPort = "1234"
Dim $NombreClients = 0

TCPStartup()
Dim $MainSocket = TCPListen($SrvIP, $SrvPort)
Dim $Clients[1]
Dim $Buffer = ""

$Gui = GUICreate("test", 300, 300)
GUISetOnEvent($GUI_EVENT_CLOSE, "quit")
GUISetState()

Local $Socket
Local $Recv

While(True)
    $Socket = TCPAccept($MainSocket)
    If($Socket <> -1) Then
        ConnexionClient($Socket)
    EndIf
    For $i = 0 To UBound($Clients)-2
        $Recv = TCPRecv($Clients[$i], 2048, 1)
        If($Recv <> "") Then
            EnvoyerALAutreClient($i, $Recv)
        EndIf
    Next
Wend

Func ConnexionClient($Socket)
    If($NombreClients > 0) Then
        Broadcast("Check")
    EndIf
    If($NombreClients < 2) Then
        $Clients[$NombreClients] = $Socket
        $NombreClients += 1
        Redim $Clients[$NombreClients+1]
        If($NombreClients = 2) Then
            Broadcast("EnvoiPossible")
        Else
            Envoyer($Socket, "Attendre" & "Fini!§!")
        EndIf
    Else
        Envoyer($Socket, "Trop de clients." & "Fini!§!")
        TCPCloseSocket($Socket)
    EndIf
EndFunc

Func Broadcast($Donnee)
    For $i = 0 To 1
        If($i < $NombreClients) Then
            Envoyer($Clients[$i], $Donnee & "Fini!§!")
        EndIf
    Next
EndFunc

Func Envoyer($Socket, $Donnee)
    If(TCPSend($Socket, $Donnee) = 0) Then
        If($Socket = $Clients[0]) Then
            $Clients[0] = $Clients[1]
        Else
            $Clients[1] = 0
        EndIf
        $NombreClients -= 1
        If($NombreClients = 0) Then
            ReDim $Clients[1]
        Else
            ReDim $Clients[$NombreClients]
        EndIf
        TCPCloseSocket($Socket)
    EndIf
EndFunc

Func EnvoyerALAutreClient($Client, $Donnee)
    Local $EnvoyerAuClient = 0
    If($Client = 0) Then
        $EnvoyerAuClient = 1
    EndIf
    Envoyer($Clients[$EnvoyerAuClient], $Donnee)
EndFunc

Func quit()
    Exit
EndFunc
 

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#Include <ScreenCapture.au3>

Opt("MustDeclareVars", 1)
Opt("GUIOnEventMode", 1)

Dim $Gui
Dim $IP = "xx.xx.xx.xx" ;~ Remplacez par votre IP Public, vous pouvez la trouver sur http://www.monip.org (ou @IPAdress pour travailler en LAN : en LAN, pas besoin de débloqué les ports sur la BOX)
Dim $Port = "1234"
Dim $Socket
Dim $Buffer = ""
Dim $EnvoiPossible = False
Dim $Image = 0
Local $Recv
Local $Debug = ""

$Gui = GUICreate("Ecran partenaire", 300, 315)
Dim $LabelConnexion = GUICtrlCreateLabel("Connexion en cours...", 0, 0, 200, 15)
Dim $Bouton = GUICtrlCreateButton("Envoyer écran", 5, 290, 290, 20)
GUICtrlSetBkColor($LabelConnexion, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetOnEvent($Bouton, "EnvoiEcran")
GUISetOnEvent($GUI_EVENT_CLOSE, "quit")
GUISetState()

TCPStartup()
Do
    $Socket = TCPConnect($IP, $Port)
    If($Socket <= 0) Then
        Sleep(1000)
    EndIf
Until($Socket > 0)
GUICtrlSetData($LabelConnexion, "Connexion établie.")
GUICtrlSetColor($LabelConnexion, 0x008000)

While(True)
    $Recv = TCPRecv($Socket, 2048, 1)
    If($Recv <> "") Then
        Recv($Recv)
    EndIf
    Sleep(10)
WEnd

Func EnvoiEcran()
    Local $PosSouris = MouseGetPos()
    _ScreenCapture_Capture(@ScriptDir & "\MonImage.jpg", $PosSouris[0]-150, $PosSouris[1]-140, $PosSouris[0]+150, $PosSouris[1]+140, False)
    Local $File = FileOpen(@ScriptDir & "\MonImage.jpg", 16)
    Local $Contenu = FileRead($File)
    FileClose($File)
    Envoyer($Contenu)
    FileDelete(@ScriptDir & "\MonImage.jpg")
EndFunc

Func Envoyer($Donnee)
    If(TCPSend($Socket, $Donnee & "Fini!§!") = 0) Then
        GUICtrlSetData($LabelConnexion, "Connexion au serveur perdue")
        GUICtrlSetColor($LabelConnexion, 0xFF0000)
    EndIf
EndFunc

Func Recv($Donnee)
    $Buffer &= BinaryToString($Donnee)
    $Debug &= BinaryToString($Donnee) & @CRLF
    If(StringRight($Buffer, 7) = "Fini!§!") then
        $Buffer = StringTrimRight($Buffer, 7)
        Local $Commandes = StringSplit($Buffer, "Fini!§!", 1)
        For $i = 1 To $Commandes[0]
            If($Commandes[$i] = "Attendre") Then
                GUICtrlSetData($LabelConnexion, "Attente d'un partenaire.")
                GUICtrlSetColor($LabelConnexion, 0x808000)
            ElseIf($Commandes[$i] = "EnvoiPossible") Then
                GUICtrlSetData($LabelConnexion, "Vous pouvez envoyer une image.")
                GUICtrlSetColor($LabelConnexion, 0x008000)
            ElseIf($Commandes[$i] = "Trop de clients.") Then
                GUICtrlSetData($LabelConnexion, "Trop de clients.")
            ElseIf($Commandes[$i] = "Check") Then
            ElseIf($Commandes[$i] = "Encore") Then
                EnvoiEcran()
            Else
                Local $File = FileOpen(@ScriptDir & "\Image.jpg", 18)
                FileWrite($File, $Commandes[$i])
                FileClose($File)
                If($Image <> 0) Then
                    GUICtrlDelete($Image)
                EndIf
                $Image = GUICtrlCreatePic(@ScriptDir & "\Image.jpg", 0, 15, 300, 280)
                FileDelete(@ScriptDir & "\Image.jpg")
                Envoyer("Encore")
            EndIf
        Next
        $Buffer = ""
    EndIf
EndFunc

Func quit()
    Exit
EndFunc