From 57c0236c66abcb3efae02093b1ff4049759d794a Mon Sep 17 00:00:00 2001 From: Andreas Rehm Date: Wed, 19 May 2010 00:15:52 +0800 Subject: [PATCH] More translations in App.Runtime, changed logfile syntax --- mRemoteV1/App/App.Runtime.vb | 35 +++-- mRemoteV1/Language/Resources.de.resx | 58 ++++++- mRemoteV1/My Project/Resources.Designer.vb | 167 +++++++++++++++++++-- mRemoteV1/My Project/Resources.resx | 59 +++++++- mRemoteV1/app.config | 2 +- 5 files changed, 289 insertions(+), 32 deletions(-) diff --git a/mRemoteV1/App/App.Runtime.vb b/mRemoteV1/App/App.Runtime.vb index 4192132e8..ec986cb05 100644 --- a/mRemoteV1/App/App.Runtime.vb +++ b/mRemoteV1/App/App.Runtime.vb @@ -1428,7 +1428,7 @@ Namespace App #Region "Event Handlers" Public Shared Sub Prot_Event_Disconnected(ByVal sender As Object, ByVal DisconnectedMessage As String) Try - mC.AddMessage(Messages.MessageClass.InformationMsg, "Protocol Event Disconnected" & vbNewLine & "Message: " & DisconnectedMessage, True) + mC.AddMessage(Messages.MessageClass.InformationMsg, String.Format(My.Resources.strProtocolEventDisconnected, DisconnectedMessage), True) Dim Prot As Connection.Protocol.Base = sender If Prot.InterfaceControl.Info.Protocol = Connection.Protocol.Protocols.RDP Then @@ -1437,14 +1437,14 @@ Namespace App Dim ReasonDescription As String = Reason(1) If ReasonCode > 3 Then If ReasonDescription <> "" Then - mC.AddMessage(Messages.MessageClass.WarningMsg, "RDP Disconnected!" & vbNewLine & ReasonDescription & vbNewLine & "Error code " & ReasonCode & ".") + mC.AddMessage(Messages.MessageClass.WarningMsg, My.Resources.strRdpDisconnected & vbNewLine & ReasonDescription & vbNewLine & String.Format(My.Resources.strErrorCode, ReasonCode)) Else - mC.AddMessage(Messages.MessageClass.WarningMsg, "RDP Disconnected!" & vbNewLine & "Error code " & ReasonCode & ".") + mC.AddMessage(Messages.MessageClass.WarningMsg, My.Resources.strRdpDisconnected & vbNewLine & String.Format(My.Resources.strErrorCode, ReasonCode)) End If End If End If Catch ex As Exception - mC.AddMessage(Messages.MessageClass.ErrorMsg, "Protocol Event Disconnected failed" & vbNewLine & ex.Message, True) + mC.AddMessage(Messages.MessageClass.ErrorMsg, String.Format(My.Resources.strProtocolEventDisconnectFailed, ex.Message), True) End Try End Sub @@ -1452,15 +1452,14 @@ Namespace App Try Dim Prot As Connection.Protocol.Base = sender - mC.AddMessage(Messages.MessageClass.InformationMsg, "Protocol Event Closed", True) + mC.AddMessage(Messages.MessageClass.InformationMsg, My.Resources.strConnenctionCloseEvent, True) If App.Editions.Spanlink.Enabled Then - mC.AddMessage(Messages.MessageClass.ReportMsg, "Connection to " & Prot.InterfaceControl.Info.Hostname & " via " & Prot.InterfaceControl.Info.Protocol.ToString & " closed by user " & My.User.Name & " (Description: " & Prot.InterfaceControl.Info.Description & "; User Field: " & Prot.InterfaceControl.Info.UserField & ")") + mC.AddMessage(Messages.MessageClass.ReportMsg, String.Format(My.Resources.strConnenctionClosedByUserDetail, Prot.InterfaceControl.Info.Hostname, Prot.InterfaceControl.Info.Protocol.ToString, My.User.Name, Prot.InterfaceControl.Info.Description, Prot.InterfaceControl.Info.UserField)) Else - mC.AddMessage(Messages.MessageClass.ReportMsg, "Connection to " & Prot.InterfaceControl.Info.Hostname & " via " & Prot.InterfaceControl.Info.Protocol.ToString & " closed by user " & My.User.Name) + mC.AddMessage(Messages.MessageClass.ReportMsg, String.Format(My.Resources.strConnenctionClosedByUser, Prot.InterfaceControl.Info.Hostname, Prot.InterfaceControl.Info.Protocol.ToString, My.User.Name)) End If - Prot.InterfaceControl.Info.OpenConnections.Remove(Prot) If Prot.InterfaceControl.Info.OpenConnections.Count < 1 And Prot.InterfaceControl.Info.IsQuicky = False Then @@ -1474,30 +1473,30 @@ Namespace App End If End If Catch ex As Exception - mC.AddMessage(Messages.MessageClass.ErrorMsg, "Protocol Event Closed failed" & vbNewLine & ex.Message, True) + mC.AddMessage(Messages.MessageClass.ErrorMsg, My.Resources.strConnenctionCloseEventFailed & vbNewLine & ex.Message, True) End Try End Sub Public Shared Sub Prot_Event_Connected(ByVal sender As Object) Dim prot As mRemoteNG.Connection.Protocol.Base = sender - 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.InformationMsg, My.Resources.strConnectionEventConnected, True) + mC.AddMessage(Messages.MessageClass.ReportMsg, String.Format(My.Resources.strConnectionEventConnectedDetail, prot.InterfaceControl.Info.Hostname, prot.InterfaceControl.Info.Protocol.ToString, My.User.Name, prot.InterfaceControl.Info.Description, prot.InterfaceControl.Info.UserField)) End Sub Public Shared Sub Prot_Event_ErrorOccured(ByVal sender As Object, ByVal ErrorMessage As String) Try - mC.AddMessage(Messages.MessageClass.InformationMsg, "Protocol Event ErrorOccured", True) + mC.AddMessage(Messages.MessageClass.InformationMsg, My.Resources.strConnectionEventErrorOccured, True) Dim Prot As Connection.Protocol.Base = sender If Prot.InterfaceControl.Info.Protocol = Connection.Protocol.Protocols.RDP Then If ErrorMessage > -1 Then - mC.AddMessage(Messages.MessageClass.WarningMsg, "RDP Error!" & vbNewLine & "Error Code: " & ErrorMessage & vbNewLine & "Error Description: " & Connection.Protocol.RDP.FatalErrors.GetError(ErrorMessage)) + mC.AddMessage(Messages.MessageClass.WarningMsg, String.Format(My.Resources.strConnectionRdpErrorDetail, ErrorMessage, Connection.Protocol.RDP.FatalErrors.GetError(ErrorMessage))) End If End If Catch ex As Exception - mC.AddMessage(Messages.MessageClass.ErrorMsg, "Protocol Event ErrorOccured failed" & vbNewLine & ex.Message, True) + mC.AddMessage(Messages.MessageClass.ErrorMsg, My.Resources.strConnectionEventConnectionFailed & vbNewLine & ex.Message, True) End Try End Sub #End Region @@ -1568,7 +1567,7 @@ Namespace App sWr.WriteLine(Text) sWr.Close() Catch ex As Exception - mC.AddMessage(Messages.MessageClass.ErrorMsg, "Writing to report file failed!") + mC.AddMessage(Messages.MessageClass.ErrorMsg, My.Resources.strLogWriteToFileFailed) End Try End Sub @@ -1584,7 +1583,7 @@ Namespace App Return True Catch ex As Exception - mC.AddMessage(Messages.MessageClass.ErrorMsg, "Couldn't save report to final location. (App.Runtime.SaveReport)" & vbNewLine & ex.Message, True) + mC.AddMessage(Messages.MessageClass.ErrorMsg, My.Resources.strLogWriteToFileFinalLocationFailed & vbNewLine & ex.Message, True) Return False End Try End Function @@ -1607,7 +1606,7 @@ Namespace App ChangeMainFormText(txt) Catch ex As Exception - mC.AddMessage(Messages.MessageClass.ErrorMsg, "Setting main form text failed" & vbNewLine & ex.Message, True) + mC.AddMessage(Messages.MessageClass.ErrorMsg, My.Resources.strSettingMainFormTextFailed & vbNewLine & ex.Message, True) End Try End Sub @@ -1665,7 +1664,7 @@ Namespace App Private Shared Sub SQLUpdateCheckFinished(ByVal UpdateAvailable As Boolean) If UpdateAvailable = True Then - mC.AddMessage(Messages.MessageClass.InformationMsg, "SQL Update check finished and there is an update available! Going to refresh connections.", True) + mC.AddMessage(Messages.MessageClass.InformationMsg, My.Resources.strSqlUpdateCheckUpdateAvailable, True) LoadConnectionsBG() End If End Sub diff --git a/mRemoteV1/Language/Resources.de.resx b/mRemoteV1/Language/Resources.de.resx index d9bee17a5..05f606539 100644 --- a/mRemoteV1/Language/Resources.de.resx +++ b/mRemoteV1/Language/Resources.de.resx @@ -1097,7 +1097,7 @@ Wenn Sie noch immer Probleme mit VNC haben, konsultieren Sie bitte das mRemoteNG Die Protokolle, SSH, Telnet, Rlogin und RAW benötigen PuTTY. PuTTY wird in allen mRemote Paketen mitgeliefert und befindet sich im Installations-Pfad. -Bitte versichern Sie sich, dass sich die Datei Putty.exe in ihrem mRemote Installations-Pfad befindet (Standard: c:\Programme\mRemote\) oder dass Sie einen korrekten Pfad in den Optionen (Extras - Optionen - Erweitert - Eigener PuTTY Pfad) angegeben haben. +Bitte versichern Sie sich, dass sich die Datei Putty.exe in ihrem mRemote Installations-Pfad befindet (Standard: c:\Programme\mRemoteNG\) oder dass Sie einen korrekten Pfad in den Optionen (Extras - Optionen - Erweitert - Eigener PuTTY Pfad) angegeben haben. Alle ICA Komponenten wurden gefunden und scheinen korrekt registriert zu sein. @@ -1986,4 +1986,60 @@ Starte mit neuer Datei. Setzen der VNC Parameter fehlgeschlagen! + + RDP Verbindung getrennt! + + + Fehler Nummer {0}. + + + Protokoll Ereignis Verbindung getrennt. +Nachricht: +{0} + + + Protokoll Ereignis Trennen der Verbindung fehlgeschlagen! +{0} + + + Verbindung zu {0} mit {1} wurde vom Benutzer {2} getrennt. (Beschreibung: "{3}"; Benutzer Feld: "{4}") + + + Verbindung zu {0} mit {1} wurde vom Benutzer {2} getrennt. (Description: " & Prot.InterfaceControl.Info.Description & "; User Field: " & Prot.InterfaceControl.Info.UserField & ")" + + + Ereignis Verbindung beenden + + + Ereignis Verbindung beenden fehlgeschlagen! + + + Ereignis Verbindung hergestellt + + + Verbindung zu "{0}" mit "{1}" hergestellt von Benutzer "{2}" (Beschreibung: "{3}"; Benutzer Feld: "{4}") + + + Ein Protokoll Ereignis Fehler ist aufgetreten! + + + Verbindung fehlgeschlagen! + + + RDP Fehler! +Fehler Code: {0} +Fehler Beschreibung: {1} + + + Schreiben des Report.log fehlgeschlagen! + + + Kann das Report.log nicht im Zielordner speichern! + + + Setzen der Hauptformular Texte fehlgeschlagen! + + + SQL Aktualisierungsprüfung beendet und es existiert eine Aktualisierung! Aktualisiere die Verbindungsdaten. + \ No newline at end of file diff --git a/mRemoteV1/My Project/Resources.Designer.vb b/mRemoteV1/My Project/Resources.Designer.vb index bb02e91bd..f3984c29f 100644 --- a/mRemoteV1/My Project/Resources.Designer.vb +++ b/mRemoteV1/My Project/Resources.Designer.vb @@ -1670,6 +1670,42 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Protocol Event Connected ähnelt. + ''' + Friend ReadOnly Property strConnectionEventConnected() As String + Get + Return ResourceManager.GetString("strConnectionEventConnected", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Connection to "{0}" via "{1}" established by user "{2}" (Description: "{3}"; User Field: "{4}") ähnelt. + ''' + Friend ReadOnly Property strConnectionEventConnectedDetail() As String + Get + Return ResourceManager.GetString("strConnectionEventConnectedDetail", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Conenction failed! ähnelt. + ''' + Friend ReadOnly Property strConnectionEventConnectionFailed() As String + Get + Return ResourceManager.GetString("strConnectionEventConnectionFailed", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Protocol Event ErrorOccured ähnelt. + ''' + Friend ReadOnly Property strConnectionEventErrorOccured() As String + Get + Return ResourceManager.GetString("strConnectionEventErrorOccured", resourceCulture) + End Get + End Property + ''' ''' Sucht eine lokalisierte Zeichenfolge, die Opening connection failed! ähnelt. ''' @@ -1688,6 +1724,17 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die RDP error! + '''Error Code: {0} + '''Error Description: {1} ähnelt. + ''' + Friend ReadOnly Property strConnectionRdpErrorDetail() As String + Get + Return ResourceManager.GetString("strConnectionRdpErrorDetail", resourceCulture) + End Get + End Property + ''' ''' Sucht eine lokalisierte Zeichenfolge, die Connections ähnelt. ''' @@ -1770,6 +1817,42 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Connection to {0} via {1} closed by user {2}. ähnelt. + ''' + Friend ReadOnly Property strConnenctionClosedByUser() As String + Get + Return ResourceManager.GetString("strConnenctionClosedByUser", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Connection to {0} via {1} closed by user {2}. (Description: "{3}"; User Field: "{4}") ähnelt. + ''' + Friend ReadOnly Property strConnenctionClosedByUserDetail() As String + Get + Return ResourceManager.GetString("strConnenctionClosedByUserDetail", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Connection Event Closed ähnelt. + ''' + Friend ReadOnly Property strConnenctionCloseEvent() As String + Get + Return ResourceManager.GetString("strConnenctionCloseEvent", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Connection Event Closed failed! ähnelt. + ''' + Friend ReadOnly Property strConnenctionCloseEventFailed() As String + Get + Return ResourceManager.GetString("strConnenctionCloseEventFailed", resourceCulture) + End Get + End Property + ''' ''' Sucht eine lokalisierte Zeichenfolge, die Couldn't create new connections file! ähnelt. ''' @@ -1923,6 +2006,15 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Error code {0}. ähnelt. + ''' + Friend ReadOnly Property strErrorCode() As String + Get + Return ResourceManager.GetString("strErrorCode", resourceCulture) + End Get + End Property + ''' ''' Sucht eine lokalisierte Zeichenfolge, die Errors ähnelt. ''' @@ -2661,6 +2753,24 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Writing to report file failed! ähnelt. + ''' + Friend ReadOnly Property strLogWriteToFileFailed() As String + Get + Return ResourceManager.GetString("strLogWriteToFileFailed", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Couldn't save report to final location. ähnelt. + ''' + Friend ReadOnly Property strLogWriteToFileFinalLocationFailed() As String + Get + Return ResourceManager.GetString("strLogWriteToFileFinalLocationFailed", resourceCulture) + End Get + End Property + ''' ''' Sucht eine lokalisierte Zeichenfolge, die Uses the Magic library by [Crownwood Software] ähnelt. ''' @@ -3724,15 +3834,6 @@ Namespace My.Resources End Get End Property - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die ähnelt. - ''' - Friend ReadOnly Property strPropertyDescriptionRDGatewayPasswordInherit() As String - Get - Return ResourceManager.GetString("strPropertyDescriptionRDGatewayPasswordInherit", resourceCulture) - End Get - End Property - ''' ''' Sucht eine lokalisierte Zeichenfolge, die Specifies when to use a Remote Desktop Gateway (RD Gateway) server. ähnelt. ''' @@ -4741,6 +4842,27 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Protocol Event Disconnected. + '''Message: + '''{0} ähnelt. + ''' + Friend ReadOnly Property strProtocolEventDisconnected() As String + Get + Return ResourceManager.GetString("strProtocolEventDisconnected", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Protocol Event Disconnected failed. + '''{0} ähnelt. + ''' + Friend ReadOnly Property strProtocolEventDisconnectFailed() As String + Get + Return ResourceManager.GetString("strProtocolEventDisconnectFailed", resourceCulture) + End Get + End Property + ''' ''' Sucht eine lokalisierte Zeichenfolge, die Protocol to import ähnelt. ''' @@ -5074,6 +5196,15 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die RDP disconnected! ähnelt. + ''' + Friend ReadOnly Property strRdpDisconnected() As String + Get + Return ResourceManager.GetString("strRdpDisconnected", resourceCulture) + End Get + End Property + ''' ''' Sucht eine lokalisierte Zeichenfolge, die RDP Disconnect failed, trying to close! ähnelt. ''' @@ -5551,6 +5682,15 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Setting main form text failed ähnelt. + ''' + Friend ReadOnly Property strSettingMainFormTextFailed() As String + Get + Return ResourceManager.GetString("strSettingMainFormTextFailed", resourceCulture) + End Get + End Property + ''' ''' Sucht eine lokalisierte Zeichenfolge, die Couldn't save settings or dispose SysTray Icon! ähnelt. ''' @@ -5704,6 +5844,15 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die SQL Update check finished and there is an update available! Going to refresh connections. ähnelt. + ''' + Friend ReadOnly Property strSqlUpdateCheckUpdateAvailable() As String + Get + Return ResourceManager.GetString("strSqlUpdateCheckUpdateAvailable", resourceCulture) + End Get + End Property + ''' ''' Sucht eine lokalisierte Zeichenfolge, die SSH version 1 ähnelt. ''' diff --git a/mRemoteV1/My Project/Resources.resx b/mRemoteV1/My Project/Resources.resx index 0162667ae..3d5d7c0e1 100644 --- a/mRemoteV1/My Project/Resources.resx +++ b/mRemoteV1/My Project/Resources.resx @@ -1544,9 +1544,6 @@ If you are still not able to pass this check or use the (RDP) Sessions feature i Specifies the user name that a user provides to connect to the RD Gateway server. - - - Protocol to import @@ -2302,4 +2299,60 @@ Starting with new connections file. VNC Set Props Failed! + + RDP disconnected! + + + Error code {0}. + + + Protocol Event Disconnected. +Message: +{0} + + + Protocol Event Disconnected failed. +{0} + + + Connection to {0} via {1} closed by user {2}. (Description: "{3}"; User Field: "{4}") + + + Connection to {0} via {1} closed by user {2}. + + + Connection Event Closed + + + Connection Event Closed failed! + + + Protocol Event Connected + + + Connection to "{0}" via "{1}" established by user "{2}" (Description: "{3}"; User Field: "{4}") + + + Protocol Event ErrorOccured + + + Conenction failed! + + + RDP error! +Error Code: {0} +Error Description: {1} + + + Writing to report file failed! + + + Couldn't save report to final location. + + + SQL Update check finished and there is an update available! Going to refresh connections. + + + Setting main form text failed + \ No newline at end of file diff --git a/mRemoteV1/app.config b/mRemoteV1/app.config index f6fed6c20..a975bde87 100644 --- a/mRemoteV1/app.config +++ b/mRemoteV1/app.config @@ -20,7 +20,7 @@ - +