AutoIt Français

Code : Tout sélectionner

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

Opt('MustDeclareVars', 1)

; #INDEX# =======================================================================================================================
; Nom .............: µVNC
; Version d'Autoit : v3.3.0.0
; Langage .........: Français
; Description .....: Client/Serveur d'assistance à distance
; Auteur ..........: Damian Iste
; ===============================================================================================================================

If MsgBox(4, "", "Choix") = 6 Then
    Serveur()
Else
    Client()
EndIf

Func Serveur()
    _ScreenCapture_SetJPGQuality(10)
    _ScreenCapture_SetTIFColorDepth(24)

    ; #VARIABLES# ===================================================================================================================
    Local $IPaEouter = TCPNameToIP(@ComputerName)
    Local $Port = 52001
    Local $MainSocket, $ConnectedSocket, $IPdelAccepte
    Local $Commande
    Local $Data
    Local $calcul

    Local $GOOEY, $edit, $img
    ; ===============================================================================================================================

    TCPStartup()

    $MainSocket = TCPListen($IPaEouter, $Port, 100000)
    If $MainSocket = -1 Then
        Sleep(100)
        Serveur()
    EndIf

    $GOOEY = GUICreate("Mon Server (IP: " & $IPaEouter & ")", 300, 200)
    $edit = GUICtrlCreateEdit("", 10, 10, 280, 180)
    GUISetState()

    $ConnectedSocket = -1
    Do
        $ConnectedSocket = TCPAccept($MainSocket)
    Until $ConnectedSocket <> -1

    $IPdelAccepte = SocketToIP($ConnectedSocket)

    While 1
        $Commande = TCPRecv($ConnectedSocket, 100000)

        If @error Then ExitLoop

        If $Commande <> "" Then
            GUICtrlSetData($edit," > " & $Commande & @CRLF & GUICtrlRead($edit))
            Select
                Case StringLeft ($Commande,2) = "ST"
                    $calcul = StringSplit ($Commande,"||",1)
                    if IsArray ($calcul) Then Send($calcul[2],1)
                Case StringLeft ($Commande,2) = "SE"
                    $calcul = StringSplit ($Commande,"||",1)
                    if IsArray ($calcul) Then Send($calcul[2])
                Case $Commande = "getinfo"
                    TCPSend($ConnectedSocket, "getinfo ||" & @DesktopWidth & "||" & @DesktopHeight & "||" & @UserName  & "||")
                    Sleep (1000)
                Case StringLeft ($Commande,2) = "GC"
                    $calcul = StringSplit ($Commande,"||",1)
                    if IsArray ($calcul) And $calcul[2] > 0 And $calcul[3] > 0 Then MouseClick("left",$calcul[2],$calcul[3],1,0)
                Case StringLeft ($Commande,2) = "GD"
                    $calcul = StringSplit ($Commande,"||",1)
                    if IsArray ($calcul) Then 
                        MouseMove ($calcul[2],$calcul[3],0)
                        Sleep(100)
                        MouseDown ("left")
                        MouseMove ($calcul[4],$calcul[5],0)
                        Sleep(100)
                        MouseUp ("left")
                    EndIf
;~                  if IsArray ($calcul) Then MouseClickDrag("left",$calcul[2],$calcul[3],$calcul[4],$calcul[5],0)
                Case StringLeft ($Commande,2) = "DC"
                    $calcul = StringSplit ($Commande,"||",1)
                    if IsArray ($calcul) And $calcul[2] > 0 And $calcul[3] > 0 Then MouseClick("right",$calcul[2],$calcul[3],1,0)
                Case StringLeft ($Commande,2) = "DD"
                    $calcul = StringSplit ($Commande,"||",1)
                    if IsArray ($calcul) Then 
                        MouseMove ($calcul[2],$calcul[3],0)
                        Sleep(100)
                        MouseDown ("right")
                        MouseMove ($calcul[4],$calcul[5],0)
                        Sleep(100)
                        MouseUp ("right")
                    EndIf
;~                  if IsArray ($calcul) Then MouseClickDrag("right",$calcul[2],$calcul[3],$calcul[4],$calcul[5],0)
                Case StringLeft ($Commande,2) = "CC"
                    $calcul = StringSplit ($Commande,"||",1)
                    if IsArray ($calcul) And $calcul[2] > 0 And $calcul[3] > 0 Then MouseClick("middle",$calcul[2],$calcul[3],1,0)
                Case StringLeft ($Commande,2) = "CD"
                    $calcul = StringSplit ($Commande,"||",1)
                    if IsArray ($calcul) Then 
                        MouseMove ($calcul[2],$calcul[3],0)
                        Sleep(100)
                        MouseDown ("middle")
                        MouseMove ($calcul[4],$calcul[5],0)
                        Sleep(100)
                        MouseUp ("middle")
                    EndIf
            EndSelect
                    Sleep(100)
                    _ScreenCapture_Capture(@DesktopCommonDir & "\screen.jpg")
                    $img = FileOpen (@DesktopCommonDir & "\screen.jpg",16)
                    $Data = FileRead ($img)
                    TCPSend($ConnectedSocket, $Data)
                    
        EndIf
    WEnd


    If $ConnectedSocket <> -1 Then TCPCloseSocket($ConnectedSocket)

    TCPShutdown()
    GUIDelete($edit)
;~  GUICtrlSetData($edit," > DECO" & @CRLF & GUICtrlRead($edit))
    Serveur()
    
EndFunc   ;==>Serveur

Func Client()
    $IP = "192.168.1.1"
    
    FileDelete("DL.jpg")

    ; #VARIABLES# ===================================================================================================================
    Local $IPaEouter = TCPNameToIP(@ComputerName)
    Local $Port = 52001
    Local $MainSocket, $IPduServeur
    Local $Commande
    Local $ConnectedSocket, $szData
    Local $i = 0
    Local $calcul, $calcul2

    Local $Gui, $msg, $pic, $F5, $Send, $text, $check, $buttoncontext, $buttonitemtext, $buttonitemaide 
    Local $editgui, $edittext, $editsend
    ; ===============================================================================================================================

    TCPStartup()

;~  $IPduServeur = InputBox("", "", @IPAddress1)
    $IPduServeur = InputBox("", "", $IP)

    $ConnectedSocket = -1
    $ConnectedSocket = TCPConnect($IPduServeur, $Port)
    
    TCPSend($ConnectedSocket, "getinfo")
    Sleep(1000)
    $Commande = TCPRecv($ConnectedSocket, 100000)
    Sleep(1000)
    $calcul = StringSplit ($Commande, "||",1)
    If IsArray ($calcul) Then 
;~      $oIE = ObjCreate("Shell.Explorer.2")
        $Gui = GUICreate($calcul[4] & " ( " & $IPduServeur & " )",($calcul[2]),($calcul[3])+25,-1,-1);,$WS_SIZEBOX
        $pic = GUICtrlCreatePic("",0,0,($calcul[2]),($calcul[3]))
;~      $pic = GUICtrlCreateObj($oIE,0,0,($calcul[2]),($calcul[3]))
        $F5 = GUICtrlCreateButton("Rafraichir",0,$calcul[3],50)
        $text = GUICtrlCreateInput ("",55,$calcul[3]+2.5,$calcul[2]-55-55-10,20)
        $check = GUICtrlCreateCheckbox("",$calcul[2]-62,$calcul[3]+10,10,10)
        GUICtrlSetTip (-1,"Mode texte")
        $Send = GUICtrlCreateButton("Send()",$calcul[2]-50,$calcul[3],50)
        $buttoncontext = GUICtrlCreateContextMenu($Send)
        $buttonitemtext = GUICtrlCreateMenuItem("Envoyer un text", $buttoncontext)
        GUICtrlCreateMenuItem("", $buttoncontext, 2)
        $buttonitemaide = GUICtrlCreateMenuItem("Guide des commandes", $buttoncontext)
    EndIf
    GUISetState()
    While 1
        $msg = GUIGetMsg()
        
        Select
            Case $msg = $GUI_EVENT_CLOSE
                If WinActive($Gui) Then Exit
                If WinActive($editgui) Then GUIDelete($editgui)
            Case $msg = $editsend And $msg <> ""
                FileDelete("DL.jpg")
                TCPSend($ConnectedSocket,"ST||"&$calcul&"||" )
                GUIDelete($editgui)
            Case $msg = $buttonitemtext
                $editgui = GUICreate("Texte",500,525,-1,-1,-1,-1,$Gui)
                $edittext = GUICtrlCreateEdit("",0,0,500,500)
                $editsend = GUICtrlCreateButton("Envoyer",100,500,300,25)
                GUISetState()
            Case $msg = $Send Or $msg = $text
                FileDelete("DL.jpg")
                $calcul = GUICtrlRead($text)
                If GUICtrlRead ($check) = $GUI_CHECKED Then
                TCPSend($ConnectedSocket,"ST||"&$calcul&"||" )
                Else
                TCPSend($ConnectedSocket,"SE||"&$calcul&"||" )
                EndIf
                GUICtrlSetData($text,"")
            Case $msg = $F5
;~              GUICtrlSetImage($pic,"DL.jpg")
                FileDelete("DL.jpg")
                TCPSend($ConnectedSocket,"f5")
            Case _IsPressed(01) = 1
                If WinActive($Gui) Then
                $calcul = GUIGetCursorInfo($Gui)
                If $calcul[4] = $pic Then
                    FileDelete("DL.jpg")
                    While _IsPressed(01)
                        Sleep(100)
                    WEnd
                    $calcul2 = GUIGetCursorInfo($Gui)
                    If $calcul[0] = $calcul2[0] And $calcul[1] = $calcul2[1] Then
                        TCPSend($ConnectedSocket, "GC ||" & $calcul[0] &"||"& $calcul[1]&"||")
                    Else
                        TCPSend($ConnectedSocket, "GD ||" & $calcul[0] &"||"& $calcul[1] &"||"& $calcul2[0] &"||"& $calcul2[1]&"||")
                    EndIf
                EndIf
                EndIf
            Case _IsPressed(02) = 1
                If WinActive($Gui) Then
                $calcul = GUIGetCursorInfo($Gui)
                If $calcul[4] = $pic Then
                    FileDelete("DL.jpg")
                    While _IsPressed(02)
                        Sleep(100)
                    WEnd
                    $calcul2 = GUIGetCursorInfo($Gui)
                    If $calcul[0] = $calcul2[0] And $calcul[1] = $calcul2[1] Then
                        TCPSend($ConnectedSocket, "DC ||" & $calcul[0] &"||"& $calcul[1]&"||")
                    Else
                        TCPSend($ConnectedSocket, "DD ||" & $calcul[0] &"||"& $calcul[1] &"||"& $calcul2[0] &"||"& $calcul2[1]&"||")
                    EndIf
                EndIf
                EndIf
            Case _IsPressed(04) = 1
                If WinActive($Gui) Then
                $calcul = GUIGetCursorInfo($Gui)
                If $calcul[4] = $pic Then
                    FileDelete("DL.jpg")
                    While _IsPressed(04)
                        Sleep(100)
                    WEnd
                    $calcul2 = GUIGetCursorInfo($Gui)
                    If $calcul[0] = $calcul2[0] And $calcul[1] = $calcul2[1] Then
                        TCPSend($ConnectedSocket, "CC ||" & $calcul[0] &"||"& $calcul[1]&"||")
                    Else
                        TCPSend($ConnectedSocket, "CD ||" & $calcul[0] &"||"& $calcul[1] &"||"& $calcul2[0] &"||"& $calcul2[1]&"||")
                    EndIf
                EndIf
                EndIf
            
        EndSelect
        
        $Commande = TCPRecv($ConnectedSocket, 100000)
        If $Commande <> "" Then 
            GUICtrlSetImage($pic,"DL.jpg")
            FileWrite("DL.jpg",$Commande)
            GUICtrlSetImage($pic,"DL.jpg")
;~          $oIE.navigate(@ScriptDir & "/dl.html")
        EndIf
    WEnd

    TCPShutdown()

EndFunc   ;==>Client

Func SocketToIP($SHOCKET)
    Local $sockaddr, $aRet

    $sockaddr = DllStructCreate("short;ushort;uint;char[8]")

    $aRet = DllCall("Ws2_32.dll", "int", "getpeername", "int", $SHOCKET, _
            "ptr", DllStructGetPtr($sockaddr), "int*", DllStructGetSize($sockaddr))
    If Not @error And $aRet[0] = 0 Then
        $aRet = DllCall("Ws2_32.dll", "str", "inet_ntoa", "int", DllStructGetData($sockaddr, 3))
        If Not @error Then $aRet = $aRet[0]
    Else
        $aRet = 0
    EndIf

    $sockaddr = 0

    Return $aRet
EndFunc   ;==>SocketToIP