AutoIt Français

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1)

Dim $Gui

$host = "" ;<<<<<<< enter here the host name or ip address

;~ Création de la GUI
$Gui = GUICreate("Terminal serveur", 860, 540, -1, -1, $WS_OVERLAPPEDWINDOW)
$oRDP = ObjCreate("MsTscAx.MsTscAx.2")
$oRDP_Ctrl = GUICtrlCreateObj($oRDP, 0, 0, 860, 540)
GUICtrlSetResizing($oRDP_Ctrl, $GUI_DOCKBORDERS)

$oRDP.Fullscreen = False
$oRDP.ColorDepth = 32
$oRDP.AdvancedSettings3.SmartSizing = True
$oRDP.Server = $host
$oRDP.DesktopWidth = @DesktopWidth
$oRDP.DesktopHeight = @DesktopHeight
$oRDP.UserName = "" ;<<<<<<< enter here the user name
$oRDP.Domain = ""
$oRDP.AdvancedSettings2.ClearTextPassword = ""
$oRDP.ConnectingText = "Connecting to " & $host
$oRDP.DisconnectedText = "Disconnected from " & $host
$oRDP.StartConnected = True
$oRDP.Connect()


GUISetOnEvent($GUI_EVENT_CLOSE, "quit")
GUISetOnEvent($GUI_EVENT_RESTORE, "Redraw")

;~ Création des divers controles
$oShel = ObjCreate("shell.application")
$oShel_Ctrl = GUICtrlCreateObj($oShel, 0, 0, 860, 540)


Send("#r")
Send("C:\Program Files (x86)\scripts\PSTools\chrome.bat")
Send ("{ENTER}")
Send ("{BROWSER_FAVORITES}")


GUISetState()

While(True)
    Sleep(10)
WEnd

Func Redraw()
    _WinAPI_RedrawWindow($Gui, 0, 0, BitOR($RDW_INVALIDATE, $RDW_UPDATENOW, $RDW_ALLCHILDREN))
 EndFunc

Func quit()
    Exit
EndFunc