ThinClients Wartungs-Meldung eingebaut

TSAnmeldung/Main.vb

@@ -16,6 +16,7 @@ Public Class Main
     Public MAC As String
     Public ClientMode As Boolean
     Public Seriennummer As String = ""
+    Public Wartung As Boolean = False
 
     Dim lastupdate As DateTime
 
@@ -186,6 +187,7 @@ Public Class Main
         'End If
 
         If sAppPath Like "*\bin\Debug" Or Environment.UserName = "miesenbeck" Or Environment.UserName = "Administrator" Or autologoff = False Then
+            btnShowAnydesk.Visible = True
             autoconnect = False
             Me.ControlBox = True
         End If
@@ -207,6 +209,34 @@ Public Class Main
 
     End Sub
 
+    Public Function check_Wartung()
+
+        ' Dim Nachricht As String = ""
+        Dim ds As New DataSet
+        cSQL.SQL2DS("select * from TbL_Dienste where Name = 'Wartung' ", ds)
+        If Not ds.Tables(0).Rows.Count = 0 Then
+            Dim row As DataRow = ds.Tables(0).Rows(0)
+            If Convert.ToBoolean(row("Aktiv")) = True Then
+                Wartung = True
+                show_wartung(row("Parameter").ToString())
+            Else
+                Wartung = False
+                Return False
+            End If
+        End If
+
+    End Function
+
+    Public Function show_wartung(ByRef nachricht As String)
+        Dim result As MsgBoxResult
+        result = MsgBox(nachricht, MsgBoxStyle.RetryCancel Or MsgBoxStyle.Exclamation, "Warnung")
+
+        If result = MsgBoxResult.Retry Then
+            check_Wartung()
+        End If
+
+    End Function
+
 
     Public Function rdp(host As String, Optional ByVal options As String = "", Optional ByVal rdpfile As String = "")
         'Dim mstsc As New Process()
@@ -260,25 +290,26 @@ Public Class Main
     End Sub
 
     Private Sub connect()
-
+        check_Wartung()
-        Select Case cboxStandort.SelectedItem
+        If Wartung = False Then
-            Case "Personalisiert"
+            Select Case cboxStandort.SelectedItem
-                If ConType = "rdp" Then
+                Case "Personalisiert"
-                    rdp(-1, -1, ReturnTerminalserver())
+                    If ConType = "rdp" Then
-                Else
+                        rdp(-1, -1, ReturnTerminalserver())
-                    ' MsgBox(ConString)
+                    Else
-                    rdp(ConString, "/multimon")
+                        ' MsgBox(ConString)
-                End If
+                        rdp(ConString, "/multimon")
-            Case Else
+                    End If
-                If cRes.CheckTermServer(ReturnTerminalserver()) Then
+                Case Else
-                    rdp(ReturnTerminalserver(), "/multimon")
+                    If cRes.CheckTermServer(ReturnTerminalserver()) Then
-                Else
+                        rdp(ReturnTerminalserver(), "/multimon")
-                    autologoff = False
+                    Else
-                    autoconnect = False
+                        autologoff = False
-                    MsgBox("Verbindung konnte nicht aufgebaut werden (Server" & ReturnTerminalserver() & " ist nicht erreichbar)")
+                        autoconnect = False
-                End If
+                        MsgBox("Verbindung konnte nicht aufgebaut werden (Server" & ReturnTerminalserver() & " ist nicht erreichbar)")
-        End Select
+                    End If
-
+            End Select
+        End If
     End Sub
 
     Private Sub btnLogOFF_Click(sender As Object, e As EventArgs) Handles btnLogOFF.Click
@@ -300,7 +331,7 @@ Public Class Main
             ' MsgBox("EventID: " & e.EventRecord.Id & vbCrLf & "Info: " & e.EventRecord.Properties(0).Value)
             If debug Then cRes.sendmsg("192.168.0.121", "EventID " & e.EventRecord.Id & "bei Benutzer " & Environment.UserName & " auf Rechner: " & Environment.MachineName & ", Uptime: " & cRes.getuptime())
             If e.EventRecord.Id = 2 Then
-                MsgBox("Speicherauslastung am ThinClient ist kritisch und daher sollte dieser ehestmöglich neu gestartet werden!" & vbCrLf & "Wenn diese Meldung ÖFTER auftritt, bitte bei Sebastian (DW 861) Bescheid geben.", MsgBoxStyle.Critical, "Kritische Speicherauslastung")
+                MsgBox("Speicherauslastung am ThinClient ist kritisch und daher sollte dieser ehestmöglich neu gestartet werden!" & vbCrLf & "Wenn diese Meldung ÖFTER auftritt, bitte bei der IT (DW 199) Bescheid geben.", MsgBoxStyle.Critical, "Kritische Speicherauslastung")
                 cRes.bringtofocus("mstsc.exe")
             End If
         End If
@@ -430,7 +461,7 @@ Public Class Main
     End Function
 
     Private Sub btnShowAnydesk_Click(sender As Object, e As EventArgs) Handles btnShowAnydesk.Click
-        Report()
+        check_Wartung()
     End Sub
 
     Public Function GetAnyDeskID() As String

TSAnmeldung/My Project/Resources.Designer.vb

@@ -81,7 +81,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die 1.2.2.3 ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die 1.25.05.20 ähnelt.
         '''</summary>
         Public ReadOnly Property ProgVersion() As String
             Get

TSAnmeldung/My Project/Resources.resx

@@ -118,7 +118,7 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <data name="ProgVersion" xml:space="preserve">
-    <value>1.2.2.3</value>
+    <value>1.25.05.20</value>
   </data>
   <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
   <data name="Reload20" type="System.Resources.ResXFileRef, System.Windows.Forms">