AutoIt Français

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

;~ Nom de la machine
$PC = "Mon PC"

$hGUI = GUICreate($PC, 633, 454, 193, 125, BitOR($WS_SYSMENU,$WS_CLIPCHILDREN))
GUISetState(@SW_SHOW)

Run("mstsc.Exe /v " & $PC) ; on peut indiquer @sw_hide
WinWaitActive($PC & " - Remote Desktop Connection")
$WorPad = WinGetHandle($PC & " - Remote Desktop Connection")
_SetParent($WorPad, $hGUI)
WinSetState($WorPad, "", @SW_SHOWMAXIMIZED)

Do
Sleep(10)
Until GuiGetMsg() =-3

Func _SetParent($id_child, $h_parent)
    If Not IsHWnd($h_parent) Then $h_parent = HWnd($h_parent)
    If Not IsHWnd($id_child) Then $id_child = GUICtrlGetHandle($id_child)
    If DllCall("user32.dll", "hwnd", "SetParent", "hwnd", $id_child, "hwnd", $h_parent) <> 0 Then
        Return 1
    Else
        seterror(1)
        Return 0
    EndIf
EndFunc

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("RDPTOIT", 1024, 640,-1, -1, $WS_SIZEBOX + $WS_SYSMENU)
$Obj1 = ObjCreate("MsTscAx.MsTscAx.3")
GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP)
$Obj1_ctrl = GUICtrlCreateObj($Obj1, 0, 0, 1000 ,600)
GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$Obj1.Server = "toto"
$Obj1.UserName ="UTILISATEUR"
$Obj1.FullScreen = false
$Obj1.AdvancedSettings2.RedirectDrives = False
$Obj1.AdvancedSettings2.RedirectPrinters = False
$Obj1.AdvancedSettings2.RedirectPorts = False
$Obj1.AdvancedSettings2.RedirectSmartCards = False

$Obj1.StartConnected = True
    dim $intResult
$intResult = $Obj1.Connect
While 1

    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd