ghettordp

#AutoIt3Wrapper_Res_Icon_Add=C:icon\RemoteDesktop32x32.png
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>

Opt("GUIOnEventMode", 1)

#Region ### START GUI section ### Form=
$Form1 = GUICreate("RDP autoinlogg", 220, 150, 199, 147) ; Programfönster  $variabelnamn = GUICreate("Titel", bredd, höjd, försterposition från vänster kant, fönsterposition från ovan kant)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEButton")

$DomainMenu = GUICtrlCreateMenu("Domän") ; Skapar menyraden Domän

$Domain_1 = GUICtrlCreateMenuItem("domännamn", $DomainMenu) ; Skapar undermenyn domännamn
GUICtrlSetOnEvent ($Domain_1, "domain1_func") ;Skapar ett funktionsnamn se nedan Func domain1_func () d.v.s. när event $Domain_1 vilket är en meny händer, d.v.s. den klickas på - gör det här.

$ServerMenu = GUICtrlCreateMenu("Server")

$Server_1 = GUICtrlCreateMenuItem("namnpåserver", $ServerMenu)
GUICtrlSetOnEvent ($Server_1, "server1_func")

$UserMenu = GUICtrlCreateMenu("Användare")

$user_0 = GUICtrlCreateMenuItem("Administrator", $UserMenu) ; för att lägga till användare kopiera denna och nästa rad som heter User_ och det event som är knutet till och öka med ett (1) ex från user_2 till user_3
GUICtrlSetOnEvent ($user_0, "user0_func")

$user_1 = GUICtrlCreateMenuItem("anv1", $UserMenu)
GUICtrlSetOnEvent ($user_1, "user1_func")

$user_2 = GUICtrlCreateMenuItem("anv2", $UserMenu)
GUICtrlSetOnEvent ($user_2, "user2_func")

; Lägg till ny användare här
; Lägg till funktion knuten till användaren här
$Label1 = GUICtrlCreateLabel("Domän: ", 34, 26, 138, 17)
$Label2 = GUICtrlCreateLabel("Användare: ", 34, 56, 156, 17)
$Login_Button = GUICtrlCreateButton("Logga in", 34, 86, 73, 25)
GUICtrlSetOnEvent ($Login_Button, "Login_func")
GUISetIcon(@ScriptFullPath, -5)
GUISetState(@SW_SHOW)
#EndRegion ### END GUI section ###

#cs Ny användare ersätt user_n med nästa följande nummer i ordningen

$user_n = GUICtrlCreateMenuItem("namn", $UserMenu)
GUICtrlSetOnEvent ($user_n, "usern_func")


Func usern_func ()
   $login = "användarnamn"
   GUICtrlSetData($Label2, GUICtrlCreateLabel("Användare: " & $login, 34, 56, 156, 17))
EndFunc

#ce

$login = 0
$domain = 0
$servername = 0
$gateway = 0
$serverrdp = 0
$temprdp = @UserProfileDir & "\AppData\Local\Temp\temprdp.rdp"
$mstsc = "mstsc " & $temprdp

While 1
WEnd

Func Login_func()

   RegWrite ("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Terminal Server Client\Servers\" & $servername, "UsernameHint", "REG_SZ", $domain & "\" & $login)
   $rdp_default = "screen mode id:i:2" & @CRLF & "use multimon:i:0" & @CRLF & "desktopwidth:i:1680" & @CRLF & "desktopheight:i:1050" & @CRLF & "session bpp:i:32" & @CRLF & "winposstr:s:0,1,0,0,1600,860" & @CRLF & "compression:i:1" & @CRLF & "keyboardhook:i:2" & @CRLF & "audiocapturemode:i:0" & @CRLF & "videoplaybackmode:i:1" & @CRLF & "connection type:i:7" & @CRLF & "networkautodetect:i:1" & @CRLF & "bandwidthautodetect:i:1" & @CRLF & "displayconnectionbar:i:1" & @CRLF & "enableworkspacereconnect:i:0" & @CRLF & "disable wallpaper:i:0" & @CRLF & "allow font smoothing:i:0" & @CRLF & "allow desktop composition:i:0" & @CRLF & "disable full window drag:i:1" & @CRLF & "disable menu anims:i:1" & @CRLF & "disable themes:i:0" & @CRLF & "disable cursor setting:i:0" & @CRLF & "bitmapcachepersistenable:i:1" & @CRLF & "audiomode:i:0" & @CRLF & "redirectprinters:i:1" & @CRLF & "redirectcomports:i:1" & @CRLF & "redirectsmartcards:i:1" & @CRLF & "redirectclipboard:i:1" & @CRLF & "redirectposdevices:i:0" & @CRLF & "autoreconnection enabled:i:1" & @CRLF & "authentication level:i:2" & @CRLF & "prompt for credentials:i:0" & @CRLF & "negotiate security layer:i:1" & @CRLF & "remoteapplicationmode:i:0" & @CRLF & "alternate shell:s:" & @CRLF & "shell working directory:s:" & @CRLF & "gatewaycredentialssource:i:4" & @CRLF & "gatewayprofileusagemethod:i:1" & @CRLF & "promptcredentialonce:i:0" & @CRLF & "gatewaybrokeringtype:i:0" & @CRLF & "use redirection server name:i:0" & @CRLF & "rdgiskdcproxy:i:0" & @CRLF & "kdcproxyname:s:" & @CRLF & "devicestoredirect:s:*" & @CRLF & "drivestoredirect:s:DynamicDrives" & @CRLF & "gatewayusagemethod:i:2" & @CRLF
   $gateway_server = $gateway & @CRLF
   $serverrdp = @CRLF & "full address:s:" & $servername
   FileWrite ( $temprdp, $rdp_default & $gateway & $serverrdp )
   Run ($mstsc)
   Sleep (2000)
   FileDelete ($temprdp)
   Exit
EndFunc

Func domain1_func () ; den faktiskta funktionen knuten till menyn "domännamn"
   $domain = "domännamn"
   GUICtrlSetData($Label1, GUICtrlCreateLabel("Domän: " & $domain, 34, 24, 138, 17))
EndFunc

Func server1_func ()
   $servername = "namnpåserver"
   $gateway = "gatewayhostname:s:remote.tjosan.whatever"
EndFunc

Func user0_func ()
   $login = "Administrator"
   GUICtrlSetData($Label2, GUICtrlCreateLabel("Användare: " & $login, 34, 56, 156, 17))
EndFunc

Func user1_func ()
   $login = "user1"
   GUICtrlSetData($Label2, GUICtrlCreateLabel("Användare: " & $login, 34, 56, 156, 17))
EndFunc

Func user2_func ()
   $login = "user2"
   GUICtrlSetData($Label2, GUICtrlCreateLabel("Användare: " & $login, 34, 56, 156, 17))
EndFunc

;Ny användare här

Func CLOSEButton()
    Exit
EndFunc