diff --git a/mRemoteV1/Config/Config.Connections.Load.vb b/mRemoteV1/Config/Config.Connections.Load.vb index e2475296d..99a153e21 100644 --- a/mRemoteV1/Config/Config.Connections.Load.vb +++ b/mRemoteV1/Config/Config.Connections.Load.vb @@ -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 diff --git a/mRemoteV1/Config/Config.Connections.Save.vb b/mRemoteV1/Config/Config.Connections.Save.vb index 5ef159646..c7bfd7a7a 100644 --- a/mRemoteV1/Config/Config.Connections.Save.vb +++ b/mRemoteV1/Config/Config.Connections.Save.vb @@ -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 diff --git a/mRemoteV1/Connection/Connection.Info.vb b/mRemoteV1/Connection/Connection.Info.vb index ad4517388..71b342c1c 100644 --- a/mRemoteV1/Connection/Connection.Info.vb +++ b/mRemoteV1/Connection/Connection.Info.vb @@ -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 + _ + 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 + _ + 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 + _ + 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 + _ + 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 + _ + 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 + _ + 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 diff --git a/mRemoteV1/Connection/Connection.Protocol.RDP.vb b/mRemoteV1/Connection/Connection.Protocol.RDP.vb index 5138b3008..70977af13 100644 --- a/mRemoteV1/Connection/Connection.Protocol.RDP.vb +++ b/mRemoteV1/Connection/Connection.Protocol.RDP.vb @@ -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 diff --git a/mRemoteV1/Language/Language.EN.vb b/mRemoteV1/Language/Language.EN.vb index b595a3335..0a3db91fa 100644 --- a/mRemoteV1/Language/Language.EN.vb +++ b/mRemoteV1/Language/Language.EN.vb @@ -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" diff --git a/mRemoteV1/UI/UI.Window.Config.vb b/mRemoteV1/UI/UI.Window.Config.vb index 68d7f0790..ec2e172d3 100644 --- a/mRemoteV1/UI/UI.Window.Config.vb +++ b/mRemoteV1/UI/UI.Window.Config.vb @@ -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