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

Refactoring and even more translations

Browse Source 
* removed unneeded Imports
* renamed namespace to mRemoteNG
* changed Logfile path to %USERPROFILE%\AppData\Local\mRemoteNG\mRemoteNG.log
* fixed mRemoteNG.exe.config
* added more ignores to .gitignore
This commit is contained in:
Andreas Rehm
2010-05-16 19:30:27 +02:00
parent 96e6752af3
commit e08c88db5f
73 changed files with 1233 additions and 954 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
.gitignore vendored
View File

@@ -6,5 +6,14 @@ mRemoteV1/publish
*.suo *.suo
*.vbproj.user *.vbproj.user
Thumbs.db Thumbs.db
_ReSharper.* [Dd]ebug/
_Re[Ss]harper.*
*.resharper
*.resharper.user *.resharper.user
*.suo
*.cache
*~
*.swp
*.user*
*.pidb
*.gpState

4
mRemoteV1.sln
View File

@@ -15,8 +15,8 @@ Global
{4934A491-40BC-4E5B-9166-EA1169A220F6}.Debug Portable|Any CPU.Build.0 = Debug Portable|Any CPU {4934A491-40BC-4E5B-9166-EA1169A220F6}.Debug Portable|Any CPU.Build.0 = Debug Portable|Any CPU
{4934A491-40BC-4E5B-9166-EA1169A220F6}.Debug|Any CPU.ActiveCfg = Debug|Any CPU {4934A491-40BC-4E5B-9166-EA1169A220F6}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{4934A491-40BC-4E5B-9166-EA1169A220F6}.Debug|Any CPU.Build.0 = Debug|Any CPU {4934A491-40BC-4E5B-9166-EA1169A220F6}.Debug|Any CPU.Build.0 = Debug|Any CPU
{4934A491-40BC-4E5B-9166-EA1169A220F6}.Release Portable|Any CPU.ActiveCfg = Release Portable|Any CPU {4934A491-40BC-4E5B-9166-EA1169A220F6}.Release Portable|Any CPU.ActiveCfg = Release|Any CPU
{4934A491-40BC-4E5B-9166-EA1169A220F6}.Release Portable|Any CPU.Build.0 = Release Portable|Any CPU {4934A491-40BC-4E5B-9166-EA1169A220F6}.Release Portable|Any CPU.Build.0 = Release|Any CPU
{4934A491-40BC-4E5B-9166-EA1169A220F6}.Release|Any CPU.ActiveCfg = Release|Any CPU {4934A491-40BC-4E5B-9166-EA1169A220F6}.Release|Any CPU.ActiveCfg = Release|Any CPU
{4934A491-40BC-4E5B-9166-EA1169A220F6}.Release|Any CPU.Build.0 = Release|Any CPU {4934A491-40BC-4E5B-9166-EA1169A220F6}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection EndGlobalSection

5
mRemoteV1/App/App.Announcement.vb
View File

@@ -1,6 +1,5 @@
Imports System.IO Imports System.Net
Imports System.Net Imports mRemoteNG.App.Runtime
Imports mRemote.App.Runtime
Namespace App Namespace App
Public Class Announcement Public Class Announcement

4
mRemoteV1/App/App.Editions.vb
View File

@@ -1,6 +1,4 @@
Imports System.IO Namespace App
Namespace App
Namespace Editions Namespace Editions
Public Class Spanlink Public Class Spanlink
Public Shared Enabled As Boolean = True Public Shared Enabled As Boolean = True

55
mRemoteV1/App/App.Runtime.vb
View File

@@ -33,13 +33,12 @@ Namespace App
Public Shared LastSelected As String Public Shared LastSelected As String
Public Shared DefaultConnection As mRemote.Connection.Info Public Shared DefaultConnection As mRemoteNG.Connection.Info
Public Shared DefaultInheritance As mRemote.Connection.Info.Inheritance Public Shared DefaultInheritance As mRemoteNG.Connection.Info.Inheritance
Public Shared ExtApps As New ArrayList() Public Shared ExtApps As New ArrayList()
#End Region #End Region
Public Class Windows Public Class Windows
Public Shared treeForm As UI.Window.Tree Public Shared treeForm As UI.Window.Tree
Public Shared treePanel As New DockContent Public Shared treePanel As New DockContent
@@ -245,7 +244,7 @@ Namespace App
End Sub End Sub
Public Shared Sub CreateLogger() Public Shared Sub CreateLogger()
log4net.Config.XmlConfigurator.Configure(New FileInfo("mRemote.exe.config")) log4net.Config.XmlConfigurator.Configure(New FileInfo("mRemoteNG.exe.config"))
log = log4net.LogManager.GetLogger("mRemoteNG.Log") log = log4net.LogManager.GetLogger("mRemoteNG.Log")
End Sub End Sub
@@ -331,7 +330,6 @@ Namespace App
NoReconnectParam = "norc" NoReconnectParam = "norc"
End If End If
If ConsParam <> "" Then If ConsParam <> "" Then
If File.Exists(cmd(ConsParam)) = False Then If File.Exists(cmd(ConsParam)) = False Then
If File.Exists(My.Application.Info.DirectoryPath & "\" & cmd(ConsParam)) Then If File.Exists(My.Application.Info.DirectoryPath & "\" & cmd(ConsParam)) Then
@@ -369,7 +367,7 @@ Namespace App
My.Settings.ResetToolbars = True My.Settings.ResetToolbars = True
End If End If
Catch ex As Exception Catch ex As Exception
mC.AddMessage(Messages.MessageClass.ErrorMsg, "Couldn't parse command line args" & vbNewLine & ex.Message) mC.AddMessage(Messages.MessageClass.ErrorMsg, My.Resources.strCommandLineArgsCouldNotBeParsed & vbNewLine & ex.Message)
End Try End Try
End Sub End Sub
@@ -411,20 +409,21 @@ Namespace App
If Editions.Spanlink.Enabled Then If Editions.Spanlink.Enabled Then
If SaveReport() Then If SaveReport() Then
' ToDo: Change Report.log location
File.Delete(My.Application.Info.DirectoryPath & "\Report.log") File.Delete(My.Application.Info.DirectoryPath & "\Report.log")
End If End If
End If End If
sS.Save() sS.Save()
Catch ex As Exception Catch ex As Exception
mC.AddMessage(Messages.MessageClass.ErrorMsg, "Couldn't save settings or dispose SysTray Icon" & vbNewLine & ex.Message, True) mC.AddMessage(Messages.MessageClass.ErrorMsg, My.Resources.strSettingsCouldNotBeSavedOrTrayDispose & vbNewLine & ex.Message, True)
End Try End Try
End Sub End Sub
End Class End Class
#Region "Default Connection" #Region "Default Connection"
Public Shared Function DefaultConnectionFromSettings() As mRemote.Connection.Info Public Shared Function DefaultConnectionFromSettings() As mRemoteNG.Connection.Info
DefaultConnection = New mRemote.Connection.Info DefaultConnection = New mRemoteNG.Connection.Info
DefaultConnection.IsDefault = True DefaultConnection.IsDefault = True
Return DefaultConnection Return DefaultConnection
@@ -476,8 +475,8 @@ Namespace App
#End Region #End Region
#Region "Default Inheritance" #Region "Default Inheritance"
Public Shared Function DefaultInheritanceFromSettings() As mRemote.Connection.Info.Inheritance Public Shared Function DefaultInheritanceFromSettings() As mRemoteNG.Connection.Info.Inheritance
DefaultInheritance = New mRemote.Connection.Info.Inheritance(Nothing) DefaultInheritance = New mRemoteNG.Connection.Info.Inheritance(Nothing)
DefaultInheritance.IsDefault = True DefaultInheritance.IsDefault = True
Return DefaultInheritance Return DefaultInheritance
@@ -807,9 +806,9 @@ Namespace App
For i As Integer = 0 To lD.FileNames.Length - 1 For i As Integer = 0 To lD.FileNames.Length - 1
nNode = Tree.Node.AddNode(Tree.Node.Type.Container, "Import #" & i) nNode = Tree.Node.AddNode(Tree.Node.Type.Container, "Import #" & i)
Dim nContI As New mRemote.Container.Info() Dim nContI As New mRemoteNG.Container.Info()
nContI.TreeNode = nNode nContI.TreeNode = nNode
nContI.ConnectionInfo = New mRemote.Connection.Info(nContI) nContI.ConnectionInfo = New mRemoteNG.Connection.Info(nContI)
If Tree.Node.SelectedNode IsNot Nothing Then If Tree.Node.SelectedNode IsNot Nothing Then
If Tree.Node.GetNodeType(Tree.Node.SelectedNode) = Tree.Node.Type.Container Then If Tree.Node.GetNodeType(Tree.Node.SelectedNode) = Tree.Node.Type.Container Then
@@ -848,7 +847,7 @@ Namespace App
Dim nNode As TreeNode = Tree.Node.AddNode(Tree.Node.Type.Connection, Path.GetFileNameWithoutExtension(lD.FileNames(i))) Dim nNode As TreeNode = Tree.Node.AddNode(Tree.Node.Type.Connection, Path.GetFileNameWithoutExtension(lD.FileNames(i)))
Dim nConI As New mRemote.Connection.Info() Dim nConI As New mRemoteNG.Connection.Info()
nConI.Inherit = New Connection.Info.Inheritance(nConI) nConI.Inherit = New Connection.Info.Inheritance(nConI)
nConI.Name = nNode.Text nConI.Name = nNode.Text
@@ -956,14 +955,14 @@ Namespace App
End Try End Try
End Sub End Sub
Public Shared Sub ImportConnectionsFromPortScan(ByVal Hosts As ArrayList, ByVal Protocol As mRemote.Connection.Protocol.Protocols) Public Shared Sub ImportConnectionsFromPortScan(ByVal Hosts As ArrayList, ByVal Protocol As mRemoteNG.Connection.Protocol.Protocols)
For Each Host As Tools.PortScan.ScanHost In Hosts For Each Host As Tools.PortScan.ScanHost In Hosts
Dim finalProt As mRemote.Connection.Protocol.Protocols Dim finalProt As mRemoteNG.Connection.Protocol.Protocols
Dim protOK As Boolean = False Dim protOK As Boolean = False
Dim nNode As TreeNode = Tree.Node.AddNode(Tree.Node.Type.Connection, Host.HostNameWithoutDomain) Dim nNode As TreeNode = Tree.Node.AddNode(Tree.Node.Type.Connection, Host.HostNameWithoutDomain)
Dim nConI As New mRemote.Connection.Info() Dim nConI As New mRemoteNG.Connection.Info()
nConI.Inherit = New Connection.Info.Inheritance(nConI) nConI.Inherit = New Connection.Info.Inheritance(nConI)
nConI.Name = Host.HostNameWithoutDomain nConI.Name = Host.HostNameWithoutDomain
@@ -1148,7 +1147,7 @@ Namespace App
conS.Save() conS.Save()
Catch ex As Exception Catch ex As Exception
mC.AddMessage(Messages.MessageClass.ErrorMsg, string.Format(My.Resources.strConnectionsFileCouldNotSaveAs,conS.ConnectionFileName) & vbNewLine & ex.Message) mC.AddMessage(Messages.MessageClass.ErrorMsg, String.Format(My.Resources.strConnectionsFileCouldNotSaveAs, conS.ConnectionFileName) & vbNewLine & ex.Message)
End Try End Try
End Sub End Sub
@@ -1224,7 +1223,7 @@ Namespace App
End Try End Try
End Sub End Sub
Public Shared Sub OpenConnection(ByVal Force As mRemote.Connection.Info.Force) Public Shared Sub OpenConnection(ByVal Force As mRemoteNG.Connection.Info.Force)
Try Try
If Windows.treeForm.tvConnections.SelectedNode.Tag Is Nothing Then If Windows.treeForm.tvConnections.SelectedNode.Tag Is Nothing Then
Exit Sub Exit Sub
@@ -1246,7 +1245,7 @@ Namespace App
End Try End Try
End Sub End Sub
Public Shared Sub OpenConnection(ByVal ConnectionInfo As mRemote.Connection.Info) Public Shared Sub OpenConnection(ByVal ConnectionInfo As mRemoteNG.Connection.Info)
Try Try
OpenConnection(ConnectionInfo, Connection.Info.Force.None) OpenConnection(ConnectionInfo, Connection.Info.Force.None)
Catch ex As Exception Catch ex As Exception
@@ -1254,7 +1253,7 @@ Namespace App
End Try End Try
End Sub End Sub
Public Shared Sub OpenConnection(ByVal ConnectionInfo As mRemote.Connection.Info, ByVal ConnectionForm As Form) Public Shared Sub OpenConnection(ByVal ConnectionInfo As mRemoteNG.Connection.Info, ByVal ConnectionForm As Form)
Try Try
OpenConnectionFinal(ConnectionInfo, Connection.Info.Force.None, ConnectionForm) OpenConnectionFinal(ConnectionInfo, Connection.Info.Force.None, ConnectionForm)
Catch ex As Exception Catch ex As Exception
@@ -1262,7 +1261,7 @@ Namespace App
End Try End Try
End Sub End Sub
Public Shared Sub OpenConnection(ByVal ConnectionInfo As mRemote.Connection.Info, ByVal ConnectionForm As Form, ByVal Force As Connection.Info.Force) Public Shared Sub OpenConnection(ByVal ConnectionInfo As mRemoteNG.Connection.Info, ByVal ConnectionForm As Form, ByVal Force As Connection.Info.Force)
Try Try
OpenConnectionFinal(ConnectionInfo, Force, ConnectionForm) OpenConnectionFinal(ConnectionInfo, Force, ConnectionForm)
Catch ex As Exception Catch ex As Exception
@@ -1270,7 +1269,7 @@ Namespace App
End Try End Try
End Sub End Sub
Public Shared Sub OpenConnection(ByVal ConnectionInfo As mRemote.Connection.Info, ByVal Force As mRemote.Connection.Info.Force) Public Shared Sub OpenConnection(ByVal ConnectionInfo As mRemoteNG.Connection.Info, ByVal Force As mRemoteNG.Connection.Info.Force)
Try Try
OpenConnectionFinal(ConnectionInfo, Force, Nothing) OpenConnectionFinal(ConnectionInfo, Force, Nothing)
Catch ex As Exception Catch ex As Exception
@@ -1279,7 +1278,7 @@ Namespace App
End Sub End Sub
Private Shared Sub OpenConnectionFinal(ByVal nCi As mRemote.Connection.Info, ByVal Force As mRemote.Connection.Info.Force, ByVal ConForm As Form) Private Shared Sub OpenConnectionFinal(ByVal nCi As mRemoteNG.Connection.Info, ByVal Force As mRemoteNG.Connection.Info.Force, ByVal ConForm As Form)
Try Try
If nCi.Hostname = "" And nCi.Protocol <> Connection.Protocol.Protocols.IntApp Then If nCi.Hostname = "" And nCi.Protocol <> Connection.Protocol.Protocols.IntApp Then
mC.AddMessage(Messages.MessageClass.WarningMsg, My.Resources.strConnectionOpenFailedNoHostname) mC.AddMessage(Messages.MessageClass.WarningMsg, My.Resources.strConnectionOpenFailedNoHostname)
@@ -1412,7 +1411,7 @@ Namespace App
End Sub End Sub
Public Shared Function SwitchToOpenConnection(ByVal nCi As Connection.Info) As Boolean Public Shared Function SwitchToOpenConnection(ByVal nCi As Connection.Info) As Boolean
Dim IC As mRemote.Connection.InterfaceControl = FindConnectionContainer(nCi) Dim IC As mRemoteNG.Connection.InterfaceControl = FindConnectionContainer(nCi)
If IC IsNot Nothing Then If IC IsNot Nothing Then
TryCast(IC.FindForm, UI.Window.Connection).Focus() TryCast(IC.FindForm, UI.Window.Connection).Focus()
@@ -1480,7 +1479,7 @@ Namespace App
End Sub End Sub
Public Shared Sub Prot_Event_Connected(ByVal sender As Object) Public Shared Sub Prot_Event_Connected(ByVal sender As Object)
Dim prot As mRemote.Connection.Protocol.Base = sender Dim prot As mRemoteNG.Connection.Protocol.Base = sender
mC.AddMessage(Messages.MessageClass.InformationMsg, "Protocol Event Connected", True) mC.AddMessage(Messages.MessageClass.InformationMsg, "Protocol Event Connected", True)
mC.AddMessage(Messages.MessageClass.ReportMsg, "Connection to " & prot.InterfaceControl.Info.Hostname & " via " & prot.InterfaceControl.Info.Protocol.ToString & " established by user " & My.User.Name & " (Description: " & prot.InterfaceControl.Info.Description & "; User Field: " & prot.InterfaceControl.Info.UserField & ")") mC.AddMessage(Messages.MessageClass.ReportMsg, "Connection to " & prot.InterfaceControl.Info.Hostname & " via " & prot.InterfaceControl.Info.Protocol.ToString & " established by user " & My.User.Name & " (Description: " & prot.InterfaceControl.Info.Description & "; User Field: " & prot.InterfaceControl.Info.UserField & ")")
@@ -1532,7 +1531,7 @@ Namespace App
#Region "Misc" #Region "Misc"
Public Shared Sub GoToURL(ByVal URL As String) Public Shared Sub GoToURL(ByVal URL As String)
Dim cI As New mRemote.Connection.Info Dim cI As New mRemoteNG.Connection.Info
cI.Name = "" cI.Name = ""
cI.Hostname = URL cI.Hostname = URL
@@ -1544,7 +1543,7 @@ Namespace App
cI.SetDefaultPort() cI.SetDefaultPort()
cI.IsQuicky = True cI.IsQuicky = True
App.Runtime.OpenConnection(cI, mRemote.Connection.Info.Force.DoNotJump) App.Runtime.OpenConnection(cI, mRemoteNG.Connection.Info.Force.DoNotJump)
End Sub End Sub
Public Shared Sub GoToWebsite() Public Shared Sub GoToWebsite()

5
mRemoteV1/App/App.Update.vb
View File

@@ -1,6 +1,6 @@
Imports System.IO Imports System.IO
Imports System.Net Imports System.Net
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Namespace App Namespace App
Public Class Update Public Class Update
@@ -191,9 +191,6 @@ Namespace App
End Sub End Sub
#End Region #End Region
Public Class Info Public Class Info
Private _Version As Version Private _Version As Version
Public Property Version() As Version Public Property Version() As Version

2
mRemoteV1/ApplicationEvents.vb
View File

@@ -11,7 +11,7 @@
Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
If My.Settings.SingleInstance Then If My.Settings.SingleInstance Then
Dim mutexID As String = "mRemote_SingleInstanceMutex" Dim mutexID As String = "mRemoteNG_SingleInstanceMutex"
mutex = New System.Threading.Mutex(False, mutexID) mutex = New System.Threading.Mutex(False, mutexID)

2
mRemoteV1/CHANGELOG.TXT
View File

@@ -1,5 +1,5 @@
1.64: 1.64:
AR: Fixed translations, moved everything into resx AR: Fixed translations, moved everything into resx, refactoring, namespace renamed to mRemoteNG
1.63: 1.63:
New icon and logo New icon and logo

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

@@ -1,6 +1,6 @@
Imports System.Windows.Forms Imports System.Windows.Forms
Imports System.Xml Imports System.Xml
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Imports System.Data Imports System.Data
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports System.IO Imports System.IO
@@ -537,9 +537,9 @@ Namespace Config
End If End If
If Me.confVersion >= 2.2 Then If Me.confVersion >= 2.2 Then
conI.RDGatewayUsageMethod = Tools.Misc.StringToEnum(GetType(mRemote.Connection.Protocol.RDP.RDGatewayUsageMethod), .Item("RDGatewayUsageMethod")) conI.RDGatewayUsageMethod = Tools.Misc.StringToEnum(GetType(mRemoteNG.Connection.Protocol.RDP.RDGatewayUsageMethod), .Item("RDGatewayUsageMethod"))
conI.RDGatewayHostname = .Item("RDGatewayHostname") conI.RDGatewayHostname = .Item("RDGatewayHostname")
conI.RDGatewayUseConnectionCredentials = Tools.Misc.StringToEnum(GetType(mRemote.Connection.Protocol.RDP.RDGatewayUseConnectionCredentials), .Item("RDGatewayUseConnectionCredentials")) conI.RDGatewayUseConnectionCredentials = Tools.Misc.StringToEnum(GetType(mRemoteNG.Connection.Protocol.RDP.RDGatewayUseConnectionCredentials), .Item("RDGatewayUseConnectionCredentials"))
conI.RDGatewayUsername = .Item("RDGatewayUsername") conI.RDGatewayUsername = .Item("RDGatewayUsername")
conI.RDGatewayPassword = Security.Crypt.Decrypt(.Item("RDGatewayPassword"), pW) conI.RDGatewayPassword = Security.Crypt.Decrypt(.Item("RDGatewayPassword"), pW)
conI.RDGatewayDomain = .Item("RDGatewayDomain") conI.RDGatewayDomain = .Item("RDGatewayDomain")
@@ -929,7 +929,7 @@ Namespace Config
End If End If
If Me.confVersion > 1.5 Then '1.6 If Me.confVersion > 1.5 Then '1.6
conI.ICAEncryption = Tools.Misc.StringToEnum(GetType(mRemote.Connection.Protocol.ICA.EncryptionStrength), .Attributes("ICAEncryptionStrength").Value) conI.ICAEncryption = Tools.Misc.StringToEnum(GetType(mRemoteNG.Connection.Protocol.ICA.EncryptionStrength), .Attributes("ICAEncryptionStrength").Value)
conI.Inherit.ICAEncryption = .Attributes("InheritICAEncryptionStrength").Value conI.Inherit.ICAEncryption = .Attributes("InheritICAEncryptionStrength").Value
conI.PreExtApp = .Attributes("PreExtApp").Value conI.PreExtApp = .Attributes("PreExtApp").Value
@@ -939,16 +939,16 @@ Namespace Config
End If End If
If Me.confVersion > 1.6 Then '1.7 If Me.confVersion > 1.6 Then '1.7
conI.VNCCompression = Tools.Misc.StringToEnum(GetType(mRemote.Connection.Protocol.VNC.Compression), .Attributes("VNCCompression").Value) conI.VNCCompression = Tools.Misc.StringToEnum(GetType(mRemoteNG.Connection.Protocol.VNC.Compression), .Attributes("VNCCompression").Value)
conI.VNCEncoding = Tools.Misc.StringToEnum(GetType(mRemote.Connection.Protocol.VNC.Encoding), .Attributes("VNCEncoding").Value) conI.VNCEncoding = Tools.Misc.StringToEnum(GetType(mRemoteNG.Connection.Protocol.VNC.Encoding), .Attributes("VNCEncoding").Value)
conI.VNCAuthMode = Tools.Misc.StringToEnum(GetType(mRemote.Connection.Protocol.VNC.AuthMode), .Attributes("VNCAuthMode").Value) conI.VNCAuthMode = Tools.Misc.StringToEnum(GetType(mRemoteNG.Connection.Protocol.VNC.AuthMode), .Attributes("VNCAuthMode").Value)
conI.VNCProxyType = Tools.Misc.StringToEnum(GetType(mRemote.Connection.Protocol.VNC.ProxyType), .Attributes("VNCProxyType").Value) conI.VNCProxyType = Tools.Misc.StringToEnum(GetType(mRemoteNG.Connection.Protocol.VNC.ProxyType), .Attributes("VNCProxyType").Value)
conI.VNCProxyIP = .Attributes("VNCProxyIP").Value conI.VNCProxyIP = .Attributes("VNCProxyIP").Value
conI.VNCProxyPort = .Attributes("VNCProxyPort").Value conI.VNCProxyPort = .Attributes("VNCProxyPort").Value
conI.VNCProxyUsername = .Attributes("VNCProxyUsername").Value conI.VNCProxyUsername = .Attributes("VNCProxyUsername").Value
conI.VNCProxyPassword = Security.Crypt.Decrypt(.Attributes("VNCProxyPassword").Value, pW) conI.VNCProxyPassword = Security.Crypt.Decrypt(.Attributes("VNCProxyPassword").Value, pW)
conI.VNCColors = Tools.Misc.StringToEnum(GetType(mRemote.Connection.Protocol.VNC.Colors), .Attributes("VNCColors").Value) conI.VNCColors = Tools.Misc.StringToEnum(GetType(mRemoteNG.Connection.Protocol.VNC.Colors), .Attributes("VNCColors").Value)
conI.VNCSmartSizeMode = Tools.Misc.StringToEnum(GetType(mRemote.Connection.Protocol.VNC.SmartSizeMode), .Attributes("VNCSmartSizeMode").Value) conI.VNCSmartSizeMode = Tools.Misc.StringToEnum(GetType(mRemoteNG.Connection.Protocol.VNC.SmartSizeMode), .Attributes("VNCSmartSizeMode").Value)
conI.VNCViewOnly = .Attributes("VNCViewOnly").Value conI.VNCViewOnly = .Attributes("VNCViewOnly").Value
conI.Inherit.VNCCompression = .Attributes("InheritVNCCompression").Value conI.Inherit.VNCCompression = .Attributes("InheritVNCCompression").Value
@@ -965,13 +965,13 @@ Namespace Config
End If End If
If Me.confVersion > 1.7 Then '1.8 If Me.confVersion > 1.7 Then '1.8
conI.RDPAuthenticationLevel = Tools.Misc.StringToEnum(GetType(mRemote.Connection.Protocol.RDP.AuthenticationLevel), .Attributes("RDPAuthenticationLevel").Value) conI.RDPAuthenticationLevel = Tools.Misc.StringToEnum(GetType(mRemoteNG.Connection.Protocol.RDP.AuthenticationLevel), .Attributes("RDPAuthenticationLevel").Value)
conI.Inherit.RDPAuthenticationLevel = .Attributes("InheritRDPAuthenticationLevel").Value conI.Inherit.RDPAuthenticationLevel = .Attributes("InheritRDPAuthenticationLevel").Value
End If End If
If Me.confVersion > 1.8 Then '1.9 If Me.confVersion > 1.8 Then '1.9
conI.RenderingEngine = Tools.Misc.StringToEnum(GetType(mRemote.Connection.Protocol.HTTPBase.RenderingEngine), .Attributes("RenderingEngine").Value) conI.RenderingEngine = Tools.Misc.StringToEnum(GetType(mRemoteNG.Connection.Protocol.HTTPBase.RenderingEngine), .Attributes("RenderingEngine").Value)
conI.MacAddress = .Attributes("MacAddress").Value conI.MacAddress = .Attributes("MacAddress").Value
conI.Inherit.RenderingEngine = .Attributes("InheritRenderingEngine").Value conI.Inherit.RenderingEngine = .Attributes("InheritRenderingEngine").Value
@@ -989,9 +989,9 @@ Namespace Config
End If End If
If Me.confVersion > 2.1 Then '2.2 If Me.confVersion > 2.1 Then '2.2
conI.RDGatewayUsageMethod = Tools.Misc.StringToEnum(GetType(mRemote.Connection.Protocol.RDP.RDGatewayUsageMethod), .Attributes("RDGatewayUsageMethod").Value) conI.RDGatewayUsageMethod = Tools.Misc.StringToEnum(GetType(mRemoteNG.Connection.Protocol.RDP.RDGatewayUsageMethod), .Attributes("RDGatewayUsageMethod").Value)
conI.RDGatewayHostname = .Attributes("RDGatewayHostname").Value conI.RDGatewayHostname = .Attributes("RDGatewayHostname").Value
conI.RDGatewayUseConnectionCredentials = Tools.Misc.StringToEnum(GetType(mRemote.Connection.Protocol.RDP.RDGatewayUseConnectionCredentials), .Attributes("RDGatewayUseConnectionCredentials").Value) conI.RDGatewayUseConnectionCredentials = Tools.Misc.StringToEnum(GetType(mRemoteNG.Connection.Protocol.RDP.RDGatewayUseConnectionCredentials), .Attributes("RDGatewayUseConnectionCredentials").Value)
conI.RDGatewayUsername = .Attributes("RDGatewayUsername").Value conI.RDGatewayUsername = .Attributes("RDGatewayUsername").Value
conI.RDGatewayPassword = Security.Crypt.Decrypt(.Attributes("RDGatewayPassword").Value, pW) conI.RDGatewayPassword = Security.Crypt.Decrypt(.Attributes("RDGatewayPassword").Value, pW)
conI.RDGatewayDomain = .Attributes("RDGatewayDomain").Value conI.RDGatewayDomain = .Attributes("RDGatewayDomain").Value
@@ -1010,7 +1010,7 @@ Namespace Config
End Try End Try
End Function End Function
Private Function Authenticate(ByVal Value As String, ByVal CompareToOriginalValue As Boolean, Optional ByVal RootInfo As mRemote.Root.Info = Nothing) As Boolean Private Function Authenticate(ByVal Value As String, ByVal CompareToOriginalValue As Boolean, Optional ByVal RootInfo As mRemoteNG.Root.Info = Nothing) As Boolean
If CompareToOriginalValue Then If CompareToOriginalValue Then
Do Until Security.Crypt.Decrypt(Value, pW) <> Value Do Until Security.Crypt.Decrypt(Value, pW) <> Value
pW = Tools.Misc.PasswordDialog(False) pW = Tools.Misc.PasswordDialog(False)

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

@@ -1,9 +1,9 @@
Imports System.Windows.Forms Imports System.Windows.Forms
Imports System.Xml Imports System.Xml
Imports System.IO Imports System.IO
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports mRemote.Tools.Misc Imports mRemoteNG.Tools.Misc
Namespace Config Namespace Config
Namespace Connections Namespace Connections
@@ -178,8 +178,8 @@ Namespace Config
Dim strProtected As String Dim strProtected As String
If tN.Tag IsNot Nothing Then If tN.Tag IsNot Nothing Then
If TryCast(tN.Tag, mRemote.Root.Info).Password = True Then If TryCast(tN.Tag, mRemoteNG.Root.Info).Password = True Then
pW = TryCast(tN.Tag, mRemote.Root.Info).PasswordString pW = TryCast(tN.Tag, mRemoteNG.Root.Info).PasswordString
strProtected = Security.Crypt.Encrypt("ThisIsProtected", pW) strProtected = Security.Crypt.Encrypt("ThisIsProtected", pW)
Else Else
strProtected = Security.Crypt.Encrypt("ThisIsNotProtected", pW) strProtected = Security.Crypt.Encrypt("ThisIsNotProtected", pW)
@@ -534,8 +534,8 @@ Namespace Config
If exp Then If exp Then
xW.WriteAttributeString("Protected", "", Security.Crypt.Encrypt("ThisIsNotProtected", pW)) xW.WriteAttributeString("Protected", "", Security.Crypt.Encrypt("ThisIsNotProtected", pW))
Else Else
If TryCast(tN.Tag, mRemote.Root.Info).Password = True Then If TryCast(tN.Tag, mRemoteNG.Root.Info).Password = True Then
pW = TryCast(tN.Tag, mRemote.Root.Info).PasswordString pW = TryCast(tN.Tag, mRemoteNG.Root.Info).PasswordString
xW.WriteAttributeString("Protected", "", Security.Crypt.Encrypt("ThisIsProtected", pW)) xW.WriteAttributeString("Protected", "", Security.Crypt.Encrypt("ThisIsProtected", pW))
Else Else
xW.WriteAttributeString("Protected", "", Security.Crypt.Encrypt("ThisIsNotProtected", pW)) xW.WriteAttributeString("Protected", "", Security.Crypt.Encrypt("ThisIsNotProtected", pW))

2
mRemoteV1/Config/Config.Settings.Load.vb
View File

@@ -1,6 +1,6 @@
Imports System.IO Imports System.IO
Imports WeifenLuo.WinFormsUI.Docking Imports WeifenLuo.WinFormsUI.Docking
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Imports System.Xml Imports System.Xml
Namespace Config Namespace Config

2
mRemoteV1/Config/Config.Settings.Save.vb
View File

@@ -1,4 +1,4 @@
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Imports System.Xml Imports System.Xml
Imports System.IO Imports System.IO

2
mRemoteV1/Connection/Connection.Icon.vb
View File

@@ -1,5 +1,5 @@
Imports System.ComponentModel Imports System.ComponentModel
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Namespace Connection Namespace Connection
Public Class Icon Public Class Icon

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

@@ -1,7 +1,7 @@
Imports System.Windows.Forms Imports System.Windows.Forms
Imports System.ComponentModel Imports System.ComponentModel
Imports mRemote.Tools.LocalizedAttributes Imports mRemoteNG.Tools.LocalizedAttributes
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Namespace Connection Namespace Connection
<DefaultProperty("Name")> _ <DefaultProperty("Name")> _
@@ -50,7 +50,7 @@ Namespace Connection
Private _Icon As String = My.Settings.ConDefaultIcon Private _Icon As String = My.Settings.ConDefaultIcon
<LocalizedCategory("strCategoryDisplay", 1), _ <LocalizedCategory("strCategoryDisplay", 1), _
TypeConverter(GetType(mRemote.Connection.Icon)), _ TypeConverter(GetType(mRemoteNG.Connection.Icon)), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameIcon"), _ LocalizedDisplayName("strPropertyNameIcon"), _
LocalizedDescription("strPropertyDescriptionIcon")> _ LocalizedDescription("strPropertyDescriptionIcon")> _
@@ -281,7 +281,7 @@ Namespace Connection
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNamePuttySession"), _ LocalizedDisplayName("strPropertyNamePuttySession"), _
LocalizedDescription("strPropertyDescriptionPuttySession"), _ LocalizedDescription("strPropertyDescriptionPuttySession"), _
TypeConverter(GetType(mRemote.Connection.PuttySession))> _ TypeConverter(GetType(mRemoteNG.Connection.PuttySession))> _
Public Property PuttySession() As String Public Property PuttySession() As String
Get Get
If Me._Inherit.PuttySession And Me._Parent IsNot Nothing Then If Me._Inherit.PuttySession And Me._Parent IsNot Nothing Then
@@ -303,7 +303,7 @@ Namespace Connection
End Set End Set
End Property End Property
Private _ICAEncryption As Connection.Protocol.ICA.EncryptionStrength = Tools.Misc.StringToEnum(GetType(mRemote.Connection.Protocol.ICA.EncryptionStrength), My.Settings.ConDefaultICAEncryptionStrength) Private _ICAEncryption As Connection.Protocol.ICA.EncryptionStrength = Tools.Misc.StringToEnum(GetType(mRemoteNG.Connection.Protocol.ICA.EncryptionStrength), My.Settings.ConDefaultICAEncryptionStrength)
<LocalizedCategory("strCategoryProtocol", 3), _ <LocalizedCategory("strCategoryProtocol", 3), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameEncryptionStrength"), _ LocalizedDisplayName("strPropertyNameEncryptionStrength"), _
@@ -335,7 +335,7 @@ Namespace Connection
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameUseConsoleSession"), _ LocalizedDisplayName("strPropertyNameUseConsoleSession"), _
LocalizedDescription("strPropertyDescriptionUseConsoleSession"), _ LocalizedDescription("strPropertyDescriptionUseConsoleSession"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property UseConsoleSession() As Boolean Public Property UseConsoleSession() As Boolean
Get Get
If Me._Inherit.UseConsoleSession And Me._Parent IsNot Nothing Then If Me._Inherit.UseConsoleSession And Me._Parent IsNot Nothing Then
@@ -357,7 +357,7 @@ Namespace Connection
End Set End Set
End Property End Property
Private _RDPAuthenticationLevel As Connection.Protocol.RDP.AuthenticationLevel = Tools.Misc.StringToEnum(GetType(mRemote.Connection.Protocol.RDP.AuthenticationLevel), My.Settings.ConDefaultRDPAuthenticationLevel) Private _RDPAuthenticationLevel As Connection.Protocol.RDP.AuthenticationLevel = Tools.Misc.StringToEnum(GetType(mRemoteNG.Connection.Protocol.RDP.AuthenticationLevel), My.Settings.ConDefaultRDPAuthenticationLevel)
<LocalizedCategory("strCategoryProtocol", 3), _ <LocalizedCategory("strCategoryProtocol", 3), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameAuthenticationLevel"), _ LocalizedDisplayName("strPropertyNameAuthenticationLevel"), _
@@ -384,7 +384,7 @@ Namespace Connection
End Set End Set
End Property End Property
Private _RenderingEngine As Connection.Protocol.HTTPBase.RenderingEngine = Tools.Misc.StringToEnum(GetType(mRemote.Connection.Protocol.HTTPBase.RenderingEngine), My.Settings.ConDefaultRenderingEngine) Private _RenderingEngine As Connection.Protocol.HTTPBase.RenderingEngine = Tools.Misc.StringToEnum(GetType(mRemoteNG.Connection.Protocol.HTTPBase.RenderingEngine), My.Settings.ConDefaultRenderingEngine)
<LocalizedCategory("strCategoryProtocol", 3), _ <LocalizedCategory("strCategoryProtocol", 3), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameRenderingEngine"), _ LocalizedDisplayName("strPropertyNameRenderingEngine"), _
@@ -412,13 +412,13 @@ Namespace Connection
End Property End Property
#End Region #End Region
#Region "4 RD Gateway" #Region "4 RD Gateway"
Private _RDGatewayUsageMethod As mRemote.Connection.Protocol.RDP.RDGatewayUsageMethod = Tools.Misc.StringToEnum(GetType(Connection.Protocol.RDP.RDGatewayUsageMethod), My.Settings.ConDefaultRDGatewayUsageMethod) Private _RDGatewayUsageMethod As mRemoteNG.Connection.Protocol.RDP.RDGatewayUsageMethod = Tools.Misc.StringToEnum(GetType(Connection.Protocol.RDP.RDGatewayUsageMethod), My.Settings.ConDefaultRDGatewayUsageMethod)
<LocalizedCategory("strCategoryGateway", 4), _ <LocalizedCategory("strCategoryGateway", 4), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameRDGatewayUsageMethod"), _ LocalizedDisplayName("strPropertyNameRDGatewayUsageMethod"), _
LocalizedDescription("strPropertyDescriptionRDGatewayUsageMethod"), _ LocalizedDescription("strPropertyDescriptionRDGatewayUsageMethod"), _
TypeConverter(GetType(Tools.Misc.EnumTypeConverter))> _ TypeConverter(GetType(Tools.Misc.EnumTypeConverter))> _
Public Property RDGatewayUsageMethod() As mRemote.Connection.Protocol.RDP.RDGatewayUsageMethod Public Property RDGatewayUsageMethod() As mRemoteNG.Connection.Protocol.RDP.RDGatewayUsageMethod
Get Get
If Me._Inherit.RDGatewayUsageMethod And Me._Parent IsNot Nothing Then If Me._Inherit.RDGatewayUsageMethod And Me._Parent IsNot Nothing Then
Dim parCon As Connection.Info = TryCast(Me._Parent, Container.Info).ConnectionInfo Dim parCon As Connection.Info = TryCast(Me._Parent, Container.Info).ConnectionInfo
@@ -434,7 +434,7 @@ Namespace Connection
Return _RDGatewayUsageMethod Return _RDGatewayUsageMethod
End If End If
End Get End Get
Set(ByVal value As mRemote.Connection.Protocol.RDP.RDGatewayUsageMethod) Set(ByVal value As mRemoteNG.Connection.Protocol.RDP.RDGatewayUsageMethod)
_RDGatewayUsageMethod = value _RDGatewayUsageMethod = value
End Set End Set
End Property End Property
@@ -465,13 +465,13 @@ Namespace Connection
End Set End Set
End Property End Property
Private _RDGatewayUseConnectionCredentials As mRemote.Connection.Protocol.RDP.RDGatewayUseConnectionCredentials = Tools.Misc.StringToEnum(GetType(Connection.Protocol.RDP.RDGatewayUseConnectionCredentials), My.Settings.ConDefaultRDGatewayUseConnectionCredentials) Private _RDGatewayUseConnectionCredentials As mRemoteNG.Connection.Protocol.RDP.RDGatewayUseConnectionCredentials = Tools.Misc.StringToEnum(GetType(Connection.Protocol.RDP.RDGatewayUseConnectionCredentials), My.Settings.ConDefaultRDGatewayUseConnectionCredentials)
<LocalizedCategory("strCategoryGateway", 4), _ <LocalizedCategory("strCategoryGateway", 4), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameRDGatewayUseConnectionCredentials"), _ LocalizedDisplayName("strPropertyNameRDGatewayUseConnectionCredentials"), _
LocalizedDescription("strPropertyDescriptionRDGatewayUseConnectionCredentials"), _ LocalizedDescription("strPropertyDescriptionRDGatewayUseConnectionCredentials"), _
TypeConverter(GetType(Tools.Misc.EnumTypeConverter))> _ TypeConverter(GetType(Tools.Misc.EnumTypeConverter))> _
Public Property RDGatewayUseConnectionCredentials() As mRemote.Connection.Protocol.RDP.RDGatewayUseConnectionCredentials Public Property RDGatewayUseConnectionCredentials() As mRemoteNG.Connection.Protocol.RDP.RDGatewayUseConnectionCredentials
Get Get
If Me._Inherit.RDGatewayUseConnectionCredentials And Me._Parent IsNot Nothing Then If Me._Inherit.RDGatewayUseConnectionCredentials And Me._Parent IsNot Nothing Then
Dim parCon As Connection.Info = TryCast(Me._Parent, Container.Info).ConnectionInfo Dim parCon As Connection.Info = TryCast(Me._Parent, Container.Info).ConnectionInfo
@@ -487,7 +487,7 @@ Namespace Connection
Return _RDGatewayUseConnectionCredentials Return _RDGatewayUseConnectionCredentials
End If End If
End Get End Get
Set(ByVal value As mRemote.Connection.Protocol.RDP.RDGatewayUseConnectionCredentials) Set(ByVal value As mRemoteNG.Connection.Protocol.RDP.RDGatewayUseConnectionCredentials)
_RDGatewayUseConnectionCredentials = value _RDGatewayUseConnectionCredentials = value
End Set End Set
End Property End Property
@@ -631,7 +631,7 @@ Namespace Connection
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameCacheBitmaps"), _ LocalizedDisplayName("strPropertyNameCacheBitmaps"), _
LocalizedDescription("strPropertyDescriptionCacheBitmaps"), _ LocalizedDescription("strPropertyDescriptionCacheBitmaps"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property CacheBitmaps() As Boolean Public Property CacheBitmaps() As Boolean
Get Get
If Me._Inherit.CacheBitmaps And Me._Parent IsNot Nothing Then If Me._Inherit.CacheBitmaps And Me._Parent IsNot Nothing Then
@@ -658,7 +658,7 @@ Namespace Connection
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameDisplayWallpaper"), _ LocalizedDisplayName("strPropertyNameDisplayWallpaper"), _
LocalizedDescription("strPropertyDescriptionDisplayWallpaper"), _ LocalizedDescription("strPropertyDescriptionDisplayWallpaper"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property DisplayWallpaper() As Boolean Public Property DisplayWallpaper() As Boolean
Get Get
If Me._Inherit.DisplayWallpaper And Me._Parent IsNot Nothing Then If Me._Inherit.DisplayWallpaper And Me._Parent IsNot Nothing Then
@@ -685,7 +685,7 @@ Namespace Connection
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameDisplayThemes"), _ LocalizedDisplayName("strPropertyNameDisplayThemes"), _
LocalizedDescription("strPropertyDescriptionDisplayThemes"), _ LocalizedDescription("strPropertyDescriptionDisplayThemes"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property DisplayThemes() As Boolean Public Property DisplayThemes() As Boolean
Get Get
If Me._Inherit.DisplayThemes And Me._Parent IsNot Nothing Then If Me._Inherit.DisplayThemes And Me._Parent IsNot Nothing Then
@@ -713,7 +713,7 @@ Namespace Connection
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameRedirectKeys"), _ LocalizedDisplayName("strPropertyNameRedirectKeys"), _
LocalizedDescription("strPropertyDescriptionRedirectKeys"), _ LocalizedDescription("strPropertyDescriptionRedirectKeys"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property RedirectKeys() As Boolean Public Property RedirectKeys() As Boolean
Get Get
If Me._Inherit.RedirectKeys And Me._Parent IsNot Nothing Then If Me._Inherit.RedirectKeys And Me._Parent IsNot Nothing Then
@@ -740,7 +740,7 @@ Namespace Connection
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameRedirectDrives"), _ LocalizedDisplayName("strPropertyNameRedirectDrives"), _
LocalizedDescription("strPropertyDescriptionRedirectDrives"), _ LocalizedDescription("strPropertyDescriptionRedirectDrives"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property RedirectDiskDrives() As Boolean Public Property RedirectDiskDrives() As Boolean
Get Get
If Me._Inherit.RedirectDiskDrives And Me._Parent IsNot Nothing Then If Me._Inherit.RedirectDiskDrives And Me._Parent IsNot Nothing Then
@@ -767,7 +767,7 @@ Namespace Connection
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameRedirectPrinters"), _ LocalizedDisplayName("strPropertyNameRedirectPrinters"), _
LocalizedDescription("strPropertyDescriptionRedirectPrinters"), _ LocalizedDescription("strPropertyDescriptionRedirectPrinters"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property RedirectPrinters() As Boolean Public Property RedirectPrinters() As Boolean
Get Get
If Me._Inherit.RedirectPrinters And Me._Parent IsNot Nothing Then If Me._Inherit.RedirectPrinters And Me._Parent IsNot Nothing Then
@@ -794,7 +794,7 @@ Namespace Connection
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameRedirectPorts"), _ LocalizedDisplayName("strPropertyNameRedirectPorts"), _
LocalizedDescription("strPropertyDescriptionRedirectPorts"), _ LocalizedDescription("strPropertyDescriptionRedirectPorts"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property RedirectPorts() As Boolean Public Property RedirectPorts() As Boolean
Get Get
If Me._Inherit.RedirectPorts And Me._Parent IsNot Nothing Then If Me._Inherit.RedirectPorts And Me._Parent IsNot Nothing Then
@@ -821,7 +821,7 @@ Namespace Connection
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameRedirectSmartCards"), _ LocalizedDisplayName("strPropertyNameRedirectSmartCards"), _
LocalizedDescription("strPropertyDescriptionRedirectSmartCards"), _ LocalizedDescription("strPropertyDescriptionRedirectSmartCards"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property RedirectSmartCards() As Boolean Public Property RedirectSmartCards() As Boolean
Get Get
If Me._Inherit.RedirectSmartCards And Me._Parent IsNot Nothing Then If Me._Inherit.RedirectSmartCards And Me._Parent IsNot Nothing Then
@@ -978,13 +978,13 @@ Namespace Connection
End Property End Property
#End Region #End Region
#Region "VNC" #Region "VNC"
Private _VNCCompression As mRemote.Connection.Protocol.VNC.Compression = Tools.Misc.StringToEnum(GetType(Connection.Protocol.VNC.Compression), My.Settings.ConDefaultVNCCompression) Private _VNCCompression As mRemoteNG.Connection.Protocol.VNC.Compression = Tools.Misc.StringToEnum(GetType(Connection.Protocol.VNC.Compression), My.Settings.ConDefaultVNCCompression)
<LocalizedCategory("strCategoryAppearance", 5), _ <LocalizedCategory("strCategoryAppearance", 5), _
Browsable(False), _ Browsable(False), _
LocalizedDisplayName("strPropertyNameCompression"), _ LocalizedDisplayName("strPropertyNameCompression"), _
LocalizedDescription("strPropertyDescriptionCompression"), _ LocalizedDescription("strPropertyDescriptionCompression"), _
TypeConverter(GetType(Tools.Misc.EnumTypeConverter))> _ TypeConverter(GetType(Tools.Misc.EnumTypeConverter))> _
Public Property VNCCompression() As mRemote.Connection.Protocol.VNC.Compression Public Property VNCCompression() As mRemoteNG.Connection.Protocol.VNC.Compression
Get Get
If Me._Inherit.VNCCompression And Me._Parent IsNot Nothing Then If Me._Inherit.VNCCompression And Me._Parent IsNot Nothing Then
Dim parCon As Connection.Info = TryCast(Me._Parent, Container.Info).ConnectionInfo Dim parCon As Connection.Info = TryCast(Me._Parent, Container.Info).ConnectionInfo
@@ -1000,18 +1000,18 @@ Namespace Connection
Return _VNCCompression Return _VNCCompression
End If End If
End Get End Get
Set(ByVal value As mRemote.Connection.Protocol.VNC.Compression) Set(ByVal value As mRemoteNG.Connection.Protocol.VNC.Compression)
_VNCCompression = value _VNCCompression = value
End Set End Set
End Property End Property
Private _VNCEncoding As mRemote.Connection.Protocol.VNC.Encoding = Tools.Misc.StringToEnum(GetType(Connection.Protocol.VNC.Encoding), My.Settings.ConDefaultVNCEncoding) Private _VNCEncoding As mRemoteNG.Connection.Protocol.VNC.Encoding = Tools.Misc.StringToEnum(GetType(Connection.Protocol.VNC.Encoding), My.Settings.ConDefaultVNCEncoding)
<LocalizedCategory("strCategoryAppearance", 5), _ <LocalizedCategory("strCategoryAppearance", 5), _
Browsable(False), _ Browsable(False), _
LocalizedDisplayName("strPropertyNameEncoding"), _ LocalizedDisplayName("strPropertyNameEncoding"), _
LocalizedDescription("strPropertyDescriptionEncoding"), _ LocalizedDescription("strPropertyDescriptionEncoding"), _
TypeConverter(GetType(Tools.Misc.EnumTypeConverter))> _ TypeConverter(GetType(Tools.Misc.EnumTypeConverter))> _
Public Property VNCEncoding() As mRemote.Connection.Protocol.VNC.Encoding Public Property VNCEncoding() As mRemoteNG.Connection.Protocol.VNC.Encoding
Get Get
If Me._Inherit.VNCEncoding And Me._Parent IsNot Nothing Then If Me._Inherit.VNCEncoding And Me._Parent IsNot Nothing Then
Dim parCon As Connection.Info = TryCast(Me._Parent, Container.Info).ConnectionInfo Dim parCon As Connection.Info = TryCast(Me._Parent, Container.Info).ConnectionInfo
@@ -1027,19 +1027,19 @@ Namespace Connection
Return _VNCEncoding Return _VNCEncoding
End If End If
End Get End Get
Set(ByVal value As mRemote.Connection.Protocol.VNC.Encoding) Set(ByVal value As mRemoteNG.Connection.Protocol.VNC.Encoding)
_VNCEncoding = value _VNCEncoding = value
End Set End Set
End Property End Property
Private _VNCAuthMode As mRemote.Connection.Protocol.VNC.AuthMode = Tools.Misc.StringToEnum(GetType(Connection.Protocol.VNC.AuthMode), My.Settings.ConDefaultVNCAuthMode) Private _VNCAuthMode As mRemoteNG.Connection.Protocol.VNC.AuthMode = Tools.Misc.StringToEnum(GetType(Connection.Protocol.VNC.AuthMode), My.Settings.ConDefaultVNCAuthMode)
<LocalizedCategory("strCategoryConnection", 2), _ <LocalizedCategory("strCategoryConnection", 2), _
Browsable(False), _ Browsable(False), _
LocalizedDisplayName("strPropertyNameAuthenticationMode"), _ LocalizedDisplayName("strPropertyNameAuthenticationMode"), _
LocalizedDescription("strPropertyDescriptionAuthenticationMode"), _ LocalizedDescription("strPropertyDescriptionAuthenticationMode"), _
TypeConverter(GetType(Tools.Misc.EnumTypeConverter))> _ TypeConverter(GetType(Tools.Misc.EnumTypeConverter))> _
Public Property VNCAuthMode() As mRemote.Connection.Protocol.VNC.AuthMode Public Property VNCAuthMode() As mRemoteNG.Connection.Protocol.VNC.AuthMode
Get Get
If Me._Inherit.VNCAuthMode And Me._Parent IsNot Nothing Then If Me._Inherit.VNCAuthMode And Me._Parent IsNot Nothing Then
Dim parCon As Connection.Info = TryCast(Me._Parent, Container.Info).ConnectionInfo Dim parCon As Connection.Info = TryCast(Me._Parent, Container.Info).ConnectionInfo
@@ -1055,18 +1055,18 @@ Namespace Connection
Return _VNCAuthMode Return _VNCAuthMode
End If End If
End Get End Get
Set(ByVal value As mRemote.Connection.Protocol.VNC.AuthMode) Set(ByVal value As mRemoteNG.Connection.Protocol.VNC.AuthMode)
_VNCAuthMode = value _VNCAuthMode = value
End Set End Set
End Property End Property
Private _VNCProxyType As mRemote.Connection.Protocol.VNC.ProxyType = Tools.Misc.StringToEnum(GetType(Connection.Protocol.VNC.ProxyType), My.Settings.ConDefaultVNCProxyType) Private _VNCProxyType As mRemoteNG.Connection.Protocol.VNC.ProxyType = Tools.Misc.StringToEnum(GetType(Connection.Protocol.VNC.ProxyType), My.Settings.ConDefaultVNCProxyType)
<LocalizedCategory("strCategoryMiscellaneous", 7), _ <LocalizedCategory("strCategoryMiscellaneous", 7), _
Browsable(False), _ Browsable(False), _
LocalizedDisplayName("strPropertyNameVNCProxyType"), _ LocalizedDisplayName("strPropertyNameVNCProxyType"), _
LocalizedDescription("strPropertyDescriptionVNCProxyType"), _ LocalizedDescription("strPropertyDescriptionVNCProxyType"), _
TypeConverter(GetType(Tools.Misc.EnumTypeConverter))> _ TypeConverter(GetType(Tools.Misc.EnumTypeConverter))> _
Public Property VNCProxyType() As mRemote.Connection.Protocol.VNC.ProxyType Public Property VNCProxyType() As mRemoteNG.Connection.Protocol.VNC.ProxyType
Get Get
If Me._Inherit.VNCProxyType And Me._Parent IsNot Nothing Then If Me._Inherit.VNCProxyType And Me._Parent IsNot Nothing Then
Dim parCon As Connection.Info = TryCast(Me._Parent, Container.Info).ConnectionInfo Dim parCon As Connection.Info = TryCast(Me._Parent, Container.Info).ConnectionInfo
@@ -1082,7 +1082,7 @@ Namespace Connection
Return _VNCProxyType Return _VNCProxyType
End If End If
End Get End Get
Set(ByVal value As mRemote.Connection.Protocol.VNC.ProxyType) Set(ByVal value As mRemoteNG.Connection.Protocol.VNC.ProxyType)
_VNCProxyType = value _VNCProxyType = value
End Set End Set
End Property End Property
@@ -1192,13 +1192,13 @@ Namespace Connection
End Set End Set
End Property End Property
Private _VNCColors As mRemote.Connection.Protocol.VNC.Colors = Tools.Misc.StringToEnum(GetType(Connection.Protocol.VNC.Colors), My.Settings.ConDefaultVNCColors) Private _VNCColors As mRemoteNG.Connection.Protocol.VNC.Colors = Tools.Misc.StringToEnum(GetType(Connection.Protocol.VNC.Colors), My.Settings.ConDefaultVNCColors)
<LocalizedCategory("strCategoryAppearance", 5), _ <LocalizedCategory("strCategoryAppearance", 5), _
Browsable(False), _ Browsable(False), _
LocalizedDisplayName("strPropertyNameColors"), _ LocalizedDisplayName("strPropertyNameColors"), _
LocalizedDescription("strPropertyDescriptionColors"), _ LocalizedDescription("strPropertyDescriptionColors"), _
TypeConverter(GetType(Tools.Misc.EnumTypeConverter))> _ TypeConverter(GetType(Tools.Misc.EnumTypeConverter))> _
Public Property VNCColors() As mRemote.Connection.Protocol.VNC.Colors Public Property VNCColors() As mRemoteNG.Connection.Protocol.VNC.Colors
Get Get
If Me._Inherit.VNCColors And Me._Parent IsNot Nothing Then If Me._Inherit.VNCColors And Me._Parent IsNot Nothing Then
Dim parCon As Connection.Info = TryCast(Me._Parent, Container.Info).ConnectionInfo Dim parCon As Connection.Info = TryCast(Me._Parent, Container.Info).ConnectionInfo
@@ -1214,18 +1214,18 @@ Namespace Connection
Return _VNCColors Return _VNCColors
End If End If
End Get End Get
Set(ByVal value As mRemote.Connection.Protocol.VNC.Colors) Set(ByVal value As mRemoteNG.Connection.Protocol.VNC.Colors)
_VNCColors = value _VNCColors = value
End Set End Set
End Property End Property
Private _VNCSmartSizeMode As mRemote.Connection.Protocol.VNC.SmartSizeMode = Tools.Misc.StringToEnum(GetType(Connection.Protocol.VNC.SmartSizeMode), My.Settings.ConDefaultVNCSmartSizeMode) Private _VNCSmartSizeMode As mRemoteNG.Connection.Protocol.VNC.SmartSizeMode = Tools.Misc.StringToEnum(GetType(Connection.Protocol.VNC.SmartSizeMode), My.Settings.ConDefaultVNCSmartSizeMode)
<LocalizedCategory("strCategoryAppearance", 5), _ <LocalizedCategory("strCategoryAppearance", 5), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameSmartSizeMode"), _ LocalizedDisplayName("strPropertyNameSmartSizeMode"), _
LocalizedDescription("strPropertyDescriptionSmartSizeMode"), _ LocalizedDescription("strPropertyDescriptionSmartSizeMode"), _
TypeConverter(GetType(Tools.Misc.EnumTypeConverter))> _ TypeConverter(GetType(Tools.Misc.EnumTypeConverter))> _
Public Property VNCSmartSizeMode() As mRemote.Connection.Protocol.VNC.SmartSizeMode Public Property VNCSmartSizeMode() As mRemoteNG.Connection.Protocol.VNC.SmartSizeMode
Get Get
If Me._Inherit.VNCSmartSizeMode And Me._Parent IsNot Nothing Then If Me._Inherit.VNCSmartSizeMode And Me._Parent IsNot Nothing Then
Dim parCon As Connection.Info = TryCast(Me._Parent, Container.Info).ConnectionInfo Dim parCon As Connection.Info = TryCast(Me._Parent, Container.Info).ConnectionInfo
@@ -1241,7 +1241,7 @@ Namespace Connection
Return _VNCSmartSizeMode Return _VNCSmartSizeMode
End If End If
End Get End Get
Set(ByVal value As mRemote.Connection.Protocol.VNC.SmartSizeMode) Set(ByVal value As mRemoteNG.Connection.Protocol.VNC.SmartSizeMode)
_VNCSmartSizeMode = value _VNCSmartSizeMode = value
End Set End Set
End Property End Property
@@ -1546,7 +1546,7 @@ Namespace Connection
<LocalizedCategory("strCategoryGeneral", 1), _ <LocalizedCategory("strCategoryGeneral", 1), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritAll"), _ LocalizedDisplayName("strPropertyNameInheritAll"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property EverythingInherited() As Boolean Public Property EverythingInherited() As Boolean
Get Get
If Me._CacheBitmaps And Me._Colors And Me._Description And Me._DisplayThemes And Me._DisplayWallpaper _ If Me._CacheBitmaps And Me._Colors And Me._Description And Me._DisplayThemes And Me._DisplayWallpaper _
@@ -1575,7 +1575,7 @@ Namespace Connection
<LocalizedCategory("strCategoryDisplay", 2), _ <LocalizedCategory("strCategoryDisplay", 2), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritDescription"), _ LocalizedDisplayName("strPropertyNameInheritDescription"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property Description() As Boolean Public Property Description() As Boolean
Get Get
Return Me._Description Return Me._Description
@@ -1589,7 +1589,7 @@ Namespace Connection
<LocalizedCategory("strCategoryDisplay", 2), _ <LocalizedCategory("strCategoryDisplay", 2), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritIcon"), _ LocalizedDisplayName("strPropertyNameInheritIcon"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property Icon() As Boolean Public Property Icon() As Boolean
Get Get
Return Me._Icon Return Me._Icon
@@ -1603,7 +1603,7 @@ Namespace Connection
<LocalizedCategory("strCategoryDisplay", 2), _ <LocalizedCategory("strCategoryDisplay", 2), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritPanel"), _ LocalizedDisplayName("strPropertyNameInheritPanel"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property Panel() As Boolean Public Property Panel() As Boolean
Get Get
Return Me._Panel Return Me._Panel
@@ -1618,7 +1618,7 @@ Namespace Connection
<LocalizedCategory("strCategoryConnection", 3), _ <LocalizedCategory("strCategoryConnection", 3), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritUsername"), _ LocalizedDisplayName("strPropertyNameInheritUsername"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property Username() As Boolean Public Property Username() As Boolean
Get Get
Return Me._Username Return Me._Username
@@ -1632,7 +1632,7 @@ Namespace Connection
<LocalizedCategory("strCategoryConnection", 3), _ <LocalizedCategory("strCategoryConnection", 3), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritPassword"), _ LocalizedDisplayName("strPropertyNameInheritPassword"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property Password() As Boolean Public Property Password() As Boolean
Get Get
Return Me._Password Return Me._Password
@@ -1646,7 +1646,7 @@ Namespace Connection
<LocalizedCategory("strCategoryConnection", 3), _ <LocalizedCategory("strCategoryConnection", 3), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritDomain"), _ LocalizedDisplayName("strPropertyNameInheritDomain"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property Domain() As Boolean Public Property Domain() As Boolean
Get Get
Return Me._Domain Return Me._Domain
@@ -1661,7 +1661,7 @@ Namespace Connection
<LocalizedCategory("strCategoryProtocol", 4), _ <LocalizedCategory("strCategoryProtocol", 4), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritProtocol"), _ LocalizedDisplayName("strPropertyNameInheritProtocol"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property Protocol() As Boolean Public Property Protocol() As Boolean
Get Get
Return Me._Protocol Return Me._Protocol
@@ -1675,7 +1675,7 @@ Namespace Connection
<LocalizedCategory("strCategoryProtocol", 4), _ <LocalizedCategory("strCategoryProtocol", 4), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritExternalTool"), _ LocalizedDisplayName("strPropertyNameInheritExternalTool"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property ExtApp() As Boolean Public Property ExtApp() As Boolean
Get Get
Return Me._ExtApp Return Me._ExtApp
@@ -1689,7 +1689,7 @@ Namespace Connection
<LocalizedCategory("strCategoryProtocol", 4), _ <LocalizedCategory("strCategoryProtocol", 4), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritPort"), _ LocalizedDisplayName("strPropertyNameInheritPort"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property Port() As Boolean Public Property Port() As Boolean
Get Get
Return Me._Port Return Me._Port
@@ -1703,7 +1703,7 @@ Namespace Connection
<LocalizedCategory("strCategoryProtocol", 4), _ <LocalizedCategory("strCategoryProtocol", 4), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritPuttySession"), _ LocalizedDisplayName("strPropertyNameInheritPuttySession"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property PuttySession() As Boolean Public Property PuttySession() As Boolean
Get Get
Return Me._PuttySession Return Me._PuttySession
@@ -1717,7 +1717,7 @@ Namespace Connection
<LocalizedCategory("strCategoryProtocol", 4), _ <LocalizedCategory("strCategoryProtocol", 4), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritEncryptionStrength"), _ LocalizedDisplayName("strPropertyNameInheritEncryptionStrength"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property ICAEncryption() As Boolean Public Property ICAEncryption() As Boolean
Get Get
Return Me._ICAEncryption Return Me._ICAEncryption
@@ -1731,7 +1731,7 @@ Namespace Connection
<LocalizedCategory("strCategoryProtocol", 4), _ <LocalizedCategory("strCategoryProtocol", 4), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritAuthenticationLevel"), _ LocalizedDisplayName("strPropertyNameInheritAuthenticationLevel"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property RDPAuthenticationLevel() As Boolean Public Property RDPAuthenticationLevel() As Boolean
Get Get
Return Me._RDPAuthenticationLevel Return Me._RDPAuthenticationLevel
@@ -1745,7 +1745,7 @@ Namespace Connection
<LocalizedCategory("strCategoryProtocol", 4), _ <LocalizedCategory("strCategoryProtocol", 4), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritRenderingEngine"), _ LocalizedDisplayName("strPropertyNameInheritRenderingEngine"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property RenderingEngine() As Boolean Public Property RenderingEngine() As Boolean
Get Get
Return Me._RenderingEngine Return Me._RenderingEngine
@@ -1759,7 +1759,7 @@ Namespace Connection
<LocalizedCategory("strCategoryProtocol", 4), _ <LocalizedCategory("strCategoryProtocol", 4), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritUseConsoleSession"), _ LocalizedDisplayName("strPropertyNameInheritUseConsoleSession"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property UseConsoleSession() As Boolean Public Property UseConsoleSession() As Boolean
Get Get
Return Me._UseConsoleSession Return Me._UseConsoleSession
@@ -1774,7 +1774,7 @@ Namespace Connection
<LocalizedCategory("strCategoryGateway", 5), _ <LocalizedCategory("strCategoryGateway", 5), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameRDGatewayUsageMethodInherit"), _ LocalizedDisplayName("strPropertyNameRDGatewayUsageMethodInherit"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property RDGatewayUsageMethod() As Boolean Public Property RDGatewayUsageMethod() As Boolean
Get Get
Return Me._RDGatewayUsageMethod Return Me._RDGatewayUsageMethod
@@ -1788,7 +1788,7 @@ Namespace Connection
<LocalizedCategory("strCategoryGateway", 5), _ <LocalizedCategory("strCategoryGateway", 5), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameRDGatewayHostnameInherit"), _ LocalizedDisplayName("strPropertyNameRDGatewayHostnameInherit"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property RDGatewayHostname() As Boolean Public Property RDGatewayHostname() As Boolean
Get Get
Return Me._RDGatewayHostname Return Me._RDGatewayHostname
@@ -1802,7 +1802,7 @@ Namespace Connection
<LocalizedCategory("strCategoryGateway", 5), _ <LocalizedCategory("strCategoryGateway", 5), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameRDGatewayUseConnectionCredentialsInherit"), _ LocalizedDisplayName("strPropertyNameRDGatewayUseConnectionCredentialsInherit"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property RDGatewayUseConnectionCredentials() As Boolean Public Property RDGatewayUseConnectionCredentials() As Boolean
Get Get
Return Me._RDGatewayUseConnectionCredentials Return Me._RDGatewayUseConnectionCredentials
@@ -1817,7 +1817,7 @@ Namespace Connection
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameRDGatewayUsername"), _ LocalizedDisplayName("strPropertyNameRDGatewayUsername"), _
LocalizedDescription("strPropertyDescriptionRDGatewayUsername"), _ LocalizedDescription("strPropertyDescriptionRDGatewayUsername"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property RDGatewayUsername() As Boolean Public Property RDGatewayUsername() As Boolean
Get Get
Return Me._RDGatewayUsername Return Me._RDGatewayUsername
@@ -1832,7 +1832,7 @@ Namespace Connection
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameRDGatewayPasswordInherit"), _ LocalizedDisplayName("strPropertyNameRDGatewayPasswordInherit"), _
LocalizedDescription("strPropertyDescriptionRDGatewayPasswordInherit"), _ LocalizedDescription("strPropertyDescriptionRDGatewayPasswordInherit"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property RDGatewayPassword() As Boolean Public Property RDGatewayPassword() As Boolean
Get Get
Return Me._RDGatewayPassword Return Me._RDGatewayPassword
@@ -1846,7 +1846,7 @@ Namespace Connection
<LocalizedCategory("strCategoryGateway", 5), _ <LocalizedCategory("strCategoryGateway", 5), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameRDGatewayDomainInherit"), _ LocalizedDisplayName("strPropertyNameRDGatewayDomainInherit"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property RDGatewayDomain() As Boolean Public Property RDGatewayDomain() As Boolean
Get Get
Return Me._RDGatewayDomain Return Me._RDGatewayDomain
@@ -1861,7 +1861,7 @@ Namespace Connection
<LocalizedCategory("strCategoryAppearance", 6), _ <LocalizedCategory("strCategoryAppearance", 6), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritResolution"), _ LocalizedDisplayName("strPropertyNameInheritResolution"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property Resolution() As Boolean Public Property Resolution() As Boolean
Get Get
Return Me._Resolution Return Me._Resolution
@@ -1875,7 +1875,7 @@ Namespace Connection
<LocalizedCategory("strCategoryAppearance", 6), _ <LocalizedCategory("strCategoryAppearance", 6), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritColors"), _ LocalizedDisplayName("strPropertyNameInheritColors"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property Colors() As Boolean Public Property Colors() As Boolean
Get Get
Return Me._Colors Return Me._Colors
@@ -1889,7 +1889,7 @@ Namespace Connection
<LocalizedCategory("strCategoryAppearance", 6), _ <LocalizedCategory("strCategoryAppearance", 6), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritCacheBitmaps"), _ LocalizedDisplayName("strPropertyNameInheritCacheBitmaps"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property CacheBitmaps() As Boolean Public Property CacheBitmaps() As Boolean
Get Get
Return Me._CacheBitmaps Return Me._CacheBitmaps
@@ -1903,7 +1903,7 @@ Namespace Connection
<LocalizedCategory("strCategoryAppearance", 6), _ <LocalizedCategory("strCategoryAppearance", 6), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritDisplayWallpaper"), _ LocalizedDisplayName("strPropertyNameInheritDisplayWallpaper"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property DisplayWallpaper() As Boolean Public Property DisplayWallpaper() As Boolean
Get Get
Return Me._DisplayWallpaper Return Me._DisplayWallpaper
@@ -1917,7 +1917,7 @@ Namespace Connection
<LocalizedCategory("strCategoryAppearance", 6), _ <LocalizedCategory("strCategoryAppearance", 6), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritDisplayThemes"), _ LocalizedDisplayName("strPropertyNameInheritDisplayThemes"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property DisplayThemes() As Boolean Public Property DisplayThemes() As Boolean
Get Get
Return Me._DisplayThemes Return Me._DisplayThemes
@@ -1932,7 +1932,7 @@ Namespace Connection
<LocalizedCategory("strCategoryRedirect", 7), _ <LocalizedCategory("strCategoryRedirect", 7), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritRedirectKeys"), _ LocalizedDisplayName("strPropertyNameInheritRedirectKeys"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property RedirectKeys() As Boolean Public Property RedirectKeys() As Boolean
Get Get
Return Me._RedirectKeys Return Me._RedirectKeys
@@ -1946,7 +1946,7 @@ Namespace Connection
<LocalizedCategory("strCategoryRedirect", 7), _ <LocalizedCategory("strCategoryRedirect", 7), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritRedirectDrives"), _ LocalizedDisplayName("strPropertyNameInheritRedirectDrives"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property RedirectDiskDrives() As Boolean Public Property RedirectDiskDrives() As Boolean
Get Get
Return Me._RedirectDiskDrives Return Me._RedirectDiskDrives
@@ -1960,7 +1960,7 @@ Namespace Connection
<LocalizedCategory("strCategoryRedirect", 7), _ <LocalizedCategory("strCategoryRedirect", 7), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritRedirectPrinters"), _ LocalizedDisplayName("strPropertyNameInheritRedirectPrinters"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property RedirectPrinters() As Boolean Public Property RedirectPrinters() As Boolean
Get Get
Return Me._RedirectPrinters Return Me._RedirectPrinters
@@ -1974,7 +1974,7 @@ Namespace Connection
<LocalizedCategory("strCategoryRedirect", 7), _ <LocalizedCategory("strCategoryRedirect", 7), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritRedirectPorts"), _ LocalizedDisplayName("strPropertyNameInheritRedirectPorts"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property RedirectPorts() As Boolean Public Property RedirectPorts() As Boolean
Get Get
Return Me._RedirectPorts Return Me._RedirectPorts
@@ -1988,7 +1988,7 @@ Namespace Connection
<LocalizedCategory("strCategoryRedirect", 7), _ <LocalizedCategory("strCategoryRedirect", 7), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritRedirectSmartCards"), _ LocalizedDisplayName("strPropertyNameInheritRedirectSmartCards"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property RedirectSmartCards() As Boolean Public Property RedirectSmartCards() As Boolean
Get Get
Return Me._RedirectSmartCards Return Me._RedirectSmartCards
@@ -2002,7 +2002,7 @@ Namespace Connection
<LocalizedCategory("strCategoryRedirect", 7), _ <LocalizedCategory("strCategoryRedirect", 7), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritRedirectSounds"), _ LocalizedDisplayName("strPropertyNameInheritRedirectSounds"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property RedirectSound() As Boolean Public Property RedirectSound() As Boolean
Get Get
Return Me._RedirectSound Return Me._RedirectSound
@@ -2017,7 +2017,7 @@ Namespace Connection
<LocalizedCategory("strCategoryMiscellaneous", 8), _ <LocalizedCategory("strCategoryMiscellaneous", 8), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritExternalToolBefore"), _ LocalizedDisplayName("strPropertyNameInheritExternalToolBefore"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property PreExtApp() As Boolean Public Property PreExtApp() As Boolean
Get Get
Return Me._PreExtApp Return Me._PreExtApp
@@ -2031,7 +2031,7 @@ Namespace Connection
<LocalizedCategory("strCategoryMiscellaneous", 8), _ <LocalizedCategory("strCategoryMiscellaneous", 8), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritExternalToolAfter"), _ LocalizedDisplayName("strPropertyNameInheritExternalToolAfter"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property PostExtApp() As Boolean Public Property PostExtApp() As Boolean
Get Get
Return Me._PostExtApp Return Me._PostExtApp
@@ -2045,7 +2045,7 @@ Namespace Connection
<LocalizedCategory("strCategoryMiscellaneous", 8), _ <LocalizedCategory("strCategoryMiscellaneous", 8), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritMACAddress"), _ LocalizedDisplayName("strPropertyNameInheritMACAddress"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property MacAddress() As Boolean Public Property MacAddress() As Boolean
Get Get
Return Me._MacAddress Return Me._MacAddress
@@ -2059,7 +2059,7 @@ Namespace Connection
<LocalizedCategory("strCategoryMiscellaneous", 8), _ <LocalizedCategory("strCategoryMiscellaneous", 8), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritUser1"), _ LocalizedDisplayName("strPropertyNameInheritUser1"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property UserField() As Boolean Public Property UserField() As Boolean
Get Get
Return Me._UserField Return Me._UserField
@@ -2074,7 +2074,7 @@ Namespace Connection
<LocalizedCategory("strCategoryAppearance", 6), _ <LocalizedCategory("strCategoryAppearance", 6), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritCompression"), _ LocalizedDisplayName("strPropertyNameInheritCompression"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property VNCCompression() As Boolean Public Property VNCCompression() As Boolean
Get Get
Return _VNCCompression Return _VNCCompression
@@ -2088,7 +2088,7 @@ Namespace Connection
<LocalizedCategory("strCategoryAppearance", 6), _ <LocalizedCategory("strCategoryAppearance", 6), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritEncoding"), _ LocalizedDisplayName("strPropertyNameInheritEncoding"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property VNCEncoding() As Boolean Public Property VNCEncoding() As Boolean
Get Get
Return _VNCEncoding Return _VNCEncoding
@@ -2102,7 +2102,7 @@ Namespace Connection
<LocalizedCategory("strCategoryConnection", 3), _ <LocalizedCategory("strCategoryConnection", 3), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritAuthenticationMode"), _ LocalizedDisplayName("strPropertyNameInheritAuthenticationMode"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property VNCAuthMode() As Boolean Public Property VNCAuthMode() As Boolean
Get Get
Return _VNCAuthMode Return _VNCAuthMode
@@ -2116,7 +2116,7 @@ Namespace Connection
<LocalizedCategory("strCategoryMiscellaneous", 8), _ <LocalizedCategory("strCategoryMiscellaneous", 8), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritVNCProxyType"), _ LocalizedDisplayName("strPropertyNameInheritVNCProxyType"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property VNCProxyType() As Boolean Public Property VNCProxyType() As Boolean
Get Get
Return _VNCProxyType Return _VNCProxyType
@@ -2130,7 +2130,7 @@ Namespace Connection
<LocalizedCategory("strCategoryMiscellaneous", 8), _ <LocalizedCategory("strCategoryMiscellaneous", 8), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritVNCProxyAddress"), _ LocalizedDisplayName("strPropertyNameInheritVNCProxyAddress"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property VNCProxyIP() As Boolean Public Property VNCProxyIP() As Boolean
Get Get
Return _VNCProxyIP Return _VNCProxyIP
@@ -2144,7 +2144,7 @@ Namespace Connection
<LocalizedCategory("strCategoryMiscellaneous", 8), _ <LocalizedCategory("strCategoryMiscellaneous", 8), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritVNCProxyPort"), _ LocalizedDisplayName("strPropertyNameInheritVNCProxyPort"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property VNCProxyPort() As Boolean Public Property VNCProxyPort() As Boolean
Get Get
Return _VNCProxyPort Return _VNCProxyPort
@@ -2158,7 +2158,7 @@ Namespace Connection
<LocalizedCategory("strCategoryMiscellaneous", 8), _ <LocalizedCategory("strCategoryMiscellaneous", 8), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritVNCProxyUsername"), _ LocalizedDisplayName("strPropertyNameInheritVNCProxyUsername"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property VNCProxyUsername() As Boolean Public Property VNCProxyUsername() As Boolean
Get Get
Return _VNCProxyUsername Return _VNCProxyUsername
@@ -2172,7 +2172,7 @@ Namespace Connection
<LocalizedCategory("strCategoryMiscellaneous", 8), _ <LocalizedCategory("strCategoryMiscellaneous", 8), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritVNCProxyPassword"), _ LocalizedDisplayName("strPropertyNameInheritVNCProxyPassword"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property VNCProxyPassword() As Boolean Public Property VNCProxyPassword() As Boolean
Get Get
Return _VNCProxyPassword Return _VNCProxyPassword
@@ -2186,7 +2186,7 @@ Namespace Connection
<LocalizedCategory("strCategoryAppearance", 6), _ <LocalizedCategory("strCategoryAppearance", 6), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritColors"), _ LocalizedDisplayName("strPropertyNameInheritColors"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property VNCColors() As Boolean Public Property VNCColors() As Boolean
Get Get
Return _VNCColors Return _VNCColors
@@ -2200,7 +2200,7 @@ Namespace Connection
<LocalizedCategory("strCategoryAppearance", 6), _ <LocalizedCategory("strCategoryAppearance", 6), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritSmartSizeMode"), _ LocalizedDisplayName("strPropertyNameInheritSmartSizeMode"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property VNCSmartSizeMode() As Boolean Public Property VNCSmartSizeMode() As Boolean
Get Get
Return _VNCSmartSizeMode Return _VNCSmartSizeMode
@@ -2214,7 +2214,7 @@ Namespace Connection
<LocalizedCategory("strCategoryAppearance", 6), _ <LocalizedCategory("strCategoryAppearance", 6), _
Browsable(True), _ Browsable(True), _
LocalizedDisplayName("strPropertyNameInheritViewOnly"), _ LocalizedDisplayName("strPropertyNameInheritViewOnly"), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property VNCViewOnly() As Boolean Public Property VNCViewOnly() As Boolean
Get Get
Return _VNCViewOnly Return _VNCViewOnly

2
mRemoteV1/Connection/Connection.InterfaceControl.vb
View File

@@ -1,6 +1,6 @@
Imports System.Windows.Forms Imports System.Windows.Forms
Imports System.Drawing Imports System.Drawing
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Namespace Connection Namespace Connection
Public Class InterfaceControl Public Class InterfaceControl

2
mRemoteV1/Connection/Connection.List.vb
View File

@@ -1,5 +1,3 @@
Imports System.Windows.Forms
Namespace Connection Namespace Connection
Public Class List Public Class List
Inherits CollectionBase Inherits CollectionBase

8
mRemoteV1/Connection/Connection.Protocol.Base.vb
View File

@@ -1,6 +1,6 @@
Imports System.Windows.Forms Imports System.Windows.Forms
Imports System.Threading Imports System.Threading
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Namespace Connection Namespace Connection
Namespace Protocol Namespace Protocol
@@ -39,12 +39,12 @@ Namespace Connection
End Property End Property
#End Region #End Region
Private _Force As mRemote.Connection.Info.Force Private _Force As mRemoteNG.Connection.Info.Force
Public Property Force() As mRemote.Connection.Info.Force Public Property Force() As mRemoteNG.Connection.Info.Force
Get Get
Return Me._Force Return Me._Force
End Get End Get
Set(ByVal value As mRemote.Connection.Info.Force) Set(ByVal value As mRemoteNG.Connection.Info.Force)
Me._Force = value Me._Force = value
End Set End Set
End Property End Property

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

@@ -1,6 +1,3 @@
Imports System.Windows.Forms
Imports mRemote.App.Runtime
Namespace Connection Namespace Connection
Namespace Protocol Namespace Protocol
Public Class HTTP Public Class HTTP

2
mRemoteV1/Connection/Connection.Protocol.HTTPBase.vb
View File

@@ -1,5 +1,5 @@
Imports System.Windows.Forms Imports System.Windows.Forms
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Imports System.ComponentModel Imports System.ComponentModel
Namespace Connection Namespace Connection

2
mRemoteV1/Connection/Connection.Protocol.HTTPS.vb
View File

@@ -1,5 +1,5 @@
Imports System.Windows.Forms Imports System.Windows.Forms
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Namespace Connection Namespace Connection
Namespace Protocol Namespace Protocol

2
mRemoteV1/Connection/Connection.Protocol.ICA.vb
View File

@@ -1,4 +1,4 @@
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Imports System.Threading Imports System.Threading
Imports AxWFICALib Imports AxWFICALib
Imports System.ComponentModel Imports System.ComponentModel

4
mRemoteV1/Connection/Connection.Protocol.IntApp.vb
View File

@@ -1,8 +1,8 @@
Imports mRemote.App.Native Imports mRemoteNG.App.Native
Imports System.Threading Imports System.Threading
Imports Microsoft.Win32 Imports Microsoft.Win32
Imports System.Drawing Imports System.Drawing
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Namespace Connection Namespace Connection
Namespace Protocol Namespace Protocol

23
mRemoteV1/Connection/Connection.Protocol.Protocols.vb
View File

@@ -1,29 +1,30 @@
Imports System.ComponentModel Imports System.ComponentModel
Imports mRemoteNG.Tools.LocalizedAttributes
Namespace Connection Namespace Connection
Namespace Protocol Namespace Protocol
Public Enum Protocols Public Enum Protocols
<Description("RDP")> _ <LocalizedDescription("strRdp")> _
RDP = 0 RDP = 0
<Description("VNC")> _ <LocalizedDescription("strVnc")> _
VNC = 1 VNC = 1
<Description("SSH1")> _ <LocalizedDescription("strSsh1")> _
SSH1 = 2 SSH1 = 2
<Description("SSH2")> _ <LocalizedDescription("strSsh2")> _
SSH2 = 3 SSH2 = 3
<Description("Telnet")> _ <LocalizedDescription("strTelnet")> _
Telnet = 4 Telnet = 4
<Description("Rlogin")> _ <LocalizedDescription("strRlogin")> _
Rlogin = 5 Rlogin = 5
<Description("RAW")> _ <LocalizedDescription("strRAW")> _
RAW = 6 RAW = 6
<Description("HTTP")> _ <LocalizedDescription("strHttp")> _
HTTP = 7 HTTP = 7
<Description("HTTPS")> _ <LocalizedDescription("strHttps")> _
HTTPS = 8 HTTPS = 8
<Description("ICA")> _ <LocalizedDescription("strICA")> _
ICA = 9 ICA = 9
<Description("Ext. App")> _ <LocalizedDescription("strExtApp")> _
IntApp = 20 IntApp = 20
<Browsable(False)> _ <Browsable(False)> _
NONE = 999 NONE = 999

6
mRemoteV1/Connection/Connection.Protocol.PuttyBase.vb
View File

@@ -1,8 +1,8 @@
Imports mRemote.App.Native Imports mRemoteNG.App.Native
Imports System.Threading Imports System.Threading
Imports Microsoft.Win32 Imports Microsoft.Win32
Imports System.Drawing Imports System.Drawing
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Namespace Connection Namespace Connection
Namespace Protocol Namespace Protocol
@@ -258,7 +258,7 @@ Namespace Connection
p = Process.Start(pSI) p = Process.Start(pSI)
p.WaitForExit() p.WaitForExit()
mRemote.Connection.PuttySession.PuttySessions = GetSessions() mRemoteNG.Connection.PuttySession.PuttySessions = GetSessions()
Catch ex As Exception Catch ex As Exception
mC.AddMessage(Messages.MessageClass.ErrorMsg, "Couldn't Start Putty (Connection.Protocol.PuttyBase)" & vbNewLine & ex.Message, True) mC.AddMessage(Messages.MessageClass.ErrorMsg, "Couldn't Start Putty (Connection.Protocol.PuttyBase)" & vbNewLine & ex.Message, True)
End Try End Try

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

@@ -3,8 +3,8 @@ Imports System.Threading
Imports AxMSTSCLib Imports AxMSTSCLib
Imports EOLWTSCOM Imports EOLWTSCOM
Imports System.ComponentModel Imports System.ComponentModel
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Imports mRemote.Tools.LocalizedAttributes Imports mRemoteNG.Tools.LocalizedAttributes
Namespace Connection Namespace Connection
Namespace Protocol Namespace Protocol

45
mRemoteV1/Connection/Connection.Protocol.VNC.vb
View File

@@ -1,6 +1,7 @@
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Imports VncSharp Imports VncSharp
Imports System.ComponentModel Imports System.ComponentModel
Imports mRemoteNG.Tools.LocalizedAttributes
Namespace Connection Namespace Connection
Namespace Protocol Namespace Protocol
@@ -242,9 +243,9 @@ Namespace Connection
CtrlEsc CtrlEsc
End Enum End Enum
Public Enum Compression ' TODO: Translate this Public Enum Compression
<Description("No compression")> _ <LocalizedDescription("strNoCompression")> _
CompNone = 99 ' My.Resources.strNoCompression CompNone = 99
<Description("0")> _ <Description("0")> _
Comp0 = 0 Comp0 = 0
<Description("1")> _ <Description("1")> _
@@ -287,37 +288,37 @@ Namespace Connection
End Enum End Enum
Public Enum AuthMode Public Enum AuthMode
<Description("VNC")> _ <LocalizedDescription("VNC")> _
AuthVNC AuthVNC
<Description("Windows")> _ <LocalizedDescription("Windows")> _
AuthWin AuthWin
End Enum End Enum
Public Enum ProxyType ' TODO: Translate this Public Enum ProxyType
<Description("none")> _ <LocalizedDescription("strNone")> _
ProxyNone ' My.Resources.strNone ProxyNone
<Description("HTTP")> _ <LocalizedDescription("strHttp")> _
ProxyHTTP ProxyHTTP
<Description("Socks 5")> _ <LocalizedDescription("strSocks5")> _
ProxySocks5 ProxySocks5
<Description("Ultra VNC Repeater")> _ <LocalizedDescription("strUltraVncRepeater")> _
ProxyUltra ProxyUltra
End Enum End Enum
Public Enum Colors ' TODO: Translate this Public Enum Colors
<Description("Normal")> _ <LocalizedDescription("strNormal")> _
ColNormal 'My.Resources.strNormal ColNormal
<Description("8-bit")> _ <Description("8-bit")> _
Col8Bit Col8Bit
End Enum End Enum
Public Enum SmartSizeMode ' TODO: Translate this Public Enum SmartSizeMode
<Description("No SmartSize")> _ <LocalizedDescription("strNoSmartSize")> _
SmartSNo ' My.Resources.strNoSmartSize SmartSNo
<Description("Free")> _ <LocalizedDescription("strFree")> _
SmartSFree ' My.Resources.strFree SmartSFree
<Description("Aspect")> _ <LocalizedDescription("strAspect")> _
SmartSAspect ' My.Resources.strAspect SmartSAspect
End Enum End Enum
#End Region #End Region
End Class End Class

2
mRemoteV1/Connection/Connection.QuickConnect.vb
View File

@@ -1,4 +1,4 @@
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Namespace Connection Namespace Connection
Public Class QuickConnect Public Class QuickConnect

2
mRemoteV1/Container/Container.Info.vb
View File

@@ -1,6 +1,6 @@
Imports System.Windows.Forms Imports System.Windows.Forms
Imports System.ComponentModel Imports System.ComponentModel
Imports mRemote.Tools.LocalizedAttributes Imports mRemoteNG.Tools.LocalizedAttributes
Namespace Container Namespace Container
<DefaultProperty("Name")> _ <DefaultProperty("Name")> _

2
mRemoteV1/Container/Container.List.vb
View File

@@ -1,5 +1,3 @@
Imports System.Windows.Forms
Namespace Container Namespace Container
Public Class List Public Class List
Inherits CollectionBase Inherits CollectionBase

2
mRemoteV1/Credential/Credential.Info.vb
View File

@@ -1,5 +1,5 @@
Imports System.ComponentModel Imports System.ComponentModel
Imports mRemote.Tools.LocalizedAttributes Imports mRemoteNG.Tools.LocalizedAttributes
Namespace Credential Namespace Credential
Public Class Info Public Class Info

4
mRemoteV1/Forms/frmChoosePanel.Designer.vb generated
View File

@@ -60,7 +60,7 @@ Partial Class frmChoosePanel
'btnNew 'btnNew
' '
Me.btnNew.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnNew.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnNew.Image = Global.mRemote.My.Resources.Resources.Panel_Add Me.btnNew.Image = Global.mRemoteNG.My.Resources.Resources.Panel_Add
Me.btnNew.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnNew.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnNew.Location = New System.Drawing.Point(10, 44) Me.btnNew.Location = New System.Drawing.Point(10, 44)
Me.btnNew.Name = "btnNew" Me.btnNew.Name = "btnNew"
@@ -94,7 +94,7 @@ Partial Class frmChoosePanel
Me.Controls.Add(Me.btnOK) Me.Controls.Add(Me.btnOK)
Me.Controls.Add(Me.cbPanels) Me.Controls.Add(Me.cbPanels)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Icon = Global.mRemote.My.Resources.Resources.Panels_Icon Me.Icon = Global.mRemoteNG.My.Resources.Resources.Panels_Icon
Me.MaximizeBox = False Me.MaximizeBox = False
Me.MinimizeBox = False Me.MinimizeBox = False
Me.Name = "frmChoosePanel" Me.Name = "frmChoosePanel"

2
mRemoteV1/Forms/frmChoosePanel.vb
View File

@@ -1,4 +1,4 @@
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Public Class frmChoosePanel Public Class frmChoosePanel
Public Property Panel() As String Public Property Panel() As String

66
mRemoteV1/Forms/frmMain.Designer.vb generated
View File

@@ -211,7 +211,7 @@ Partial Class frmMain
' '
'mMenFileNewConnection 'mMenFileNewConnection
' '
Me.mMenFileNewConnection.Image = Global.mRemote.My.Resources.Resources.Connection_Add Me.mMenFileNewConnection.Image = Global.mRemoteNG.My.Resources.Resources.Connection_Add
Me.mMenFileNewConnection.Name = "mMenFileNewConnection" Me.mMenFileNewConnection.Name = "mMenFileNewConnection"
Me.mMenFileNewConnection.ShortcutKeys = CType((System.Windows.Forms.Keys.Shift Or System.Windows.Forms.Keys.F4), System.Windows.Forms.Keys) Me.mMenFileNewConnection.ShortcutKeys = CType((System.Windows.Forms.Keys.Shift Or System.Windows.Forms.Keys.F4), System.Windows.Forms.Keys)
Me.mMenFileNewConnection.Size = New System.Drawing.Size(334, 22) Me.mMenFileNewConnection.Size = New System.Drawing.Size(334, 22)
@@ -219,7 +219,7 @@ Partial Class frmMain
' '
'mMenFileNewFolder 'mMenFileNewFolder
' '
Me.mMenFileNewFolder.Image = Global.mRemote.My.Resources.Resources.Folder_Add Me.mMenFileNewFolder.Image = Global.mRemoteNG.My.Resources.Resources.Folder_Add
Me.mMenFileNewFolder.Name = "mMenFileNewFolder" Me.mMenFileNewFolder.Name = "mMenFileNewFolder"
Me.mMenFileNewFolder.ShortcutKeys = System.Windows.Forms.Keys.F7 Me.mMenFileNewFolder.ShortcutKeys = System.Windows.Forms.Keys.F7
Me.mMenFileNewFolder.Size = New System.Drawing.Size(334, 22) Me.mMenFileNewFolder.Size = New System.Drawing.Size(334, 22)
@@ -232,7 +232,7 @@ Partial Class frmMain
' '
'mMenFileNew 'mMenFileNew
' '
Me.mMenFileNew.Image = Global.mRemote.My.Resources.Resources.Connections_New Me.mMenFileNew.Image = Global.mRemoteNG.My.Resources.Resources.Connections_New
Me.mMenFileNew.Name = "mMenFileNew" Me.mMenFileNew.Name = "mMenFileNew"
Me.mMenFileNew.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.N), System.Windows.Forms.Keys) Me.mMenFileNew.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.N), System.Windows.Forms.Keys)
Me.mMenFileNew.Size = New System.Drawing.Size(334, 22) Me.mMenFileNew.Size = New System.Drawing.Size(334, 22)
@@ -240,7 +240,7 @@ Partial Class frmMain
' '
'mMenFileLoad 'mMenFileLoad
' '
Me.mMenFileLoad.Image = Global.mRemote.My.Resources.Resources.Connections_Load Me.mMenFileLoad.Image = Global.mRemoteNG.My.Resources.Resources.Connections_Load
Me.mMenFileLoad.Name = "mMenFileLoad" Me.mMenFileLoad.Name = "mMenFileLoad"
Me.mMenFileLoad.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.O), System.Windows.Forms.Keys) Me.mMenFileLoad.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.O), System.Windows.Forms.Keys)
Me.mMenFileLoad.Size = New System.Drawing.Size(334, 22) Me.mMenFileLoad.Size = New System.Drawing.Size(334, 22)
@@ -248,7 +248,7 @@ Partial Class frmMain
' '
'mMenFileSave 'mMenFileSave
' '
Me.mMenFileSave.Image = Global.mRemote.My.Resources.Resources.Connections_Save Me.mMenFileSave.Image = Global.mRemoteNG.My.Resources.Resources.Connections_Save
Me.mMenFileSave.Name = "mMenFileSave" Me.mMenFileSave.Name = "mMenFileSave"
Me.mMenFileSave.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.S), System.Windows.Forms.Keys) Me.mMenFileSave.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.S), System.Windows.Forms.Keys)
Me.mMenFileSave.Size = New System.Drawing.Size(334, 22) Me.mMenFileSave.Size = New System.Drawing.Size(334, 22)
@@ -256,7 +256,7 @@ Partial Class frmMain
' '
'mMenFileSaveAs 'mMenFileSaveAs
' '
Me.mMenFileSaveAs.Image = Global.mRemote.My.Resources.Resources.Connections_SaveAs Me.mMenFileSaveAs.Image = Global.mRemoteNG.My.Resources.Resources.Connections_SaveAs
Me.mMenFileSaveAs.Name = "mMenFileSaveAs" Me.mMenFileSaveAs.Name = "mMenFileSaveAs"
Me.mMenFileSaveAs.ShortcutKeys = CType(((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.Shift) _ Me.mMenFileSaveAs.ShortcutKeys = CType(((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.Shift) _
Or System.Windows.Forms.Keys.S), System.Windows.Forms.Keys) Or System.Windows.Forms.Keys.S), System.Windows.Forms.Keys)
@@ -317,21 +317,21 @@ Partial Class frmMain
' '
'mMenFileDelete 'mMenFileDelete
' '
Me.mMenFileDelete.Image = Global.mRemote.My.Resources.Resources.Delete Me.mMenFileDelete.Image = Global.mRemoteNG.My.Resources.Resources.Delete
Me.mMenFileDelete.Name = "mMenFileDelete" Me.mMenFileDelete.Name = "mMenFileDelete"
Me.mMenFileDelete.Size = New System.Drawing.Size(334, 22) Me.mMenFileDelete.Size = New System.Drawing.Size(334, 22)
Me.mMenFileDelete.Text = "Delete..." Me.mMenFileDelete.Text = "Delete..."
' '
'mMenFileRename 'mMenFileRename
' '
Me.mMenFileRename.Image = Global.mRemote.My.Resources.Resources.Rename Me.mMenFileRename.Image = Global.mRemoteNG.My.Resources.Resources.Rename
Me.mMenFileRename.Name = "mMenFileRename" Me.mMenFileRename.Name = "mMenFileRename"
Me.mMenFileRename.Size = New System.Drawing.Size(334, 22) Me.mMenFileRename.Size = New System.Drawing.Size(334, 22)
Me.mMenFileRename.Text = "Rename" Me.mMenFileRename.Text = "Rename"
' '
'mMenFileDuplicate 'mMenFileDuplicate
' '
Me.mMenFileDuplicate.Image = Global.mRemote.My.Resources.Resources.Connection_Duplicate Me.mMenFileDuplicate.Image = Global.mRemoteNG.My.Resources.Resources.Connection_Duplicate
Me.mMenFileDuplicate.Name = "mMenFileDuplicate" Me.mMenFileDuplicate.Name = "mMenFileDuplicate"
Me.mMenFileDuplicate.Size = New System.Drawing.Size(334, 22) Me.mMenFileDuplicate.Size = New System.Drawing.Size(334, 22)
Me.mMenFileDuplicate.Text = "Duplicate" Me.mMenFileDuplicate.Text = "Duplicate"
@@ -343,7 +343,7 @@ Partial Class frmMain
' '
'mMenFileExit 'mMenFileExit
' '
Me.mMenFileExit.Image = Global.mRemote.My.Resources.Resources.Quit Me.mMenFileExit.Image = Global.mRemoteNG.My.Resources.Resources.Quit
Me.mMenFileExit.Name = "mMenFileExit" Me.mMenFileExit.Name = "mMenFileExit"
Me.mMenFileExit.ShortcutKeys = CType((System.Windows.Forms.Keys.Alt Or System.Windows.Forms.Keys.F4), System.Windows.Forms.Keys) Me.mMenFileExit.ShortcutKeys = CType((System.Windows.Forms.Keys.Alt Or System.Windows.Forms.Keys.F4), System.Windows.Forms.Keys)
Me.mMenFileExit.Size = New System.Drawing.Size(334, 22) Me.mMenFileExit.Size = New System.Drawing.Size(334, 22)
@@ -358,14 +358,14 @@ Partial Class frmMain
' '
'mMenViewAddConnectionPanel 'mMenViewAddConnectionPanel
' '
Me.mMenViewAddConnectionPanel.Image = Global.mRemote.My.Resources.Resources.Panel_Add Me.mMenViewAddConnectionPanel.Image = Global.mRemoteNG.My.Resources.Resources.Panel_Add
Me.mMenViewAddConnectionPanel.Name = "mMenViewAddConnectionPanel" Me.mMenViewAddConnectionPanel.Name = "mMenViewAddConnectionPanel"
Me.mMenViewAddConnectionPanel.Size = New System.Drawing.Size(228, 22) Me.mMenViewAddConnectionPanel.Size = New System.Drawing.Size(228, 22)
Me.mMenViewAddConnectionPanel.Text = "Add Connection Panel" Me.mMenViewAddConnectionPanel.Text = "Add Connection Panel"
' '
'mMenViewConnectionPanels 'mMenViewConnectionPanels
' '
Me.mMenViewConnectionPanels.Image = Global.mRemote.My.Resources.Resources.Panels Me.mMenViewConnectionPanels.Image = Global.mRemoteNG.My.Resources.Resources.Panels
Me.mMenViewConnectionPanels.Name = "mMenViewConnectionPanels" Me.mMenViewConnectionPanels.Name = "mMenViewConnectionPanels"
Me.mMenViewConnectionPanels.Size = New System.Drawing.Size(228, 22) Me.mMenViewConnectionPanels.Size = New System.Drawing.Size(228, 22)
Me.mMenViewConnectionPanels.Text = "Connection Panels" Me.mMenViewConnectionPanels.Text = "Connection Panels"
@@ -379,7 +379,7 @@ Partial Class frmMain
' '
Me.mMenViewConnections.Checked = True Me.mMenViewConnections.Checked = True
Me.mMenViewConnections.CheckState = System.Windows.Forms.CheckState.Checked Me.mMenViewConnections.CheckState = System.Windows.Forms.CheckState.Checked
Me.mMenViewConnections.Image = Global.mRemote.My.Resources.Resources.Root Me.mMenViewConnections.Image = Global.mRemoteNG.My.Resources.Resources.Root
Me.mMenViewConnections.Name = "mMenViewConnections" Me.mMenViewConnections.Name = "mMenViewConnections"
Me.mMenViewConnections.Size = New System.Drawing.Size(228, 22) Me.mMenViewConnections.Size = New System.Drawing.Size(228, 22)
Me.mMenViewConnections.Text = "Connections" Me.mMenViewConnections.Text = "Connections"
@@ -406,7 +406,7 @@ Partial Class frmMain
' '
Me.mMenViewErrorsAndInfos.Checked = True Me.mMenViewErrorsAndInfos.Checked = True
Me.mMenViewErrorsAndInfos.CheckState = System.Windows.Forms.CheckState.Checked Me.mMenViewErrorsAndInfos.CheckState = System.Windows.Forms.CheckState.Checked
Me.mMenViewErrorsAndInfos.Image = Global.mRemote.My.Resources.Resources.ErrorsAndInfos Me.mMenViewErrorsAndInfos.Image = Global.mRemoteNG.My.Resources.Resources.ErrorsAndInfos
Me.mMenViewErrorsAndInfos.Name = "mMenViewErrorsAndInfos" Me.mMenViewErrorsAndInfos.Name = "mMenViewErrorsAndInfos"
Me.mMenViewErrorsAndInfos.Size = New System.Drawing.Size(228, 22) Me.mMenViewErrorsAndInfos.Size = New System.Drawing.Size(228, 22)
Me.mMenViewErrorsAndInfos.Text = "Errors and Infos" Me.mMenViewErrorsAndInfos.Text = "Errors and Infos"
@@ -426,7 +426,7 @@ Partial Class frmMain
'mMenViewJumpTo 'mMenViewJumpTo
' '
Me.mMenViewJumpTo.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mMenViewJumpToConnectionsConfig, Me.mMenViewJumpToSessionsScreenshots, Me.mMenViewJumpToErrorsInfos}) Me.mMenViewJumpTo.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mMenViewJumpToConnectionsConfig, Me.mMenViewJumpToSessionsScreenshots, Me.mMenViewJumpToErrorsInfos})
Me.mMenViewJumpTo.Image = Global.mRemote.My.Resources.Resources.JumpTo Me.mMenViewJumpTo.Image = Global.mRemoteNG.My.Resources.Resources.JumpTo
Me.mMenViewJumpTo.Name = "mMenViewJumpTo" Me.mMenViewJumpTo.Name = "mMenViewJumpTo"
Me.mMenViewJumpTo.Size = New System.Drawing.Size(228, 22) Me.mMenViewJumpTo.Size = New System.Drawing.Size(228, 22)
Me.mMenViewJumpTo.Text = "Jump To" Me.mMenViewJumpTo.Text = "Jump To"
@@ -468,7 +468,7 @@ Partial Class frmMain
' '
'mMenViewQuickConnectToolbar 'mMenViewQuickConnectToolbar
' '
Me.mMenViewQuickConnectToolbar.Image = Global.mRemote.My.Resources.Resources.Play_Quick Me.mMenViewQuickConnectToolbar.Image = Global.mRemoteNG.My.Resources.Resources.Play_Quick
Me.mMenViewQuickConnectToolbar.Name = "mMenViewQuickConnectToolbar" Me.mMenViewQuickConnectToolbar.Name = "mMenViewQuickConnectToolbar"
Me.mMenViewQuickConnectToolbar.Size = New System.Drawing.Size(228, 22) Me.mMenViewQuickConnectToolbar.Size = New System.Drawing.Size(228, 22)
Me.mMenViewQuickConnectToolbar.Text = "Quick Connect Toolbar" Me.mMenViewQuickConnectToolbar.Text = "Quick Connect Toolbar"
@@ -487,7 +487,7 @@ Partial Class frmMain
' '
'mMenViewFullscreen 'mMenViewFullscreen
' '
Me.mMenViewFullscreen.Image = Global.mRemote.My.Resources.Resources.Fullscreen Me.mMenViewFullscreen.Image = Global.mRemoteNG.My.Resources.Resources.Fullscreen
Me.mMenViewFullscreen.Name = "mMenViewFullscreen" Me.mMenViewFullscreen.Name = "mMenViewFullscreen"
Me.mMenViewFullscreen.ShortcutKeys = System.Windows.Forms.Keys.F11 Me.mMenViewFullscreen.ShortcutKeys = System.Windows.Forms.Keys.F11
Me.mMenViewFullscreen.Size = New System.Drawing.Size(228, 22) Me.mMenViewFullscreen.Size = New System.Drawing.Size(228, 22)
@@ -502,14 +502,14 @@ Partial Class frmMain
' '
'mMenToolsSSHTransfer 'mMenToolsSSHTransfer
' '
Me.mMenToolsSSHTransfer.Image = Global.mRemote.My.Resources.Resources.SSHTransfer Me.mMenToolsSSHTransfer.Image = Global.mRemoteNG.My.Resources.Resources.SSHTransfer
Me.mMenToolsSSHTransfer.Name = "mMenToolsSSHTransfer" Me.mMenToolsSSHTransfer.Name = "mMenToolsSSHTransfer"
Me.mMenToolsSSHTransfer.Size = New System.Drawing.Size(184, 22) Me.mMenToolsSSHTransfer.Size = New System.Drawing.Size(184, 22)
Me.mMenToolsSSHTransfer.Text = "SSH File Transfer" Me.mMenToolsSSHTransfer.Text = "SSH File Transfer"
' '
'mMenToolsUVNCSC 'mMenToolsUVNCSC
' '
Me.mMenToolsUVNCSC.Image = Global.mRemote.My.Resources.Resources.UVNC_SC Me.mMenToolsUVNCSC.Image = Global.mRemoteNG.My.Resources.Resources.UVNC_SC
Me.mMenToolsUVNCSC.Name = "mMenToolsUVNCSC" Me.mMenToolsUVNCSC.Name = "mMenToolsUVNCSC"
Me.mMenToolsUVNCSC.Size = New System.Drawing.Size(184, 22) Me.mMenToolsUVNCSC.Size = New System.Drawing.Size(184, 22)
Me.mMenToolsUVNCSC.Text = "UltraVNC SingleClick" Me.mMenToolsUVNCSC.Text = "UltraVNC SingleClick"
@@ -524,7 +524,7 @@ Partial Class frmMain
' '
'mMenToolsPortScan 'mMenToolsPortScan
' '
Me.mMenToolsPortScan.Image = Global.mRemote.My.Resources.Resources.PortScan Me.mMenToolsPortScan.Image = Global.mRemoteNG.My.Resources.Resources.PortScan
Me.mMenToolsPortScan.Name = "mMenToolsPortScan" Me.mMenToolsPortScan.Name = "mMenToolsPortScan"
Me.mMenToolsPortScan.Size = New System.Drawing.Size(184, 22) Me.mMenToolsPortScan.Size = New System.Drawing.Size(184, 22)
Me.mMenToolsPortScan.Text = "Port Scan" Me.mMenToolsPortScan.Text = "Port Scan"
@@ -536,7 +536,7 @@ Partial Class frmMain
' '
'mMenToolsComponentsCheck 'mMenToolsComponentsCheck
' '
Me.mMenToolsComponentsCheck.Image = Global.mRemote.My.Resources.Resources.ComponentsCheck Me.mMenToolsComponentsCheck.Image = Global.mRemoteNG.My.Resources.Resources.ComponentsCheck
Me.mMenToolsComponentsCheck.Name = "mMenToolsComponentsCheck" Me.mMenToolsComponentsCheck.Name = "mMenToolsComponentsCheck"
Me.mMenToolsComponentsCheck.Size = New System.Drawing.Size(184, 22) Me.mMenToolsComponentsCheck.Size = New System.Drawing.Size(184, 22)
Me.mMenToolsComponentsCheck.Text = "Components Check" Me.mMenToolsComponentsCheck.Text = "Components Check"
@@ -578,7 +578,7 @@ Partial Class frmMain
' '
'mMenInfoDonate 'mMenInfoDonate
' '
Me.mMenInfoDonate.Image = Global.mRemote.My.Resources.Resources.Donate Me.mMenInfoDonate.Image = Global.mRemoteNG.My.Resources.Resources.Donate
Me.mMenInfoDonate.Name = "mMenInfoDonate" Me.mMenInfoDonate.Name = "mMenInfoDonate"
Me.mMenInfoDonate.Size = New System.Drawing.Size(190, 22) Me.mMenInfoDonate.Size = New System.Drawing.Size(190, 22)
Me.mMenInfoDonate.Text = "Donate" Me.mMenInfoDonate.Text = "Donate"
@@ -591,7 +591,7 @@ Partial Class frmMain
' '
'mMenInfoBugReport 'mMenInfoBugReport
' '
Me.mMenInfoBugReport.Image = Global.mRemote.My.Resources.Resources.Bug Me.mMenInfoBugReport.Image = Global.mRemoteNG.My.Resources.Resources.Bug
Me.mMenInfoBugReport.Name = "mMenInfoBugReport" Me.mMenInfoBugReport.Name = "mMenInfoBugReport"
Me.mMenInfoBugReport.Size = New System.Drawing.Size(190, 22) Me.mMenInfoBugReport.Size = New System.Drawing.Size(190, 22)
Me.mMenInfoBugReport.Text = "Report a Bug" Me.mMenInfoBugReport.Text = "Report a Bug"
@@ -603,14 +603,14 @@ Partial Class frmMain
' '
'mMenInfoAnnouncements 'mMenInfoAnnouncements
' '
Me.mMenInfoAnnouncements.Image = Global.mRemote.My.Resources.Resources.News Me.mMenInfoAnnouncements.Image = Global.mRemoteNG.My.Resources.Resources.News
Me.mMenInfoAnnouncements.Name = "mMenInfoAnnouncements" Me.mMenInfoAnnouncements.Name = "mMenInfoAnnouncements"
Me.mMenInfoAnnouncements.Size = New System.Drawing.Size(190, 22) Me.mMenInfoAnnouncements.Size = New System.Drawing.Size(190, 22)
Me.mMenInfoAnnouncements.Text = "Announcements" Me.mMenInfoAnnouncements.Text = "Announcements"
' '
'mMenToolsUpdate 'mMenToolsUpdate
' '
Me.mMenToolsUpdate.Image = Global.mRemote.My.Resources.Resources.Update Me.mMenToolsUpdate.Image = Global.mRemoteNG.My.Resources.Resources.Update
Me.mMenToolsUpdate.Name = "mMenToolsUpdate" Me.mMenToolsUpdate.Name = "mMenToolsUpdate"
Me.mMenToolsUpdate.Size = New System.Drawing.Size(190, 22) Me.mMenToolsUpdate.Size = New System.Drawing.Size(190, 22)
Me.mMenToolsUpdate.Text = "Check for Updates" Me.mMenToolsUpdate.Text = "Check for Updates"
@@ -622,7 +622,7 @@ Partial Class frmMain
' '
'mMenInfoAbout 'mMenInfoAbout
' '
Me.mMenInfoAbout.Image = Global.mRemote.My.Resources.Resources.mRemote Me.mMenInfoAbout.Image = Global.mRemoteNG.My.Resources.Resources.mRemote
Me.mMenInfoAbout.Name = "mMenInfoAbout" Me.mMenInfoAbout.Name = "mMenInfoAbout"
Me.mMenInfoAbout.Size = New System.Drawing.Size(190, 22) Me.mMenInfoAbout.Size = New System.Drawing.Size(190, 22)
Me.mMenInfoAbout.Text = "About mRemoteNG" Me.mMenInfoAbout.Text = "About mRemoteNG"
@@ -715,7 +715,7 @@ Partial Class frmMain
'btnQuickyPlay 'btnQuickyPlay
' '
Me.btnQuickyPlay.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.btnQuickyPlay.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnQuickyPlay.Image = Global.mRemote.My.Resources.Resources.Play_Quick Me.btnQuickyPlay.Image = Global.mRemoteNG.My.Resources.Resources.Play_Quick
Me.btnQuickyPlay.ImageTransparentColor = System.Drawing.Color.Magenta Me.btnQuickyPlay.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnQuickyPlay.Name = "btnQuickyPlay" Me.btnQuickyPlay.Name = "btnQuickyPlay"
Me.btnQuickyPlay.Size = New System.Drawing.Size(32, 22) Me.btnQuickyPlay.Size = New System.Drawing.Size(32, 22)
@@ -726,7 +726,7 @@ Partial Class frmMain
Me.mMenQuickyCon.AutoSize = False Me.mMenQuickyCon.AutoSize = False
Me.mMenQuickyCon.AutoToolTip = True Me.mMenQuickyCon.AutoToolTip = True
Me.mMenQuickyCon.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.mMenQuickyCon.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.mMenQuickyCon.Image = Global.mRemote.My.Resources.Resources.Root Me.mMenQuickyCon.Image = Global.mRemoteNG.My.Resources.Resources.Root
Me.mMenQuickyCon.ImageTransparentColor = System.Drawing.Color.Magenta Me.mMenQuickyCon.ImageTransparentColor = System.Drawing.Color.Magenta
Me.mMenQuickyCon.Name = "mMenQuickyCon" Me.mMenQuickyCon.Name = "mMenQuickyCon"
Me.mMenQuickyCon.Size = New System.Drawing.Size(30, 22) Me.mMenQuickyCon.Size = New System.Drawing.Size(30, 22)
@@ -743,7 +743,7 @@ Partial Class frmMain
' '
'ToolStripButton1 'ToolStripButton1
' '
Me.ToolStripButton1.Image = Global.mRemote.My.Resources.Resources.Play Me.ToolStripButton1.Image = Global.mRemoteNG.My.Resources.Resources.Play
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1" Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(72, 22) Me.ToolStripButton1.Size = New System.Drawing.Size(72, 22)
@@ -751,7 +751,7 @@ Partial Class frmMain
' '
'ToolStripButton2 'ToolStripButton2
' '
Me.ToolStripButton2.Image = Global.mRemote.My.Resources.Resources.Screenshot Me.ToolStripButton2.Image = Global.mRemoteNG.My.Resources.Resources.Screenshot
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2" Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(85, 22) Me.ToolStripButton2.Size = New System.Drawing.Size(85, 22)
@@ -759,7 +759,7 @@ Partial Class frmMain
' '
'ToolStripButton3 'ToolStripButton3
' '
Me.ToolStripButton3.Image = Global.mRemote.My.Resources.Resources.Refresh Me.ToolStripButton3.Image = Global.mRemoteNG.My.Resources.Resources.Refresh
Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton3.Name = "ToolStripButton3" Me.ToolStripButton3.Name = "ToolStripButton3"
Me.ToolStripButton3.Size = New System.Drawing.Size(66, 22) Me.ToolStripButton3.Size = New System.Drawing.Size(66, 22)
@@ -769,7 +769,7 @@ Partial Class frmMain
' '
Me.ToolStripSplitButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.ToolStripSplitButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripSplitButton1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.ToolStripMenuItem2}) Me.ToolStripSplitButton1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.ToolStripMenuItem2})
Me.ToolStripSplitButton1.Image = Global.mRemote.My.Resources.Resources.Keyboard Me.ToolStripSplitButton1.Image = Global.mRemoteNG.My.Resources.Resources.Keyboard
Me.ToolStripSplitButton1.ImageTransparentColor = System.Drawing.Color.Magenta Me.ToolStripSplitButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripSplitButton1.Name = "ToolStripSplitButton1" Me.ToolStripSplitButton1.Name = "ToolStripSplitButton1"
Me.ToolStripSplitButton1.Size = New System.Drawing.Size(29, 22) Me.ToolStripSplitButton1.Size = New System.Drawing.Size(29, 22)
@@ -802,7 +802,7 @@ Partial Class frmMain
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(842, 523) Me.ClientSize = New System.Drawing.Size(842, 523)
Me.Controls.Add(Me.tsContainer) Me.Controls.Add(Me.tsContainer)
Me.Icon = Global.mRemote.My.Resources.Resources.mRemote_Icon Me.Icon = Global.mRemoteNG.My.Resources.Resources.mRemote_Icon
Me.MainMenuStrip = Me.msMain Me.MainMenuStrip = Me.msMain
Me.Name = "frmMain" Me.Name = "frmMain"
Me.Text = "mRemoteNG" Me.Text = "mRemoteNG"

24
mRemoteV1/Forms/frmMain.vb
View File

@@ -1,7 +1,7 @@
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Imports System.Reflection Imports System.Reflection
Imports Crownwood Imports Crownwood
Imports mRemote.App.Native Imports mRemoteNG.App.Native
Imports PSTaskDialog Imports PSTaskDialog
Public Class frmMain Public Class frmMain
@@ -246,7 +246,7 @@ Public Class frmMain
#Region "Menu" #Region "Menu"
#Region "File" #Region "File"
Private Sub mMenFile_DropDownOpening(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mMenFile.DropDownOpening Private Sub mMenFile_DropDownOpening(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mMenFile.DropDownOpening
Select Case Tree.Node.GetNodeType(mRemote.Tree.Node.SelectedNode) Select Case Tree.Node.GetNodeType(mRemoteNG.Tree.Node.SelectedNode)
Case Tree.Node.Type.Root Case Tree.Node.Type.Root
mMenFileImportExport.Enabled = True mMenFileImportExport.Enabled = True
mMenFileDelete.Enabled = False mMenFileDelete.Enabled = False
@@ -523,7 +523,7 @@ Public Class frmMain
Try Try
btnQuickyPlay.DropDownItems.Clear() btnQuickyPlay.DropDownItems.Clear()
For Each fI As FieldInfo In GetType(mRemote.Connection.Protocol.Protocols).GetFields For Each fI As FieldInfo In GetType(mRemoteNG.Connection.Protocol.Protocols).GetFields
If fI.Name <> "value__" And fI.Name <> "NONE" And fI.Name <> "IntApp" Then If fI.Name <> "value__" And fI.Name <> "NONE" And fI.Name <> "IntApp" Then
Dim nBtn As New ToolStripMenuItem Dim nBtn As New ToolStripMenuItem
nBtn.Text = fI.Name nBtn.Text = fI.Name
@@ -538,21 +538,21 @@ Public Class frmMain
Private Sub QuickyProtocolButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Private Sub QuickyProtocolButton_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Try Try
Dim conI As Connection.Info = CreateQuicky(QuickyText, Tools.Misc.StringToEnum(GetType(mRemote.Connection.Protocol.Protocols), sender.Text)) Dim conI As Connection.Info = CreateQuicky(QuickyText, Tools.Misc.StringToEnum(GetType(mRemoteNG.Connection.Protocol.Protocols), sender.Text))
If conI.Port = 0 Then If conI.Port = 0 Then
conI.SetDefaultPort() conI.SetDefaultPort()
If mRemote.Connection.QuickConnect.History.Exists(conI.Hostname) = False Then If mRemoteNG.Connection.QuickConnect.History.Exists(conI.Hostname) = False Then
mRemote.Connection.QuickConnect.History.Add(conI.Hostname) mRemoteNG.Connection.QuickConnect.History.Add(conI.Hostname)
End If End If
Else Else
If mRemote.Connection.QuickConnect.History.Exists(conI.Hostname) = False Then If mRemoteNG.Connection.QuickConnect.History.Exists(conI.Hostname) = False Then
mRemote.Connection.QuickConnect.History.Add(conI.Hostname & ":" & conI.Port) mRemoteNG.Connection.QuickConnect.History.Add(conI.Hostname & ":" & conI.Port)
End If End If
End If End If
App.Runtime.OpenConnection(conI, mRemote.Connection.Info.Force.DoNotJump) App.Runtime.OpenConnection(conI, mRemoteNG.Connection.Info.Force.DoNotJump)
Catch ex As Exception Catch ex As Exception
mC.AddMessage(Messages.MessageClass.ErrorMsg, "QuickyProtocolButton_Click (frmMain) failed" & vbNewLine & ex.Message, True) mC.AddMessage(Messages.MessageClass.ErrorMsg, "QuickyProtocolButton_Click (frmMain) failed" & vbNewLine & ex.Message, True)
End Try End Try
@@ -651,7 +651,7 @@ Public Class frmMain
Private Sub ConMenItem_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Private Sub ConMenItem_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
If e.Button = MouseButtons.Left Then If e.Button = MouseButtons.Left Then
If TypeOf sender.Tag Is mRemote.Connection.Info Then If TypeOf sender.Tag Is mRemoteNG.Connection.Info Then
App.Runtime.OpenConnection(sender.Tag) App.Runtime.OpenConnection(sender.Tag)
End If End If
End If End If
@@ -679,7 +679,7 @@ Public Class frmMain
Try Try
'Debug.Print(m.Msg) 'Debug.Print(m.Msg)
Select m.Msg Select Case m.Msg
Case WM_GETTEXT Case WM_GETTEXT
bWmGetTextFlag = True bWmGetTextFlag = True
Case WM_WINDOWPOSCHANGED Case WM_WINDOWPOSCHANGED

2
mRemoteV1/Forms/frmPassword.Designer.vb generated
View File

@@ -113,7 +113,7 @@ Partial Class frmPassword
' '
'pbLock 'pbLock
' '
Me.pbLock.Image = Global.mRemote.My.Resources.Resources.Lock Me.pbLock.Image = Global.mRemoteNG.My.Resources.Resources.Lock
Me.pbLock.Location = New System.Drawing.Point(7, 8) Me.pbLock.Location = New System.Drawing.Point(7, 8)
Me.pbLock.Name = "pbLock" Me.pbLock.Name = "pbLock"
Me.pbLock.Size = New System.Drawing.Size(64, 64) Me.pbLock.Size = New System.Drawing.Size(64, 64)

50
mRemoteV1/Language/Resources.de.resx
View File

@@ -339,7 +339,7 @@
<value>Hier klicken um die PuTTY Sitzung zu konfigurieren:</value> <value>Hier klicken um die PuTTY Sitzung zu konfigurieren:</value>
</data> </data>
<data name="strLabelPuttyTimeout" xml:space="preserve"> <data name="strLabelPuttyTimeout" xml:space="preserve">
<value>Maximale Zeit die auf PuTTY und integrierte Ext. Apps gewartet wird:</value> <value>Maximale Zeit die auf PuTTY und integrierte externe Programme gewartet wird:</value>
</data> </data>
<data name="strLabelReleasedUnderGPL" xml:space="preserve"> <data name="strLabelReleasedUnderGPL" xml:space="preserve">
<value>Unter der GNU General Public License (GPL) veröffentlicht</value> <value>Unter der GNU General Public License (GPL) veröffentlicht</value>
@@ -1692,4 +1692,52 @@ Starte mit neuer Datei.</value>
<data name="strUpdateDownloadCompleteFailed" xml:space="preserve"> <data name="strUpdateDownloadCompleteFailed" xml:space="preserve">
<value>Abschluss des Downloads ist fehlgeschlagen!</value> <value>Abschluss des Downloads ist fehlgeschlagen!</value>
</data> </data>
<data name="strCommandLineArgsCouldNotBeParsed" xml:space="preserve">
<value>Die Kommandozeilen Parameter kontnen nicht ausgewertet werden!</value>
</data>
<data name="strSettingsCouldNotBeSavedOrTrayDispose" xml:space="preserve">
<value>Konnte die Konfiguration nicht sichern oder das Tray Symbol entfernen!</value>
</data>
<data name="strUltraVncRepeater" xml:space="preserve">
<value>Ultra Vnc Repeater</value>
</data>
<data name="strSocks5" xml:space="preserve">
<value>Socks 5</value>
</data>
<data name="strHttp" xml:space="preserve">
<value>HTTP</value>
</data>
<data name="strVnc" xml:space="preserve">
<value>VNC</value>
</data>
<data name="strWindows" xml:space="preserve">
<value>Windows</value>
</data>
<data name="strExtApp" xml:space="preserve">
<value>Externes Programm</value>
</data>
<data name="strRDP" xml:space="preserve">
<value>RDP</value>
</data>
<data name="strSsh1" xml:space="preserve">
<value>SSH Version 1</value>
</data>
<data name="strSsh2" xml:space="preserve">
<value>SSH Version 2</value>
</data>
<data name="strTelnet" xml:space="preserve">
<value>Telnet</value>
</data>
<data name="strRlogin" xml:space="preserve">
<value>Rlogin</value>
</data>
<data name="strRAW" xml:space="preserve">
<value>Rohdaten (RAW)</value>
</data>
<data name="strICA" xml:space="preserve">
<value>ICA</value>
</data>
<data name="strHttps" xml:space="preserve">
<value>HTTPS</value>
</data>
</root> </root>

48
mRemoteV1/Language/Resources.en-US.resx
View File

@@ -1644,4 +1644,52 @@
<data name="strUpdateDownloadCompleteFailed" xml:space="preserve"> <data name="strUpdateDownloadCompleteFailed" xml:space="preserve">
<value></value> <value></value>
</data> </data>
<data name="strCommandLineArgsCouldNotBeParsed" xml:space="preserve">
<value></value>
</data>
<data name="strSettingsCouldNotBeSavedOrTrayDispose" xml:space="preserve">
<value></value>
</data>
<data name="strUltraVncRepeater" xml:space="preserve">
<value></value>
</data>
<data name="strSocks5" xml:space="preserve">
<value></value>
</data>
<data name="strHttp" xml:space="preserve">
<value></value>
</data>
<data name="strVnc" xml:space="preserve">
<value></value>
</data>
<data name="strWindows" xml:space="preserve">
<value></value>
</data>
<data name="strExtApp" xml:space="preserve">
<value></value>
</data>
<data name="strRDP" xml:space="preserve">
<value></value>
</data>
<data name="strSsh1" xml:space="preserve">
<value></value>
</data>
<data name="strSsh2" xml:space="preserve">
<value></value>
</data>
<data name="strTelnet" xml:space="preserve">
<value></value>
</data>
<data name="strRlogin" xml:space="preserve">
<value></value>
</data>
<data name="strRAW" xml:space="preserve">
<value></value>
</data>
<data name="strICA" xml:space="preserve">
<value></value>
</data>
<data name="strHttps" xml:space="preserve">
<value></value>
</data>
</root> </root>

18
mRemoteV1/My Project/Application.Designer.vb generated
View File

@@ -1,10 +1,10 @@
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
' <auto-generated> ' <auto-generated>
' This code was generated by a tool. ' Dieser Code wurde von einem Tool generiert.
' Runtime Version:2.0.50727.1433 ' Laufzeitversion:2.0.50727.4927
' '
' Changes to this file may cause incorrect behavior and will be lost if ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' the code is regenerated. ' der Code erneut generiert wird.
' </auto-generated> ' </auto-generated>
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
@@ -14,10 +14,10 @@ Option Explicit On
Namespace My Namespace My
'NOTE: This file is auto-generated; do not modify it directly. To make changes, 'HINWEIS: Diese Datei wird automatisch generiert. Ändern Sie sie nicht direkt. Zum Ändern
' or if you encounter build errors in this file, go to the Project Designer ' oder bei in dieser Datei auftretenden Buildfehlern wechseln Sie zum Projekt-Designer.
' (go to Project Properties or double-click the My Project node in ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Eigenes Projekt" im
' Solution Explorer), and make changes on the Application tab. ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
' '
Partial Friend Class MyApplication Partial Friend Class MyApplication
@@ -32,7 +32,7 @@ Namespace My
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _ <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm() Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.mRemote.frmMain Me.MainForm = Global.mRemoteNG.frmMain
End Sub End Sub
End Class End Class
End Namespace End Namespace

146
mRemoteV1/My Project/Resources.Designer.vb generated
View File

@@ -39,7 +39,7 @@ Namespace My.Resources
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get Get
If Object.ReferenceEquals(resourceMan, Nothing) Then If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("mRemote.Resources", GetType(Resources).Assembly) Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("mRemoteNG.Resources", GetType(Resources).Assembly)
resourceMan = temp resourceMan = temp
End If End If
Return resourceMan Return resourceMan
@@ -1553,6 +1553,15 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Couldn&apos;t parse command line args! ähnelt.
'''</summary>
Friend ReadOnly Property strCommandLineArgsCouldNotBeParsed() As String
Get
Return ResourceManager.GetString("strCommandLineArgsCouldNotBeParsed", resourceCulture)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Components Check ähnelt. ''' Sucht eine lokalisierte Zeichenfolge, die Components Check ähnelt.
'''</summary> '''</summary>
@@ -1914,6 +1923,15 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Ext. App ähnelt.
'''</summary>
Friend ReadOnly Property strExtApp() As String
Get
Return ResourceManager.GetString("strExtApp", resourceCulture)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Includes icons by [FAMFAMFAM] ähnelt. ''' Sucht eine lokalisierte Zeichenfolge, die Includes icons by [FAMFAMFAM] ähnelt.
'''</summary> '''</summary>
@@ -2067,6 +2085,33 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die HTTP ähnelt.
'''</summary>
Friend ReadOnly Property strHttp() As String
Get
Return ResourceManager.GetString("strHttp", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die HTTPS ähnelt.
'''</summary>
Friend ReadOnly Property strHttps() As String
Get
Return ResourceManager.GetString("strHttps", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die ICA ähnelt.
'''</summary>
Friend ReadOnly Property strICA() As String
Get
Return ResourceManager.GetString("strICA", resourceCulture)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Import from Active Directory ähnelt. ''' Sucht eine lokalisierte Zeichenfolge, die Import from Active Directory ähnelt.
'''</summary> '''</summary>
@@ -4507,6 +4552,24 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die RAW ähnelt.
'''</summary>
Friend ReadOnly Property strRAW() As String
Get
Return ResourceManager.GetString("strRAW", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die RDP ähnelt.
'''</summary>
Friend ReadOnly Property strRDP() As String
Get
Return ResourceManager.GetString("strRDP", resourceCulture)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 16777216 Colors (24bit) ähnelt. ''' Sucht eine lokalisierte Zeichenfolge, die 16777216 Colors (24bit) ähnelt.
'''</summary> '''</summary>
@@ -4696,6 +4759,15 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Rlogin ähnelt.
'''</summary>
Friend ReadOnly Property strRlogin() As String
Get
Return ResourceManager.GetString("strRlogin", resourceCulture)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Save ähnelt. ''' Sucht eine lokalisierte Zeichenfolge, die Save ähnelt.
'''</summary> '''</summary>
@@ -4786,6 +4858,15 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Couldn&apos;t save settings or dispose SysTray Icon! ähnelt.
'''</summary>
Friend ReadOnly Property strSettingsCouldNotBeSavedOrTrayDispose() As String
Get
Return ResourceManager.GetString("strSettingsCouldNotBeSavedOrTrayDispose", resourceCulture)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Show description tooltips in connection tree ähnelt. ''' Sucht eine lokalisierte Zeichenfolge, die Show description tooltips in connection tree ähnelt.
'''</summary> '''</summary>
@@ -4867,6 +4948,15 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Socks 5 ähnelt.
'''</summary>
Friend ReadOnly Property strSocks5() As String
Get
Return ResourceManager.GetString("strSocks5", resourceCulture)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Sort ähnelt. ''' Sucht eine lokalisierte Zeichenfolge, die Sort ähnelt.
'''</summary> '''</summary>
@@ -4921,6 +5011,24 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die SSH version 1 ähnelt.
'''</summary>
Friend ReadOnly Property strSsh1() As String
Get
Return ResourceManager.GetString("strSsh1", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die SSH version 2 ähnelt.
'''</summary>
Friend ReadOnly Property strSsh2() As String
Get
Return ResourceManager.GetString("strSsh2", resourceCulture)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die SSH background transfer failed! ähnelt. ''' Sucht eine lokalisierte Zeichenfolge, die SSH background transfer failed! ähnelt.
'''</summary> '''</summary>
@@ -5029,6 +5137,15 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Telnet ähnelt.
'''</summary>
Friend ReadOnly Property strTelnet() As String
Get
Return ResourceManager.GetString("strTelnet", resourceCulture)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die the follwing ähnelt. ''' Sucht eine lokalisierte Zeichenfolge, die the follwing ähnelt.
'''</summary> '''</summary>
@@ -5128,6 +5245,15 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Ultra VNC Repeater ähnelt.
'''</summary>
Friend ReadOnly Property strUltraVncRepeater() As String
Get
Return ResourceManager.GetString("strUltraVncRepeater", resourceCulture)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die UltraVNC SingleClick Port ähnelt. ''' Sucht eine lokalisierte Zeichenfolge, die UltraVNC SingleClick Port ähnelt.
'''</summary> '''</summary>
@@ -5318,6 +5444,15 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die VNC ähnelt.
'''</summary>
Friend ReadOnly Property strVnc() As String
Get
Return ResourceManager.GetString("strVnc", resourceCulture)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Warn me if authentication fails ähnelt. ''' Sucht eine lokalisierte Zeichenfolge, die Warn me if authentication fails ähnelt.
'''</summary> '''</summary>
@@ -5336,6 +5471,15 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Windows ähnelt.
'''</summary>
Friend ReadOnly Property strWindows() As String
Get
Return ResourceManager.GetString("strWindows", resourceCulture)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Write log file (mRemoteNG.log) ähnelt. ''' Sucht eine lokalisierte Zeichenfolge, die Write log file (mRemoteNG.log) ähnelt.
'''</summary> '''</summary>

48
mRemoteV1/My Project/Resources.resx
View File

@@ -1996,4 +1996,52 @@ Starting with new connections file.</value>
<data name="strUpdateDownloadCompleteFailed" xml:space="preserve"> <data name="strUpdateDownloadCompleteFailed" xml:space="preserve">
<value>Download complete failed!</value> <value>Download complete failed!</value>
</data> </data>
<data name="strCommandLineArgsCouldNotBeParsed" xml:space="preserve">
<value>Couldn't parse command line args!</value>
</data>
<data name="strSettingsCouldNotBeSavedOrTrayDispose" xml:space="preserve">
<value>Couldn't save settings or dispose SysTray Icon!</value>
</data>
<data name="strUltraVncRepeater" xml:space="preserve">
<value>Ultra VNC Repeater</value>
</data>
<data name="strSocks5" xml:space="preserve">
<value>Socks 5</value>
</data>
<data name="strHttp" xml:space="preserve">
<value>HTTP</value>
</data>
<data name="strVnc" xml:space="preserve">
<value>VNC</value>
</data>
<data name="strWindows" xml:space="preserve">
<value>Windows</value>
</data>
<data name="strExtApp" xml:space="preserve">
<value>Ext. App</value>
</data>
<data name="strRDP" xml:space="preserve">
<value>RDP</value>
</data>
<data name="strSsh1" xml:space="preserve">
<value>SSH version 1</value>
</data>
<data name="strSsh2" xml:space="preserve">
<value>SSH version 2</value>
</data>
<data name="strTelnet" xml:space="preserve">
<value>Telnet</value>
</data>
<data name="strRlogin" xml:space="preserve">
<value>Rlogin</value>
</data>
<data name="strRAW" xml:space="preserve">
<value>RAW</value>
</data>
<data name="strICA" xml:space="preserve">
<value>ICA</value>
</data>
<data name="strHttps" xml:space="preserve">
<value>HTTPS</value>
</data>
</root> </root>

306
mRemoteV1/My Project/Settings.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

292
mRemoteV1/My Project/Settings.settings
View File

@@ -2,448 +2,448 @@
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true"> <SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
<Profiles /> <Profiles />
<Settings> <Settings>
<Setting Name="MainFormLocation" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Drawing.Point" Scope="User"> <Setting Name="MainFormLocation" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Drawing.Point" Scope="User">
<Value Profile="(Default)">999, 999</Value> <Value Profile="(Default)">999, 999</Value>
</Setting> </Setting>
<Setting Name="MainFormSize" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Drawing.Size" Scope="User"> <Setting Name="MainFormSize" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Drawing.Size" Scope="User">
<Value Profile="(Default)">900, 600</Value> <Value Profile="(Default)">900, 600</Value>
</Setting> </Setting>
<Setting Name="MainFormState" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Windows.Forms.FormWindowState" Scope="User"> <Setting Name="MainFormState" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Windows.Forms.FormWindowState" Scope="User">
<Value Profile="(Default)">Normal</Value> <Value Profile="(Default)">Normal</Value>
</Setting> </Setting>
<Setting Name="MainFormKiosk" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="MainFormKiosk" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="DoUpgrade" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="DoUpgrade" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value> <Value Profile="(Default)">True</Value>
</Setting> </Setting>
<Setting Name="CustomPuttyPath" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="CustomPuttyPath" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)" /> <Value Profile="(Default)" />
</Setting> </Setting>
<Setting Name="ShowNoMessageBoxes" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="ShowNoMessageBoxes" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value> <Value Profile="(Default)">True</Value>
</Setting> </Setting>
<Setting Name="SwitchToMCOnInformation" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="SwitchToMCOnInformation" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value> <Value Profile="(Default)">True</Value>
</Setting> </Setting>
<Setting Name="SwitchToMCOnWarning" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="SwitchToMCOnWarning" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value> <Value Profile="(Default)">True</Value>
</Setting> </Setting>
<Setting Name="SwitchToMCOnError" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="SwitchToMCOnError" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value> <Value Profile="(Default)">True</Value>
</Setting> </Setting>
<Setting Name="AutomaticallyGetSessionInfo" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="AutomaticallyGetSessionInfo" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value> <Value Profile="(Default)">True</Value>
</Setting> </Setting>
<Setting Name="LoadConsFromCustomLocation" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="LoadConsFromCustomLocation" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="CustomConsPath" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="CustomConsPath" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)" /> <Value Profile="(Default)" />
</Setting> </Setting>
<Setting Name="SaveConsOnExit" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="SaveConsOnExit" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value> <Value Profile="(Default)">True</Value>
</Setting> </Setting>
<Setting Name="ConfirmExit" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="ConfirmExit" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value> <Value Profile="(Default)">True</Value>
</Setting> </Setting>
<Setting Name="CheckForUpdatesOnStartup" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="CheckForUpdatesOnStartup" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value> <Value Profile="(Default)">True</Value>
</Setting> </Setting>
<Setting Name="ShowDescriptionTooltipsInTree" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="ShowDescriptionTooltipsInTree" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="ShowSystemTrayIcon" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="ShowSystemTrayIcon" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="OpenTabsRightOfSelected" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="OpenTabsRightOfSelected" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value> <Value Profile="(Default)">True</Value>
</Setting> </Setting>
<Setting Name="ShowLogonInfoOnTabs" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="ShowLogonInfoOnTabs" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="SingleClickOnConnectionOpensIt" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="SingleClickOnConnectionOpensIt" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="EmptyCredentials" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="EmptyCredentials" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)">noinfo</Value> <Value Profile="(Default)">noinfo</Value>
</Setting> </Setting>
<Setting Name="DefaultUsername" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="DefaultUsername" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)" /> <Value Profile="(Default)" />
</Setting> </Setting>
<Setting Name="DefaultPassword" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="DefaultPassword" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)" /> <Value Profile="(Default)" />
</Setting> </Setting>
<Setting Name="DefaultDomain" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="DefaultDomain" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)" /> <Value Profile="(Default)" />
</Setting> </Setting>
<Setting Name="WriteLogFile" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="WriteLogFile" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="UseCustomPuttyPath" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="UseCustomPuttyPath" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="ShowCompleteConsPathInTitle" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="ShowCompleteConsPathInTitle" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="FirstStart" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="FirstStart" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value> <Value Profile="(Default)">True</Value>
</Setting> </Setting>
<Setting Name="ShowProtocolOnTabs" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="ShowProtocolOnTabs" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="ResetPanels" Type="System.Boolean" Scope="User"> <Setting Name="ResetPanels" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="UpdateUseProxy" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="UpdateUseProxy" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="UpdateProxyAddress" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="UpdateProxyAddress" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)" /> <Value Profile="(Default)" />
</Setting> </Setting>
<Setting Name="UpdateProxyPort" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Int32" Scope="User"> <Setting Name="UpdateProxyPort" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Int32" Scope="User">
<Value Profile="(Default)">80</Value> <Value Profile="(Default)">80</Value>
</Setting> </Setting>
<Setting Name="UpdateProxyUseAuthentication" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="UpdateProxyUseAuthentication" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="UpdateProxyAuthUser" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="UpdateProxyAuthUser" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)" /> <Value Profile="(Default)" />
</Setting> </Setting>
<Setting Name="UpdateProxyAuthPass" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="UpdateProxyAuthPass" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)" /> <Value Profile="(Default)" />
</Setting> </Setting>
<Setting Name="ConDefaultDescription" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="ConDefaultDescription" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)" /> <Value Profile="(Default)" />
</Setting> </Setting>
<Setting Name="ConDefaultIcon" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="ConDefaultIcon" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)">mRemote</Value> <Value Profile="(Default)">mRemote</Value>
</Setting> </Setting>
<Setting Name="ConDefaultPanel" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="ConDefaultPanel" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)">General</Value> <Value Profile="(Default)">General</Value>
</Setting> </Setting>
<Setting Name="ConDefaultUsername" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="ConDefaultUsername" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)" /> <Value Profile="(Default)" />
</Setting> </Setting>
<Setting Name="ConDefaultPassword" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="ConDefaultPassword" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)" /> <Value Profile="(Default)" />
</Setting> </Setting>
<Setting Name="ConDefaultDomain" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="ConDefaultDomain" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)" /> <Value Profile="(Default)" />
</Setting> </Setting>
<Setting Name="ConDefaultProtocol" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="ConDefaultProtocol" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)">RDP</Value> <Value Profile="(Default)">RDP</Value>
</Setting> </Setting>
<Setting Name="ConDefaultPuttySession" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="ConDefaultPuttySession" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)">Default Settings</Value> <Value Profile="(Default)">Default Settings</Value>
</Setting> </Setting>
<Setting Name="ConDefaultUseConsoleSession" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="ConDefaultUseConsoleSession" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="ConDefaultResolution" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="ConDefaultResolution" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)">FitToWindow</Value> <Value Profile="(Default)">FitToWindow</Value>
</Setting> </Setting>
<Setting Name="ConDefaultColors" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="ConDefaultColors" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)">Colors16Bit</Value> <Value Profile="(Default)">Colors16Bit</Value>
</Setting> </Setting>
<Setting Name="ConDefaultCacheBitmaps" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="ConDefaultCacheBitmaps" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value> <Value Profile="(Default)">True</Value>
</Setting> </Setting>
<Setting Name="ConDefaultDisplayWallpaper" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="ConDefaultDisplayWallpaper" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="ConDefaultDisplayThemes" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="ConDefaultDisplayThemes" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="ConDefaultRedirectKeys" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="ConDefaultRedirectKeys" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="ConDefaultRedirectDiskDrives" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="ConDefaultRedirectDiskDrives" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="ConDefaultRedirectPrinters" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="ConDefaultRedirectPrinters" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="ConDefaultRedirectPorts" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="ConDefaultRedirectPorts" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="ConDefaultRedirectSmartCards" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="ConDefaultRedirectSmartCards" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="ConDefaultRedirectSound" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="ConDefaultRedirectSound" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)">DoNotPlay</Value> <Value Profile="(Default)">DoNotPlay</Value>
</Setting> </Setting>
<Setting Name="MaxPuttyWaitTime" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Int32" Scope="User"> <Setting Name="MaxPuttyWaitTime" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Int32" Scope="User">
<Value Profile="(Default)">2</Value> <Value Profile="(Default)">2</Value>
</Setting> </Setting>
<Setting Name="SingleInstance" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="SingleInstance" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="OpenConsFromLastSession" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="OpenConsFromLastSession" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="NoReconnect" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="NoReconnect" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="AutoSaveEveryMinutes" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Int32" Scope="User"> <Setting Name="AutoSaveEveryMinutes" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Int32" Scope="User">
<Value Profile="(Default)">0</Value> <Value Profile="(Default)">0</Value>
</Setting> </Setting>
<Setting Name="ExtAppsTBVisible" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="ExtAppsTBVisible" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="ExtAppsTBShowText" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="ExtAppsTBShowText" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value> <Value Profile="(Default)">True</Value>
</Setting> </Setting>
<Setting Name="ExtAppsTBLocation" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Drawing.Point" Scope="User"> <Setting Name="ExtAppsTBLocation" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Drawing.Point" Scope="User">
<Value Profile="(Default)">0, 0</Value> <Value Profile="(Default)">0, 0</Value>
</Setting> </Setting>
<Setting Name="ExtAppsTBParentDock" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="ExtAppsTBParentDock" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)">Bottom</Value> <Value Profile="(Default)">Bottom</Value>
</Setting> </Setting>
<Setting Name="QuickyTBVisible" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="QuickyTBVisible" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value> <Value Profile="(Default)">True</Value>
</Setting> </Setting>
<Setting Name="QuickyTBLocation" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Drawing.Point" Scope="User"> <Setting Name="QuickyTBLocation" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Drawing.Point" Scope="User">
<Value Profile="(Default)">3, 24</Value> <Value Profile="(Default)">3, 24</Value>
</Setting> </Setting>
<Setting Name="QuickyTBParentDock" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="QuickyTBParentDock" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)">Top</Value> <Value Profile="(Default)">Top</Value>
</Setting> </Setting>
<Setting Name="ResetToolbars" Type="System.Boolean" Scope="User"> <Setting Name="ResetToolbars" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="UseSQLServer" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="UseSQLServer" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="SQLHost" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="SQLHost" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)" /> <Value Profile="(Default)" />
</Setting> </Setting>
<Setting Name="SQLUser" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="SQLUser" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)" /> <Value Profile="(Default)" />
</Setting> </Setting>
<Setting Name="SQLPass" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="SQLPass" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)" /> <Value Profile="(Default)" />
</Setting> </Setting>
<Setting Name="InhDefaultCacheBitmaps" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultCacheBitmaps" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="InhDefaultColors" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultColors" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="InhDefaultDescription" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultDescription" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="InhDefaultDisplayThemes" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultDisplayThemes" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="InhDefaultDisplayWallpaper" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultDisplayWallpaper" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="InhDefaultDomain" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultDomain" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="InhDefaultIcon" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultIcon" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="InhDefaultPassword" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultPassword" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="InhDefaultPort" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultPort" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="InhDefaultProtocol" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultProtocol" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="InhDefaultPuttySession" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultPuttySession" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="InhDefaultRedirectDiskDrives" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultRedirectDiskDrives" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="InhDefaultRedirectKeys" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultRedirectKeys" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="InhDefaultRedirectPorts" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultRedirectPorts" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="InhDefaultRedirectPrinters" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultRedirectPrinters" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="InhDefaultRedirectSmartCards" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultRedirectSmartCards" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="InhDefaultRedirectSound" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultRedirectSound" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="InhDefaultResolution" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultResolution" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="InhDefaultUseConsoleSession" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultUseConsoleSession" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="InhDefaultUsername" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultUsername" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="InhDefaultPanel" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultPanel" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="ConDefaultICAEncryptionStrength" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="ConDefaultICAEncryptionStrength" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)">EncrBasic</Value> <Value Profile="(Default)">EncrBasic</Value>
</Setting> </Setting>
<Setting Name="InhDefaultICAEncryptionStrength" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultICAEncryptionStrength" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="ConDefaultPreExtApp" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="ConDefaultPreExtApp" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)" /> <Value Profile="(Default)" />
</Setting> </Setting>
<Setting Name="ConDefaultPostExtApp" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="ConDefaultPostExtApp" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)" /> <Value Profile="(Default)" />
</Setting> </Setting>
<Setting Name="InhDefaultPreExtApp" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultPreExtApp" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="InhDefaultPostExtApp" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultPostExtApp" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="SetHostnameLikeDisplayName" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="SetHostnameLikeDisplayName" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="DoubleClickOnTabClosesIt" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="DoubleClickOnTabClosesIt" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value> <Value Profile="(Default)">True</Value>
</Setting> </Setting>
<Setting Name="ReconnectOnDisconnect" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="ReconnectOnDisconnect" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="AlwaysShowPanelSelectionDlg" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="AlwaysShowPanelSelectionDlg" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="ConDefaultVNCAuthMode" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="ConDefaultVNCAuthMode" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)">AuthVNC</Value> <Value Profile="(Default)">AuthVNC</Value>
</Setting> </Setting>
<Setting Name="ConDefaultVNCColors" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="ConDefaultVNCColors" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)">ColNormal</Value> <Value Profile="(Default)">ColNormal</Value>
</Setting> </Setting>
<Setting Name="ConDefaultVNCSmartSizeMode" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="ConDefaultVNCSmartSizeMode" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)">SmartSAspect</Value> <Value Profile="(Default)">SmartSAspect</Value>
</Setting> </Setting>
<Setting Name="ConDefaultVNCViewOnly" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="ConDefaultVNCViewOnly" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="ConDefaultVNCCompression" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="ConDefaultVNCCompression" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)">CompNone</Value> <Value Profile="(Default)">CompNone</Value>
</Setting> </Setting>
<Setting Name="ConDefaultVNCEncoding" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="ConDefaultVNCEncoding" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)">EncHextile</Value> <Value Profile="(Default)">EncHextile</Value>
</Setting> </Setting>
<Setting Name="ConDefaultVNCProxyIP" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="ConDefaultVNCProxyIP" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)" /> <Value Profile="(Default)" />
</Setting> </Setting>
<Setting Name="ConDefaultVNCProxyPassword" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="ConDefaultVNCProxyPassword" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)" /> <Value Profile="(Default)" />
</Setting> </Setting>
<Setting Name="ConDefaultVNCProxyPort" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Int32" Scope="User"> <Setting Name="ConDefaultVNCProxyPort" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Int32" Scope="User">
<Value Profile="(Default)">0</Value> <Value Profile="(Default)">0</Value>
</Setting> </Setting>
<Setting Name="ConDefaultVNCProxyType" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="ConDefaultVNCProxyType" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)">ProxyNone</Value> <Value Profile="(Default)">ProxyNone</Value>
</Setting> </Setting>
<Setting Name="ConDefaultVNCProxyUsername" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="ConDefaultVNCProxyUsername" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)" /> <Value Profile="(Default)" />
</Setting> </Setting>
<Setting Name="InhDefaultVNCAuthMode" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultVNCAuthMode" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="InhDefaultVNCColors" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultVNCColors" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="InhDefaultVNCSmartSizeMode" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultVNCSmartSizeMode" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="InhDefaultVNCViewOnly" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultVNCViewOnly" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="InhDefaultVNCCompression" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultVNCCompression" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="InhDefaultVNCEncoding" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultVNCEncoding" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="InhDefaultVNCProxyIP" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultVNCProxyIP" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="InhDefaultVNCProxyPassword" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultVNCProxyPassword" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="InhDefaultVNCProxyPort" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultVNCProxyPort" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="InhDefaultVNCProxyType" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultVNCProxyType" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="InhDefaultVNCProxyUsername" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultVNCProxyUsername" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="MinimizeToTray" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="MinimizeToTray" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="SingleClickSwitchesToOpenConnection" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="SingleClickSwitchesToOpenConnection" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="ConDefaultRDPAuthenticationLevel" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="ConDefaultRDPAuthenticationLevel" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)">NoAuth</Value> <Value Profile="(Default)">NoAuth</Value>
</Setting> </Setting>
<Setting Name="InhDefaultRDPAuthenticationLevel" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultRDPAuthenticationLevel" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="UVNCSCPort" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Int32" Scope="User"> <Setting Name="UVNCSCPort" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Int32" Scope="User">
<Value Profile="(Default)">5500</Value> <Value Profile="(Default)">5500</Value>
</Setting> </Setting>
<Setting Name="StartupComponentsCheck" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="StartupComponentsCheck" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value> <Value Profile="(Default)">True</Value>
</Setting> </Setting>
<Setting Name="XULRunnerPath" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="XULRunnerPath" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)" /> <Value Profile="(Default)" />
</Setting> </Setting>
<Setting Name="ConDefaultRenderingEngine" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="ConDefaultRenderingEngine" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)">IE</Value> <Value Profile="(Default)">IE</Value>
</Setting> </Setting>
<Setting Name="InhDefaultRenderingEngine" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultRenderingEngine" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="ConDefaultMacAddress" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="ConDefaultMacAddress" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)" /> <Value Profile="(Default)" />
</Setting> </Setting>
<Setting Name="InhDefaultMacAddress" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultMacAddress" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="EncryptCompleteConnectionsFile" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="EncryptCompleteConnectionsFile" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="ConDefaultUserField" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="ConDefaultUserField" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)" /> <Value Profile="(Default)" />
</Setting> </Setting>
<Setting Name="InhDefaultUserField" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultUserField" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="ConDefaultExtApp" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="ConDefaultExtApp" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)" /> <Value Profile="(Default)" />
</Setting> </Setting>
<Setting Name="InhDefaultExtApp" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="InhDefaultExtApp" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="LastAnnouncement" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User"> <Setting Name="LastAnnouncement" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.String" Scope="User">
<Value Profile="(Default)" /> <Value Profile="(Default)" />
</Setting> </Setting>
<Setting Name="CheckForUpdatesAsked" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="CheckForUpdatesAsked" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="CheckForUpdatesFrequencyDays" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Int32" Scope="User"> <Setting Name="CheckForUpdatesFrequencyDays" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Int32" Scope="User">
<Value Profile="(Default)">7</Value> <Value Profile="(Default)">7</Value>
</Setting> </Setting>
<Setting Name="CheckForUpdatesLastCheck" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.DateTime" Scope="User"> <Setting Name="CheckForUpdatesLastCheck" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.DateTime" Scope="User">
<Value Profile="(Default)">1980-01-01</Value> <Value Profile="(Default)">1980-01-01</Value>
</Setting> </Setting>
<Setting Name="UpdatePending" Provider="mRemote.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User"> <Setting Name="UpdatePending" Provider="mRemoteNG.Config.Settings.Providers.ChooseProvider" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
<Setting Name="ConDefaultRDGatewayUsageMethod" Type="System.String" Scope="Application"> <Setting Name="ConDefaultRDGatewayUsageMethod" Type="System.String" Scope="Application">

4
mRemoteV1/Root/Root.Info.vb
View File

@@ -1,6 +1,6 @@
Imports System.Windows.Forms Imports System.Windows.Forms
Imports System.ComponentModel Imports System.ComponentModel
Imports mRemote.Tools.LocalizedAttributes Imports mRemoteNG.Tools.LocalizedAttributes
Namespace Root Namespace Root
<DefaultProperty("Name")> _ <DefaultProperty("Name")> _
@@ -38,7 +38,7 @@ Namespace Root
DesignOnly(False), _ DesignOnly(False), _
LocalizedDisplayName("strPasswordProtect"), _ LocalizedDisplayName("strPasswordProtect"), _
Attributes.Root(), _ Attributes.Root(), _
TypeConverter(GetType(mRemote.Tools.Misc.YesNoTypeConverter))> _ TypeConverter(GetType(mRemoteNG.Tools.Misc.YesNoTypeConverter))> _
Public Property Password() As Boolean Public Property Password() As Boolean
Get Get
Return _Password Return _Password

2
mRemoteV1/Security/Security.Crypt.vb
View File

@@ -1,7 +1,7 @@
Imports System.IO Imports System.IO
Imports System.Security.Cryptography Imports System.Security.Cryptography
Imports System.Text Imports System.Text
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Namespace Security Namespace Security
Public Class Crypt Public Class Crypt

2
mRemoteV1/Security/Security.Impersonator.vb
View File

@@ -1,7 +1,7 @@
Imports System.Runtime.InteropServices Imports System.Runtime.InteropServices
Imports System.Security.Principal Imports System.Security.Principal
Imports System.Security.Permissions Imports System.Security.Permissions
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
<Assembly: SecurityPermissionAttribute(SecurityAction.RequestMinimum, UnmanagedCode:=True), _ <Assembly: SecurityPermissionAttribute(SecurityAction.RequestMinimum, UnmanagedCode:=True), _
Assembly: PermissionSetAttribute(SecurityAction.RequestMinimum, Name:="FullTrust")> Assembly: PermissionSetAttribute(SecurityAction.RequestMinimum, Name:="FullTrust")>

2
mRemoteV1/Tools/ReconnectGroup.Designer.vb generated
View File

@@ -89,7 +89,7 @@ Partial Class ReconnectGroup
' '
'pbServerStatus 'pbServerStatus
' '
Me.pbServerStatus.Image = Global.mRemote.My.Resources.Resources.HostStatus_Check Me.pbServerStatus.Image = Global.mRemoteNG.My.Resources.Resources.HostStatus_Check
Me.pbServerStatus.Location = New System.Drawing.Point(99, 23) Me.pbServerStatus.Location = New System.Drawing.Point(99, 23)
Me.pbServerStatus.Name = "pbServerStatus" Me.pbServerStatus.Name = "pbServerStatus"
Me.pbServerStatus.Size = New System.Drawing.Size(16, 16) Me.pbServerStatus.Size = New System.Drawing.Size(16, 16)

4
mRemoteV1/Tools/Tools.Controls.vb
View File

@@ -1,5 +1,5 @@
Imports System.Windows.Forms Imports System.Windows.Forms
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Namespace Tools Namespace Tools
Public Class Controls Public Class Controls
@@ -164,7 +164,7 @@ Namespace Tools
Private Sub ConMenItem_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Private Sub ConMenItem_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
If e.Button = MouseButtons.Left Then If e.Button = MouseButtons.Left Then
If TypeOf sender.Tag Is mRemote.Connection.Info Then If TypeOf sender.Tag Is mRemoteNG.Connection.Info Then
If frmMain.Visible = False Then If frmMain.Visible = False Then
ShowForm() ShowForm()
End If End If

2
mRemoteV1/Tools/Tools.ExternalApp.vb
View File

@@ -1,4 +1,4 @@
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Imports System.IO Imports System.IO
Imports System.ComponentModel Imports System.ComponentModel

3
mRemoteV1/Tools/Tools.Misc.vb
View File

@@ -1,10 +1,9 @@
Imports System.Reflection Imports System.Reflection
Imports System.ComponentModel Imports System.ComponentModel
Imports System.Drawing.Design
Imports System.Runtime.InteropServices Imports System.Runtime.InteropServices
Imports System.Collections.Specialized Imports System.Collections.Specialized
Imports System.Text.RegularExpressions Imports System.Text.RegularExpressions
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Imports System.IO Imports System.IO
Imports System.Data.SqlClient Imports System.Data.SqlClient

2
mRemoteV1/Tools/Tools.PortScan.vb
View File

@@ -1,5 +1,5 @@
Imports System.Threading Imports System.Threading
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Imports System.Net.NetworkInformation Imports System.Net.NetworkInformation
Namespace Tools Namespace Tools

20
mRemoteV1/Tree/Tree.Node.vb
View File

@@ -1,5 +1,5 @@
Imports System.Windows.Forms Imports System.Windows.Forms
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Imports System.DirectoryServices Imports System.DirectoryServices
Namespace Tree Namespace Tree
@@ -46,9 +46,9 @@ Namespace Tree
Public Shared Function GetConstantID(ByVal node As TreeNode) As String Public Shared Function GetConstantID(ByVal node As TreeNode) As String
Select Case GetNodeType(node) Select Case GetNodeType(node)
Case Type.Connection Case Type.Connection
Return TryCast(node.Tag, mRemote.Connection.Info).ConstantID Return TryCast(node.Tag, mRemoteNG.Connection.Info).ConstantID
Case Type.Container Case Type.Container
Return TryCast(node.Tag, mRemote.Container.Info).ConnectionInfo.ConstantID Return TryCast(node.Tag, mRemoteNG.Container.Info).ConnectionInfo.ConstantID
End Select End Select
Return Nothing Return Nothing
@@ -214,9 +214,9 @@ Namespace Tree
Try Try
Dim adCNode As TreeNode = Tree.Node.AddNode(Type.Container) Dim adCNode As TreeNode = Tree.Node.AddNode(Type.Container)
Dim nContI As New mRemote.Container.Info() Dim nContI As New mRemoteNG.Container.Info()
nContI.TreeNode = adCNode nContI.TreeNode = adCNode
nContI.ConnectionInfo = New mRemote.Connection.Info(nContI) nContI.ConnectionInfo = New mRemoteNG.Connection.Info(nContI)
If Tree.Node.SelectedNode IsNot Nothing Then If Tree.Node.SelectedNode IsNot Nothing Then
If Tree.Node.GetNodeType(Tree.Node.SelectedNode) = Tree.Node.Type.Container Then If Tree.Node.GetNodeType(Tree.Node.SelectedNode) = Tree.Node.Type.Container Then
@@ -274,10 +274,10 @@ Namespace Tree
Dim adNode As TreeNode = Tree.Node.AddNode(Type.Connection, strDisplayName) Dim adNode As TreeNode = Tree.Node.AddNode(Type.Connection, strDisplayName)
Dim nConI As New mRemote.Connection.Info() Dim nConI As New mRemoteNG.Connection.Info()
Dim nInh As New mRemote.Connection.Info.Inheritance(nConI, True) Dim nInh As New mRemoteNG.Connection.Info.Inheritance(nConI, True)
nInh.Description = False nInh.Description = False
If TypeOf rNode.Tag Is mRemote.Container.Info Then If TypeOf rNode.Tag Is mRemoteNG.Container.Info Then
nConI.Parent = rNode.Tag nConI.Parent = rNode.Tag
End If End If
nConI.Inherit = nInh nConI.Inherit = nInh
@@ -343,7 +343,7 @@ Namespace Tree
End If End If
Catch ex As Exception Catch ex As Exception
mC.AddMessage(Messages.MessageClass.WarningMsg, "CloneNode failed (Tree.Node)" & vbNewLine & ex.Message) mC.AddMessage(Messages.MessageClass.WarningMsg, "CloneNode failed (Tree.Node)" & vbNewLine & ex.Message)
End Try End Try
End Sub End Sub
Public Shared Sub SetNodeImage(ByVal treeNode As TreeNode, ByVal Img As Images.Enums.TreeImage) Public Shared Sub SetNodeImage(ByVal treeNode As TreeNode, ByVal Img As Images.Enums.TreeImage)
@@ -376,7 +376,7 @@ Namespace Tree
Else Else
'Get this node's object data. 'Get this node's object data.
If GetNodeType(old_node) = Type.Connection Then If GetNodeType(old_node) = Type.Connection Then
tTip.SetToolTip(_TreeView, TryCast(old_node.Tag, mRemote.Connection.Info).Description) tTip.SetToolTip(_TreeView, TryCast(old_node.Tag, mRemoteNG.Connection.Info).Description)
End If End If
End If End If
End If End If

10
mRemoteV1/UI/UI.Window.ADImport.vb
View File

@@ -30,7 +30,7 @@ Namespace UI
Me.btnOK.Name = "btnOK" Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(75, 23) Me.btnOK.Size = New System.Drawing.Size(75, 23)
Me.btnOK.TabIndex = 100 Me.btnOK.TabIndex = 100
Me.btnOK.Text = Global.mRemote.My.Resources.Resources.strButtonOK Me.btnOK.Text = Global.mRemoteNG.My.Resources.Resources.strButtonOK
Me.btnOK.UseVisualStyleBackColor = True Me.btnOK.UseVisualStyleBackColor = True
' '
'btnCancel 'btnCancel
@@ -42,7 +42,7 @@ Namespace UI
Me.btnCancel.Name = "btnCancel" Me.btnCancel.Name = "btnCancel"
Me.btnCancel.Size = New System.Drawing.Size(75, 23) Me.btnCancel.Size = New System.Drawing.Size(75, 23)
Me.btnCancel.TabIndex = 110 Me.btnCancel.TabIndex = 110
Me.btnCancel.Text = Global.mRemote.My.Resources.Resources.strButtonCancel Me.btnCancel.Text = Global.mRemoteNG.My.Resources.Resources.strButtonCancel
Me.btnCancel.UseVisualStyleBackColor = True Me.btnCancel.UseVisualStyleBackColor = True
' '
'txtDomain 'txtDomain
@@ -72,7 +72,7 @@ Namespace UI
Me.btnChangeDomain.Name = "btnChangeDomain" Me.btnChangeDomain.Name = "btnChangeDomain"
Me.btnChangeDomain.Size = New System.Drawing.Size(75, 23) Me.btnChangeDomain.Size = New System.Drawing.Size(75, 23)
Me.btnChangeDomain.TabIndex = 40 Me.btnChangeDomain.TabIndex = 40
Me.btnChangeDomain.Text = Global.mRemote.My.Resources.Resources.strButtonChange Me.btnChangeDomain.Text = Global.mRemoteNG.My.Resources.Resources.strButtonChange
Me.btnChangeDomain.UseVisualStyleBackColor = True Me.btnChangeDomain.UseVisualStyleBackColor = True
' '
'AD 'AD
@@ -100,7 +100,7 @@ Namespace UI
Me.Controls.Add(Me.btnCancel) Me.Controls.Add(Me.btnCancel)
Me.Controls.Add(Me.btnOK) Me.Controls.Add(Me.btnOK)
Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Icon = Global.mRemote.My.Resources.Resources.ActiveDirectory_Icon Me.Icon = Global.mRemoteNG.My.Resources.Resources.ActiveDirectory_Icon
Me.Name = "ADImport" Me.Name = "ADImport"
Me.TabText = "Active Directory Import" Me.TabText = "Active Directory Import"
Me.Text = "Active Directory Import" Me.Text = "Active Directory Import"
@@ -145,7 +145,7 @@ Namespace UI
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
Me._ADPath = Me.AD.ADPath Me._ADPath = Me.AD.ADPath
mRemote.Tree.Node.AddADNodes(Me._ADPath) mRemoteNG.Tree.Node.AddADNodes(Me._ADPath)
Me.DialogResult = Windows.Forms.DialogResult.OK Me.DialogResult = Windows.Forms.DialogResult.OK
Me.Close() Me.Close()
End Sub End Sub

6
mRemoteV1/UI/UI.Window.About.vb
View File

@@ -1,6 +1,6 @@
Imports WeifenLuo.WinFormsUI.Docking Imports WeifenLuo.WinFormsUI.Docking
Imports System.IO Imports System.IO
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Namespace UI Namespace UI
Namespace Window Namespace Window
@@ -68,7 +68,7 @@ Namespace UI
' '
'pbLogo 'pbLogo
' '
Me.pbLogo.Image = Global.mRemote.My.Resources.Resources.Logo Me.pbLogo.Image = Global.mRemoteNG.My.Resources.Resources.Logo
Me.pbLogo.Location = New System.Drawing.Point(8, 8) Me.pbLogo.Location = New System.Drawing.Point(8, 8)
Me.pbLogo.Name = "pbLogo" Me.pbLogo.Name = "pbLogo"
Me.pbLogo.Size = New System.Drawing.Size(492, 128) Me.pbLogo.Size = New System.Drawing.Size(492, 128)
@@ -211,7 +211,7 @@ Namespace UI
Me.Controls.Add(Me.pnlBottom) Me.Controls.Add(Me.pnlBottom)
Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ForeColor = System.Drawing.SystemColors.ControlText Me.ForeColor = System.Drawing.SystemColors.ControlText
Me.Icon = Global.mRemote.My.Resources.Resources.mRemote_Icon Me.Icon = Global.mRemoteNG.My.Resources.Resources.mRemote_Icon
Me.MaximumSize = New System.Drawing.Size(20000, 10000) Me.MaximumSize = New System.Drawing.Size(20000, 10000)
Me.Name = "About" Me.Name = "About"
Me.TabText = "About" Me.TabText = "About"

2
mRemoteV1/UI/UI.Window.Announcment.vb
View File

@@ -1,5 +1,5 @@
Imports WeifenLuo.WinFormsUI.Docking Imports WeifenLuo.WinFormsUI.Docking
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Imports System.Threading Imports System.Threading
Namespace UI Namespace UI

1
mRemoteV1/UI/UI.Window.Base.vb
View File

@@ -1,4 +1,3 @@
Imports System.Windows.Forms
Imports WeifenLuo.WinFormsUI.Docking Imports WeifenLuo.WinFormsUI.Docking
Namespace UI Namespace UI

6
mRemoteV1/UI/UI.Window.ComponentsCheck.vb
View File

@@ -1,6 +1,6 @@
Imports WeifenLuo.WinFormsUI.Docking Imports WeifenLuo.WinFormsUI.Docking
Imports System.IO Imports System.IO
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Imports System.Threading Imports System.Threading
Namespace UI Namespace UI
@@ -415,7 +415,7 @@ Namespace UI
Me.Controls.Add(Me.pnlChecks) Me.Controls.Add(Me.pnlChecks)
Me.Controls.Add(Me.chkAlwaysShow) Me.Controls.Add(Me.chkAlwaysShow)
Me.Controls.Add(Me.btnCheckAgain) Me.Controls.Add(Me.btnCheckAgain)
Me.Icon = Global.mRemote.My.Resources.Resources.ComponentsCheck_Icon Me.Icon = Global.mRemoteNG.My.Resources.Resources.ComponentsCheck_Icon
Me.Name = "ComponentsCheck" Me.Name = "ComponentsCheck"
Me.TabText = "Components Check" Me.TabText = "Components Check"
Me.Text = "Components Check" Me.Text = "Components Check"
@@ -647,7 +647,7 @@ Namespace UI
End Try End Try
End Sub End Sub
#End Region #End Region
End Class End Class
End Namespace End Namespace
End Namespace End Namespace

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

@@ -1,6 +1,6 @@
Imports WeifenLuo.WinFormsUI.Docking Imports WeifenLuo.WinFormsUI.Docking
Imports System.Net.NetworkInformation Imports System.Net.NetworkInformation
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Namespace UI Namespace UI
Namespace Window Namespace Window
@@ -49,7 +49,7 @@ Namespace UI
'btnShowInheritance 'btnShowInheritance
' '
Me.btnShowInheritance.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.btnShowInheritance.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnShowInheritance.Image = Global.mRemote.My.Resources.Resources.Inheritance Me.btnShowInheritance.Image = Global.mRemoteNG.My.Resources.Resources.Inheritance
Me.btnShowInheritance.ImageTransparentColor = System.Drawing.Color.Magenta Me.btnShowInheritance.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnShowInheritance.Name = "btnShowInheritance" Me.btnShowInheritance.Name = "btnShowInheritance"
Me.btnShowInheritance.Size = New System.Drawing.Size(23, 22) Me.btnShowInheritance.Size = New System.Drawing.Size(23, 22)
@@ -58,7 +58,7 @@ Namespace UI
'btnShowDefaultInheritance 'btnShowDefaultInheritance
' '
Me.btnShowDefaultInheritance.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.btnShowDefaultInheritance.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnShowDefaultInheritance.Image = Global.mRemote.My.Resources.Resources.Inheritance_Default Me.btnShowDefaultInheritance.Image = Global.mRemoteNG.My.Resources.Resources.Inheritance_Default
Me.btnShowDefaultInheritance.ImageTransparentColor = System.Drawing.Color.Magenta Me.btnShowDefaultInheritance.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnShowDefaultInheritance.Name = "btnShowDefaultInheritance" Me.btnShowDefaultInheritance.Name = "btnShowDefaultInheritance"
Me.btnShowDefaultInheritance.Size = New System.Drawing.Size(23, 22) Me.btnShowDefaultInheritance.Size = New System.Drawing.Size(23, 22)
@@ -69,7 +69,7 @@ Namespace UI
Me.btnShowProperties.Checked = True Me.btnShowProperties.Checked = True
Me.btnShowProperties.CheckState = System.Windows.Forms.CheckState.Checked Me.btnShowProperties.CheckState = System.Windows.Forms.CheckState.Checked
Me.btnShowProperties.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.btnShowProperties.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnShowProperties.Image = Global.mRemote.My.Resources.Resources.Properties Me.btnShowProperties.Image = Global.mRemoteNG.My.Resources.Resources.Properties
Me.btnShowProperties.ImageTransparentColor = System.Drawing.Color.Magenta Me.btnShowProperties.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnShowProperties.Name = "btnShowProperties" Me.btnShowProperties.Name = "btnShowProperties"
Me.btnShowProperties.Size = New System.Drawing.Size(23, 22) Me.btnShowProperties.Size = New System.Drawing.Size(23, 22)
@@ -78,7 +78,7 @@ Namespace UI
'btnShowDefaultProperties 'btnShowDefaultProperties
' '
Me.btnShowDefaultProperties.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.btnShowDefaultProperties.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnShowDefaultProperties.Image = Global.mRemote.My.Resources.Resources.Properties_Default Me.btnShowDefaultProperties.Image = Global.mRemoteNG.My.Resources.Resources.Properties_Default
Me.btnShowDefaultProperties.ImageTransparentColor = System.Drawing.Color.Magenta Me.btnShowDefaultProperties.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnShowDefaultProperties.Name = "btnShowDefaultProperties" Me.btnShowDefaultProperties.Name = "btnShowDefaultProperties"
Me.btnShowDefaultProperties.Size = New System.Drawing.Size(23, 22) Me.btnShowDefaultProperties.Size = New System.Drawing.Size(23, 22)
@@ -97,7 +97,7 @@ Namespace UI
' '
Me.btnHostStatus.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right Me.btnHostStatus.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.btnHostStatus.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.btnHostStatus.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnHostStatus.Image = Global.mRemote.My.Resources.Resources.HostStatus_Check Me.btnHostStatus.Image = Global.mRemoteNG.My.Resources.Resources.HostStatus_Check
Me.btnHostStatus.ImageTransparentColor = System.Drawing.Color.Magenta Me.btnHostStatus.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnHostStatus.Name = "btnHostStatus" Me.btnHostStatus.Name = "btnHostStatus"
Me.btnHostStatus.Size = New System.Drawing.Size(23, 22) Me.btnHostStatus.Size = New System.Drawing.Size(23, 22)
@@ -114,7 +114,7 @@ Namespace UI
Me.ClientSize = New System.Drawing.Size(226, 530) Me.ClientSize = New System.Drawing.Size(226, 530)
Me.Controls.Add(Me.pGrid) Me.Controls.Add(Me.pGrid)
Me.HideOnClose = True Me.HideOnClose = True
Me.Icon = Global.mRemote.My.Resources.Resources.Config_Icon Me.Icon = Global.mRemoteNG.My.Resources.Resources.Config_Icon
Me.Name = "Config" Me.Name = "Config"
Me.TabText = "Config" Me.TabText = "Config"
Me.Text = "Config" Me.Text = "Config"
@@ -262,13 +262,13 @@ Namespace UI
Me.btnIcon.Image = Nothing Me.btnIcon.Image = Nothing
If TypeOf Obj Is mRemote.Connection.Info Then 'CONNECTION INFO If TypeOf Obj Is mRemoteNG.Connection.Info Then 'CONNECTION INFO
If TryCast(Obj, mRemote.Connection.Info).IsContainer = False Then 'NO CONTAINER If TryCast(Obj, mRemoteNG.Connection.Info).IsContainer = False Then 'NO CONTAINER
If Me.PropertiesVisible Then 'Properties selected If Me.PropertiesVisible Then 'Properties selected
Me.pGrid.SelectedObject = Obj Me.pGrid.SelectedObject = Obj
Me.btnShowProperties.Enabled = True Me.btnShowProperties.Enabled = True
If TryCast(Obj, mRemote.Connection.Info).Parent IsNot Nothing Then If TryCast(Obj, mRemoteNG.Connection.Info).Parent IsNot Nothing Then
Me.btnShowInheritance.Enabled = True Me.btnShowInheritance.Enabled = True
Else Else
Me.btnShowInheritance.Enabled = False Me.btnShowInheritance.Enabled = False
@@ -280,7 +280,7 @@ Namespace UI
ElseIf Me.DefaultPropertiesVisible Then 'Defaults selected ElseIf Me.DefaultPropertiesVisible Then 'Defaults selected
Me.pGrid.SelectedObject = Obj Me.pGrid.SelectedObject = Obj
If TryCast(Obj, mRemote.Connection.Info).IsDefault Then 'Is the default connection If TryCast(Obj, mRemoteNG.Connection.Info).IsDefault Then 'Is the default connection
Me.btnShowProperties.Enabled = True Me.btnShowProperties.Enabled = True
Me.btnShowInheritance.Enabled = False Me.btnShowInheritance.Enabled = False
Me.btnShowDefaultProperties.Enabled = True Me.btnShowDefaultProperties.Enabled = True
@@ -298,7 +298,7 @@ Namespace UI
Me.PropertiesVisible = True Me.PropertiesVisible = True
End If End If
ElseIf Me.InheritanceVisible Then 'Inheritance selected ElseIf Me.InheritanceVisible Then 'Inheritance selected
Me.pGrid.SelectedObject = TryCast(Obj, mRemote.Connection.Info).Inherit Me.pGrid.SelectedObject = TryCast(Obj, mRemoteNG.Connection.Info).Inherit
Me.btnShowProperties.Enabled = True Me.btnShowProperties.Enabled = True
Me.btnShowInheritance.Enabled = True Me.btnShowInheritance.Enabled = True
@@ -316,11 +316,11 @@ Namespace UI
Me.PropertiesVisible = True Me.PropertiesVisible = True
End If End If
ElseIf TryCast(Obj, mRemote.Connection.Info).IsContainer Then 'CONTAINER ElseIf TryCast(Obj, mRemoteNG.Connection.Info).IsContainer Then 'CONTAINER
Me.pGrid.SelectedObject = Obj Me.pGrid.SelectedObject = Obj
Me.btnShowProperties.Enabled = True Me.btnShowProperties.Enabled = True
If TryCast(TryCast(Obj, mRemote.Connection.Info).Parent, mRemote.Container.Info).Parent IsNot Nothing Then If TryCast(TryCast(Obj, mRemoteNG.Connection.Info).Parent, mRemoteNG.Container.Info).Parent IsNot Nothing Then
Me.btnShowInheritance.Enabled = True Me.btnShowInheritance.Enabled = True
Else Else
Me.btnShowInheritance.Enabled = False Me.btnShowInheritance.Enabled = False
@@ -333,11 +333,11 @@ Namespace UI
Me.PropertiesVisible = True Me.PropertiesVisible = True
End If End If
Dim conIcon As Icon = mRemote.Connection.Icon.FromString(TryCast(Obj, mRemote.Connection.Info).Icon) Dim conIcon As Icon = mRemoteNG.Connection.Icon.FromString(TryCast(Obj, mRemoteNG.Connection.Info).Icon)
If conIcon IsNot Nothing Then If conIcon IsNot Nothing Then
Me.btnIcon.Image = conIcon.ToBitmap Me.btnIcon.Image = conIcon.ToBitmap
End If End If
ElseIf TypeOf Obj Is mRemote.Root.Info Then 'ROOT ElseIf TypeOf Obj Is mRemoteNG.Root.Info Then 'ROOT
Me.PropertiesVisible = True Me.PropertiesVisible = True
Me.DefaultPropertiesVisible = False Me.DefaultPropertiesVisible = False
Me.btnShowProperties.Enabled = True Me.btnShowProperties.Enabled = True
@@ -348,7 +348,7 @@ Namespace UI
Me.btnHostStatus.Enabled = False Me.btnHostStatus.Enabled = False
Me.pGrid.SelectedObject = Obj Me.pGrid.SelectedObject = Obj
ElseIf TypeOf Obj Is mRemote.Connection.Info.Inheritance Then 'INHERITANCE ElseIf TypeOf Obj Is mRemoteNG.Connection.Info.Inheritance Then 'INHERITANCE
Me.pGrid.SelectedObject = Obj Me.pGrid.SelectedObject = Obj
If Me.InheritanceVisible Then If Me.InheritanceVisible Then
@@ -358,11 +358,11 @@ Namespace UI
Me.btnShowDefaultProperties.Enabled = False Me.btnShowDefaultProperties.Enabled = False
Me.btnShowDefaultInheritance.Enabled = False Me.btnShowDefaultInheritance.Enabled = False
Me.btnIcon.Enabled = True Me.btnIcon.Enabled = True
Me.btnHostStatus.Enabled = Not TryCast(TryCast(Obj, mRemote.Connection.Info.Inheritance).Parent, mRemote.Connection.Info).IsContainer Me.btnHostStatus.Enabled = Not TryCast(TryCast(Obj, mRemoteNG.Connection.Info.Inheritance).Parent, mRemoteNG.Connection.Info).IsContainer
Me.InheritanceVisible = True Me.InheritanceVisible = True
Dim conIcon As Icon = mRemote.Connection.Icon.FromString(TryCast(TryCast(Obj, mRemote.Connection.Info.Inheritance).Parent, mRemote.Connection.Info).Icon) Dim conIcon As Icon = mRemoteNG.Connection.Icon.FromString(TryCast(TryCast(Obj, mRemoteNG.Connection.Info.Inheritance).Parent, mRemoteNG.Connection.Info).Icon)
If conIcon IsNot Nothing Then If conIcon IsNot Nothing Then
Me.btnIcon.Image = conIcon.ToBitmap Me.btnIcon.Image = conIcon.ToBitmap
End If End If
@@ -374,7 +374,7 @@ Namespace UI
Me.btnIcon.Enabled = False Me.btnIcon.Enabled = False
Me.btnHostStatus.Enabled = False Me.btnHostStatus.Enabled = False
Me.DefaultInheritanceVisible = True Me.DefaultInheritanceVisible = True
End If End If
End If End If
@@ -440,30 +440,30 @@ Namespace UI
Private Sub pGrid_PropertyValueChanged(ByVal s As Object, ByVal e As System.Windows.Forms.PropertyValueChangedEventArgs) Handles pGrid.PropertyValueChanged Private Sub pGrid_PropertyValueChanged(ByVal s As Object, ByVal e As System.Windows.Forms.PropertyValueChangedEventArgs) Handles pGrid.PropertyValueChanged
Try Try
If TypeOf Me.pGrid.SelectedObject Is mRemote.Connection.Info Then If TypeOf Me.pGrid.SelectedObject Is mRemoteNG.Connection.Info Then
Select Case e.ChangedItem.Label Select Case e.ChangedItem.Label
Case My.Resources.strPropertyNameProtocol Case My.Resources.strPropertyNameProtocol
TryCast(Me.pGrid.SelectedObject, mRemote.Connection.Info).SetDefaultPort() TryCast(Me.pGrid.SelectedObject, mRemoteNG.Connection.Info).SetDefaultPort()
Case My.Resources.strPropertyNameName Case My.Resources.strPropertyNameName
App.Runtime.Windows.treeForm.tvConnections.SelectedNode.Text = Me.pGrid.SelectedObject.Name App.Runtime.Windows.treeForm.tvConnections.SelectedNode.Text = Me.pGrid.SelectedObject.Name
Case My.Resources.strPropertyNameIcon Case My.Resources.strPropertyNameIcon
Dim conIcon As Icon = mRemote.Connection.Icon.FromString(TryCast(Me.pGrid.SelectedObject, mRemote.Connection.Info).Icon) Dim conIcon As Icon = mRemoteNG.Connection.Icon.FromString(TryCast(Me.pGrid.SelectedObject, mRemoteNG.Connection.Info).Icon)
If conIcon IsNot Nothing Then If conIcon IsNot Nothing Then
Me.btnIcon.Image = conIcon.ToBitmap Me.btnIcon.Image = conIcon.ToBitmap
End If End If
Case My.Resources.strPropertyNamePuttySession Case My.Resources.strPropertyNamePuttySession
mRemote.Connection.PuttySession.PuttySessions = mRemote.Connection.Protocol.PuttyBase.GetSessions() mRemoteNG.Connection.PuttySession.PuttySessions = mRemoteNG.Connection.Protocol.PuttyBase.GetSessions()
Case My.Resources.strPropertyNameAddress Case My.Resources.strPropertyNameAddress
Me.SetHostStatus(Me.pGrid.SelectedObject) Me.SetHostStatus(Me.pGrid.SelectedObject)
End Select End Select
If TryCast(Me.pGrid.SelectedObject, mRemote.Connection.Info).IsDefault Then If TryCast(Me.pGrid.SelectedObject, mRemoteNG.Connection.Info).IsDefault Then
App.Runtime.DefaultConnectionToSettings() App.Runtime.DefaultConnectionToSettings()
End If End If
End If End If
If TypeOf Me.pGrid.SelectedObject Is mRemote.Root.Info Then If TypeOf Me.pGrid.SelectedObject Is mRemoteNG.Root.Info Then
Dim rInfo As mRemote.Root.Info = Me.pGrid.SelectedObject Dim rInfo As mRemoteNG.Root.Info = Me.pGrid.SelectedObject
Select Case e.ChangedItem.Label Select Case e.ChangedItem.Label
Case My.Resources.strPasswordProtect Case My.Resources.strPasswordProtect
@@ -481,8 +481,8 @@ Namespace UI
End Select End Select
End If End If
If TypeOf Me.pGrid.SelectedObject Is mRemote.Connection.Info.Inheritance Then If TypeOf Me.pGrid.SelectedObject Is mRemoteNG.Connection.Info.Inheritance Then
If TryCast(Me.pGrid.SelectedObject, mRemote.Connection.Info.Inheritance).IsDefault Then If TryCast(Me.pGrid.SelectedObject, mRemoteNG.Connection.Info.Inheritance).IsDefault Then
App.Runtime.DefaultInheritanceToSettings() App.Runtime.DefaultInheritanceToSettings()
End If End If
End If End If
@@ -498,42 +498,42 @@ Namespace UI
Try Try
Dim strHide As String = "" Dim strHide As String = ""
If TypeOf Me.pGrid.SelectedObject Is mRemote.Connection.Info Then If TypeOf Me.pGrid.SelectedObject Is mRemoteNG.Connection.Info Then
Dim conI As mRemote.Connection.Info = pGrid.SelectedObject Dim conI As mRemoteNG.Connection.Info = pGrid.SelectedObject
Select Case conI.Protocol Select Case conI.Protocol
Case mRemote.Connection.Protocol.Protocols.RDP Case mRemoteNG.Connection.Protocol.Protocols.RDP
strHide &= "ExtApp;RenderingEngine;PuttySession;ICAEncryption;VNCAuthMode;VNCColors;VNCCompression;VNCEncoding;VNCProxyIP;VNCProxyPassword;VNCProxyPort;VNCProxyType;VNCProxyUsername;VNCSmartSizeMode;VNCViewOnly;" strHide &= "ExtApp;RenderingEngine;PuttySession;ICAEncryption;VNCAuthMode;VNCColors;VNCCompression;VNCEncoding;VNCProxyIP;VNCProxyPassword;VNCProxyPort;VNCProxyType;VNCProxyUsername;VNCSmartSizeMode;VNCViewOnly;"
If conI.RDGatewayUsageMethod = mRemote.Connection.Protocol.RDP.RDGatewayUsageMethod.Never Then If conI.RDGatewayUsageMethod = mRemoteNG.Connection.Protocol.RDP.RDGatewayUsageMethod.Never Then
strHide &= "RDGatewayHostname;RDGatewayUseConnectionCredentials;RDGatewayUsername;RDGatewayPassword;RDGatewayDomain;" strHide &= "RDGatewayHostname;RDGatewayUseConnectionCredentials;RDGatewayUsername;RDGatewayPassword;RDGatewayDomain;"
Else If conI.RDGatewayUseConnectionCredentials Then ElseIf conI.RDGatewayUseConnectionCredentials Then
strHide &= "RDGatewayUsername;RDGatewayPassword;RDGatewayDomain;" strHide &= "RDGatewayUsername;RDGatewayPassword;RDGatewayDomain;"
End If End If
Case mRemote.Connection.Protocol.Protocols.VNC Case mRemoteNG.Connection.Protocol.Protocols.VNC
strHide &= "ExtApp;CacheBitmaps;Colors;DisplayThemes;DisplayWallpaper;PuttySession;ICAEncryption;RDPAuthenticationLevel;RedirectDiskDrives;RedirectKeys;RedirectPorts;RedirectPrinters;RedirectSmartCards;RedirectSound;Resolution;UseConsoleSession;RenderingEngine;RDGatewayUsageMethod;RDGatewayHostname;RDGatewayUseConnectionCredentials;RDGatewayUsername;RDGatewayPassword;RDGatewayDomain;" strHide &= "ExtApp;CacheBitmaps;Colors;DisplayThemes;DisplayWallpaper;PuttySession;ICAEncryption;RDPAuthenticationLevel;RedirectDiskDrives;RedirectKeys;RedirectPorts;RedirectPrinters;RedirectSmartCards;RedirectSound;Resolution;UseConsoleSession;RenderingEngine;RDGatewayUsageMethod;RDGatewayHostname;RDGatewayUseConnectionCredentials;RDGatewayUsername;RDGatewayPassword;RDGatewayDomain;"
If conI.VNCAuthMode = mRemote.Connection.Protocol.VNC.AuthMode.AuthVNC Then If conI.VNCAuthMode = mRemoteNG.Connection.Protocol.VNC.AuthMode.AuthVNC Then
strHide &= "Username;Domain;" strHide &= "Username;Domain;"
End If End If
If conI.VNCProxyType = mRemote.Connection.Protocol.VNC.ProxyType.ProxyNone Then If conI.VNCProxyType = mRemoteNG.Connection.Protocol.VNC.ProxyType.ProxyNone Then
strHide &= "VNCProxyIP;VNCProxyPassword;VNCProxyPort;VNCProxyUsername;" strHide &= "VNCProxyIP;VNCProxyPassword;VNCProxyPort;VNCProxyUsername;"
End If End If
Case mRemote.Connection.Protocol.Protocols.SSH1 Case mRemoteNG.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;RDGatewayUsageMethod;RDGatewayHostname;RDGatewayUseConnectionCredentials;RDGatewayUsername;RDGatewayPassword;RDGatewayDomain;" 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;RDGatewayUsageMethod;RDGatewayHostname;RDGatewayUseConnectionCredentials;RDGatewayUsername;RDGatewayPassword;RDGatewayDomain;"
Case mRemote.Connection.Protocol.Protocols.SSH2 Case mRemoteNG.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;RDGatewayUsageMethod;RDGatewayHostname;RDGatewayUseConnectionCredentials;RDGatewayUsername;RDGatewayPassword;RDGatewayDomain;" 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;RDGatewayUsageMethod;RDGatewayHostname;RDGatewayUseConnectionCredentials;RDGatewayUsername;RDGatewayPassword;RDGatewayDomain;"
Case mRemote.Connection.Protocol.Protocols.Telnet Case mRemoteNG.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;RDGatewayUsageMethod;RDGatewayHostname;RDGatewayUseConnectionCredentials;RDGatewayUsername;RDGatewayPassword;RDGatewayDomain;" 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;RDGatewayUsageMethod;RDGatewayHostname;RDGatewayUseConnectionCredentials;RDGatewayUsername;RDGatewayPassword;RDGatewayDomain;"
Case mRemote.Connection.Protocol.Protocols.Rlogin Case mRemoteNG.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;RDGatewayUsageMethod;RDGatewayHostname;RDGatewayUseConnectionCredentials;RDGatewayUsername;RDGatewayPassword;RDGatewayDomain;" 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;RDGatewayUsageMethod;RDGatewayHostname;RDGatewayUseConnectionCredentials;RDGatewayUsername;RDGatewayPassword;RDGatewayDomain;"
Case mRemote.Connection.Protocol.Protocols.RAW Case mRemoteNG.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;RDGatewayUsageMethod;RDGatewayHostname;RDGatewayUseConnectionCredentials;RDGatewayUsername;RDGatewayPassword;RDGatewayDomain;" 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;RDGatewayUsageMethod;RDGatewayHostname;RDGatewayUseConnectionCredentials;RDGatewayUsername;RDGatewayPassword;RDGatewayDomain;"
Case mRemote.Connection.Protocol.Protocols.HTTP Case mRemoteNG.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;RDGatewayUsageMethod;RDGatewayHostname;RDGatewayUseConnectionCredentials;RDGatewayUsername;RDGatewayPassword;RDGatewayDomain;" 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;RDGatewayUsageMethod;RDGatewayHostname;RDGatewayUseConnectionCredentials;RDGatewayUsername;RDGatewayPassword;RDGatewayDomain;"
Case mRemote.Connection.Protocol.Protocols.HTTPS Case mRemoteNG.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;RDGatewayUsageMethod;RDGatewayHostname;RDGatewayUseConnectionCredentials;RDGatewayUsername;RDGatewayPassword;RDGatewayDomain;" 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;RDGatewayUsageMethod;RDGatewayHostname;RDGatewayUseConnectionCredentials;RDGatewayUsername;RDGatewayPassword;RDGatewayDomain;"
Case mRemote.Connection.Protocol.Protocols.ICA Case mRemoteNG.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;RDGatewayUsageMethod;RDGatewayHostname;RDGatewayUseConnectionCredentials;RDGatewayUsername;RDGatewayPassword;RDGatewayDomain;" 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;RDGatewayUsageMethod;RDGatewayHostname;RDGatewayUseConnectionCredentials;RDGatewayUsername;RDGatewayPassword;RDGatewayDomain;"
Case mRemote.Connection.Protocol.Protocols.IntApp Case mRemoteNG.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;RDGatewayUsageMethod;RDGatewayHostname;RDGatewayUseConnectionCredentials;RDGatewayUsername;RDGatewayPassword;RDGatewayDomain;" 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;RDGatewayUsageMethod;RDGatewayHostname;RDGatewayUseConnectionCredentials;RDGatewayUsername;RDGatewayPassword;RDGatewayDomain;"
End Select End Select
@@ -710,7 +710,7 @@ Namespace UI
Else Else
strHide = "Hostname;Name;" strHide = "Hostname;Name;"
End If End If
ElseIf TypeOf Me.pGrid.SelectedObject Is mRemote.Root.Info Then ElseIf TypeOf Me.pGrid.SelectedObject Is mRemoteNG.Root.Info Then
strHide &= "TreeNode;" strHide &= "TreeNode;"
Else Else
strHide = ";" strHide = ";"
@@ -725,33 +725,33 @@ Namespace UI
End Sub End Sub
Private Sub btnShowProperties_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnShowProperties.Click Private Sub btnShowProperties_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnShowProperties.Click
If TypeOf Me.pGrid.SelectedObject Is mRemote.Connection.Info.Inheritance Then If TypeOf Me.pGrid.SelectedObject Is mRemoteNG.Connection.Info.Inheritance Then
If TryCast(Me.pGrid.SelectedObject, mRemote.Connection.Info.Inheritance).IsDefault Then If TryCast(Me.pGrid.SelectedObject, mRemoteNG.Connection.Info.Inheritance).IsDefault Then
Me.PropertiesVisible = True Me.PropertiesVisible = True
Me.InheritanceVisible = False Me.InheritanceVisible = False
Me.DefaultPropertiesVisible = False Me.DefaultPropertiesVisible = False
Me.DefaultInheritanceVisible = False Me.DefaultInheritanceVisible = False
Me.SetPropertyGridObject(TryCast(App.Runtime.Windows.treeForm.tvConnections.SelectedNode.Tag, mRemote.Root.Info)) Me.SetPropertyGridObject(TryCast(App.Runtime.Windows.treeForm.tvConnections.SelectedNode.Tag, mRemoteNG.Root.Info))
Else Else
Me.PropertiesVisible = True Me.PropertiesVisible = True
Me.InheritanceVisible = False Me.InheritanceVisible = False
Me.DefaultPropertiesVisible = False Me.DefaultPropertiesVisible = False
Me.DefaultInheritanceVisible = False Me.DefaultInheritanceVisible = False
Me.SetPropertyGridObject(TryCast(Me.pGrid.SelectedObject, mRemote.Connection.Info.Inheritance).Parent) Me.SetPropertyGridObject(TryCast(Me.pGrid.SelectedObject, mRemoteNG.Connection.Info.Inheritance).Parent)
End If End If
ElseIf TypeOf Me.pGrid.SelectedObject Is mRemote.Connection.Info Then ElseIf TypeOf Me.pGrid.SelectedObject Is mRemoteNG.Connection.Info Then
If TryCast(Me.pGrid.SelectedObject, mRemote.Connection.Info).IsDefault Then If TryCast(Me.pGrid.SelectedObject, mRemoteNG.Connection.Info).IsDefault Then
Me.PropertiesVisible = True Me.PropertiesVisible = True
Me.InheritanceVisible = False Me.InheritanceVisible = False
Me.DefaultPropertiesVisible = False Me.DefaultPropertiesVisible = False
Me.DefaultInheritanceVisible = False Me.DefaultInheritanceVisible = False
Me.SetPropertyGridObject(TryCast(App.Runtime.Windows.treeForm.tvConnections.SelectedNode.Tag, mRemote.Root.Info)) Me.SetPropertyGridObject(TryCast(App.Runtime.Windows.treeForm.tvConnections.SelectedNode.Tag, mRemoteNG.Root.Info))
End If End If
End If End If
End Sub End Sub
Private Sub btnShowDefaultProperties_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnShowDefaultProperties.Click Private Sub btnShowDefaultProperties_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnShowDefaultProperties.Click
If TypeOf Me.pGrid.SelectedObject Is mRemote.Root.Info Or TypeOf Me.pGrid.SelectedObject Is mRemote.Connection.Info.Inheritance Then If TypeOf Me.pGrid.SelectedObject Is mRemoteNG.Root.Info Or TypeOf Me.pGrid.SelectedObject Is mRemoteNG.Connection.Info.Inheritance Then
Me.PropertiesVisible = False Me.PropertiesVisible = False
Me.InheritanceVisible = False Me.InheritanceVisible = False
Me.DefaultPropertiesVisible = True Me.DefaultPropertiesVisible = True
@@ -761,17 +761,17 @@ Namespace UI
End Sub End Sub
Private Sub btnShowInheritance_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnShowInheritance.Click Private Sub btnShowInheritance_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnShowInheritance.Click
If TypeOf Me.pGrid.SelectedObject Is mRemote.Connection.Info Then If TypeOf Me.pGrid.SelectedObject Is mRemoteNG.Connection.Info Then
Me.PropertiesVisible = False Me.PropertiesVisible = False
Me.InheritanceVisible = True Me.InheritanceVisible = True
Me.DefaultPropertiesVisible = False Me.DefaultPropertiesVisible = False
Me.DefaultInheritanceVisible = False Me.DefaultInheritanceVisible = False
Me.SetPropertyGridObject(TryCast(Me.pGrid.SelectedObject, mRemote.Connection.Info).Inherit) Me.SetPropertyGridObject(TryCast(Me.pGrid.SelectedObject, mRemoteNG.Connection.Info).Inherit)
End If End If
End Sub End Sub
Private Sub btnShowDefaultInheritance_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnShowDefaultInheritance.Click Private Sub btnShowDefaultInheritance_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnShowDefaultInheritance.Click
If TypeOf Me.pGrid.SelectedObject Is mRemote.Root.Info Or TypeOf Me.pGrid.SelectedObject Is mRemote.Connection.Info Then If TypeOf Me.pGrid.SelectedObject Is mRemoteNG.Root.Info Or TypeOf Me.pGrid.SelectedObject Is mRemoteNG.Connection.Info Then
Me.PropertiesVisible = False Me.PropertiesVisible = False
Me.InheritanceVisible = False Me.InheritanceVisible = False
Me.DefaultPropertiesVisible = False Me.DefaultPropertiesVisible = False
@@ -786,13 +786,13 @@ Namespace UI
Private Sub btnIcon_Click(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles btnIcon.MouseUp Private Sub btnIcon_Click(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles btnIcon.MouseUp
Try Try
If TypeOf Me.pGrid.SelectedObject Is mRemote.Connection.Info Then If TypeOf Me.pGrid.SelectedObject Is mRemoteNG.Connection.Info Then
Me.cMenIcons.Items.Clear() Me.cMenIcons.Items.Clear()
For Each iStr As String In mRemote.Connection.Icon.Icons For Each iStr As String In mRemoteNG.Connection.Icon.Icons
Dim tI As New ToolStripMenuItem Dim tI As New ToolStripMenuItem
tI.Text = iStr tI.Text = iStr
tI.Image = mRemote.Connection.Icon.FromString(iStr).ToBitmap tI.Image = mRemoteNG.Connection.Icon.FromString(iStr).ToBitmap
AddHandler tI.Click, AddressOf IconMenu_Click AddHandler tI.Click, AddressOf IconMenu_Click
Me.cMenIcons.Items.Add(tI) Me.cMenIcons.Items.Add(tI)
@@ -808,9 +808,9 @@ Namespace UI
Private Sub IconMenu_Click(ByVal sender As Object, ByVal e As System.EventArgs) Private Sub IconMenu_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Try Try
If TypeOf Me.pGrid.SelectedObject Is mRemote.Connection.Info Then If TypeOf Me.pGrid.SelectedObject Is mRemoteNG.Connection.Info Then
TryCast(Me.pGrid.SelectedObject, mRemote.Connection.Info).Icon = TryCast(sender, ToolStripMenuItem).Text TryCast(Me.pGrid.SelectedObject, mRemoteNG.Connection.Info).Icon = TryCast(sender, ToolStripMenuItem).Text
Dim conIcon As Icon = mRemote.Connection.Icon.FromString(TryCast(Me.pGrid.SelectedObject, mRemote.Connection.Info).Icon) Dim conIcon As Icon = mRemoteNG.Connection.Icon.FromString(TryCast(Me.pGrid.SelectedObject, mRemoteNG.Connection.Info).Icon)
If conIcon IsNot Nothing Then If conIcon IsNot Nothing Then
Me.btnIcon.Image = conIcon.ToBitmap Me.btnIcon.Image = conIcon.ToBitmap
End If End If
@@ -863,23 +863,23 @@ Namespace UI
Public Sub SetHostStatus(ByVal ConnectionInfo As Object) Public Sub SetHostStatus(ByVal ConnectionInfo As Object)
Try Try
If TypeOf ConnectionInfo Is mRemote.Connection.Info Then If TypeOf ConnectionInfo Is mRemoteNG.Connection.Info Then
'continue 'continue
ElseIf TypeOf ConnectionInfo Is mRemote.Connection.Info.Inheritance Then ElseIf TypeOf ConnectionInfo Is mRemoteNG.Connection.Info.Inheritance Then
ConnectionInfo = TryCast(ConnectionInfo, mRemote.Connection.Info.Inheritance).Parent ConnectionInfo = TryCast(ConnectionInfo, mRemoteNG.Connection.Info.Inheritance).Parent
Else Else
Me.btnHostStatus.Image = My.Resources.HostStatus_Check Me.btnHostStatus.Image = My.Resources.HostStatus_Check
Exit Sub Exit Sub
End If End If
If TryCast(ConnectionInfo, mRemote.Connection.Info).IsContainer Then If TryCast(ConnectionInfo, mRemoteNG.Connection.Info).IsContainer Then
Me.btnHostStatus.Image = My.Resources.HostStatus_Check Me.btnHostStatus.Image = My.Resources.HostStatus_Check
Exit Sub Exit Sub
End If End If
Me.btnHostStatus.Image = My.Resources.HostStatus_Check Me.btnHostStatus.Image = My.Resources.HostStatus_Check
Me.btnHostStatus.Tag = "checking" Me.btnHostStatus.Tag = "checking"
HostName = TryCast(ConnectionInfo, mRemote.Connection.Info).Hostname HostName = TryCast(ConnectionInfo, mRemoteNG.Connection.Info).Hostname
pThread = New Threading.Thread(AddressOf CheckHostAlive) pThread = New Threading.Thread(AddressOf CheckHostAlive)
pThread.IsBackground = True pThread.IsBackground = True
pThread.Start() pThread.Start()

172
mRemoteV1/UI/UI.Window.Connection.vb
View File

@@ -3,7 +3,7 @@ Imports System.Windows
Imports System.Windows.Forms Imports System.Windows.Forms
Imports Crownwood Imports Crownwood
Imports WeifenLuo.WinFormsUI.Docking Imports WeifenLuo.WinFormsUI.Docking
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Namespace UI Namespace UI
Namespace Window Namespace Window
@@ -82,14 +82,14 @@ Namespace UI
' '
'cmenTabFullscreen 'cmenTabFullscreen
' '
Me.cmenTabFullscreen.Image = Global.mRemote.My.Resources.Resources.Fullscreen Me.cmenTabFullscreen.Image = Global.mRemoteNG.My.Resources.Resources.Fullscreen
Me.cmenTabFullscreen.Name = "cmenTabFullscreen" Me.cmenTabFullscreen.Name = "cmenTabFullscreen"
Me.cmenTabFullscreen.Size = New System.Drawing.Size(201, 22) Me.cmenTabFullscreen.Size = New System.Drawing.Size(201, 22)
Me.cmenTabFullscreen.Text = "Fullscreen (RDP)" Me.cmenTabFullscreen.Text = "Fullscreen (RDP)"
' '
'cmenTabSmartSize 'cmenTabSmartSize
' '
Me.cmenTabSmartSize.Image = Global.mRemote.My.Resources.Resources.SmartSize Me.cmenTabSmartSize.Image = Global.mRemoteNG.My.Resources.Resources.SmartSize
Me.cmenTabSmartSize.Name = "cmenTabSmartSize" Me.cmenTabSmartSize.Name = "cmenTabSmartSize"
Me.cmenTabSmartSize.Size = New System.Drawing.Size(201, 22) Me.cmenTabSmartSize.Size = New System.Drawing.Size(201, 22)
Me.cmenTabSmartSize.Text = "SmartSize (RDP/VNC)" Me.cmenTabSmartSize.Text = "SmartSize (RDP/VNC)"
@@ -107,14 +107,14 @@ Namespace UI
' '
'cmenTabScreenshot 'cmenTabScreenshot
' '
Me.cmenTabScreenshot.Image = Global.mRemote.My.Resources.Resources.Screenshot_Add Me.cmenTabScreenshot.Image = Global.mRemoteNG.My.Resources.Resources.Screenshot_Add
Me.cmenTabScreenshot.Name = "cmenTabScreenshot" Me.cmenTabScreenshot.Name = "cmenTabScreenshot"
Me.cmenTabScreenshot.Size = New System.Drawing.Size(201, 22) Me.cmenTabScreenshot.Size = New System.Drawing.Size(201, 22)
Me.cmenTabScreenshot.Text = "Screenshot" Me.cmenTabScreenshot.Text = "Screenshot"
' '
'cmenTabStartChat 'cmenTabStartChat
' '
Me.cmenTabStartChat.Image = Global.mRemote.My.Resources.Resources.Chat Me.cmenTabStartChat.Image = Global.mRemoteNG.My.Resources.Resources.Chat
Me.cmenTabStartChat.Name = "cmenTabStartChat" Me.cmenTabStartChat.Name = "cmenTabStartChat"
Me.cmenTabStartChat.Size = New System.Drawing.Size(201, 22) Me.cmenTabStartChat.Size = New System.Drawing.Size(201, 22)
Me.cmenTabStartChat.Text = "Start Chat (VNC)" Me.cmenTabStartChat.Text = "Start Chat (VNC)"
@@ -122,14 +122,14 @@ Namespace UI
' '
'cmenTabTransferFile 'cmenTabTransferFile
' '
Me.cmenTabTransferFile.Image = Global.mRemote.My.Resources.Resources.SSHTransfer Me.cmenTabTransferFile.Image = Global.mRemoteNG.My.Resources.Resources.SSHTransfer
Me.cmenTabTransferFile.Name = "cmenTabTransferFile" Me.cmenTabTransferFile.Name = "cmenTabTransferFile"
Me.cmenTabTransferFile.Size = New System.Drawing.Size(201, 22) Me.cmenTabTransferFile.Size = New System.Drawing.Size(201, 22)
Me.cmenTabTransferFile.Text = "Transfer File (SSH)" Me.cmenTabTransferFile.Text = "Transfer File (SSH)"
' '
'cmenTabRefreshScreen 'cmenTabRefreshScreen
' '
Me.cmenTabRefreshScreen.Image = Global.mRemote.My.Resources.Resources.Refresh Me.cmenTabRefreshScreen.Image = Global.mRemoteNG.My.Resources.Resources.Refresh
Me.cmenTabRefreshScreen.Name = "cmenTabRefreshScreen" Me.cmenTabRefreshScreen.Name = "cmenTabRefreshScreen"
Me.cmenTabRefreshScreen.Size = New System.Drawing.Size(201, 22) Me.cmenTabRefreshScreen.Size = New System.Drawing.Size(201, 22)
Me.cmenTabRefreshScreen.Text = "Refresh Screen (VNC)" Me.cmenTabRefreshScreen.Text = "Refresh Screen (VNC)"
@@ -137,7 +137,7 @@ Namespace UI
'cmenTabSendSpecialKeys 'cmenTabSendSpecialKeys
' '
Me.cmenTabSendSpecialKeys.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cmenTabSendSpecialKeysCtrlAltDel, Me.cmenTabSendSpecialKeysCtrlEsc}) Me.cmenTabSendSpecialKeys.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cmenTabSendSpecialKeysCtrlAltDel, Me.cmenTabSendSpecialKeysCtrlEsc})
Me.cmenTabSendSpecialKeys.Image = Global.mRemote.My.Resources.Resources.Keyboard Me.cmenTabSendSpecialKeys.Image = Global.mRemoteNG.My.Resources.Resources.Keyboard
Me.cmenTabSendSpecialKeys.Name = "cmenTabSendSpecialKeys" Me.cmenTabSendSpecialKeys.Name = "cmenTabSendSpecialKeys"
Me.cmenTabSendSpecialKeys.Size = New System.Drawing.Size(201, 22) Me.cmenTabSendSpecialKeys.Size = New System.Drawing.Size(201, 22)
Me.cmenTabSendSpecialKeys.Text = "Send special Keys (VNC)" Me.cmenTabSendSpecialKeys.Text = "Send special Keys (VNC)"
@@ -168,7 +168,7 @@ Namespace UI
' '
'cmenTabRenameTab 'cmenTabRenameTab
' '
Me.cmenTabRenameTab.Image = Global.mRemote.My.Resources.Resources.Rename Me.cmenTabRenameTab.Image = Global.mRemoteNG.My.Resources.Resources.Rename
Me.cmenTabRenameTab.Name = "cmenTabRenameTab" Me.cmenTabRenameTab.Name = "cmenTabRenameTab"
Me.cmenTabRenameTab.Size = New System.Drawing.Size(201, 22) Me.cmenTabRenameTab.Size = New System.Drawing.Size(201, 22)
Me.cmenTabRenameTab.Text = "Rename Tab" Me.cmenTabRenameTab.Text = "Rename Tab"
@@ -188,7 +188,7 @@ Namespace UI
' '
'cmenTabDisconnect 'cmenTabDisconnect
' '
Me.cmenTabDisconnect.Image = Global.mRemote.My.Resources.Resources.Pause Me.cmenTabDisconnect.Image = Global.mRemoteNG.My.Resources.Resources.Pause
Me.cmenTabDisconnect.Name = "cmenTabDisconnect" Me.cmenTabDisconnect.Name = "cmenTabDisconnect"
Me.cmenTabDisconnect.Size = New System.Drawing.Size(201, 22) Me.cmenTabDisconnect.Size = New System.Drawing.Size(201, 22)
Me.cmenTabDisconnect.Text = "Disconnect" Me.cmenTabDisconnect.Text = "Disconnect"
@@ -204,7 +204,7 @@ Namespace UI
Me.ClientSize = New System.Drawing.Size(632, 453) Me.ClientSize = New System.Drawing.Size(632, 453)
Me.Controls.Add(Me.TabController) Me.Controls.Add(Me.TabController)
Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Icon = Global.mRemote.My.Resources.Resources.mRemote_Icon Me.Icon = Global.mRemoteNG.My.Resources.Resources.mRemote_Icon
Me.Name = "Connection" Me.Name = "Connection"
Me.TabText = "UI.Window.Connection" Me.TabText = "UI.Window.Connection"
Me.Text = "UI.Window.Connection" Me.Text = "UI.Window.Connection"
@@ -228,7 +228,7 @@ Namespace UI
Me.TabText = FormText Me.TabText = FormText
End Sub End Sub
Public Function AddConnectionTab(ByVal conI As mRemote.Connection.Info) As Magic.Controls.TabPage Public Function AddConnectionTab(ByVal conI As mRemoteNG.Connection.Info) As Magic.Controls.TabPage
Try Try
Dim nTab As New Magic.Controls.TabPage Dim nTab As New Magic.Controls.TabPage
nTab.Anchor = AnchorStyles.Bottom Or AnchorStyles.Left Or AnchorStyles.Right Or AnchorStyles.Top nTab.Anchor = AnchorStyles.Bottom Or AnchorStyles.Left Or AnchorStyles.Right Or AnchorStyles.Top
@@ -259,7 +259,7 @@ Namespace UI
nTab.Title &= ")" nTab.Title &= ")"
End If End If
Dim conIcon As Icon = mRemote.Connection.Icon.FromString(conI.Icon) Dim conIcon As Icon = mRemoteNG.Connection.Icon.FromString(conI.Icon)
If conIcon IsNot Nothing Then If conIcon IsNot Nothing Then
nTab.Icon = conIcon nTab.Icon = conIcon
End If End If
@@ -308,7 +308,7 @@ Namespace UI
Try Try
For Each tabP As Magic.Controls.TabPage In Me.TabController.TabPages For Each tabP As Magic.Controls.TabPage In Me.TabController.TabPages
If tabP.Tag IsNot Nothing Then If tabP.Tag IsNot Nothing Then
Dim IC As mRemote.Connection.InterfaceControl = tabP.Tag Dim IC As mRemoteNG.Connection.InterfaceControl = tabP.Tag
IC.Protocol.Close() IC.Protocol.Close()
End If End If
Next Next
@@ -321,8 +321,8 @@ Namespace UI
Try Try
For Each tabP As Magic.Controls.TabPage In Me.TabController.TabPages For Each tabP As Magic.Controls.TabPage In Me.TabController.TabPages
If tabP.Tag IsNot Nothing Then If tabP.Tag IsNot Nothing Then
If TypeOf tabP.Tag Is mRemote.Connection.InterfaceControl Then If TypeOf tabP.Tag Is mRemoteNG.Connection.InterfaceControl Then
Dim IC As mRemote.Connection.InterfaceControl = tabP.Tag Dim IC As mRemoteNG.Connection.InterfaceControl = tabP.Tag
IC.Protocol.Resize() IC.Protocol.Resize()
End If End If
End If End If
@@ -345,7 +345,7 @@ Namespace UI
Private Sub CloseConnectionTab() Private Sub CloseConnectionTab()
Try Try
If Me.TabController.SelectedTab.Tag IsNot Nothing Then If Me.TabController.SelectedTab.Tag IsNot Nothing Then
Dim IC As mRemote.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag Dim IC As mRemoteNG.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag
IC.Protocol.Close() IC.Protocol.Close()
Else Else
Me.CloseTab(Me.TabController.SelectedTab) Me.CloseTab(Me.TabController.SelectedTab)
@@ -364,7 +364,7 @@ Namespace UI
#Region "Drag and Drop" #Region "Drag and Drop"
Private Sub TabController_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TabController.DragDrop Private Sub TabController_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TabController.DragDrop
If e.Data.GetDataPresent("System.Windows.Forms.TreeNode", True) Then If e.Data.GetDataPresent("System.Windows.Forms.TreeNode", True) Then
App.Runtime.OpenConnection(e.Data.GetData("System.Windows.Forms.TreeNode", True).Tag, Me, mRemote.Connection.Info.Force.DoNotJump) App.Runtime.OpenConnection(e.Data.GetData("System.Windows.Forms.TreeNode", True).Tag, Me, mRemoteNG.Connection.Info.Force.DoNotJump)
End If End If
End Sub End Sub
@@ -387,17 +387,17 @@ Namespace UI
Exit Sub Exit Sub
End If End If
Dim IC As mRemote.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag Dim IC As mRemoteNG.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag
If IC Is Nothing Then If IC Is Nothing Then
Exit Sub Exit Sub
End If End If
If IC.Info.Protocol = mRemote.Connection.Protocol.Protocols.RDP Then If IC.Info.Protocol = mRemoteNG.Connection.Protocol.Protocols.RDP Then
Me.cmenTabFullscreen.Enabled = True Me.cmenTabFullscreen.Enabled = True
Me.cmenTabSmartSize.Enabled = True Me.cmenTabSmartSize.Enabled = True
Dim rdp As mRemote.Connection.Protocol.RDP = IC.Protocol Dim rdp As mRemoteNG.Connection.Protocol.RDP = IC.Protocol
Me.cmenTabSmartSize.Checked = rdp.SmartSize Me.cmenTabSmartSize.Checked = rdp.SmartSize
Me.cmenTabFullscreen.Checked = rdp.Fullscreen Me.cmenTabFullscreen.Checked = rdp.Fullscreen
Else Else
@@ -405,7 +405,7 @@ Namespace UI
Me.cmenTabSmartSize.Enabled = False Me.cmenTabSmartSize.Enabled = False
End If End If
If IC.Info.Protocol = mRemote.Connection.Protocol.Protocols.VNC Then If IC.Info.Protocol = mRemoteNG.Connection.Protocol.Protocols.VNC Then
Me.cmenTabSendSpecialKeys.Enabled = True Me.cmenTabSendSpecialKeys.Enabled = True
Me.cmenTabViewOnly.Enabled = True Me.cmenTabViewOnly.Enabled = True
@@ -414,7 +414,7 @@ Namespace UI
Me.cmenTabRefreshScreen.Enabled = True Me.cmenTabRefreshScreen.Enabled = True
Me.cmenTabTransferFile.Enabled = False Me.cmenTabTransferFile.Enabled = False
Dim vnc As mRemote.Connection.Protocol.VNC = IC.Protocol Dim vnc As mRemoteNG.Connection.Protocol.VNC = IC.Protocol
Me.cmenTabSmartSize.Checked = vnc.SmartSize Me.cmenTabSmartSize.Checked = vnc.SmartSize
Me.cmenTabViewOnly.Checked = vnc.ViewOnly Me.cmenTabViewOnly.Checked = vnc.ViewOnly
Else Else
@@ -425,11 +425,11 @@ Namespace UI
Me.cmenTabTransferFile.Enabled = False Me.cmenTabTransferFile.Enabled = False
End If End If
If IC.Info.Protocol = mRemote.Connection.Protocol.Protocols.SSH1 Or IC.Info.Protocol = mRemote.Connection.Protocol.Protocols.SSH2 Then If IC.Info.Protocol = mRemoteNG.Connection.Protocol.Protocols.SSH1 Or IC.Info.Protocol = mRemoteNG.Connection.Protocol.Protocols.SSH2 Then
Me.cmenTabTransferFile.Enabled = True Me.cmenTabTransferFile.Enabled = True
End If End If
If TypeOf IC.Protocol Is mRemote.Connection.Protocol.PuttyBase Then If TypeOf IC.Protocol Is mRemoteNG.Connection.Protocol.PuttyBase Then
Me.cmenTabPuttySettings.Enabled = True Me.cmenTabPuttySettings.Enabled = True
Else Else
Me.cmenTabPuttySettings.Enabled = False Me.cmenTabPuttySettings.Enabled = False
@@ -472,11 +472,11 @@ Namespace UI
End Sub End Sub
Private Sub cmenTabSendSpecialKeysCtrlAltDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmenTabSendSpecialKeysCtrlAltDel.Click Private Sub cmenTabSendSpecialKeysCtrlAltDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmenTabSendSpecialKeysCtrlAltDel.Click
Me.SendSpecialKeys(mRemote.Connection.Protocol.VNC.SpecialKeys.CtrlAltDel) Me.SendSpecialKeys(mRemoteNG.Connection.Protocol.VNC.SpecialKeys.CtrlAltDel)
End Sub End Sub
Private Sub cmenTabSendSpecialKeysCtrlEsc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmenTabSendSpecialKeysCtrlEsc.Click Private Sub cmenTabSendSpecialKeysCtrlEsc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmenTabSendSpecialKeysCtrlEsc.Click
Me.SendSpecialKeys(mRemote.Connection.Protocol.VNC.SpecialKeys.CtrlEsc) Me.SendSpecialKeys(mRemoteNG.Connection.Protocol.VNC.SpecialKeys.CtrlEsc)
End Sub End Sub
Private Sub cmenTabFullscreen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmenTabFullscreen.Click Private Sub cmenTabFullscreen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmenTabFullscreen.Click
@@ -508,14 +508,14 @@ Namespace UI
Private Sub ToggleSmartSize() Private Sub ToggleSmartSize()
Try Try
If Me.TabController.SelectedTab IsNot Nothing Then If Me.TabController.SelectedTab IsNot Nothing Then
If TypeOf Me.TabController.SelectedTab.Tag Is mRemote.Connection.InterfaceControl Then If TypeOf Me.TabController.SelectedTab.Tag Is mRemoteNG.Connection.InterfaceControl Then
Dim IC As mRemote.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag Dim IC As mRemoteNG.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag
If TypeOf IC.Protocol Is mRemote.Connection.Protocol.RDP Then If TypeOf IC.Protocol Is mRemoteNG.Connection.Protocol.RDP Then
Dim rdp As mRemote.Connection.Protocol.RDP = IC.Protocol Dim rdp As mRemoteNG.Connection.Protocol.RDP = IC.Protocol
rdp.ToggleSmartSize() rdp.ToggleSmartSize()
ElseIf TypeOf IC.Protocol Is mRemote.Connection.Protocol.VNC Then ElseIf TypeOf IC.Protocol Is mRemoteNG.Connection.Protocol.VNC Then
Dim vnc As mRemote.Connection.Protocol.VNC = IC.Protocol Dim vnc As mRemoteNG.Connection.Protocol.VNC = IC.Protocol
vnc.ToggleSmartSize() vnc.ToggleSmartSize()
End If End If
End If End If
@@ -528,12 +528,12 @@ Namespace UI
Private Sub TransferFile() Private Sub TransferFile()
Try Try
If Me.TabController.SelectedTab IsNot Nothing Then If Me.TabController.SelectedTab IsNot Nothing Then
If TypeOf Me.TabController.SelectedTab.Tag Is mRemote.Connection.InterfaceControl Then If TypeOf Me.TabController.SelectedTab.Tag Is mRemoteNG.Connection.InterfaceControl Then
Dim IC As mRemote.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag Dim IC As mRemoteNG.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag
If IC.Info.Protocol = mRemote.Connection.Protocol.Protocols.SSH1 Or IC.Info.Protocol = mRemote.Connection.Protocol.Protocols.SSH2 Then If IC.Info.Protocol = mRemoteNG.Connection.Protocol.Protocols.SSH1 Or IC.Info.Protocol = mRemoteNG.Connection.Protocol.Protocols.SSH2 Then
SSHTransferFile() SSHTransferFile()
ElseIf IC.Info.Protocol = mRemote.Connection.Protocol.Protocols.VNC Then ElseIf IC.Info.Protocol = mRemoteNG.Connection.Protocol.Protocols.VNC Then
VNCTransferFile() VNCTransferFile()
End If End If
End If End If
@@ -546,11 +546,11 @@ Namespace UI
Private Sub SSHTransferFile() Private Sub SSHTransferFile()
Try Try
Dim IC As mRemote.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag Dim IC As mRemoteNG.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag
Windows.Show(Type.SSHTransfer) Windows.Show(Type.SSHTransfer)
Dim conI As mRemote.Connection.Info = IC.Info Dim conI As mRemoteNG.Connection.Info = IC.Info
Windows.sshtransferForm.Hostname = conI.Hostname Windows.sshtransferForm.Hostname = conI.Hostname
Windows.sshtransferForm.Username = conI.Username Windows.sshtransferForm.Username = conI.Username
@@ -563,8 +563,8 @@ Namespace UI
Private Sub VNCTransferFile() Private Sub VNCTransferFile()
Try Try
Dim IC As mRemote.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag Dim IC As mRemoteNG.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag
Dim vnc As mRemote.Connection.Protocol.VNC = IC.Protocol Dim vnc As mRemoteNG.Connection.Protocol.VNC = IC.Protocol
vnc.StartFileTransfer() vnc.StartFileTransfer()
Catch ex As Exception Catch ex As Exception
mC.AddMessage(Messages.MessageClass.ErrorMsg, "VNCTransferFile (UI.Window.Connections) failed" & vbNewLine & ex.Message, True) mC.AddMessage(Messages.MessageClass.ErrorMsg, "VNCTransferFile (UI.Window.Connections) failed" & vbNewLine & ex.Message, True)
@@ -574,13 +574,13 @@ Namespace UI
Private Sub ToggleViewOnly() Private Sub ToggleViewOnly()
Try Try
If Me.TabController.SelectedTab IsNot Nothing Then If Me.TabController.SelectedTab IsNot Nothing Then
If TypeOf Me.TabController.SelectedTab.Tag Is mRemote.Connection.InterfaceControl Then If TypeOf Me.TabController.SelectedTab.Tag Is mRemoteNG.Connection.InterfaceControl Then
Dim IC As mRemote.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag Dim IC As mRemoteNG.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag
If TypeOf IC.Protocol Is mRemote.Connection.Protocol.VNC Then If TypeOf IC.Protocol Is mRemoteNG.Connection.Protocol.VNC Then
cmenTabViewOnly.Checked = Not cmenTabViewOnly.Checked cmenTabViewOnly.Checked = Not cmenTabViewOnly.Checked
Dim vnc As mRemote.Connection.Protocol.VNC = IC.Protocol Dim vnc As mRemoteNG.Connection.Protocol.VNC = IC.Protocol
vnc.ToggleViewOnly() vnc.ToggleViewOnly()
End If End If
End If End If
@@ -593,11 +593,11 @@ Namespace UI
Private Sub StartChat() Private Sub StartChat()
Try Try
If Me.TabController.SelectedTab IsNot Nothing Then If Me.TabController.SelectedTab IsNot Nothing Then
If TypeOf Me.TabController.SelectedTab.Tag Is mRemote.Connection.InterfaceControl Then If TypeOf Me.TabController.SelectedTab.Tag Is mRemoteNG.Connection.InterfaceControl Then
Dim IC As mRemote.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag Dim IC As mRemoteNG.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag
If TypeOf IC.Protocol Is mRemote.Connection.Protocol.VNC Then If TypeOf IC.Protocol Is mRemoteNG.Connection.Protocol.VNC Then
Dim vnc As mRemote.Connection.Protocol.VNC = IC.Protocol Dim vnc As mRemoteNG.Connection.Protocol.VNC = IC.Protocol
vnc.StartChat() vnc.StartChat()
End If End If
End If End If
@@ -610,11 +610,11 @@ Namespace UI
Private Sub RefreshScreen() Private Sub RefreshScreen()
Try Try
If Me.TabController.SelectedTab IsNot Nothing Then If Me.TabController.SelectedTab IsNot Nothing Then
If TypeOf Me.TabController.SelectedTab.Tag Is mRemote.Connection.InterfaceControl Then If TypeOf Me.TabController.SelectedTab.Tag Is mRemoteNG.Connection.InterfaceControl Then
Dim IC As mRemote.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag Dim IC As mRemoteNG.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag
If TypeOf IC.Protocol Is mRemote.Connection.Protocol.VNC Then If TypeOf IC.Protocol Is mRemoteNG.Connection.Protocol.VNC Then
Dim vnc As mRemote.Connection.Protocol.VNC = IC.Protocol Dim vnc As mRemoteNG.Connection.Protocol.VNC = IC.Protocol
vnc.RefreshScreen() vnc.RefreshScreen()
End If End If
End If End If
@@ -624,14 +624,14 @@ Namespace UI
End Try End Try
End Sub End Sub
Private Sub SendSpecialKeys(ByVal Keys As mRemote.Connection.Protocol.VNC.SpecialKeys) Private Sub SendSpecialKeys(ByVal Keys As mRemoteNG.Connection.Protocol.VNC.SpecialKeys)
Try Try
If Me.TabController.SelectedTab IsNot Nothing Then If Me.TabController.SelectedTab IsNot Nothing Then
If TypeOf Me.TabController.SelectedTab.Tag Is mRemote.Connection.InterfaceControl Then If TypeOf Me.TabController.SelectedTab.Tag Is mRemoteNG.Connection.InterfaceControl Then
Dim IC As mRemote.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag Dim IC As mRemoteNG.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag
If TypeOf IC.Protocol Is mRemote.Connection.Protocol.VNC Then If TypeOf IC.Protocol Is mRemoteNG.Connection.Protocol.VNC Then
Dim vnc As mRemote.Connection.Protocol.VNC = IC.Protocol Dim vnc As mRemoteNG.Connection.Protocol.VNC = IC.Protocol
vnc.SendSpecialKeys(Keys) vnc.SendSpecialKeys(Keys)
End If End If
End If End If
@@ -644,11 +644,11 @@ Namespace UI
Private Sub ToggleFullscreen() Private Sub ToggleFullscreen()
Try Try
If Me.TabController.SelectedTab IsNot Nothing Then If Me.TabController.SelectedTab IsNot Nothing Then
If TypeOf Me.TabController.SelectedTab.Tag Is mRemote.Connection.InterfaceControl Then If TypeOf Me.TabController.SelectedTab.Tag Is mRemoteNG.Connection.InterfaceControl Then
Dim IC As mRemote.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag Dim IC As mRemoteNG.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag
If TypeOf IC.Protocol Is mRemote.Connection.Protocol.RDP Then If TypeOf IC.Protocol Is mRemoteNG.Connection.Protocol.RDP Then
Dim rdp As mRemote.Connection.Protocol.RDP = IC.Protocol Dim rdp As mRemoteNG.Connection.Protocol.RDP = IC.Protocol
rdp.ToggleFullscreen() rdp.ToggleFullscreen()
End If End If
End If End If
@@ -661,11 +661,11 @@ Namespace UI
Private Sub ShowPuttySettingsDialog() Private Sub ShowPuttySettingsDialog()
Try Try
If Me.TabController.SelectedTab IsNot Nothing Then If Me.TabController.SelectedTab IsNot Nothing Then
If TypeOf Me.TabController.SelectedTab.Tag Is mRemote.Connection.InterfaceControl Then If TypeOf Me.TabController.SelectedTab.Tag Is mRemoteNG.Connection.InterfaceControl Then
Dim objInterfaceControl As mRemote.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag Dim objInterfaceControl As mRemoteNG.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag
If TypeOf objInterfaceControl.Protocol Is mRemote.Connection.Protocol.PuttyBase Then If TypeOf objInterfaceControl.Protocol Is mRemoteNG.Connection.Protocol.PuttyBase Then
Dim objPuttyBase As mRemote.Connection.Protocol.PuttyBase = objInterfaceControl.Protocol Dim objPuttyBase As mRemoteNG.Connection.Protocol.PuttyBase = objInterfaceControl.Protocol
objPuttyBase.ShowSettingsDialog() objPuttyBase.ShowSettingsDialog()
End If End If
@@ -701,8 +701,8 @@ Namespace UI
Private Sub StartExternalApp(ByVal ExtA As Tools.ExternalApp) Private Sub StartExternalApp(ByVal ExtA As Tools.ExternalApp)
Try Try
If Me.TabController.SelectedTab IsNot Nothing Then If Me.TabController.SelectedTab IsNot Nothing Then
If TypeOf Me.TabController.SelectedTab.Tag Is mRemote.Connection.InterfaceControl Then If TypeOf Me.TabController.SelectedTab.Tag Is mRemoteNG.Connection.InterfaceControl Then
Dim IC As mRemote.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag Dim IC As mRemoteNG.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag
ExtA.Start(IC.Info) ExtA.Start(IC.Info)
End If End If
@@ -716,8 +716,8 @@ Namespace UI
Private Sub CloseTabMenu() Private Sub CloseTabMenu()
Try Try
If Me.TabController.SelectedTab IsNot Nothing Then If Me.TabController.SelectedTab IsNot Nothing Then
If TypeOf Me.TabController.SelectedTab.Tag Is mRemote.Connection.InterfaceControl Then If TypeOf Me.TabController.SelectedTab.Tag Is mRemoteNG.Connection.InterfaceControl Then
Dim IC As mRemote.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag Dim IC As mRemoteNG.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag
IC.Protocol.Close() IC.Protocol.Close()
End If End If
@@ -730,10 +730,10 @@ Namespace UI
Private Sub DuplicateTab() Private Sub DuplicateTab()
Try Try
If Me.TabController.SelectedTab IsNot Nothing Then If Me.TabController.SelectedTab IsNot Nothing Then
If TypeOf Me.TabController.SelectedTab.Tag Is mRemote.Connection.InterfaceControl Then If TypeOf Me.TabController.SelectedTab.Tag Is mRemoteNG.Connection.InterfaceControl Then
Dim IC As mRemote.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag Dim IC As mRemoteNG.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag
App.Runtime.OpenConnection(IC.Info, mRemote.Connection.Info.Force.DoNotJump) App.Runtime.OpenConnection(IC.Info, mRemoteNG.Connection.Info.Force.DoNotJump)
End If End If
End If End If
Catch ex As Exception Catch ex As Exception
@@ -744,13 +744,13 @@ Namespace UI
Private Sub Reconnect() Private Sub Reconnect()
Try Try
If Me.TabController.SelectedTab IsNot Nothing Then If Me.TabController.SelectedTab IsNot Nothing Then
If TypeOf Me.TabController.SelectedTab.Tag Is mRemote.Connection.InterfaceControl Then If TypeOf Me.TabController.SelectedTab.Tag Is mRemoteNG.Connection.InterfaceControl Then
Dim IC As mRemote.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag Dim IC As mRemoteNG.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag
Dim conI As mRemote.Connection.Info = IC.Info Dim conI As mRemoteNG.Connection.Info = IC.Info
IC.Protocol.Close() IC.Protocol.Close()
App.Runtime.OpenConnection(conI, mRemote.Connection.Info.Force.DoNotJump) App.Runtime.OpenConnection(conI, mRemoteNG.Connection.Info.Force.DoNotJump)
End If End If
End If End If
Catch ex As Exception Catch ex As Exception
@@ -773,7 +773,7 @@ Namespace UI
#Region "Protocols" #Region "Protocols"
Public Sub Prot_Event_Closed(ByVal sender As Object) Public Sub Prot_Event_Closed(ByVal sender As Object)
Dim Prot As mRemote.Connection.Protocol.Base = sender Dim Prot As mRemoteNG.Connection.Protocol.Base = sender
CloseTab(Prot.InterfaceControl.Parent) CloseTab(Prot.InterfaceControl.Parent)
End Sub End Sub
#End Region #End Region
@@ -814,8 +814,8 @@ Namespace UI
Private Sub FocusIC() Private Sub FocusIC()
Try Try
If Me.TabController.SelectedTab IsNot Nothing Then If Me.TabController.SelectedTab IsNot Nothing Then
If TypeOf Me.TabController.SelectedTab.Tag Is mRemote.Connection.InterfaceControl Then If TypeOf Me.TabController.SelectedTab.Tag Is mRemoteNG.Connection.InterfaceControl Then
Dim IC As mRemote.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag Dim IC As mRemoteNG.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag
IC.Protocol.Focus() IC.Protocol.Focus()
End If End If
End If End If
@@ -827,11 +827,11 @@ Namespace UI
Public Sub RefreshIC() Public Sub RefreshIC()
Try Try
If Me.TabController.SelectedTab IsNot Nothing Then If Me.TabController.SelectedTab IsNot Nothing Then
If TypeOf Me.TabController.SelectedTab.Tag Is mRemote.Connection.InterfaceControl Then If TypeOf Me.TabController.SelectedTab.Tag Is mRemoteNG.Connection.InterfaceControl Then
Dim IC As mRemote.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag Dim IC As mRemoteNG.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag
If IC.Info.Protocol = mRemote.Connection.Protocol.Protocols.VNC Then If IC.Info.Protocol = mRemoteNG.Connection.Protocol.Protocols.VNC Then
TryCast(IC.Protocol, mRemote.Connection.Protocol.VNC).RefreshScreen() TryCast(IC.Protocol, mRemoteNG.Connection.Protocol.VNC).RefreshScreen()
End If End If
End If End If
End If End If
@@ -850,9 +850,9 @@ Namespace UI
If curRect.Contains(Form.MousePosition) Then If curRect.Contains(Form.MousePosition) Then
If curTab IsNot Nothing Then If curTab IsNot Nothing Then
Dim IC As mRemote.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag Dim IC As mRemoteNG.Connection.InterfaceControl = Me.TabController.SelectedTab.Tag
If IC.Info.Protocol = mRemote.Connection.Protocol.Protocols.RDP Then If IC.Info.Protocol = mRemoteNG.Connection.Protocol.Protocols.RDP Then
IC.Protocol.Focus() IC.Protocol.Focus()
End If End If
End If End If

10
mRemoteV1/UI/UI.Window.ErrorsAndInfos.vb
View File

@@ -1,5 +1,5 @@
Imports WeifenLuo.WinFormsUI.Docking Imports WeifenLuo.WinFormsUI.Docking
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Namespace UI Namespace UI
Namespace Window Namespace Window
@@ -116,7 +116,7 @@ Namespace UI
' '
'cMenMCCopy 'cMenMCCopy
' '
Me.cMenMCCopy.Image = Global.mRemote.My.Resources.Resources.Copy Me.cMenMCCopy.Image = Global.mRemoteNG.My.Resources.Resources.Copy
Me.cMenMCCopy.Name = "cMenMCCopy" Me.cMenMCCopy.Name = "cMenMCCopy"
Me.cMenMCCopy.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.C), System.Windows.Forms.Keys) Me.cMenMCCopy.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.C), System.Windows.Forms.Keys)
Me.cMenMCCopy.Size = New System.Drawing.Size(136, 22) Me.cMenMCCopy.Size = New System.Drawing.Size(136, 22)
@@ -124,7 +124,7 @@ Namespace UI
' '
'cMenMCDelete 'cMenMCDelete
' '
Me.cMenMCDelete.Image = Global.mRemote.My.Resources.Resources.Delete Me.cMenMCDelete.Image = Global.mRemoteNG.My.Resources.Resources.Delete
Me.cMenMCDelete.Name = "cMenMCDelete" Me.cMenMCDelete.Name = "cMenMCDelete"
Me.cMenMCDelete.ShortcutKeys = System.Windows.Forms.Keys.Delete Me.cMenMCDelete.ShortcutKeys = System.Windows.Forms.Keys.Delete
Me.cMenMCDelete.Size = New System.Drawing.Size(136, 22) Me.cMenMCDelete.Size = New System.Drawing.Size(136, 22)
@@ -142,7 +142,7 @@ Namespace UI
Me.Controls.Add(Me.lvErrorCollector) Me.Controls.Add(Me.lvErrorCollector)
Me.Controls.Add(Me.pnlErrorMsg) Me.Controls.Add(Me.pnlErrorMsg)
Me.HideOnClose = True Me.HideOnClose = True
Me.Icon = Global.mRemote.My.Resources.Resources.Info_Icon Me.Icon = Global.mRemoteNG.My.Resources.Resources.Info_Icon
Me.Name = "ErrorsAndInfos" Me.Name = "ErrorsAndInfos"
Me.TabText = My.Resources.strMenuNotifications Me.TabText = My.Resources.strMenuNotifications
Me.Text = My.Resources.strMenuNotifications Me.Text = My.Resources.strMenuNotifications
@@ -351,7 +351,7 @@ Namespace UI
End Try End Try
End Sub End Sub
#End Region #End Region
Public Enum ControlLayout Public Enum ControlLayout
Vertical = 0 Vertical = 0
Horizontal = 1 Horizontal = 1

10
mRemoteV1/UI/UI.Window.ExternalApps.vb
View File

@@ -1,5 +1,5 @@
Imports WeifenLuo.WinFormsUI.Docking Imports WeifenLuo.WinFormsUI.Docking
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Namespace UI Namespace UI
Namespace Window Namespace Window
@@ -115,7 +115,7 @@ Namespace UI
' '
'cMenAppsAdd 'cMenAppsAdd
' '
Me.cMenAppsAdd.Image = Global.mRemote.My.Resources.Resources.ExtApp_Add Me.cMenAppsAdd.Image = Global.mRemoteNG.My.Resources.Resources.ExtApp_Add
Me.cMenAppsAdd.Name = "cMenAppsAdd" Me.cMenAppsAdd.Name = "cMenAppsAdd"
Me.cMenAppsAdd.ShortcutKeys = CType((System.Windows.Forms.Keys.Shift Or System.Windows.Forms.Keys.F4), System.Windows.Forms.Keys) Me.cMenAppsAdd.ShortcutKeys = CType((System.Windows.Forms.Keys.Shift Or System.Windows.Forms.Keys.F4), System.Windows.Forms.Keys)
Me.cMenAppsAdd.Size = New System.Drawing.Size(147, 22) Me.cMenAppsAdd.Size = New System.Drawing.Size(147, 22)
@@ -123,7 +123,7 @@ Namespace UI
' '
'cMenAppsRemove 'cMenAppsRemove
' '
Me.cMenAppsRemove.Image = Global.mRemote.My.Resources.Resources.ExtApp_Delete Me.cMenAppsRemove.Image = Global.mRemoteNG.My.Resources.Resources.ExtApp_Delete
Me.cMenAppsRemove.Name = "cMenAppsRemove" Me.cMenAppsRemove.Name = "cMenAppsRemove"
Me.cMenAppsRemove.ShortcutKeys = System.Windows.Forms.Keys.Delete Me.cMenAppsRemove.ShortcutKeys = System.Windows.Forms.Keys.Delete
Me.cMenAppsRemove.Size = New System.Drawing.Size(147, 22) Me.cMenAppsRemove.Size = New System.Drawing.Size(147, 22)
@@ -136,7 +136,7 @@ Namespace UI
' '
'cMenAppsStart 'cMenAppsStart
' '
Me.cMenAppsStart.Image = Global.mRemote.My.Resources.Resources.ExtApp_Start Me.cMenAppsStart.Image = Global.mRemoteNG.My.Resources.Resources.ExtApp_Start
Me.cMenAppsStart.Name = "cMenAppsStart" Me.cMenAppsStart.Name = "cMenAppsStart"
Me.cMenAppsStart.Size = New System.Drawing.Size(147, 22) Me.cMenAppsStart.Size = New System.Drawing.Size(147, 22)
Me.cMenAppsStart.Text = "Start" Me.cMenAppsStart.Text = "Start"
@@ -405,7 +405,7 @@ Namespace UI
Private Sub StartApp() Private Sub StartApp()
Try Try
For Each lvItem As ListViewItem In lvApps.SelectedItems For Each lvItem As ListViewItem In lvApps.SelectedItems
TryCast(lvItem.Tag, mRemote.Tools.ExternalApp).Start() TryCast(lvItem.Tag, mRemoteNG.Tools.ExternalApp).Start()
Next Next
Catch ex As Exception Catch ex As Exception
mC.AddMessage(Messages.MessageClass.WarningMsg, "StartApp failed (UI.Window.ExternalApps" & vbNewLine & ex.Message, True) mC.AddMessage(Messages.MessageClass.WarningMsg, "StartApp failed (UI.Window.ExternalApps" & vbNewLine & ex.Message, True)

5
mRemoteV1/UI/UI.Window.Help.vb
View File

@@ -1,5 +1,4 @@
Imports mRemote.App.Runtime Imports WeifenLuo.WinFormsUI.Docking
Imports WeifenLuo.WinFormsUI.Docking
Namespace UI Namespace UI
Namespace Window Namespace Window
@@ -195,7 +194,7 @@ Namespace UI
' '
Me.ClientSize = New System.Drawing.Size(542, 323) Me.ClientSize = New System.Drawing.Size(542, 323)
Me.Controls.Add(Me.pnlSplitter) Me.Controls.Add(Me.pnlSplitter)
Me.Icon = Global.mRemote.My.Resources.Resources.Help_Icon Me.Icon = Global.mRemoteNG.My.Resources.Resources.Help_Icon
Me.Name = "Help" Me.Name = "Help"
Me.TabText = "Help" Me.TabText = "Help"
Me.Text = "Help" Me.Text = "Help"

32
mRemoteV1/UI/UI.Window.Options.vb
View File

@@ -1,5 +1,5 @@
Imports WeifenLuo.WinFormsUI.Docking Imports WeifenLuo.WinFormsUI.Docking
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Namespace UI Namespace UI
Namespace Window Namespace Window
@@ -247,7 +247,7 @@ Namespace UI
'tabConnections 'tabConnections
' '
Me.tabConnections.Controls.Add(Me.pnlConnections) Me.tabConnections.Controls.Add(Me.pnlConnections)
Me.tabConnections.Icon = Global.mRemote.My.Resources.Resources.Root_Icon Me.tabConnections.Icon = Global.mRemoteNG.My.Resources.Resources.Root_Icon
Me.tabConnections.Location = New System.Drawing.Point(0, 0) Me.tabConnections.Location = New System.Drawing.Point(0, 0)
Me.tabConnections.Name = "tabConnections" Me.tabConnections.Name = "tabConnections"
Me.tabConnections.Selected = False Me.tabConnections.Selected = False
@@ -567,7 +567,7 @@ Namespace UI
'tabStartupExit 'tabStartupExit
' '
Me.tabStartupExit.Controls.Add(Me.pnlStartup) Me.tabStartupExit.Controls.Add(Me.pnlStartup)
Me.tabStartupExit.Icon = Global.mRemote.My.Resources.Resources.StartupExit_Icon Me.tabStartupExit.Icon = Global.mRemoteNG.My.Resources.Resources.StartupExit_Icon
Me.tabStartupExit.Location = New System.Drawing.Point(0, 0) Me.tabStartupExit.Location = New System.Drawing.Point(0, 0)
Me.tabStartupExit.Name = "tabStartupExit" Me.tabStartupExit.Name = "tabStartupExit"
Me.tabStartupExit.Selected = False Me.tabStartupExit.Selected = False
@@ -649,7 +649,7 @@ Namespace UI
'tabAppearance 'tabAppearance
' '
Me.tabAppearance.Controls.Add(Me.pnlAppearance) Me.tabAppearance.Controls.Add(Me.pnlAppearance)
Me.tabAppearance.Icon = Global.mRemote.My.Resources.Resources.Appearance_Icon Me.tabAppearance.Icon = Global.mRemoteNG.My.Resources.Resources.Appearance_Icon
Me.tabAppearance.Location = New System.Drawing.Point(0, 0) Me.tabAppearance.Location = New System.Drawing.Point(0, 0)
Me.tabAppearance.Name = "tabAppearance" Me.tabAppearance.Name = "tabAppearance"
Me.tabAppearance.Selected = False Me.tabAppearance.Selected = False
@@ -719,7 +719,7 @@ Namespace UI
'tabTabs 'tabTabs
' '
Me.tabTabs.Controls.Add(Me.pnlTabsAndPanels) Me.tabTabs.Controls.Add(Me.pnlTabsAndPanels)
Me.tabTabs.Icon = Global.mRemote.My.Resources.Resources.Tab_Icon Me.tabTabs.Icon = Global.mRemoteNG.My.Resources.Resources.Tab_Icon
Me.tabTabs.Location = New System.Drawing.Point(0, 0) Me.tabTabs.Location = New System.Drawing.Point(0, 0)
Me.tabTabs.Name = "tabTabs" Me.tabTabs.Name = "tabTabs"
Me.tabTabs.Selected = False Me.tabTabs.Selected = False
@@ -862,7 +862,7 @@ Namespace UI
'tabUpdates 'tabUpdates
' '
Me.tabUpdates.Controls.Add(Me.pnlUpdates) Me.tabUpdates.Controls.Add(Me.pnlUpdates)
Me.tabUpdates.Icon = Global.mRemote.My.Resources.Resources.Info_Icon Me.tabUpdates.Icon = Global.mRemoteNG.My.Resources.Resources.Info_Icon
Me.tabUpdates.Location = New System.Drawing.Point(0, 0) Me.tabUpdates.Location = New System.Drawing.Point(0, 0)
Me.tabUpdates.Name = "tabUpdates" Me.tabUpdates.Name = "tabUpdates"
Me.tabUpdates.Size = New System.Drawing.Size(573, 492) Me.tabUpdates.Size = New System.Drawing.Size(573, 492)
@@ -1077,7 +1077,7 @@ Namespace UI
'tabAdvanced 'tabAdvanced
' '
Me.tabAdvanced.Controls.Add(Me.pnlAdvanced) Me.tabAdvanced.Controls.Add(Me.pnlAdvanced)
Me.tabAdvanced.Icon = Global.mRemote.My.Resources.Resources.Config_Icon Me.tabAdvanced.Icon = Global.mRemoteNG.My.Resources.Resources.Config_Icon
Me.tabAdvanced.Location = New System.Drawing.Point(0, 0) Me.tabAdvanced.Location = New System.Drawing.Point(0, 0)
Me.tabAdvanced.Name = "tabAdvanced" Me.tabAdvanced.Name = "tabAdvanced"
Me.tabAdvanced.Selected = False Me.tabAdvanced.Selected = False
@@ -1225,7 +1225,7 @@ Namespace UI
'btnLaunchPutty 'btnLaunchPutty
' '
Me.btnLaunchPutty.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnLaunchPutty.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnLaunchPutty.Image = Global.mRemote.My.Resources.Resources.PuttyConfig Me.btnLaunchPutty.Image = Global.mRemoteNG.My.Resources.Resources.PuttyConfig
Me.btnLaunchPutty.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnLaunchPutty.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnLaunchPutty.Location = New System.Drawing.Point(297, 153) Me.btnLaunchPutty.Location = New System.Drawing.Point(297, 153)
Me.btnLaunchPutty.Name = "btnLaunchPutty" Me.btnLaunchPutty.Name = "btnLaunchPutty"
@@ -1315,7 +1315,7 @@ Namespace UI
Me.Controls.Add(Me.btnCancel) Me.Controls.Add(Me.btnCancel)
Me.Controls.Add(Me.btnOK) Me.Controls.Add(Me.btnOK)
Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Icon = Global.mRemote.My.Resources.Resources.Options_Icon Me.Icon = Global.mRemoteNG.My.Resources.Resources.Options_Icon
Me.Name = "Options" Me.Name = "Options"
Me.TabText = "Options" Me.TabText = "Options"
Me.Text = "Options" Me.Text = "Options"
@@ -1387,7 +1387,7 @@ Namespace UI
Me.chkUseSQLServer.Checked = My.Settings.UseSQLServer Me.chkUseSQLServer.Checked = My.Settings.UseSQLServer
Me.txtSQLServer.Text = My.Settings.SQLHost Me.txtSQLServer.Text = My.Settings.SQLHost
Me.txtSQLUsername.Text = My.Settings.SQLUser Me.txtSQLUsername.Text = My.Settings.SQLUser
Me.txtSQLPassword.Text = mRemote.Security.Crypt.Decrypt(My.Settings.SQLPass, App.Info.General.EncryptionKey) Me.txtSQLPassword.Text = mRemoteNG.Security.Crypt.Decrypt(My.Settings.SQLPass, App.Info.General.EncryptionKey)
Select Case My.Settings.EmptyCredentials Select Case My.Settings.EmptyCredentials
Case "noinfo" Case "noinfo"
@@ -1399,7 +1399,7 @@ Namespace UI
End Select End Select
Me.txtCredentialsUsername.Text = My.Settings.DefaultUsername Me.txtCredentialsUsername.Text = My.Settings.DefaultUsername
Me.txtCredentialsPassword.Text = mRemote.Security.Crypt.Decrypt(My.Settings.DefaultPassword, App.Info.General.EncryptionKey) Me.txtCredentialsPassword.Text = mRemoteNG.Security.Crypt.Decrypt(My.Settings.DefaultPassword, App.Info.General.EncryptionKey)
Me.txtCredentialsDomain.Text = My.Settings.DefaultDomain Me.txtCredentialsDomain.Text = My.Settings.DefaultDomain
Me.chkUseOnlyErrorsAndInfosPanel.Checked = My.Settings.ShowNoMessageBoxes Me.chkUseOnlyErrorsAndInfosPanel.Checked = My.Settings.ShowNoMessageBoxes
@@ -1503,7 +1503,7 @@ Namespace UI
My.Settings.UseSQLServer = Me.chkUseSQLServer.Checked My.Settings.UseSQLServer = Me.chkUseSQLServer.Checked
My.Settings.SQLHost = Me.txtSQLServer.Text My.Settings.SQLHost = Me.txtSQLServer.Text
My.Settings.SQLUser = Me.txtSQLUsername.Text My.Settings.SQLUser = Me.txtSQLUsername.Text
My.Settings.SQLPass = mRemote.Security.Crypt.Encrypt(Me.txtSQLPassword.Text, App.Info.General.EncryptionKey) My.Settings.SQLPass = mRemoteNG.Security.Crypt.Encrypt(Me.txtSQLPassword.Text, App.Info.General.EncryptionKey)
If Me.radCredentialsNoInfo.Checked Then If Me.radCredentialsNoInfo.Checked Then
My.Settings.EmptyCredentials = "noinfo" My.Settings.EmptyCredentials = "noinfo"
@@ -1514,7 +1514,7 @@ Namespace UI
End If End If
My.Settings.DefaultUsername = Me.txtCredentialsUsername.Text My.Settings.DefaultUsername = Me.txtCredentialsUsername.Text
My.Settings.DefaultPassword = mRemote.Security.Crypt.Encrypt(Me.txtCredentialsPassword.Text, App.Info.General.EncryptionKey) My.Settings.DefaultPassword = mRemoteNG.Security.Crypt.Encrypt(Me.txtCredentialsPassword.Text, App.Info.General.EncryptionKey)
My.Settings.DefaultDomain = Me.txtCredentialsDomain.Text My.Settings.DefaultDomain = Me.txtCredentialsDomain.Text
My.Settings.ShowNoMessageBoxes = Me.chkUseOnlyErrorsAndInfosPanel.Checked My.Settings.ShowNoMessageBoxes = Me.chkUseOnlyErrorsAndInfosPanel.Checked
@@ -1543,9 +1543,9 @@ Namespace UI
My.Settings.CustomPuttyPath = Me.txtCustomPuttyPath.Text My.Settings.CustomPuttyPath = Me.txtCustomPuttyPath.Text
If My.Settings.UseCustomPuttyPath Then If My.Settings.UseCustomPuttyPath Then
mRemote.Connection.Protocol.PuttyBase.PuttyPath = My.Settings.CustomPuttyPath mRemoteNG.Connection.Protocol.PuttyBase.PuttyPath = My.Settings.CustomPuttyPath
Else Else
mRemote.Connection.Protocol.PuttyBase.PuttyPath = My.Application.Info.DirectoryPath & "\putty.exe" mRemoteNG.Connection.Protocol.PuttyBase.PuttyPath = My.Application.Info.DirectoryPath & "\putty.exe"
End If End If
My.Settings.MaxPuttyWaitTime = Me.numPuttyWaitTime.Value My.Settings.MaxPuttyWaitTime = Me.numPuttyWaitTime.Value
@@ -1744,7 +1744,7 @@ Namespace UI
End Sub End Sub
Private Sub btnLaunchPutty_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLaunchPutty.Click Private Sub btnLaunchPutty_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLaunchPutty.Click
mRemote.Connection.Protocol.PuttyBase.StartPutty() mRemoteNG.Connection.Protocol.PuttyBase.StartPutty()
End Sub End Sub
Private Sub btnBrowseCustomPuttyPath_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowseCustomPuttyPath.Click Private Sub btnBrowseCustomPuttyPath_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowseCustomPuttyPath.Click

6
mRemoteV1/UI/UI.Window.PortScan.vb
View File

@@ -1,5 +1,5 @@
Imports WeifenLuo.WinFormsUI.Docking Imports WeifenLuo.WinFormsUI.Docking
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Namespace UI Namespace UI
Namespace Window Namespace Window
@@ -112,7 +112,7 @@ Namespace UI
' '
Me.btnScan.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnScan.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnScan.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnScan.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnScan.Image = Global.mRemote.My.Resources.Resources.Search Me.btnScan.Image = Global.mRemoteNG.My.Resources.Resources.Search
Me.btnScan.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnScan.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnScan.Location = New System.Drawing.Point(448, 8) Me.btnScan.Location = New System.Drawing.Point(448, 8)
Me.btnScan.Name = "btnScan" Me.btnScan.Name = "btnScan"
@@ -418,7 +418,7 @@ Namespace UI
End Sub End Sub
Private Sub btnImport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnImport.Click Private Sub btnImport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnImport.Click
Dim prot As mRemote.Connection.Protocol.Protocols = Tools.Misc.StringToEnum(GetType(mRemote.Connection.Protocol.Protocols), cbProtocol.SelectedItem) Dim prot As mRemoteNG.Connection.Protocol.Protocols = Tools.Misc.StringToEnum(GetType(mRemoteNG.Connection.Protocol.Protocols), cbProtocol.SelectedItem)
Dim arrHosts As New ArrayList Dim arrHosts As New ArrayList
For Each lvItem As ListViewItem In lvHosts.SelectedItems For Each lvItem As ListViewItem In lvHosts.SelectedItems

24
mRemoteV1/UI/UI.Window.QuickConnect.vb
View File

@@ -1,6 +1,6 @@
Imports WeifenLuo.WinFormsUI.Docking Imports WeifenLuo.WinFormsUI.Docking
Imports System.Reflection Imports System.Reflection
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Namespace UI Namespace UI
Namespace Window Namespace Window
@@ -43,7 +43,7 @@ Namespace UI
Me.Controls.Add(Me.btnCancel) Me.Controls.Add(Me.btnCancel)
Me.Controls.Add(Me.flpProtocols) Me.Controls.Add(Me.flpProtocols)
Me.HideOnClose = True Me.HideOnClose = True
Me.Icon = Global.mRemote.My.Resources.Resources.Play_Quick_Icon Me.Icon = Global.mRemoteNG.My.Resources.Resources.Play_Quick_Icon
Me.Name = "QuickConnect" Me.Name = "QuickConnect"
Me.TabText = My.Resources.strQuickConnect Me.TabText = My.Resources.strQuickConnect
Me.Text = My.Resources.strQuickConnect Me.Text = My.Resources.strQuickConnect
@@ -61,12 +61,12 @@ Namespace UI
#End Region #End Region
#Region "Public Properties" #Region "Public Properties"
Private _ConnectionInfo As mRemote.Connection.Info Private _ConnectionInfo As mRemoteNG.Connection.Info
Public Property ConnectionInfo() As mRemote.Connection.Info Public Property ConnectionInfo() As mRemoteNG.Connection.Info
Get Get
Return Me._ConnectionInfo Return Me._ConnectionInfo
End Get End Get
Set(ByVal value As mRemote.Connection.Info) Set(ByVal value As mRemoteNG.Connection.Info)
Me._ConnectionInfo = value Me._ConnectionInfo = value
End Set End Set
End Property End Property
@@ -92,7 +92,7 @@ Namespace UI
Private Sub CreateButtons() Private Sub CreateButtons()
Try Try
For Each fI As FieldInfo In GetType(mRemote.Connection.Protocol.Protocols).GetFields For Each fI As FieldInfo In GetType(mRemoteNG.Connection.Protocol.Protocols).GetFields
If fI.Name <> "value__" And fI.Name <> "NONE" And fI.Name <> "IntApp" Then If fI.Name <> "value__" And fI.Name <> "NONE" And fI.Name <> "IntApp" Then
Dim nBtn As New Button Dim nBtn As New Button
nBtn.Text = fI.Name nBtn.Text = fI.Name
@@ -110,21 +110,21 @@ Namespace UI
Private Sub ProtocolButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Private Sub ProtocolButton_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Try Try
Me._ConnectionInfo.Protocol = Tools.Misc.StringToEnum(GetType(mRemote.Connection.Protocol.Protocols), sender.Text) Me._ConnectionInfo.Protocol = Tools.Misc.StringToEnum(GetType(mRemoteNG.Connection.Protocol.Protocols), sender.Text)
If Me._ConnectionInfo.Port = 0 Then If Me._ConnectionInfo.Port = 0 Then
Me._ConnectionInfo.SetDefaultPort() Me._ConnectionInfo.SetDefaultPort()
If mRemote.Connection.QuickConnect.History.Exists(Me._ConnectionInfo.Hostname) = False Then If mRemoteNG.Connection.QuickConnect.History.Exists(Me._ConnectionInfo.Hostname) = False Then
mRemote.Connection.QuickConnect.History.Add(Me._ConnectionInfo.Hostname) mRemoteNG.Connection.QuickConnect.History.Add(Me._ConnectionInfo.Hostname)
End If End If
Else Else
If mRemote.Connection.QuickConnect.History.Exists(Me._ConnectionInfo.Hostname) = False Then If mRemoteNG.Connection.QuickConnect.History.Exists(Me._ConnectionInfo.Hostname) = False Then
mRemote.Connection.QuickConnect.History.Add(Me._ConnectionInfo.Hostname & ":" & Me._ConnectionInfo.Port) mRemoteNG.Connection.QuickConnect.History.Add(Me._ConnectionInfo.Hostname & ":" & Me._ConnectionInfo.Port)
End If End If
End If End If
App.Runtime.OpenConnection(Me._ConnectionInfo, mRemote.Connection.Info.Force.DoNotJump) App.Runtime.OpenConnection(Me._ConnectionInfo, mRemoteNG.Connection.Info.Force.DoNotJump)
Me.Hide() Me.Hide()
Catch ex As Exception Catch ex As Exception

9
mRemoteV1/UI/UI.Window.SSHTransfer.vb
View File

@@ -1,9 +1,8 @@
Imports WeifenLuo.WinFormsUI.Docking Imports WeifenLuo.WinFormsUI.Docking
Imports Tamir.SharpSsh Imports Tamir.SharpSsh
Imports Tamir.SharpSsh.jsch
Imports System.IO Imports System.IO
Imports System.Threading Imports System.Threading
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Namespace UI Namespace UI
Namespace Window Namespace Window
@@ -122,7 +121,7 @@ Namespace UI
Me.btnBrowse.Name = "btnBrowse" Me.btnBrowse.Name = "btnBrowse"
Me.btnBrowse.Size = New System.Drawing.Size(81, 23) Me.btnBrowse.Size = New System.Drawing.Size(81, 23)
Me.btnBrowse.TabIndex = 30 Me.btnBrowse.TabIndex = 30
Me.btnBrowse.Text = Global.mRemote.My.Resources.Resources.strButtonBrowse Me.btnBrowse.Text = Global.mRemoteNG.My.Resources.Resources.strButtonBrowse
Me.btnBrowse.UseVisualStyleBackColor = True Me.btnBrowse.UseVisualStyleBackColor = True
' '
'grpConnection 'grpConnection
@@ -262,7 +261,7 @@ Namespace UI
' '
Me.btnTransfer.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnTransfer.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnTransfer.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnTransfer.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnTransfer.Image = Global.mRemote.My.Resources.Resources.SSHTransfer Me.btnTransfer.Image = Global.mRemoteNG.My.Resources.Resources.SSHTransfer
Me.btnTransfer.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnTransfer.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnTransfer.Location = New System.Drawing.Point(597, 382) Me.btnTransfer.Location = New System.Drawing.Point(597, 382)
Me.btnTransfer.Name = "btnTransfer" Me.btnTransfer.Name = "btnTransfer"
@@ -291,7 +290,7 @@ Namespace UI
Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "SSHTransfer" Me.Name = "SSHTransfer"
Me.TabText = Global.mRemote.My.Resources.Resources.strMenuSSHFileTransfer Me.TabText = Global.mRemoteNG.My.Resources.Resources.strMenuSSHFileTransfer
Me.Text = "SSH File Transfer" Me.Text = "SSH File Transfer"
Me.grpFiles.ResumeLayout(False) Me.grpFiles.ResumeLayout(False)
Me.grpFiles.PerformLayout() Me.grpFiles.PerformLayout()

6
mRemoteV1/UI/UI.Window.SaveAs.vb
View File

@@ -1,5 +1,5 @@
Imports WeifenLuo.WinFormsUI.Docking Imports WeifenLuo.WinFormsUI.Docking
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Namespace UI Namespace UI
Namespace Window Namespace Window
@@ -105,7 +105,7 @@ Namespace UI
' '
'PictureBox1 'PictureBox1
' '
Me.PictureBox1.Image = Global.mRemote.My.Resources.Resources.WarningSmall Me.PictureBox1.Image = Global.mRemoteNG.My.Resources.Resources.WarningSmall
Me.PictureBox1.Location = New System.Drawing.Point(15, 31) Me.PictureBox1.Location = New System.Drawing.Point(15, 31)
Me.PictureBox1.Name = "PictureBox1" Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(16, 16) Me.PictureBox1.Size = New System.Drawing.Size(16, 16)
@@ -123,7 +123,7 @@ Namespace UI
Me.Controls.Add(Me.lvSecurity) Me.Controls.Add(Me.lvSecurity)
Me.Controls.Add(Me.btnCancel) Me.Controls.Add(Me.btnCancel)
Me.Controls.Add(Me.btnOK) Me.Controls.Add(Me.btnOK)
Me.Icon = Global.mRemote.My.Resources.Resources.Connections_SaveAs_Icon Me.Icon = Global.mRemoteNG.My.Resources.Resources.Connections_SaveAs_Icon
Me.Name = "SaveAs" Me.Name = "SaveAs"
Me.TabText = "Save Connections As" Me.TabText = "Save Connections As"
Me.Text = "Save Connections As" Me.Text = "Save Connections As"

14
mRemoteV1/UI/UI.Window.ScreenshotManager.vb
View File

@@ -1,5 +1,5 @@
Imports WeifenLuo.WinFormsUI.Docking Imports WeifenLuo.WinFormsUI.Docking
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Imports System.IO Imports System.IO
Namespace UI Namespace UI
@@ -61,21 +61,21 @@ Namespace UI
'mMenFile 'mMenFile
' '
Me.mMenFile.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mMenFileSaveAll, Me.mMenFileRemoveAll}) Me.mMenFile.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mMenFileSaveAll, Me.mMenFileRemoveAll})
Me.mMenFile.Image = Global.mRemote.My.Resources.Resources.File Me.mMenFile.Image = Global.mRemoteNG.My.Resources.Resources.File
Me.mMenFile.Name = "mMenFile" Me.mMenFile.Name = "mMenFile"
Me.mMenFile.Size = New System.Drawing.Size(51, 20) Me.mMenFile.Size = New System.Drawing.Size(51, 20)
Me.mMenFile.Text = "&File" Me.mMenFile.Text = "&File"
' '
'mMenFileSaveAll 'mMenFileSaveAll
' '
Me.mMenFileSaveAll.Image = Global.mRemote.My.Resources.Resources.Screenshot_Save Me.mMenFileSaveAll.Image = Global.mRemoteNG.My.Resources.Resources.Screenshot_Save
Me.mMenFileSaveAll.Name = "mMenFileSaveAll" Me.mMenFileSaveAll.Name = "mMenFileSaveAll"
Me.mMenFileSaveAll.Size = New System.Drawing.Size(128, 22) Me.mMenFileSaveAll.Size = New System.Drawing.Size(128, 22)
Me.mMenFileSaveAll.Text = "Save All" Me.mMenFileSaveAll.Text = "Save All"
' '
'mMenFileRemoveAll 'mMenFileRemoveAll
' '
Me.mMenFileRemoveAll.Image = Global.mRemote.My.Resources.Resources.Screenshot_Delete Me.mMenFileRemoveAll.Image = Global.mRemoteNG.My.Resources.Resources.Screenshot_Delete
Me.mMenFileRemoveAll.Name = "mMenFileRemoveAll" Me.mMenFileRemoveAll.Name = "mMenFileRemoveAll"
Me.mMenFileRemoveAll.Size = New System.Drawing.Size(128, 22) Me.mMenFileRemoveAll.Size = New System.Drawing.Size(128, 22)
Me.mMenFileRemoveAll.Text = "Remove All" Me.mMenFileRemoveAll.Text = "Remove All"
@@ -88,14 +88,14 @@ Namespace UI
' '
'cMenScreenshotCopy 'cMenScreenshotCopy
' '
Me.cMenScreenshotCopy.Image = Global.mRemote.My.Resources.Resources.Screenshot_Copy Me.cMenScreenshotCopy.Image = Global.mRemoteNG.My.Resources.Resources.Screenshot_Copy
Me.cMenScreenshotCopy.Name = "cMenScreenshotCopy" Me.cMenScreenshotCopy.Name = "cMenScreenshotCopy"
Me.cMenScreenshotCopy.Size = New System.Drawing.Size(99, 22) Me.cMenScreenshotCopy.Size = New System.Drawing.Size(99, 22)
Me.cMenScreenshotCopy.Text = "Copy" Me.cMenScreenshotCopy.Text = "Copy"
' '
'cMenScreenshotSave 'cMenScreenshotSave
' '
Me.cMenScreenshotSave.Image = Global.mRemote.My.Resources.Resources.Screenshot_Save Me.cMenScreenshotSave.Image = Global.mRemoteNG.My.Resources.Resources.Screenshot_Save
Me.cMenScreenshotSave.Name = "cMenScreenshotSave" Me.cMenScreenshotSave.Name = "cMenScreenshotSave"
Me.cMenScreenshotSave.Size = New System.Drawing.Size(99, 22) Me.cMenScreenshotSave.Size = New System.Drawing.Size(99, 22)
Me.cMenScreenshotSave.Text = "Save" Me.cMenScreenshotSave.Text = "Save"
@@ -113,7 +113,7 @@ Namespace UI
Me.Controls.Add(Me.flpScreenshots) Me.Controls.Add(Me.flpScreenshots)
Me.Controls.Add(Me.msMain) Me.Controls.Add(Me.msMain)
Me.HideOnClose = True Me.HideOnClose = True
Me.Icon = Global.mRemote.My.Resources.Resources.Screenshot_Icon Me.Icon = Global.mRemoteNG.My.Resources.Resources.Screenshot_Icon
Me.MainMenuStrip = Me.msMain Me.MainMenuStrip = Me.msMain
Me.Name = "ScreenshotManager" Me.Name = "ScreenshotManager"
Me.TabText = "Screenshots" Me.TabText = "Screenshots"

34
mRemoteV1/UI/UI.Window.Sessions.vb
View File

@@ -1,5 +1,5 @@
Imports WeifenLuo.WinFormsUI.Docking Imports WeifenLuo.WinFormsUI.Docking
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Namespace UI Namespace UI
Namespace Window Namespace Window
@@ -71,14 +71,14 @@ Namespace UI
' '
'cMenSessionRefresh 'cMenSessionRefresh
' '
Me.cMenSessionRefresh.Image = Global.mRemote.My.Resources.Resources.Refresh Me.cMenSessionRefresh.Image = Global.mRemoteNG.My.Resources.Resources.Refresh
Me.cMenSessionRefresh.Name = "cMenSessionRefresh" Me.cMenSessionRefresh.Name = "cMenSessionRefresh"
Me.cMenSessionRefresh.Size = New System.Drawing.Size(123, 22) Me.cMenSessionRefresh.Size = New System.Drawing.Size(123, 22)
Me.cMenSessionRefresh.Text = My.Resources.strRefresh Me.cMenSessionRefresh.Text = My.Resources.strRefresh
' '
'cMenSessionLogOff 'cMenSessionLogOff
' '
Me.cMenSessionLogOff.Image = Global.mRemote.My.Resources.Resources.Session_LogOff Me.cMenSessionLogOff.Image = Global.mRemoteNG.My.Resources.Resources.Session_LogOff
Me.cMenSessionLogOff.Name = "cMenSessionLogOff" Me.cMenSessionLogOff.Name = "cMenSessionLogOff"
Me.cMenSessionLogOff.Size = New System.Drawing.Size(123, 22) Me.cMenSessionLogOff.Size = New System.Drawing.Size(123, 22)
Me.cMenSessionLogOff.Text = My.Resources.strLogOff Me.cMenSessionLogOff.Text = My.Resources.strLogOff
@@ -140,9 +140,9 @@ Namespace UI
#Region "Private Methods" #Region "Private Methods"
Private Sub GetSessionsBG() Private Sub GetSessionsBG()
Try Try
Dim tS As New mRemote.Connection.Protocol.RDP.TerminalSessions Dim tS As New mRemoteNG.Connection.Protocol.RDP.TerminalSessions
Dim sU As New Security.Impersonator Dim sU As New Security.Impersonator
Dim tsSessions As New mRemote.Connection.Protocol.RDP.Sessions Dim tsSessions As New mRemoteNG.Connection.Protocol.RDP.Sessions
sU.StartImpersonation(tDomain, tUserName, tPassword) sU.StartImpersonation(tDomain, tUserName, tPassword)
@@ -189,7 +189,7 @@ Namespace UI
Exit Sub Exit Sub
End If End If
Dim ts As New mRemote.Connection.Protocol.RDP.TerminalSessions Dim ts As New mRemoteNG.Connection.Protocol.RDP.TerminalSessions
Dim sU As New Security.Impersonator Dim sU As New Security.Impersonator
sU.StartImpersonation(tDomain, tUserName, tPassword) sU.StartImpersonation(tDomain, tUserName, tPassword)
@@ -259,17 +259,17 @@ Namespace UI
Try Try
Dim nowHost As String = "" Dim nowHost As String = ""
If TypeOf mRemote.Tree.Node.SelectedNode.Tag Is mRemote.Connection.Info Then If TypeOf mRemoteNG.Tree.Node.SelectedNode.Tag Is mRemoteNG.Connection.Info Then
nowHost = TryCast(mRemote.Tree.Node.SelectedNode.Tag, mRemote.Connection.Info).Hostname nowHost = TryCast(mRemoteNG.Tree.Node.SelectedNode.Tag, mRemoteNG.Connection.Info).Hostname
Else Else
Me.ClearList() Me.ClearList()
Exit Sub Exit Sub
End If End If
If My.Settings.AutomaticallyGetSessionInfo And Me._CurrentHost = nowHost Then If My.Settings.AutomaticallyGetSessionInfo And Me._CurrentHost = nowHost Then
Dim conI As mRemote.Connection.Info = mRemote.Tree.Node.SelectedNode.Tag Dim conI As mRemoteNG.Connection.Info = mRemoteNG.Tree.Node.SelectedNode.Tag
If conI.Protocol = mRemote.Connection.Protocol.Protocols.RDP Or conI.Protocol = mRemote.Connection.Protocol.Protocols.ICA Then If conI.Protocol = mRemoteNG.Connection.Protocol.Protocols.RDP Or conI.Protocol = mRemoteNG.Connection.Protocol.Protocols.ICA Then
'continue 'continue
Else Else
Me.ClearList() Me.ClearList()
@@ -302,20 +302,20 @@ Namespace UI
End Sub End Sub
Public Sub GetSessions() Public Sub GetSessions()
If mRemote.Tree.Node.SelectedNode Is Nothing Then If mRemoteNG.Tree.Node.SelectedNode Is Nothing Then
Exit Sub Exit Sub
End If End If
If TypeOf mRemote.Tree.Node.SelectedNode.Tag Is mRemote.Connection.Info Then If TypeOf mRemoteNG.Tree.Node.SelectedNode.Tag Is mRemoteNG.Connection.Info Then
'continue 'continue
Else Else
Me.ClearList() Me.ClearList()
Exit Sub Exit Sub
End If End If
Dim conI As mRemote.Connection.Info = mRemote.Tree.Node.SelectedNode.Tag Dim conI As mRemoteNG.Connection.Info = mRemoteNG.Tree.Node.SelectedNode.Tag
If conI.Protocol = mRemote.Connection.Protocol.Protocols.RDP Or conI.Protocol = mRemote.Connection.Protocol.Protocols.ICA Then If conI.Protocol = mRemoteNG.Connection.Protocol.Protocols.RDP Or conI.Protocol = mRemoteNG.Connection.Protocol.Protocols.ICA Then
'continue 'continue
Else Else
Me.ClearList() Me.ClearList()
@@ -364,15 +364,15 @@ Namespace UI
End Sub End Sub
Public Sub KillSession() Public Sub KillSession()
If TypeOf mRemote.Tree.Node.SelectedNode.Tag Is mRemote.Connection.Info Then If TypeOf mRemoteNG.Tree.Node.SelectedNode.Tag Is mRemoteNG.Connection.Info Then
'continue 'continue
Else Else
Exit Sub Exit Sub
End If End If
Dim conI As mRemote.Connection.Info = mRemote.Tree.Node.SelectedNode.Tag Dim conI As mRemoteNG.Connection.Info = mRemoteNG.Tree.Node.SelectedNode.Tag
If conI.Protocol = mRemote.Connection.Protocol.Protocols.RDP Then If conI.Protocol = mRemoteNG.Connection.Protocol.Protocols.RDP Then
'continue 'continue
Else Else
Exit Sub Exit Sub

194
mRemoteV1/UI/UI.Window.Tree.vb
View File

@@ -1,5 +1,5 @@
Imports WeifenLuo.WinFormsUI.Docking Imports WeifenLuo.WinFormsUI.Docking
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Namespace UI Namespace UI
Namespace Window Namespace Window
@@ -130,14 +130,14 @@ Namespace UI
' '
'cMenTreeAddConnection 'cMenTreeAddConnection
' '
Me.cMenTreeAddConnection.Image = Global.mRemote.My.Resources.Resources.Connection_Add Me.cMenTreeAddConnection.Image = Global.mRemoteNG.My.Resources.Resources.Connection_Add
Me.cMenTreeAddConnection.Name = "cMenTreeAddConnection" Me.cMenTreeAddConnection.Name = "cMenTreeAddConnection"
Me.cMenTreeAddConnection.Size = New System.Drawing.Size(186, 22) Me.cMenTreeAddConnection.Size = New System.Drawing.Size(186, 22)
Me.cMenTreeAddConnection.Text = "New Connection" Me.cMenTreeAddConnection.Text = "New Connection"
' '
'cMenTreeAddFolder 'cMenTreeAddFolder
' '
Me.cMenTreeAddFolder.Image = Global.mRemote.My.Resources.Resources.Folder_Add Me.cMenTreeAddFolder.Image = Global.mRemoteNG.My.Resources.Resources.Folder_Add
Me.cMenTreeAddFolder.Name = "cMenTreeAddFolder" Me.cMenTreeAddFolder.Name = "cMenTreeAddFolder"
Me.cMenTreeAddFolder.Size = New System.Drawing.Size(186, 22) Me.cMenTreeAddFolder.Size = New System.Drawing.Size(186, 22)
Me.cMenTreeAddFolder.Text = "New Folder" Me.cMenTreeAddFolder.Text = "New Folder"
@@ -149,7 +149,7 @@ Namespace UI
' '
'cMenTreeConnect 'cMenTreeConnect
' '
Me.cMenTreeConnect.Image = Global.mRemote.My.Resources.Resources.Play Me.cMenTreeConnect.Image = Global.mRemoteNG.My.Resources.Resources.Play
Me.cMenTreeConnect.Name = "cMenTreeConnect" Me.cMenTreeConnect.Name = "cMenTreeConnect"
Me.cMenTreeConnect.ShortcutKeys = CType(((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.Shift) _ Me.cMenTreeConnect.ShortcutKeys = CType(((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.Shift) _
Or System.Windows.Forms.Keys.C), System.Windows.Forms.Keys) Or System.Windows.Forms.Keys.C), System.Windows.Forms.Keys)
@@ -178,21 +178,21 @@ Namespace UI
' '
'cMenTreeConnectWithOptionsConnectInFullscreen 'cMenTreeConnectWithOptionsConnectInFullscreen
' '
Me.cMenTreeConnectWithOptionsConnectInFullscreen.Image = Global.mRemote.My.Resources.Resources.Fullscreen Me.cMenTreeConnectWithOptionsConnectInFullscreen.Image = Global.mRemoteNG.My.Resources.Resources.Fullscreen
Me.cMenTreeConnectWithOptionsConnectInFullscreen.Name = "cMenTreeConnectWithOptionsConnectInFullscreen" Me.cMenTreeConnectWithOptionsConnectInFullscreen.Name = "cMenTreeConnectWithOptionsConnectInFullscreen"
Me.cMenTreeConnectWithOptionsConnectInFullscreen.Size = New System.Drawing.Size(231, 22) Me.cMenTreeConnectWithOptionsConnectInFullscreen.Size = New System.Drawing.Size(231, 22)
Me.cMenTreeConnectWithOptionsConnectInFullscreen.Text = "Connect in fullscreen" Me.cMenTreeConnectWithOptionsConnectInFullscreen.Text = "Connect in fullscreen"
' '
'cMenTreeConnectWithOptionsChoosePanelBeforeConnecting 'cMenTreeConnectWithOptionsChoosePanelBeforeConnecting
' '
Me.cMenTreeConnectWithOptionsChoosePanelBeforeConnecting.Image = Global.mRemote.My.Resources.Resources.Panels Me.cMenTreeConnectWithOptionsChoosePanelBeforeConnecting.Image = Global.mRemoteNG.My.Resources.Resources.Panels
Me.cMenTreeConnectWithOptionsChoosePanelBeforeConnecting.Name = "cMenTreeConnectWithOptionsChoosePanelBeforeConnecting" Me.cMenTreeConnectWithOptionsChoosePanelBeforeConnecting.Name = "cMenTreeConnectWithOptionsChoosePanelBeforeConnecting"
Me.cMenTreeConnectWithOptionsChoosePanelBeforeConnecting.Size = New System.Drawing.Size(231, 22) Me.cMenTreeConnectWithOptionsChoosePanelBeforeConnecting.Size = New System.Drawing.Size(231, 22)
Me.cMenTreeConnectWithOptionsChoosePanelBeforeConnecting.Text = "Choose panel before connecting" Me.cMenTreeConnectWithOptionsChoosePanelBeforeConnecting.Text = "Choose panel before connecting"
' '
'cMenTreeDisconnect 'cMenTreeDisconnect
' '
Me.cMenTreeDisconnect.Image = Global.mRemote.My.Resources.Resources.Pause Me.cMenTreeDisconnect.Image = Global.mRemoteNG.My.Resources.Resources.Pause
Me.cMenTreeDisconnect.Name = "cMenTreeDisconnect" Me.cMenTreeDisconnect.Name = "cMenTreeDisconnect"
Me.cMenTreeDisconnect.Size = New System.Drawing.Size(186, 22) Me.cMenTreeDisconnect.Size = New System.Drawing.Size(186, 22)
Me.cMenTreeDisconnect.Text = "Disconnect" Me.cMenTreeDisconnect.Text = "Disconnect"
@@ -205,14 +205,14 @@ Namespace UI
'cMenTreeTools 'cMenTreeTools
' '
Me.cMenTreeTools.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cMenTreeToolsTransferFile, Me.cMenTreeToolsImportExport, Me.cMenTreeToolsSort, Me.cMenTreeToolsExternalApps}) Me.cMenTreeTools.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cMenTreeToolsTransferFile, Me.cMenTreeToolsImportExport, Me.cMenTreeToolsSort, Me.cMenTreeToolsExternalApps})
Me.cMenTreeTools.Image = Global.mRemote.My.Resources.Resources.Tools Me.cMenTreeTools.Image = Global.mRemoteNG.My.Resources.Resources.Tools
Me.cMenTreeTools.Name = "cMenTreeTools" Me.cMenTreeTools.Name = "cMenTreeTools"
Me.cMenTreeTools.Size = New System.Drawing.Size(186, 22) Me.cMenTreeTools.Size = New System.Drawing.Size(186, 22)
Me.cMenTreeTools.Text = "Tools" Me.cMenTreeTools.Text = "Tools"
' '
'cMenTreeToolsTransferFile 'cMenTreeToolsTransferFile
' '
Me.cMenTreeToolsTransferFile.Image = Global.mRemote.My.Resources.Resources.SSHTransfer Me.cMenTreeToolsTransferFile.Image = Global.mRemoteNG.My.Resources.Resources.SSHTransfer
Me.cMenTreeToolsTransferFile.Name = "cMenTreeToolsTransferFile" Me.cMenTreeToolsTransferFile.Name = "cMenTreeToolsTransferFile"
Me.cMenTreeToolsTransferFile.Size = New System.Drawing.Size(172, 22) Me.cMenTreeToolsTransferFile.Size = New System.Drawing.Size(172, 22)
Me.cMenTreeToolsTransferFile.Text = "Transfer File (SSH)" Me.cMenTreeToolsTransferFile.Text = "Transfer File (SSH)"
@@ -226,14 +226,14 @@ Namespace UI
' '
'cMenTreeToolsImportExportExportmRemoteXML 'cMenTreeToolsImportExportExportmRemoteXML
' '
Me.cMenTreeToolsImportExportExportmRemoteXML.Image = Global.mRemote.My.Resources.Resources.Connections_SaveAs Me.cMenTreeToolsImportExportExportmRemoteXML.Image = Global.mRemoteNG.My.Resources.Resources.Connections_SaveAs
Me.cMenTreeToolsImportExportExportmRemoteXML.Name = "cMenTreeToolsImportExportExportmRemoteXML" Me.cMenTreeToolsImportExportExportmRemoteXML.Name = "cMenTreeToolsImportExportExportmRemoteXML"
Me.cMenTreeToolsImportExportExportmRemoteXML.Size = New System.Drawing.Size(204, 22) Me.cMenTreeToolsImportExportExportmRemoteXML.Size = New System.Drawing.Size(204, 22)
Me.cMenTreeToolsImportExportExportmRemoteXML.Text = "Export mRemote XML" Me.cMenTreeToolsImportExportExportmRemoteXML.Text = "Export mRemote XML"
' '
'cMenTreeToolsImportExportImportmRemoteXML 'cMenTreeToolsImportExportImportmRemoteXML
' '
Me.cMenTreeToolsImportExportImportmRemoteXML.Image = Global.mRemote.My.Resources.Resources.Connections_Load Me.cMenTreeToolsImportExportImportmRemoteXML.Image = Global.mRemoteNG.My.Resources.Resources.Connections_Load
Me.cMenTreeToolsImportExportImportmRemoteXML.Name = "cMenTreeToolsImportExportImportmRemoteXML" Me.cMenTreeToolsImportExportImportmRemoteXML.Name = "cMenTreeToolsImportExportImportmRemoteXML"
Me.cMenTreeToolsImportExportImportmRemoteXML.Size = New System.Drawing.Size(204, 22) Me.cMenTreeToolsImportExportImportmRemoteXML.Size = New System.Drawing.Size(204, 22)
Me.cMenTreeToolsImportExportImportmRemoteXML.Text = "Import mRemote XML" Me.cMenTreeToolsImportExportImportmRemoteXML.Text = "Import mRemote XML"
@@ -245,21 +245,21 @@ Namespace UI
' '
'cMenTreeToolsImportExportImportFromAD 'cMenTreeToolsImportExportImportFromAD
' '
Me.cMenTreeToolsImportExportImportFromAD.Image = Global.mRemote.My.Resources.Resources.ActiveDirectory Me.cMenTreeToolsImportExportImportFromAD.Image = Global.mRemoteNG.My.Resources.Resources.ActiveDirectory
Me.cMenTreeToolsImportExportImportFromAD.Name = "cMenTreeToolsImportExportImportFromAD" Me.cMenTreeToolsImportExportImportFromAD.Name = "cMenTreeToolsImportExportImportFromAD"
Me.cMenTreeToolsImportExportImportFromAD.Size = New System.Drawing.Size(204, 22) Me.cMenTreeToolsImportExportImportFromAD.Size = New System.Drawing.Size(204, 22)
Me.cMenTreeToolsImportExportImportFromAD.Text = "Import from Active Directory" Me.cMenTreeToolsImportExportImportFromAD.Text = "Import from Active Directory"
' '
'cMenTreeToolsImportExportImportFromRDPFiles 'cMenTreeToolsImportExportImportFromRDPFiles
' '
Me.cMenTreeToolsImportExportImportFromRDPFiles.Image = Global.mRemote.My.Resources.Resources.RDP Me.cMenTreeToolsImportExportImportFromRDPFiles.Image = Global.mRemoteNG.My.Resources.Resources.RDP
Me.cMenTreeToolsImportExportImportFromRDPFiles.Name = "cMenTreeToolsImportExportImportFromRDPFiles" Me.cMenTreeToolsImportExportImportFromRDPFiles.Name = "cMenTreeToolsImportExportImportFromRDPFiles"
Me.cMenTreeToolsImportExportImportFromRDPFiles.Size = New System.Drawing.Size(204, 22) Me.cMenTreeToolsImportExportImportFromRDPFiles.Size = New System.Drawing.Size(204, 22)
Me.cMenTreeToolsImportExportImportFromRDPFiles.Text = "Import from .RDP file(s)" Me.cMenTreeToolsImportExportImportFromRDPFiles.Text = "Import from .RDP file(s)"
' '
'cMenTreeToolsImportExportImportFromPortScan 'cMenTreeToolsImportExportImportFromPortScan
' '
Me.cMenTreeToolsImportExportImportFromPortScan.Image = Global.mRemote.My.Resources.Resources.PortScan Me.cMenTreeToolsImportExportImportFromPortScan.Image = Global.mRemoteNG.My.Resources.Resources.PortScan
Me.cMenTreeToolsImportExportImportFromPortScan.Name = "cMenTreeToolsImportExportImportFromPortScan" Me.cMenTreeToolsImportExportImportFromPortScan.Name = "cMenTreeToolsImportExportImportFromPortScan"
Me.cMenTreeToolsImportExportImportFromPortScan.Size = New System.Drawing.Size(204, 22) Me.cMenTreeToolsImportExportImportFromPortScan.Size = New System.Drawing.Size(204, 22)
Me.cMenTreeToolsImportExportImportFromPortScan.Text = "Import from Port Scan" Me.cMenTreeToolsImportExportImportFromPortScan.Text = "Import from Port Scan"
@@ -273,21 +273,21 @@ Namespace UI
' '
'cMenTreeToolsSortAscending 'cMenTreeToolsSortAscending
' '
Me.cMenTreeToolsSortAscending.Image = Global.mRemote.My.Resources.Resources.Sort_AZ Me.cMenTreeToolsSortAscending.Image = Global.mRemoteNG.My.Resources.Resources.Sort_AZ
Me.cMenTreeToolsSortAscending.Name = "cMenTreeToolsSortAscending" Me.cMenTreeToolsSortAscending.Name = "cMenTreeToolsSortAscending"
Me.cMenTreeToolsSortAscending.Size = New System.Drawing.Size(157, 22) Me.cMenTreeToolsSortAscending.Size = New System.Drawing.Size(157, 22)
Me.cMenTreeToolsSortAscending.Text = "Ascending (A-Z)" Me.cMenTreeToolsSortAscending.Text = "Ascending (A-Z)"
' '
'cMenTreeToolsSortDescending 'cMenTreeToolsSortDescending
' '
Me.cMenTreeToolsSortDescending.Image = Global.mRemote.My.Resources.Resources.Sort_ZA Me.cMenTreeToolsSortDescending.Image = Global.mRemoteNG.My.Resources.Resources.Sort_ZA
Me.cMenTreeToolsSortDescending.Name = "cMenTreeToolsSortDescending" Me.cMenTreeToolsSortDescending.Name = "cMenTreeToolsSortDescending"
Me.cMenTreeToolsSortDescending.Size = New System.Drawing.Size(157, 22) Me.cMenTreeToolsSortDescending.Size = New System.Drawing.Size(157, 22)
Me.cMenTreeToolsSortDescending.Text = "Descending (Z-A)" Me.cMenTreeToolsSortDescending.Text = "Descending (Z-A)"
' '
'cMenTreeToolsExternalApps 'cMenTreeToolsExternalApps
' '
Me.cMenTreeToolsExternalApps.Image = Global.mRemote.My.Resources.Resources.ExtApp Me.cMenTreeToolsExternalApps.Image = Global.mRemoteNG.My.Resources.Resources.ExtApp
Me.cMenTreeToolsExternalApps.Name = "cMenTreeToolsExternalApps" Me.cMenTreeToolsExternalApps.Name = "cMenTreeToolsExternalApps"
Me.cMenTreeToolsExternalApps.Size = New System.Drawing.Size(172, 22) Me.cMenTreeToolsExternalApps.Size = New System.Drawing.Size(172, 22)
Me.cMenTreeToolsExternalApps.Text = "External Applications" Me.cMenTreeToolsExternalApps.Text = "External Applications"
@@ -299,7 +299,7 @@ Namespace UI
' '
'cMenTreeDuplicate 'cMenTreeDuplicate
' '
Me.cMenTreeDuplicate.Image = Global.mRemote.My.Resources.Resources.Connection_Duplicate Me.cMenTreeDuplicate.Image = Global.mRemoteNG.My.Resources.Resources.Connection_Duplicate
Me.cMenTreeDuplicate.Name = "cMenTreeDuplicate" Me.cMenTreeDuplicate.Name = "cMenTreeDuplicate"
Me.cMenTreeDuplicate.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.D), System.Windows.Forms.Keys) Me.cMenTreeDuplicate.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.D), System.Windows.Forms.Keys)
Me.cMenTreeDuplicate.Size = New System.Drawing.Size(186, 22) Me.cMenTreeDuplicate.Size = New System.Drawing.Size(186, 22)
@@ -307,7 +307,7 @@ Namespace UI
' '
'cMenTreeRename 'cMenTreeRename
' '
Me.cMenTreeRename.Image = Global.mRemote.My.Resources.Resources.Rename Me.cMenTreeRename.Image = Global.mRemoteNG.My.Resources.Resources.Rename
Me.cMenTreeRename.Name = "cMenTreeRename" Me.cMenTreeRename.Name = "cMenTreeRename"
Me.cMenTreeRename.ShortcutKeys = System.Windows.Forms.Keys.F2 Me.cMenTreeRename.ShortcutKeys = System.Windows.Forms.Keys.F2
Me.cMenTreeRename.Size = New System.Drawing.Size(186, 22) Me.cMenTreeRename.Size = New System.Drawing.Size(186, 22)
@@ -315,7 +315,7 @@ Namespace UI
' '
'cMenTreeDelete 'cMenTreeDelete
' '
Me.cMenTreeDelete.Image = Global.mRemote.My.Resources.Resources.Delete Me.cMenTreeDelete.Image = Global.mRemoteNG.My.Resources.Resources.Delete
Me.cMenTreeDelete.Name = "cMenTreeDelete" Me.cMenTreeDelete.Name = "cMenTreeDelete"
Me.cMenTreeDelete.ShortcutKeys = System.Windows.Forms.Keys.Delete Me.cMenTreeDelete.ShortcutKeys = System.Windows.Forms.Keys.Delete
Me.cMenTreeDelete.Size = New System.Drawing.Size(186, 22) Me.cMenTreeDelete.Size = New System.Drawing.Size(186, 22)
@@ -328,7 +328,7 @@ Namespace UI
' '
'cMenTreeMoveUp 'cMenTreeMoveUp
' '
Me.cMenTreeMoveUp.Image = Global.mRemote.My.Resources.Resources.Arrow_Up Me.cMenTreeMoveUp.Image = Global.mRemoteNG.My.Resources.Resources.Arrow_Up
Me.cMenTreeMoveUp.Name = "cMenTreeMoveUp" Me.cMenTreeMoveUp.Name = "cMenTreeMoveUp"
Me.cMenTreeMoveUp.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.Up), System.Windows.Forms.Keys) Me.cMenTreeMoveUp.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.Up), System.Windows.Forms.Keys)
Me.cMenTreeMoveUp.Size = New System.Drawing.Size(186, 22) Me.cMenTreeMoveUp.Size = New System.Drawing.Size(186, 22)
@@ -336,7 +336,7 @@ Namespace UI
' '
'cMenTreeMoveDown 'cMenTreeMoveDown
' '
Me.cMenTreeMoveDown.Image = Global.mRemote.My.Resources.Resources.Arrow_Down Me.cMenTreeMoveDown.Image = Global.mRemoteNG.My.Resources.Resources.Arrow_Down
Me.cMenTreeMoveDown.Name = "cMenTreeMoveDown" Me.cMenTreeMoveDown.Name = "cMenTreeMoveDown"
Me.cMenTreeMoveDown.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.Down), System.Windows.Forms.Keys) Me.cMenTreeMoveDown.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.Down), System.Windows.Forms.Keys)
Me.cMenTreeMoveDown.Size = New System.Drawing.Size(186, 22) Me.cMenTreeMoveDown.Size = New System.Drawing.Size(186, 22)
@@ -364,7 +364,7 @@ Namespace UI
'PictureBox1 'PictureBox1
' '
Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.PictureBox1.Image = Global.mRemote.My.Resources.Resources.Search Me.PictureBox1.Image = Global.mRemoteNG.My.Resources.Resources.Search
Me.PictureBox1.Location = New System.Drawing.Point(0, 411) Me.PictureBox1.Location = New System.Drawing.Point(0, 411)
Me.PictureBox1.Name = "PictureBox1" Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(16, 16) Me.PictureBox1.Size = New System.Drawing.Size(16, 16)
@@ -398,21 +398,21 @@ Namespace UI
' '
Me.mMenView.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.mMenView.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.mMenView.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mMenViewExpandAllFolders, Me.mMenViewCollapseAllFolders}) Me.mMenView.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mMenViewExpandAllFolders, Me.mMenViewCollapseAllFolders})
Me.mMenView.Image = Global.mRemote.My.Resources.Resources.View Me.mMenView.Image = Global.mRemoteNG.My.Resources.Resources.View
Me.mMenView.Name = "mMenView" Me.mMenView.Name = "mMenView"
Me.mMenView.Size = New System.Drawing.Size(28, 20) Me.mMenView.Size = New System.Drawing.Size(28, 20)
Me.mMenView.Text = "&View" Me.mMenView.Text = "&View"
' '
'mMenViewExpandAllFolders 'mMenViewExpandAllFolders
' '
Me.mMenViewExpandAllFolders.Image = Global.mRemote.My.Resources.Resources.Expand Me.mMenViewExpandAllFolders.Image = Global.mRemoteNG.My.Resources.Resources.Expand
Me.mMenViewExpandAllFolders.Name = "mMenViewExpandAllFolders" Me.mMenViewExpandAllFolders.Name = "mMenViewExpandAllFolders"
Me.mMenViewExpandAllFolders.Size = New System.Drawing.Size(161, 22) Me.mMenViewExpandAllFolders.Size = New System.Drawing.Size(161, 22)
Me.mMenViewExpandAllFolders.Text = "Expand all folders" Me.mMenViewExpandAllFolders.Text = "Expand all folders"
' '
'mMenViewCollapseAllFolders 'mMenViewCollapseAllFolders
' '
Me.mMenViewCollapseAllFolders.Image = Global.mRemote.My.Resources.Resources.Collapse Me.mMenViewCollapseAllFolders.Image = Global.mRemoteNG.My.Resources.Resources.Collapse
Me.mMenViewCollapseAllFolders.Name = "mMenViewCollapseAllFolders" Me.mMenViewCollapseAllFolders.Name = "mMenViewCollapseAllFolders"
Me.mMenViewCollapseAllFolders.Size = New System.Drawing.Size(161, 22) Me.mMenViewCollapseAllFolders.Size = New System.Drawing.Size(161, 22)
Me.mMenViewCollapseAllFolders.Text = "Collapse all folders" Me.mMenViewCollapseAllFolders.Text = "Collapse all folders"
@@ -424,7 +424,7 @@ Namespace UI
Me.Controls.Add(Me.pnlConnections) Me.Controls.Add(Me.pnlConnections)
Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.HideOnClose = True Me.HideOnClose = True
Me.Icon = Global.mRemote.My.Resources.Resources.Root_Icon Me.Icon = Global.mRemoteNG.My.Resources.Resources.Root_Icon
Me.Name = "Tree" Me.Name = "Tree"
Me.TabText = "Connections" Me.TabText = "Connections"
Me.Text = "Connections" Me.Text = "Connections"
@@ -556,11 +556,11 @@ Namespace UI
Try Try
If My.Settings.SetHostnameLikeDisplayName Then If My.Settings.SetHostnameLikeDisplayName Then
If e.Node.Text = My.Resources.strNewConnection Then If e.Node.Text = My.Resources.strNewConnection Then
TryCast(e.Node.Tag, mRemote.Connection.Info).Hostname = e.Label TryCast(e.Node.Tag, mRemoteNG.Connection.Info).Hostname = e.Label
End If End If
End If End If
mRemote.Tree.Node.FinishRenameSelectedNode(e.Label) mRemoteNG.Tree.Node.FinishRenameSelectedNode(e.Label)
Windows.configForm.pGrid_SelectedObjectChanged() Windows.configForm.pGrid_SelectedObjectChanged()
Me.ShowHideTreeContextMenuItems(e.Node) Me.ShowHideTreeContextMenuItems(e.Node)
SaveConnectionsBG() SaveConnectionsBG()
@@ -571,13 +571,13 @@ Namespace UI
Private Sub tvConnections_AfterSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles tvConnections.AfterSelect Private Sub tvConnections_AfterSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles tvConnections.AfterSelect
Try Try
Select Case mRemote.Tree.Node.GetNodeType(e.Node) Select Case mRemoteNG.Tree.Node.GetNodeType(e.Node)
Case mRemote.Tree.Node.Type.Connection Case mRemoteNG.Tree.Node.Type.Connection
Windows.configForm.SetPropertyGridObject(e.Node.Tag) Windows.configForm.SetPropertyGridObject(e.Node.Tag)
Windows.sessionsForm.CurrentHost = TryCast(e.Node.Tag, mRemote.Connection.Info).Hostname Windows.sessionsForm.CurrentHost = TryCast(e.Node.Tag, mRemoteNG.Connection.Info).Hostname
Case mRemote.Tree.Node.Type.Container Case mRemoteNG.Tree.Node.Type.Container
Windows.configForm.SetPropertyGridObject(TryCast(e.Node.Tag, mRemote.Container.Info).ConnectionInfo) Windows.configForm.SetPropertyGridObject(TryCast(e.Node.Tag, mRemoteNG.Container.Info).ConnectionInfo)
Case mRemote.Tree.Node.Type.Root Case mRemoteNG.Tree.Node.Type.Root
Windows.configForm.SetPropertyGridObject(e.Node.Tag) Windows.configForm.SetPropertyGridObject(e.Node.Tag)
Case Else Case Else
Exit Sub Exit Sub
@@ -587,7 +587,7 @@ Namespace UI
Me.ShowHideTreeContextMenuItems(e.Node) Me.ShowHideTreeContextMenuItems(e.Node)
Windows.sessionsForm.GetSessionsAuto() Windows.sessionsForm.GetSessionsAuto()
App.Runtime.LastSelected = mRemote.Tree.Node.GetConstantID(e.Node) App.Runtime.LastSelected = mRemoteNG.Tree.Node.GetConstantID(e.Node)
Catch ex As Exception Catch ex As Exception
mC.AddMessage(Messages.MessageClass.ErrorMsg, "tvConnections_AfterSelect (UI.Window.Tree) failed" & vbNewLine & ex.Message, True) mC.AddMessage(Messages.MessageClass.ErrorMsg, "tvConnections_AfterSelect (UI.Window.Tree) failed" & vbNewLine & ex.Message, True)
End Try End Try
@@ -599,11 +599,11 @@ Namespace UI
Me.tvConnections.SelectedNode = e.Node Me.tvConnections.SelectedNode = e.Node
If e.Button = System.Windows.Forms.MouseButtons.Left Then If e.Button = System.Windows.Forms.MouseButtons.Left Then
If My.Settings.SingleClickOnConnectionOpensIt And mRemote.Tree.Node.GetNodeType(e.Node) = mRemote.Tree.Node.Type.Connection Then If My.Settings.SingleClickOnConnectionOpensIt And mRemoteNG.Tree.Node.GetNodeType(e.Node) = mRemoteNG.Tree.Node.Type.Connection Then
App.Runtime.OpenConnection() App.Runtime.OpenConnection()
End If End If
If My.Settings.SingleClickSwitchesToOpenConnection And mRemote.Tree.Node.GetNodeType(e.Node) = mRemote.Tree.Node.Type.Connection Then If My.Settings.SingleClickSwitchesToOpenConnection And mRemoteNG.Tree.Node.GetNodeType(e.Node) = mRemoteNG.Tree.Node.Type.Connection Then
App.Runtime.SwitchToOpenConnection(e.Node.Tag) App.Runtime.SwitchToOpenConnection(e.Node.Tag)
End If End If
End If End If
@@ -613,23 +613,23 @@ Namespace UI
End Sub End Sub
Private Sub tvConnections_NodeMouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeNodeMouseClickEventArgs) Handles tvConnections.NodeMouseDoubleClick Private Sub tvConnections_NodeMouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeNodeMouseClickEventArgs) Handles tvConnections.NodeMouseDoubleClick
If mRemote.Tree.Node.GetNodeType(mRemote.Tree.Node.SelectedNode) = mRemote.Tree.Node.Type.Connection Then If mRemoteNG.Tree.Node.GetNodeType(mRemoteNG.Tree.Node.SelectedNode) = mRemoteNG.Tree.Node.Type.Connection Then
App.Runtime.OpenConnection() App.Runtime.OpenConnection()
End If End If
End Sub End Sub
Private Sub tvConnections_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles tvConnections.MouseMove Private Sub tvConnections_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles tvConnections.MouseMove
Try Try
mRemote.Tree.Node.SetNodeToolTip(e, Me.DescriptionTooltip) mRemoteNG.Tree.Node.SetNodeToolTip(e, Me.DescriptionTooltip)
Catch ex As Exception Catch ex As Exception
mC.AddMessage(Messages.MessageClass.ErrorMsg, "tvConnections_MouseMove (UI.Window.Tree) failed" & vbNewLine & ex.Message, True) mC.AddMessage(Messages.MessageClass.ErrorMsg, "tvConnections_MouseMove (UI.Window.Tree) failed" & vbNewLine & ex.Message, True)
End Try End Try
End Sub End Sub
Private Function IsConnectionOpen(ByVal ConnectionInfos() As mRemote.Connection.Info) As Boolean Private Function IsConnectionOpen(ByVal ConnectionInfos() As mRemoteNG.Connection.Info) As Boolean
Try Try
If ConnectionInfos IsNot Nothing Then If ConnectionInfos IsNot Nothing Then
For Each conI As mRemote.Connection.Info In ConnectionInfos For Each conI As mRemoteNG.Connection.Info In ConnectionInfos
If conI.OpenConnections.Count > 0 Then If conI.OpenConnections.Count > 0 Then
Return True Return True
End If End If
@@ -650,29 +650,29 @@ Namespace UI
Exit Sub Exit Sub
End If End If
Select Case mRemote.Tree.Node.GetNodeType(tNode) Select Case mRemoteNG.Tree.Node.GetNodeType(tNode)
Case mRemote.Tree.Node.Type.Connection Case mRemoteNG.Tree.Node.Type.Connection
Dim conI As mRemote.Connection.Info = tNode.Tag Dim conI As mRemoteNG.Connection.Info = tNode.Tag
Me.cMenTreeConnect.Enabled = True Me.cMenTreeConnect.Enabled = True
Me.cMenTreeConnectWithOptions.Enabled = True Me.cMenTreeConnectWithOptions.Enabled = True
If TryCast(tNode.Tag, mRemote.Connection.Info).OpenConnections.Count > 0 Then If TryCast(tNode.Tag, mRemoteNG.Connection.Info).OpenConnections.Count > 0 Then
Me.cMenTreeDisconnect.Enabled = True Me.cMenTreeDisconnect.Enabled = True
Else Else
Me.cMenTreeDisconnect.Enabled = False Me.cMenTreeDisconnect.Enabled = False
End If End If
If conI.Protocol = mRemote.Connection.Protocol.Protocols.SSH1 Or conI.Protocol = mRemote.Connection.Protocol.Protocols.SSH2 Then If conI.Protocol = mRemoteNG.Connection.Protocol.Protocols.SSH1 Or conI.Protocol = mRemoteNG.Connection.Protocol.Protocols.SSH2 Then
Me.cMenTreeToolsTransferFile.Enabled = True Me.cMenTreeToolsTransferFile.Enabled = True
Else Else
Me.cMenTreeToolsTransferFile.Enabled = False Me.cMenTreeToolsTransferFile.Enabled = False
End If End If
If conI.Protocol = mRemote.Connection.Protocol.Protocols.RDP Then If conI.Protocol = mRemoteNG.Connection.Protocol.Protocols.RDP Then
Me.cMenTreeConnectWithOptionsConnectInFullscreen.Enabled = True Me.cMenTreeConnectWithOptionsConnectInFullscreen.Enabled = True
Me.cMenTreeConnectWithOptionsConnectToConsoleSession.Enabled = True Me.cMenTreeConnectWithOptionsConnectToConsoleSession.Enabled = True
ElseIf conI.Protocol = mRemote.Connection.Protocol.Protocols.ICA Then ElseIf conI.Protocol = mRemoteNG.Connection.Protocol.Protocols.ICA Then
Me.cMenTreeConnectWithOptionsConnectInFullscreen.Enabled = True Me.cMenTreeConnectWithOptionsConnectInFullscreen.Enabled = True
Me.cMenTreeConnectWithOptionsConnectToConsoleSession.Enabled = False Me.cMenTreeConnectWithOptionsConnectToConsoleSession.Enabled = False
Else Else
@@ -694,7 +694,7 @@ Namespace UI
Me.cMenTreeMoveUp.Enabled = True Me.cMenTreeMoveUp.Enabled = True
Me.cMenTreeMoveDown.Enabled = True Me.cMenTreeMoveDown.Enabled = True
Case mRemote.Tree.Node.Type.Container Case mRemoteNG.Tree.Node.Type.Container
Me.cMenTreeConnect.Enabled = True Me.cMenTreeConnect.Enabled = True
Me.cMenTreeConnectWithOptions.Enabled = True Me.cMenTreeConnectWithOptions.Enabled = True
Me.cMenTreeConnectWithOptionsConnectInFullscreen.Enabled = False Me.cMenTreeConnectWithOptionsConnectInFullscreen.Enabled = False
@@ -703,8 +703,8 @@ Namespace UI
Me.cMenTreeDisconnect.Enabled = False Me.cMenTreeDisconnect.Enabled = False
For Each n As TreeNode In tNode.Nodes For Each n As TreeNode In tNode.Nodes
If TypeOf n.Tag Is mRemote.Connection.Info Then If TypeOf n.Tag Is mRemoteNG.Connection.Info Then
Dim cI As mRemote.Connection.Info = n.Tag Dim cI As mRemoteNG.Connection.Info = n.Tag
If cI.OpenConnections.Count > 0 Then If cI.OpenConnections.Count > 0 Then
Me.cMenTreeDisconnect.Enabled = True Me.cMenTreeDisconnect.Enabled = True
Exit For Exit For
@@ -728,7 +728,7 @@ Namespace UI
Me.cMenTreeMoveUp.Enabled = True Me.cMenTreeMoveUp.Enabled = True
Me.cMenTreeMoveDown.Enabled = True Me.cMenTreeMoveDown.Enabled = True
Case mRemote.Tree.Node.Type.Root Case mRemoteNG.Tree.Node.Type.Root
Me.cMenTreeConnect.Enabled = False Me.cMenTreeConnect.Enabled = False
Me.cMenTreeConnectWithOptions.Enabled = False Me.cMenTreeConnectWithOptions.Enabled = False
Me.cMenTreeConnectWithOptionsConnectInFullscreen.Enabled = False Me.cMenTreeConnectWithOptionsConnectInFullscreen.Enabled = False
@@ -784,7 +784,7 @@ Namespace UI
Exit Sub Exit Sub
End If End If
If mRemote.Tree.Node.GetNodeType(dropNode) = mRemote.Tree.Node.Type.Root Then If mRemoteNG.Tree.Node.GetNodeType(dropNode) = mRemoteNG.Tree.Node.Type.Root Then
Exit Sub Exit Sub
End If End If
@@ -800,21 +800,21 @@ Namespace UI
'the TreeView root nodes, otherwise add it to the end of 'the TreeView root nodes, otherwise add it to the end of
'the dropNode child nodes 'the dropNode child nodes
If mRemote.Tree.Node.GetNodeType(targetNode) = mRemote.Tree.Node.Type.Root Or mRemote.Tree.Node.GetNodeType(targetNode) = mRemote.Tree.Node.Type.Container Then If mRemoteNG.Tree.Node.GetNodeType(targetNode) = mRemoteNG.Tree.Node.Type.Root Or mRemoteNG.Tree.Node.GetNodeType(targetNode) = mRemoteNG.Tree.Node.Type.Container Then
targetNode.Nodes.Insert(0, dropNode) targetNode.Nodes.Insert(0, dropNode)
Else Else
targetNode.Parent.Nodes.Insert(targetNode.Index + 1, dropNode) targetNode.Parent.Nodes.Insert(targetNode.Index + 1, dropNode)
End If End If
If mRemote.Tree.Node.GetNodeType(dropNode) = mRemote.Tree.Node.Type.Connection Or mRemote.Tree.Node.GetNodeType(dropNode) = mRemote.Tree.Node.Type.Container Then If mRemoteNG.Tree.Node.GetNodeType(dropNode) = mRemoteNG.Tree.Node.Type.Connection Or mRemoteNG.Tree.Node.GetNodeType(dropNode) = mRemoteNG.Tree.Node.Type.Container Then
If mRemote.Tree.Node.GetNodeType(dropNode.Parent) = mRemote.Tree.Node.Type.Container Then If mRemoteNG.Tree.Node.GetNodeType(dropNode.Parent) = mRemoteNG.Tree.Node.Type.Container Then
dropNode.Tag.Parent = dropNode.Parent.Tag dropNode.Tag.Parent = dropNode.Parent.Tag
ElseIf mRemote.Tree.Node.GetNodeType(dropNode.Parent) = mRemote.Tree.Node.Type.Root Then ElseIf mRemoteNG.Tree.Node.GetNodeType(dropNode.Parent) = mRemoteNG.Tree.Node.Type.Root Then
dropNode.Tag.Parent = Nothing dropNode.Tag.Parent = Nothing
If mRemote.Tree.Node.GetNodeType(dropNode) = mRemote.Tree.Node.Type.Connection Then If mRemoteNG.Tree.Node.GetNodeType(dropNode) = mRemoteNG.Tree.Node.Type.Connection Then
dropNode.Tag.Inherit = New mRemote.Connection.Info.Inheritance(dropNode.Tag, False) dropNode.Tag.Inherit = New mRemoteNG.Connection.Info.Inheritance(dropNode.Tag, False)
ElseIf mRemote.Tree.Node.GetNodeType(dropNode) = mRemote.Tree.Node.Type.Container Then ElseIf mRemoteNG.Tree.Node.GetNodeType(dropNode) = mRemoteNG.Tree.Node.Type.Container Then
dropNode.Tag.ConnectionInfo.Inherit = New mRemote.Connection.Info.Inheritance(dropNode.Tag.ConnectionInfo, False) dropNode.Tag.ConnectionInfo.Inherit = New mRemoteNG.Connection.Info.Inheritance(dropNode.Tag.ConnectionInfo, False)
End If End If
End If End If
End If End If
@@ -921,23 +921,23 @@ Namespace UI
End Sub End Sub
Private Sub cMenTreeConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cMenTreeConnect.Click Private Sub cMenTreeConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cMenTreeConnect.Click
App.Runtime.OpenConnection(mRemote.Connection.Info.Force.DoNotJump) App.Runtime.OpenConnection(mRemoteNG.Connection.Info.Force.DoNotJump)
End Sub End Sub
Private Sub cMenTreeConnectWithOptionsConnectToConsoleSession_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cMenTreeConnectWithOptionsConnectToConsoleSession.Click Private Sub cMenTreeConnectWithOptionsConnectToConsoleSession_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cMenTreeConnectWithOptionsConnectToConsoleSession.Click
App.Runtime.OpenConnection(mRemote.Connection.Info.Force.UseConsoleSession Or mRemote.Connection.Info.Force.DoNotJump) App.Runtime.OpenConnection(mRemoteNG.Connection.Info.Force.UseConsoleSession Or mRemoteNG.Connection.Info.Force.DoNotJump)
End Sub End Sub
Private Sub cMenTreeConnectWithOptionsDontConnectToConsoleSession_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cMenTreeConnectWithOptionsDontConnectToConsoleSession.Click Private Sub cMenTreeConnectWithOptionsDontConnectToConsoleSession_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cMenTreeConnectWithOptionsDontConnectToConsoleSession.Click
App.Runtime.OpenConnection(mRemote.Connection.Info.Force.DontUseConsoleSession Or mRemote.Connection.Info.Force.DoNotJump) App.Runtime.OpenConnection(mRemoteNG.Connection.Info.Force.DontUseConsoleSession Or mRemoteNG.Connection.Info.Force.DoNotJump)
End Sub End Sub
Private Sub cMenTreeConnectWithOptionsConnectInFullscreen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cMenTreeConnectWithOptionsConnectInFullscreen.Click Private Sub cMenTreeConnectWithOptionsConnectInFullscreen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cMenTreeConnectWithOptionsConnectInFullscreen.Click
App.Runtime.OpenConnection(mRemote.Connection.Info.Force.Fullscreen Or mRemote.Connection.Info.Force.DoNotJump) App.Runtime.OpenConnection(mRemoteNG.Connection.Info.Force.Fullscreen Or mRemoteNG.Connection.Info.Force.DoNotJump)
End Sub End Sub
Private Sub cMenTreeConnectWithOptionsChoosePanelBeforeConnecting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cMenTreeConnectWithOptionsChoosePanelBeforeConnecting.Click Private Sub cMenTreeConnectWithOptionsChoosePanelBeforeConnecting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cMenTreeConnectWithOptionsChoosePanelBeforeConnecting.Click
App.Runtime.OpenConnection(mRemote.Connection.Info.Force.OverridePanel Or mRemote.Connection.Info.Force.DoNotJump) App.Runtime.OpenConnection(mRemoteNG.Connection.Info.Force.OverridePanel Or mRemoteNG.Connection.Info.Force.DoNotJump)
End Sub End Sub
Private Sub cMenTreeDisconnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cMenTreeDisconnect.Click Private Sub cMenTreeDisconnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cMenTreeDisconnect.Click
@@ -969,12 +969,12 @@ Namespace UI
End Sub End Sub
Private Sub cMenTreeToolsSortAscending_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cMenTreeToolsSortAscending.Click Private Sub cMenTreeToolsSortAscending_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cMenTreeToolsSortAscending.Click
mRemote.Tree.Node.Sort(Me.tvConnections.SelectedNode, Tools.Controls.TreeNodeSorter.SortType.Ascending) mRemoteNG.Tree.Node.Sort(Me.tvConnections.SelectedNode, Tools.Controls.TreeNodeSorter.SortType.Ascending)
SaveConnectionsBG() SaveConnectionsBG()
End Sub End Sub
Private Sub cMenTreeToolsSortDescending_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cMenTreeToolsSortDescending.Click Private Sub cMenTreeToolsSortDescending_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cMenTreeToolsSortDescending.Click
mRemote.Tree.Node.Sort(Me.tvConnections.SelectedNode, Tools.Controls.TreeNodeSorter.SortType.Descending) mRemoteNG.Tree.Node.Sort(Me.tvConnections.SelectedNode, Tools.Controls.TreeNodeSorter.SortType.Descending)
SaveConnectionsBG() SaveConnectionsBG()
End Sub End Sub
@@ -987,27 +987,27 @@ Namespace UI
End Sub End Sub
Private Sub cMenTreeDuplicate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cMenTreeDuplicate.Click Private Sub cMenTreeDuplicate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cMenTreeDuplicate.Click
mRemote.Tree.Node.CloneNode(tvConnections.SelectedNode) mRemoteNG.Tree.Node.CloneNode(tvConnections.SelectedNode)
SaveConnectionsBG() SaveConnectionsBG()
End Sub End Sub
Private Sub cMenTreeRename_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cMenTreeRename.Click Private Sub cMenTreeRename_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cMenTreeRename.Click
mRemote.Tree.Node.StartRenameSelectedNode() mRemoteNG.Tree.Node.StartRenameSelectedNode()
SaveConnectionsBG() SaveConnectionsBG()
End Sub End Sub
Private Sub cMenTreeDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cMenTreeDelete.Click Private Sub cMenTreeDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cMenTreeDelete.Click
mRemote.Tree.Node.DeleteSelectedNode() mRemoteNG.Tree.Node.DeleteSelectedNode()
SaveConnectionsBG() SaveConnectionsBG()
End Sub End Sub
Private Sub cMenTreeMoveUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cMenTreeMoveUp.Click Private Sub cMenTreeMoveUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cMenTreeMoveUp.Click
mRemote.Tree.Node.MoveNodeUp() mRemoteNG.Tree.Node.MoveNodeUp()
SaveConnectionsBG() SaveConnectionsBG()
End Sub End Sub
Private Sub cMenTreeMoveDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cMenTreeMoveDown.Click Private Sub cMenTreeMoveDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cMenTreeMoveDown.Click
mRemote.Tree.Node.MoveNodeDown() mRemoteNG.Tree.Node.MoveNodeDown()
SaveConnectionsBG() SaveConnectionsBG()
End Sub End Sub
#End Region #End Region
@@ -1015,11 +1015,11 @@ Namespace UI
#Region "Context Menu Actions" #Region "Context Menu Actions"
Public Sub AddConnection() Public Sub AddConnection()
Try Try
Dim nNode As TreeNode = mRemote.Tree.Node.AddNode(mRemote.Tree.Node.Type.Connection) Dim nNode As TreeNode = mRemoteNG.Tree.Node.AddNode(mRemoteNG.Tree.Node.Type.Connection)
If nNode IsNot Nothing Then If nNode IsNot Nothing Then
Dim nConI As New mRemote.Connection.Info() Dim nConI As New mRemoteNG.Connection.Info()
If TypeOf Me.tvConnections.SelectedNode.Tag Is mRemote.Container.Info Then If TypeOf Me.tvConnections.SelectedNode.Tag Is mRemoteNG.Container.Info Then
nConI.Parent = Me.tvConnections.SelectedNode.Tag nConI.Parent = Me.tvConnections.SelectedNode.Tag
Else Else
nConI.Inherit.TurnOffInheritanceCompletely() nConI.Inherit.TurnOffInheritanceCompletely()
@@ -1030,7 +1030,7 @@ Namespace UI
nNode.Tag = nConI nNode.Tag = nConI
cL.Add(nConI) cL.Add(nConI)
If mRemote.Tree.Node.GetNodeType(Me.tvConnections.SelectedNode) = mRemote.Tree.Node.Type.Connection Then If mRemoteNG.Tree.Node.GetNodeType(Me.tvConnections.SelectedNode) = mRemoteNG.Tree.Node.Type.Connection Then
Me.tvConnections.SelectedNode.Parent.Nodes.Add(nNode) Me.tvConnections.SelectedNode.Parent.Nodes.Add(nNode)
Else Else
Me.tvConnections.SelectedNode.Nodes.Add(nNode) Me.tvConnections.SelectedNode.Nodes.Add(nNode)
@@ -1046,27 +1046,27 @@ Namespace UI
Public Sub AddFolder() Public Sub AddFolder()
Try Try
Dim nNode As TreeNode = mRemote.Tree.Node.AddNode(mRemote.Tree.Node.Type.Container) Dim nNode As TreeNode = mRemoteNG.Tree.Node.AddNode(mRemoteNG.Tree.Node.Type.Container)
If nNode IsNot Nothing Then If nNode IsNot Nothing Then
Dim nContI As New mRemote.Container.Info() Dim nContI As New mRemoteNG.Container.Info()
If mRemote.Tree.Node.GetNodeType(mRemote.Tree.Node.SelectedNode) = mRemote.Tree.Node.Type.Container Then If mRemoteNG.Tree.Node.GetNodeType(mRemoteNG.Tree.Node.SelectedNode) = mRemoteNG.Tree.Node.Type.Container Then
nContI.Parent = mRemote.Tree.Node.SelectedNode.Tag nContI.Parent = mRemoteNG.Tree.Node.SelectedNode.Tag
Else Else
nContI.ConnectionInfo.Inherit.TurnOffInheritanceCompletely() nContI.ConnectionInfo.Inherit.TurnOffInheritanceCompletely()
End If End If
nContI.TreeNode = nNode nContI.TreeNode = nNode
nContI.ConnectionInfo = New mRemote.Connection.Info(nContI) nContI.ConnectionInfo = New mRemoteNG.Connection.Info(nContI)
If mRemote.Tree.Node.GetNodeType(mRemote.Tree.Node.SelectedNode) <> mRemote.Tree.Node.Type.Container Then If mRemoteNG.Tree.Node.GetNodeType(mRemoteNG.Tree.Node.SelectedNode) <> mRemoteNG.Tree.Node.Type.Container Then
nContI.ConnectionInfo.Inherit.TurnOffInheritanceCompletely() nContI.ConnectionInfo.Inherit.TurnOffInheritanceCompletely()
End If End If
nNode.Tag = nContI nNode.Tag = nContI
ctL.Add(nContI) ctL.Add(nContI)
If mRemote.Tree.Node.GetNodeType(Me.tvConnections.SelectedNode) = mRemote.Tree.Node.Type.Connection Then If mRemoteNG.Tree.Node.GetNodeType(Me.tvConnections.SelectedNode) = mRemoteNG.Tree.Node.Type.Connection Then
Me.tvConnections.SelectedNode.Parent.Nodes.Add(nNode) Me.tvConnections.SelectedNode.Parent.Nodes.Add(nNode)
Else Else
Me.tvConnections.SelectedNode.Nodes.Add(nNode) Me.tvConnections.SelectedNode.Nodes.Add(nNode)
@@ -1083,17 +1083,17 @@ Namespace UI
Private Sub DisconnectConnection() Private Sub DisconnectConnection()
Try Try
If Me.tvConnections.SelectedNode IsNot Nothing Then If Me.tvConnections.SelectedNode IsNot Nothing Then
If TypeOf Me.tvConnections.SelectedNode.Tag Is mRemote.Connection.Info Then If TypeOf Me.tvConnections.SelectedNode.Tag Is mRemoteNG.Connection.Info Then
Dim conI As mRemote.Connection.Info = Me.tvConnections.SelectedNode.Tag Dim conI As mRemoteNG.Connection.Info = Me.tvConnections.SelectedNode.Tag
For i As Integer = 0 To conI.OpenConnections.Count - 1 For i As Integer = 0 To conI.OpenConnections.Count - 1
conI.OpenConnections(i).Disconnect() conI.OpenConnections(i).Disconnect()
Next Next
End If End If
If TypeOf Me.tvConnections.SelectedNode.Tag Is mRemote.Container.Info Then If TypeOf Me.tvConnections.SelectedNode.Tag Is mRemoteNG.Container.Info Then
For Each n As TreeNode In Me.tvConnections.SelectedNode.Nodes For Each n As TreeNode In Me.tvConnections.SelectedNode.Nodes
If TypeOf n.Tag Is mRemote.Connection.Info Then If TypeOf n.Tag Is mRemoteNG.Connection.Info Then
Dim conI As mRemote.Connection.Info = n.Tag Dim conI As mRemoteNG.Connection.Info = n.Tag
For i As Integer = 0 To conI.OpenConnections.Count - 1 For i As Integer = 0 To conI.OpenConnections.Count - 1
conI.OpenConnections(i).Disconnect() conI.OpenConnections(i).Disconnect()
Next Next
@@ -1110,7 +1110,7 @@ Namespace UI
Try Try
Windows.Show(Type.SSHTransfer) Windows.Show(Type.SSHTransfer)
Dim conI As mRemote.Connection.Info = mRemote.Tree.Node.SelectedNode.Tag Dim conI As mRemoteNG.Connection.Info = mRemoteNG.Tree.Node.SelectedNode.Tag
Windows.sshtransferForm.Hostname = conI.Hostname Windows.sshtransferForm.Hostname = conI.Hostname
Windows.sshtransferForm.Username = conI.Username Windows.sshtransferForm.Username = conI.Username
@@ -1196,8 +1196,8 @@ Namespace UI
Private Sub StartExternalApp(ByVal ExtA As Tools.ExternalApp) Private Sub StartExternalApp(ByVal ExtA As Tools.ExternalApp)
Try Try
If mRemote.Tree.Node.GetNodeType(mRemote.Tree.Node.SelectedNode) = mRemote.Tree.Node.Type.Connection Then If mRemoteNG.Tree.Node.GetNodeType(mRemoteNG.Tree.Node.SelectedNode) = mRemoteNG.Tree.Node.Type.Connection Then
ExtA.Start(mRemote.Tree.Node.SelectedNode.Tag) ExtA.Start(mRemoteNG.Tree.Node.SelectedNode.Tag)
End If End If
Catch ex As Exception Catch ex As Exception
mC.AddMessage(Messages.MessageClass.ErrorMsg, "cMenTreeToolsExternalAppsEntry_Click failed (UI.Window.Tree)" & vbNewLine & ex.Message, True) mC.AddMessage(Messages.MessageClass.ErrorMsg, "cMenTreeToolsExternalAppsEntry_Click failed (UI.Window.Tree)" & vbNewLine & ex.Message, True)
@@ -1207,11 +1207,11 @@ Namespace UI
#Region "Menu" #Region "Menu"
Private Sub mMenViewExpandAllFolders_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mMenViewExpandAllFolders.Click Private Sub mMenViewExpandAllFolders_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mMenViewExpandAllFolders.Click
mRemote.Tree.Node.ExpandAllNodes() mRemoteNG.Tree.Node.ExpandAllNodes()
End Sub End Sub
Private Sub mMenViewCollapseAllFolders_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mMenViewCollapseAllFolders.Click Private Sub mMenViewCollapseAllFolders_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mMenViewCollapseAllFolders.Click
mRemote.Tree.Node.CollapseAllNodes() mRemoteNG.Tree.Node.CollapseAllNodes()
End Sub End Sub
#End Region #End Region
@@ -1234,7 +1234,7 @@ Namespace UI
End Sub End Sub
Private Sub txtSearch_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSearch.TextChanged Private Sub txtSearch_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSearch.TextChanged
Me.tvConnections.SelectedNode = mRemote.Tree.Node.Find(Me.tvConnections.Nodes(0), Me.txtSearch.Text) Me.tvConnections.SelectedNode = mRemoteNG.Tree.Node.Find(Me.tvConnections.Nodes(0), Me.txtSearch.Text)
End Sub End Sub
Private Sub tvConnections_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tvConnections.KeyPress Private Sub tvConnections_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tvConnections.KeyPress
@@ -1253,7 +1253,7 @@ Namespace UI
Private Sub tvConnections_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tvConnections.KeyDown Private Sub tvConnections_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tvConnections.KeyDown
Try Try
If e.KeyCode = Keys.Enter Then If e.KeyCode = Keys.Enter Then
If TypeOf Me.tvConnections.SelectedNode.Tag Is mRemote.Connection.Info Then If TypeOf Me.tvConnections.SelectedNode.Tag Is mRemoteNG.Connection.Info Then
e.Handled = True e.Handled = True
App.Runtime.OpenConnection() App.Runtime.OpenConnection()
Else Else

7
mRemoteV1/UI/UI.Window.UltraVNCSC.vb
View File

@@ -1,6 +1,5 @@
Imports WeifenLuo.WinFormsUI.Docking Imports WeifenLuo.WinFormsUI.Docking
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
'Imports AxViewerX
Namespace UI Namespace UI
Namespace Window Namespace Window
@@ -54,7 +53,7 @@ Namespace UI
Me.ClientSize = New System.Drawing.Size(446, 362) Me.ClientSize = New System.Drawing.Size(446, 362)
Me.Controls.Add(Me.pnlContainer) Me.Controls.Add(Me.pnlContainer)
Me.Controls.Add(Me.tsMain) Me.Controls.Add(Me.tsMain)
Me.Icon = Global.mRemote.My.Resources.UVNC_SC_Icon Me.Icon = Global.mRemoteNG.My.Resources.UVNC_SC_Icon
Me.Name = "UltraVNCSC" Me.Name = "UltraVNCSC"
Me.TabText = "UltraVNC SC" Me.TabText = "UltraVNC SC"
Me.Text = "UltraVNC SC" Me.Text = "UltraVNC SC"
@@ -110,7 +109,7 @@ Namespace UI
Catch ex As Exception Catch ex As Exception
mC.AddMessage(Messages.MessageClass.ErrorMsg, "StartListening (UI.Window.UltraVNCSC) failed" & vbNewLine & ex.Message, False) mC.AddMessage(Messages.MessageClass.ErrorMsg, "StartListening (UI.Window.UltraVNCSC) failed" & vbNewLine & ex.Message, False)
Close() Close()
End Try End Try
End Sub End Sub
Private Sub SetupLicense() Private Sub SetupLicense()

4
mRemoteV1/UI/UI.Window.Update.vb
View File

@@ -1,7 +1,7 @@
Imports WeifenLuo.WinFormsUI.Docking Imports WeifenLuo.WinFormsUI.Docking
Imports System.Threading Imports System.Threading
Imports System.IO Imports System.IO
Imports mRemote.App.Runtime Imports mRemoteNG.App.Runtime
Namespace UI Namespace UI
Namespace Window Namespace Window
@@ -182,7 +182,7 @@ Namespace UI
Me.Controls.Add(Me.lblCurrentVersion) Me.Controls.Add(Me.lblCurrentVersion)
Me.Controls.Add(Me.pnlUp) Me.Controls.Add(Me.pnlUp)
Me.Controls.Add(Me.lblStatus) Me.Controls.Add(Me.lblStatus)
Me.Icon = Global.mRemote.My.Resources.Resources.Update_Icon Me.Icon = Global.mRemoteNG.My.Resources.Resources.Update_Icon
Me.Name = "Update" Me.Name = "Update"
Me.TabText = "Update" Me.TabText = "Update"
Me.Text = "Update" Me.Text = "Update"

25
mRemoteV1/app.config
View File

@@ -1,13 +1,12 @@
<?xml version="1.0" encoding="utf-8" ?> <?xml version="1.0" encoding="utf-8" ?>
<configuration> <configuration>
<configSections> <configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="mRemote.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
<section name="log4net" type="log4net.Config.Log4NetConfigurationSectionHandler, log4net-net-1.0" /> <section name="log4net" type="log4net.Config.Log4NetConfigurationSectionHandler, log4net-net-1.0" />
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="mRemoteNG.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
<sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" > <sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="mRemote.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" /> <section name="mRemoteNG.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
</sectionGroup> </sectionGroup>
</configSections> </configSections>
<log4net> <log4net>
@@ -21,15 +20,15 @@
</root> </root>
<appender name="LogFileAppender" type="log4net.Appender.FileAppender"> <appender name="LogFileAppender" type="log4net.Appender.FileAppender">
<file value="mRemoteNG.log" /> <file value="%USERPROFILE%\AppData\Local\mRemoteNG\mRemoteNG.log" />
<!-- Example using environment variables in params --> <!-- Example using environment variables in params -->
<!-- <file value="${TMP}\log-file.txt" /> --> <!-- <file value="${TMP}\log-file.txt" /> -->
<appendToFile value="true" /> <appendToFile value="true" />
<!-- An alternate output encoding can be specified --> <!-- An alternate output encoding can be specified -->
<!-- <encoding value="unicodeFFFE" /> --> <!-- <encoding value="unicodeFFFE" /> -->
<layout type="log4net.Layout.PatternLayout"> <layout type="log4net.Layout.PatternLayout">
<header value="[mRemote Start]&#xD;&#xA;" /> <header value="[mRemoteNG Start]&#xD;&#xA;" />
<footer value="[mRemote Exit]&#xD;&#xA;" /> <footer value="[mRemoteNG Exit]&#xD;&#xA;" />
<conversionPattern value="%date [%thread] %-5level- %message%newline" /> <conversionPattern value="%date [%thread] %-5level- %message%newline" />
</layout> </layout>
<!-- Alternate layout using XML <!-- Alternate layout using XML
@@ -59,7 +58,7 @@
</sharedListeners> </sharedListeners>
</system.diagnostics> </system.diagnostics>
<userSettings> <userSettings>
<mRemote.My.MySettings> <mRemoteNG.My.MySettings>
<setting name="MainFormLocation" serializeAs="String"> <setting name="MainFormLocation" serializeAs="String">
<value>999, 999</value> <value>999, 999</value>
</setting> </setting>
@@ -175,7 +174,7 @@
<value /> <value />
</setting> </setting>
<setting name="ConDefaultIcon" serializeAs="String"> <setting name="ConDefaultIcon" serializeAs="String">
<value>mRemote</value> <value>mRemoteNG</value>
</setting> </setting>
<setting name="ConDefaultPanel" serializeAs="String"> <setting name="ConDefaultPanel" serializeAs="String">
<value>General</value> <value>General</value>
@@ -504,16 +503,16 @@
<setting name="UpdatePending" serializeAs="String"> <setting name="UpdatePending" serializeAs="String">
<value>False</value> <value>False</value>
</setting> </setting>
</mRemote.My.MySettings> </mRemoteNG.My.MySettings>
</userSettings> </userSettings>
<applicationSettings> <applicationSettings>
<mRemote.My.MySettings> <mRemoteNG.My.MySettings>
<setting name="ConDefaultRDGatewayUsageMethod" serializeAs="String"> <setting name="ConDefaultRDGatewayUsageMethod" serializeAs="String">
<value>Never</value> <value>Never</value>
</setting> </setting>
<setting name="ConDefaultRDGatewayUseConnectionCredentials" serializeAs="String"> <setting name="ConDefaultRDGatewayUseConnectionCredentials" serializeAs="String">
<value>Yes</value> <value>Yes</value>
</setting> </setting>
</mRemote.My.MySettings> </mRemoteNG.My.MySettings>
</applicationSettings> </applicationSettings>
</configuration> </configuration>

4
mRemoteV1/mRemoteV1.vbproj
View File

@@ -7,8 +7,8 @@
<SchemaVersion>2.0</SchemaVersion> <SchemaVersion>2.0</SchemaVersion>
<ProjectGuid>{4934A491-40BC-4E5B-9166-EA1169A220F6}</ProjectGuid> <ProjectGuid>{4934A491-40BC-4E5B-9166-EA1169A220F6}</ProjectGuid>
<OutputType>WinExe</OutputType> <OutputType>WinExe</OutputType>
<StartupObject>mRemote.My.MyApplication</StartupObject> <StartupObject>mRemoteNG.My.MyApplication</StartupObject>
<RootNamespace>mRemote</RootNamespace> <RootNamespace>mRemoteNG</RootNamespace>
<AssemblyName>mRemoteNG</AssemblyName> <AssemblyName>mRemoteNG</AssemblyName>
<MyType>WindowsForms</MyType> <MyType>WindowsForms</MyType>
<OptionExplicit>On</OptionExplicit> <OptionExplicit>On</OptionExplicit>