mRemoteNG/mRemoteV1/App/App.Info.vb

Imports System.Environment
Imports System.Threading

Namespace App
    Namespace Info
        Public Class General
            Public Shared ReadOnly URLHome As String = "http://www.mremoteng.org/"
            Public Shared ReadOnly URLDonate As String = "http://donate.mremoteng.org/"
            Public Shared ReadOnly URLForum As String = "http://forum.mremoteng.org/"
            Public Shared ReadOnly URLBugs As String = "http://bugs.mremoteng.org/"
            Public Shared ReadOnly HomePath As String = My.Application.Info.DirectoryPath
            Public Shared EncryptionKey As String = "mR3m"
            Public Shared ReportingFilePath As String = ""
            Public Shared ReadOnly PuttyPath As String = My.Application.Info.DirectoryPath & "\PuTTYNG.exe"
            Public Shared ReadOnly Property UserAgent As String
                Get
                    Dim details As New List(Of String)
                    details.Add("compatible")
                    If OSVersion.Platform = PlatformID.Win32NT Then
                        details.Add(String.Format("Windows NT {0}.{1}", OSVersion.Version.Major, OSVersion.Version.Minor))
                    Else
                        details.Add(OSVersion.VersionString)
                    End If
                    If Tools.EnvironmentInfo.IsWow64 Then details.Add("WOW64")
                    details.Add(Thread.CurrentThread.CurrentUICulture.Name)
                    details.Add(String.Format(".NET CLR {0}", Version.ToString()))
                    Dim detailsString As String = String.Join("; ", details.ToArray())

                    Return String.Format("Mozilla/4.0 ({0}) {1}/{2}", detailsString, Application.ProductName, Application.ProductVersion)
                End Get
            End Property
        End Class

        Public Class Settings
#If Not PORTABLE Then
            Public Shared ReadOnly SettingsPath As String = GetFolderPath(SpecialFolder.ApplicationData) & "\" & My.Application.Info.ProductName
#Else
            Public Shared ReadOnly SettingsPath As String = My.Application.Info.DirectoryPath
#End If
            Public Shared ReadOnly LayoutFileName As String = "pnlLayout.xml"
            Public Shared ReadOnly ExtAppsFilesName As String = "extApps.xml"
            Public Const ThemesFileName As String = "Themes.xml"
        End Class

        Public Class Update
            Public Shared ReadOnly Property FileName As String
                Get
#If DEBUG Then
                    Return "update-debug.txt"
#End If
                    Select Case My.Settings.UpdateChannel.ToLowerInvariant()
                        Case "beta"
                            Return "update-beta.txt"
                        Case "debug"
                            Return "update-debug.txt"
                        Case Else
                            Return "update.txt"
                    End Select
                End Get
            End Property
        End Class

        Public Class Connections
            Public Shared ReadOnly DefaultConnectionsPath As String = App.Info.Settings.SettingsPath
            Public Shared ReadOnly DefaultConnectionsFile As String = "confCons.xml"
            Public Shared ReadOnly DefaultConnectionsFileNew As String = "confConsNew.xml"
            Public Shared ReadOnly ConnectionFileVersion As Double = 2.5
        End Class

        Public Class Credentials
            Public Shared ReadOnly CredentialsPath As String = App.Info.Settings.SettingsPath
            Public Shared ReadOnly CredentialsFile As String = "confCreds.xml"
            Public Shared ReadOnly CredentialsFileNew As String = "confCredsNew.xml"
            Public Shared ReadOnly CredentialsFileVersion As Double = 1.0
        End Class
    End Namespace
End Namespace