Learning/mRemoteNG
1
0
Fork 0
mirror of https://github.com/mRemoteNG/mRemoteNG.git synced 2026-02-17 14:07:46 +08:00
Code Issues Packages Projects Releases Wiki Activity

More RD Gateway support additions.

Browse Source
This commit is contained in:
Riley McArdle
2010-01-28 23:45:00 -06:00
parent ef983b90b2
commit 829475567b
6 changed files with 170 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
mRemoteV1/Config/Config.Connections.Load.vb
View File

@@ -976,7 +976,13 @@ Namespace Config
If Me.confVersion > 2.1 Then '2.2
conI.RDGatewayHostname = .Attributes("RDGatewayHostname").Value
conI.RDGatewayUsername = .Attributes("RDGatewayUsername").Value
conI.RDGatewayPassword = .Attributes("RDGatewayPassword").Value
conI.RDGatewayDomain = .Attributes("RDGatewayDomain").Value
conI.Inherit.RDGatewayHostname = .Attributes("InheritRDGatewayHostname").Value
conI.Inherit.RDGatewayUsername = .Attributes("InheritRDGatewayUsername").Value
conI.Inherit.RDGatewayPassword = .Attributes("InheritRDGatewayPassword").Value
conI.Inherit.RDGatewayDomain = .Attributes("InheritRDGatewayDomain").Value
End If
End With

13
mRemoteV1/Config/Config.Connections.Save.vb
View File

@@ -639,6 +639,9 @@ Namespace Config
xW.WriteAttributeString("VNCViewOnly", "", curConI.VNCViewOnly)
xW.WriteAttributeString("RDGatewayHostname", "", curConI.RDGatewayHostname)
xW.WriteAttributeString("RDGatewayUsername", "", curConI.RDGatewayUsername)
xW.WriteAttributeString("RDGatewayPassword", "", curConI.RDGatewayPassword)
xW.WriteAttributeString("RDGatewayDomain", "", curConI.RDGatewayDomain)
If Me._SaveSecurity.Inheritance = True Then
xW.WriteAttributeString("InheritCacheBitmaps", "", curConI.Inherit.CacheBitmaps)
@@ -682,6 +685,9 @@ Namespace Config
xW.WriteAttributeString("InheritVNCSmartSizeMode", "", curConI.Inherit.VNCSmartSizeMode)
xW.WriteAttributeString("InheritVNCViewOnly", "", curConI.Inherit.VNCViewOnly)
xW.WriteAttributeString("InheritRDGatewayHostname", "", curConI.Inherit.RDGatewayHostname)
xW.WriteAttributeString("InheritRDGatewayUsername", "", curConI.Inherit.RDGatewayUsername)
xW.WriteAttributeString("InheritRDGatewayPassword", "", curConI.Inherit.RDGatewayPassword)
xW.WriteAttributeString("InheritRDGatewayDomain", "", curConI.Inherit.RDGatewayDomain)
Else
xW.WriteAttributeString("InheritCacheBitmaps", "", False)
xW.WriteAttributeString("InheritColors", "", False)
@@ -724,6 +730,9 @@ Namespace Config
xW.WriteAttributeString("InheritVNCSmartSizeMode", "", False)
xW.WriteAttributeString("InheritVNCViewOnly", "", False)
xW.WriteAttributeString("InheritRDGatewayHostname", "", False)
xW.WriteAttributeString("InheritRDGatewayUsername", "", False)
xW.WriteAttributeString("InheritRDGatewayPassword", "", False)
xW.WriteAttributeString("InheritRDGatewayDomain", "", False)
End If
Catch ex As Exception
mC.AddMessage(Messages.MessageClass.ErrorMsg, "SaveConnectionFields failed" & vbNewLine & ex.Message, True)
@@ -763,10 +772,10 @@ Namespace Config
csvLn += "Domain;"
End If
csvLn += "Hostname;Protocol;PuttySession;Port;ConnectToConsole;RenderingEngine;ICAEncryptionStrength;RDPAuthenticationLevel;Colors;Resolution;DisplayWallpaper;DisplayThemes;CacheBitmaps;RedirectDiskDrives;RedirectPorts;RedirectPrinters;RedirectSmartCards;RedirectSound;RedirectKeys;PreExtApp;PostExtApp;MacAddress;UserField;ExtApp;VNCCompression;VNCEncoding;VNCAuthMode;VNCProxyType;VNCProxyIP;VNCProxyPort;VNCProxyUsername;VNCProxyPassword;VNCColors;VNCSmartSizeMode;VNCViewOnly;RDGatewayHostname;"
csvLn += "Hostname;Protocol;PuttySession;Port;ConnectToConsole;RenderingEngine;ICAEncryptionStrength;RDPAuthenticationLevel;Colors;Resolution;DisplayWallpaper;DisplayThemes;CacheBitmaps;RedirectDiskDrives;RedirectPorts;RedirectPrinters;RedirectSmartCards;RedirectSound;RedirectKeys;PreExtApp;PostExtApp;MacAddress;UserField;ExtApp;VNCCompression;VNCEncoding;VNCAuthMode;VNCProxyType;VNCProxyIP;VNCProxyPort;VNCProxyUsername;VNCProxyPassword;VNCColors;VNCSmartSizeMode;VNCViewOnly;RDGatewayHostname;RDGatewayUsername;RDGatewayPassword;RDGatewayDomain;"
If SaveSecurity.Inheritance Then
csvLn += "InheritCacheBitmaps;InheritColors;InheritDescription;InheritDisplayThemes;InheritDisplayWallpaper;InheritDomain;InheritIcon;InheritPanel;InheritPassword;InheritPort;InheritProtocol;InheritPuttySession;InheritRedirectDiskDrives;InheritRedirectKeys;InheritRedirectPorts;InheritRedirectPrinters;InheritRedirectSmartCards;InheritRedirectSound;InheritResolution;InheritUseConsoleSession;InheritRenderingEngine;InheritUsername;InheritICAEncryptionStrength;InheritRDPAuthenticationLevel;InheritPreExtApp;InheritPostExtApp;InheritMacAddress;InheritUserField;InheritExtApp;InheritVNCCompression;InheritVNCEncoding;InheritVNCAuthMode;InheritVNCProxyType;InheritVNCProxyIP;InheritVNCProxyPort;InheritVNCProxyUsername;InheritVNCProxyPassword;InheritVNCColors;InheritVNCSmartSizeMode;InheritVNCViewOnly;InheritRDGatewayHostname"
csvLn += "InheritCacheBitmaps;InheritColors;InheritDescription;InheritDisplayThemes;InheritDisplayWallpaper;InheritDomain;InheritIcon;InheritPanel;InheritPassword;InheritPort;InheritProtocol;InheritPuttySession;InheritRedirectDiskDrives;InheritRedirectKeys;InheritRedirectPorts;InheritRedirectPrinters;InheritRedirectSmartCards;InheritRedirectSound;InheritResolution;InheritUseConsoleSession;InheritRenderingEngine;InheritUsername;InheritICAEncryptionStrength;InheritRDPAuthenticationLevel;InheritPreExtApp;InheritPostExtApp;InheritMacAddress;InheritUserField;InheritExtApp;InheritVNCCompression;InheritVNCEncoding;InheritVNCAuthMode;InheritVNCProxyType;InheritVNCProxyIP;InheritVNCProxyPort;InheritVNCProxyUsername;InheritVNCProxyPassword;InheritVNCColors;InheritVNCSmartSizeMode;InheritVNCViewOnly;InheritRDGatewayHostname;RDGatewayUsername;RDGatewayPassword;RDGatewayDomain"
End If

135
mRemoteV1/Connection/Connection.Info.vb
View File

@@ -1124,12 +1124,103 @@ Namespace Connection
Description(Language.Base.Descr_RDGatewayHostname)> _
Public Property RDGatewayHostname() As String
Get
Return Me._RDGatewayHostname
If Me._Inherit.RDGatewayHostname And Me._Parent IsNot Nothing Then
Dim parCon As Connection.Info = TryCast(Me._Parent, Container.Info).ConnectionInfo
If Me._IsContainer = True Then
Dim curCont As Container.Info = Me._Parent
Dim parCont As Container.Info = curCont.Parent
parCon = parCont.ConnectionInfo
End If
Return parCon.RDGatewayHostname
Else
Return Me._RDGatewayHostname
End If
End Get
Set(ByVal value As String)
Me._RDGatewayHostname = value
End Set
End Property
Private _RDGatewayUsername As String
<Category(Category3 & Language.Base.Props_Protocol), _
Browsable(True), _
DisplayName(Language.Base.Props_RDGatewayUsername), _
Description(Language.Base.Descr_RDGatewayUsername)> _
Public Property RDGatewayUsername() As String
Get
If Me._Inherit.RDGatewayUsername And Me._Parent IsNot Nothing Then
Dim parCon As Connection.Info = TryCast(Me._Parent, Container.Info).ConnectionInfo
If Me._IsContainer = True Then
Dim curCont As Container.Info = Me._Parent
Dim parCont As Container.Info = curCont.Parent
parCon = parCont.ConnectionInfo
End If
Return parCon.RDGatewayUsername
Else
Return Me._RDGatewayUsername
End If
End Get
Set(ByVal value As String)
Me._RDGatewayUsername = value
End Set
End Property
Private _RDGatewayPassword As String
<Category(Category3 & Language.Base.Props_Protocol), _
Browsable(True), _
DisplayName(Language.Base.Props_RDGatewayPassword), _
Description(Language.Base.Descr_RDGatewayPassword), _
PasswordPropertyText(True)> _
Public Property RDGatewayPassword() As String
Get
If Me._Inherit.RDGatewayPassword And Me._Parent IsNot Nothing Then
Dim parCon As Connection.Info = TryCast(Me._Parent, Container.Info).ConnectionInfo
If Me._IsContainer = True Then
Dim curCont As Container.Info = Me._Parent
Dim parCont As Container.Info = curCont.Parent
parCon = parCont.ConnectionInfo
End If
Return parCon.RDGatewayPassword
Else
Return Me._RDGatewayPassword
End If
End Get
Set(ByVal value As String)
Me._RDGatewayPassword = value
End Set
End Property
Private _RDGatewayDomain As String
<Category(Category3 & Language.Base.Props_Protocol), _
Browsable(True), _
DisplayName(Language.Base.Props_RDGatewayDomain), _
Description(Language.Base.Descr_RDGatewayDomain)> _
Public Property RDGatewayDomain() As String
Get
If Me._Inherit.RDGatewayDomain And Me._Parent IsNot Nothing Then
Dim parCon As Connection.Info = TryCast(Me._Parent, Container.Info).ConnectionInfo
If Me._IsContainer = True Then
Dim curCont As Container.Info = Me._Parent
Dim parCont As Container.Info = curCont.Parent
parCon = parCont.ConnectionInfo
End If
Return parCon.RDGatewayDomain
Else
Return Me._RDGatewayDomain
End If
End Get
Set(ByVal value As String)
Me._RDGatewayDomain = value
End Set
End Property
#End Region
@@ -2009,6 +2100,48 @@ Namespace Connection
Me._RDGatewayHostname = value
End Set
End Property
Private _RDGatewayUsername As Boolean = False
<Category(Category3 & Language.Base.Props_Protocol), _
Browsable(True), _
DisplayName(Language.Base.Inherit & " " & Language.Base.Props_RDGatewayUsername), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _
Public Property RDGatewayUsername() As Boolean
Get
Return Me._RDGatewayUsername
End Get
Set(ByVal value As Boolean)
Me._RDGatewayUsername = value
End Set
End Property
Private _RDGatewayPassword As Boolean = False
<Category(Category3 & Language.Base.Props_Protocol), _
Browsable(True), _
DisplayName(Language.Base.Inherit & " " & Language.Base.Props_RDGatewayPassword), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _
Public Property RDGatewayPassword() As Boolean
Get
Return Me._RDGatewayPassword
End Get
Set(ByVal value As Boolean)
Me._RDGatewayPassword = value
End Set
End Property
Private _RDGatewayDomain As Boolean = False
<Category(Category3 & Language.Base.Props_Protocol), _
Browsable(True), _
DisplayName(Language.Base.Inherit & " " & Language.Base.Props_RDGatewayDomain), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _
Public Property RDGatewayDomain() As Boolean
Get
Return Me._RDGatewayDomain
End Get
Set(ByVal value As Boolean)
Me._RDGatewayDomain = value
End Set
End Property
#End Region
End Class

3
mRemoteV1/Connection/Connection.Protocol.RDP.vb
View File

@@ -160,6 +160,9 @@ Namespace Connection
If RDP.TransportSettings.GatewayIsSupported = 1 Then
mC.AddMessage(Messages.MessageClass.InformationMsg, "RD Gateway is supported", True)
RDP.TransportSettings.GatewayHostname = Me.Info.RDGatewayHostname
RDP.TransportSettings.GatewayUsername = Me.Info.RDGatewayUsername
RDP.TransportSettings.GatewayPassword = Me.Info.RDGatewayPassword
RDP.TransportSettings.GatewayDomain = Me.Info.RDGatewayDomain
Else
mC.AddMessage(Messages.MessageClass.InformationMsg, "RD Gateway is not supported", True)
End If

6
mRemoteV1/Language/Language.EN.vb
View File

@@ -90,6 +90,12 @@
Public Const Descr_UserField As String = "Feel free to enter any information you need here."
Public Const Props_RDGatewayHostname As String = "Gateway Hostname"
Public Const Descr_RDGatewayHostname As String = "Specifies the host name of the Remote Desktop Gateway server."
Public Const Props_RDGatewayUsername As String = "Gateway Username"
Public Const Descr_RDGatewayUsername As String = "Specifies the user name that a user provides to connect to the RD Gateway server."
Public Const Props_RDGatewayPassword As String = "Gateway Password"
Public Const Descr_RDGatewayPassword As String = "Specifies the password that a user provides to connect to the RD Gateway server."
Public Const Props_RDGatewayDomain As String = "Gateway Domain"
Public Const Descr_RDGatewayDomain As String = "Specifies the domain name that a user provides to connect to the RD Gateway server."
Public Const Props_General As String = "General"
Public Const Props_Display As String = "Display"

20
mRemoteV1/UI/UI.Window.Config.vb
View File

@@ -508,7 +508,7 @@ Namespace UI
Case mRemote.Connection.Protocol.Protocols.RDP
strHide &= "ExtApp;RenderingEngine;PuttySession;ICAEncryption;VNCAuthMode;VNCColors;VNCCompression;VNCEncoding;VNCProxyIP;VNCProxyPassword;VNCProxyPort;VNCProxyType;VNCProxyUsername;VNCSmartSizeMode;VNCViewOnly;"
Case mRemote.Connection.Protocol.Protocols.VNC
strHide &= "ExtApp;CacheBitmaps;Colors;DisplayThemes;DisplayWallpaper;PuttySession;ICAEncryption;RDPAuthenticationLevel;RedirectDiskDrives;RedirectKeys;RedirectPorts;RedirectPrinters;RedirectSmartCards;RedirectSound;Resolution;UseConsoleSession;RenderingEngine;RDGatewayHostname;"
strHide &= "ExtApp;CacheBitmaps;Colors;DisplayThemes;DisplayWallpaper;PuttySession;ICAEncryption;RDPAuthenticationLevel;RedirectDiskDrives;RedirectKeys;RedirectPorts;RedirectPrinters;RedirectSmartCards;RedirectSound;Resolution;UseConsoleSession;RenderingEngine;RDGatewayHostname;RDGatewayUsername;RDGatewayPassword;RDGatewayDomain;"
If conI.VNCAuthMode = mRemote.Connection.Protocol.VNC.AuthMode.AuthVNC Then
strHide &= "Username;Domain;"
End If
@@ -516,23 +516,23 @@ Namespace UI
strHide &= "VNCProxyIP;VNCProxyPassword;VNCProxyPort;VNCProxyUsername;"
End If
Case mRemote.Connection.Protocol.Protocols.SSH1
strHide &= "ExtApp;CacheBitmaps;Colors;DisplayThemes;DisplayWallpaper;Domain;ICAEncryption;RDPAuthenticationLevel;RedirectDiskDrives;RedirectKeys;RedirectPorts;RedirectPrinters;RedirectSmartCards;RedirectSound;Resolution;UseConsoleSession;RenderingEngine;VNCAuthMode;VNCColors;VNCCompression;VNCEncoding;VNCProxyIP;VNCProxyPassword;VNCProxyPort;VNCProxyType;VNCProxyUsername;VNCSmartSizeMode;VNCViewOnly;RDGatewayHostname;"
strHide &= "ExtApp;CacheBitmaps;Colors;DisplayThemes;DisplayWallpaper;Domain;ICAEncryption;RDPAuthenticationLevel;RedirectDiskDrives;RedirectKeys;RedirectPorts;RedirectPrinters;RedirectSmartCards;RedirectSound;Resolution;UseConsoleSession;RenderingEngine;VNCAuthMode;VNCColors;VNCCompression;VNCEncoding;VNCProxyIP;VNCProxyPassword;VNCProxyPort;VNCProxyType;VNCProxyUsername;VNCSmartSizeMode;VNCViewOnly;RDGatewayHostname;RDGatewayUsername;RDGatewayPassword;RDGatewayDomain;"
Case mRemote.Connection.Protocol.Protocols.SSH2
strHide &= "ExtApp;CacheBitmaps;Colors;DisplayThemes;DisplayWallpaper;Domain;ICAEncryption;RDPAuthenticationLevel;RedirectDiskDrives;RedirectKeys;RedirectPorts;RedirectPrinters;RedirectSmartCards;RedirectSound;Resolution;UseConsoleSession;RenderingEngine;VNCAuthMode;VNCColors;VNCCompression;VNCEncoding;VNCProxyIP;VNCProxyPassword;VNCProxyPort;VNCProxyType;VNCProxyUsername;VNCSmartSizeMode;VNCViewOnly;RDGatewayHostname;"
strHide &= "ExtApp;CacheBitmaps;Colors;DisplayThemes;DisplayWallpaper;Domain;ICAEncryption;RDPAuthenticationLevel;RedirectDiskDrives;RedirectKeys;RedirectPorts;RedirectPrinters;RedirectSmartCards;RedirectSound;Resolution;UseConsoleSession;RenderingEngine;VNCAuthMode;VNCColors;VNCCompression;VNCEncoding;VNCProxyIP;VNCProxyPassword;VNCProxyPort;VNCProxyType;VNCProxyUsername;VNCSmartSizeMode;VNCViewOnly;RDGatewayHostname;RDGatewayUsername;RDGatewayPassword;RDGatewayDomain;"
Case mRemote.Connection.Protocol.Protocols.Telnet
strHide &= "ExtApp;CacheBitmaps;Colors;DisplayThemes;DisplayWallpaper;Domain;ICAEncryption;RDPAuthenticationLevel;Password;RedirectDiskDrives;RedirectKeys;RedirectPorts;RedirectPrinters;RedirectSmartCards;RedirectSound;Resolution;UseConsoleSession;RenderingEngine;Username;VNCAuthMode;VNCColors;VNCCompression;VNCEncoding;VNCProxyIP;VNCProxyPassword;VNCProxyPort;VNCProxyType;VNCProxyUsername;VNCSmartSizeMode;VNCViewOnly;RDGatewayHostname;"
strHide &= "ExtApp;CacheBitmaps;Colors;DisplayThemes;DisplayWallpaper;Domain;ICAEncryption;RDPAuthenticationLevel;Password;RedirectDiskDrives;RedirectKeys;RedirectPorts;RedirectPrinters;RedirectSmartCards;RedirectSound;Resolution;UseConsoleSession;RenderingEngine;Username;VNCAuthMode;VNCColors;VNCCompression;VNCEncoding;VNCProxyIP;VNCProxyPassword;VNCProxyPort;VNCProxyType;VNCProxyUsername;VNCSmartSizeMode;VNCViewOnly;RDGatewayHostname;RDGatewayUsername;RDGatewayPassword;RDGatewayDomain;"
Case mRemote.Connection.Protocol.Protocols.Rlogin
strHide &= "ExtApp;CacheBitmaps;Colors;DisplayThemes;DisplayWallpaper;Domain;ICAEncryption;RDPAuthenticationLevel;Password;RedirectDiskDrives;RedirectKeys;RedirectPorts;RedirectPrinters;RedirectSmartCards;RedirectSound;Resolution;UseConsoleSession;RenderingEngine;Username;VNCAuthMode;VNCColors;VNCCompression;VNCEncoding;VNCProxyIP;VNCProxyPassword;VNCProxyPort;VNCProxyType;VNCProxyUsername;VNCSmartSizeMode;VNCViewOnly;RDGatewayHostname;"
strHide &= "ExtApp;CacheBitmaps;Colors;DisplayThemes;DisplayWallpaper;Domain;ICAEncryption;RDPAuthenticationLevel;Password;RedirectDiskDrives;RedirectKeys;RedirectPorts;RedirectPrinters;RedirectSmartCards;RedirectSound;Resolution;UseConsoleSession;RenderingEngine;Username;VNCAuthMode;VNCColors;VNCCompression;VNCEncoding;VNCProxyIP;VNCProxyPassword;VNCProxyPort;VNCProxyType;VNCProxyUsername;VNCSmartSizeMode;VNCViewOnly;RDGatewayHostname;RDGatewayUsername;RDGatewayPassword;RDGatewayDomain;"
Case mRemote.Connection.Protocol.Protocols.RAW
strHide &= "ExtApp;CacheBitmaps;Colors;DisplayThemes;DisplayWallpaper;Domain;ICAEncryption;RDPAuthenticationLevel;Password;RedirectDiskDrives;RedirectKeys;RedirectPorts;RedirectPrinters;RedirectSmartCards;RedirectSound;Resolution;UseConsoleSession;RenderingEngine;Username;VNCAuthMode;VNCColors;VNCCompression;VNCEncoding;VNCProxyIP;VNCProxyPassword;VNCProxyPort;VNCProxyType;VNCProxyUsername;VNCSmartSizeMode;VNCViewOnly;RDGatewayHostname;"
strHide &= "ExtApp;CacheBitmaps;Colors;DisplayThemes;DisplayWallpaper;Domain;ICAEncryption;RDPAuthenticationLevel;Password;RedirectDiskDrives;RedirectKeys;RedirectPorts;RedirectPrinters;RedirectSmartCards;RedirectSound;Resolution;UseConsoleSession;RenderingEngine;Username;VNCAuthMode;VNCColors;VNCCompression;VNCEncoding;VNCProxyIP;VNCProxyPassword;VNCProxyPort;VNCProxyType;VNCProxyUsername;VNCSmartSizeMode;VNCViewOnly;RDGatewayHostname;RDGatewayUsername;RDGatewayPassword;RDGatewayDomain;"
Case mRemote.Connection.Protocol.Protocols.HTTP
strHide &= "ExtApp;CacheBitmaps;Colors;DisplayThemes;DisplayWallpaper;Domain;ICAEncryption;RDPAuthenticationLevel;PuttySession;RedirectDiskDrives;RedirectKeys;RedirectPorts;RedirectPrinters;RedirectSmartCards;RedirectSound;Resolution;UseConsoleSession;VNCAuthMode;VNCColors;VNCCompression;VNCEncoding;VNCProxyIP;VNCProxyPassword;VNCProxyPort;VNCProxyType;VNCProxyUsername;VNCSmartSizeMode;VNCViewOnly;RDGatewayHostname;"
strHide &= "ExtApp;CacheBitmaps;Colors;DisplayThemes;DisplayWallpaper;Domain;ICAEncryption;RDPAuthenticationLevel;PuttySession;RedirectDiskDrives;RedirectKeys;RedirectPorts;RedirectPrinters;RedirectSmartCards;RedirectSound;Resolution;UseConsoleSession;VNCAuthMode;VNCColors;VNCCompression;VNCEncoding;VNCProxyIP;VNCProxyPassword;VNCProxyPort;VNCProxyType;VNCProxyUsername;VNCSmartSizeMode;VNCViewOnly;RDGatewayHostname;RDGatewayUsername;RDGatewayPassword;RDGatewayDomain;"
Case mRemote.Connection.Protocol.Protocols.HTTPS
strHide &= "ExtApp;CacheBitmaps;Colors;DisplayThemes;DisplayWallpaper;Domain;ICAEncryption;RDPAuthenticationLevel;PuttySession;RedirectDiskDrives;RedirectKeys;RedirectPorts;RedirectPrinters;RedirectSmartCards;RedirectSound;Resolution;UseConsoleSession;VNCAuthMode;VNCColors;VNCCompression;VNCEncoding;VNCProxyIP;VNCProxyPassword;VNCProxyPort;VNCProxyType;VNCProxyUsername;VNCSmartSizeMode;VNCViewOnly;RDGatewayHostname;"
strHide &= "ExtApp;CacheBitmaps;Colors;DisplayThemes;DisplayWallpaper;Domain;ICAEncryption;RDPAuthenticationLevel;PuttySession;RedirectDiskDrives;RedirectKeys;RedirectPorts;RedirectPrinters;RedirectSmartCards;RedirectSound;Resolution;UseConsoleSession;VNCAuthMode;VNCColors;VNCCompression;VNCEncoding;VNCProxyIP;VNCProxyPassword;VNCProxyPort;VNCProxyType;VNCProxyUsername;VNCSmartSizeMode;VNCViewOnly;RDGatewayHostname;RDGatewayUsername;RDGatewayPassword;RDGatewayDomain;"
Case mRemote.Connection.Protocol.Protocols.ICA
strHide &= "ExtApp;DisplayThemes;DisplayWallpaper;PuttySession;RDPAuthenticationLevel;RedirectDiskDrives;RedirectKeys;RedirectPorts;RedirectPrinters;RedirectSmartCards;RedirectSound;UseConsoleSession;RenderingEngine;Port;VNCAuthMode;VNCColors;VNCCompression;VNCEncoding;VNCProxyIP;VNCProxyPassword;VNCProxyPort;VNCProxyType;VNCProxyUsername;VNCSmartSizeMode;VNCViewOnly;RDGatewayHostname;"
strHide &= "ExtApp;DisplayThemes;DisplayWallpaper;PuttySession;RDPAuthenticationLevel;RedirectDiskDrives;RedirectKeys;RedirectPorts;RedirectPrinters;RedirectSmartCards;RedirectSound;UseConsoleSession;RenderingEngine;Port;VNCAuthMode;VNCColors;VNCCompression;VNCEncoding;VNCProxyIP;VNCProxyPassword;VNCProxyPort;VNCProxyType;VNCProxyUsername;VNCSmartSizeMode;VNCViewOnly;RDGatewayHostname;RDGatewayUsername;RDGatewayPassword;RDGatewayDomain;"
Case mRemote.Connection.Protocol.Protocols.IntApp
strHide &= "CacheBitmaps;Colors;DisplayThemes;DisplayWallpaper;Domain;PuttySession;ICAEncryption;RDPAuthenticationLevel;RedirectDiskDrives;RedirectKeys;RedirectPorts;RedirectPrinters;RedirectSmartCards;RedirectSound;Resolution;UseConsoleSession;RenderingEngine;VNCAuthMode;VNCColors;VNCCompression;VNCEncoding;VNCProxyIP;VNCProxyPassword;VNCProxyPort;VNCProxyType;VNCProxyUsername;VNCSmartSizeMode;VNCViewOnly;RDGatewayHostname;"
strHide &= "CacheBitmaps;Colors;DisplayThemes;DisplayWallpaper;Domain;PuttySession;ICAEncryption;RDPAuthenticationLevel;RedirectDiskDrives;RedirectKeys;RedirectPorts;RedirectPrinters;RedirectSmartCards;RedirectSound;Resolution;UseConsoleSession;RenderingEngine;VNCAuthMode;VNCColors;VNCCompression;VNCEncoding;VNCProxyIP;VNCProxyPassword;VNCProxyPort;VNCProxyType;VNCProxyUsername;VNCSmartSizeMode;VNCViewOnly;RDGatewayHostname;RDGatewayUsername;RDGatewayPassword;RDGatewayDomain;"
End Select
If conI.IsDefault = False Then