From 2d30d3df7e8bb1c6e44e2a6ec80458bc2106eded Mon Sep 17 00:00:00 2001 From: ms Date: Tue, 20 May 2025 13:51:19 +0200 Subject: [PATCH] ThinClients Wartungs-Meldung eingebaut --- TSAnmeldung/Main.vb | 73 ++++++++++++++------ TSAnmeldung/My Project/Resources.Designer.vb | 2 +- TSAnmeldung/My Project/Resources.resx | 2 +- 3 files changed, 54 insertions(+), 23 deletions(-) diff --git a/TSAnmeldung/Main.vb b/TSAnmeldung/Main.vb index b2338c4..0baeeec 100644 --- a/TSAnmeldung/Main.vb +++ b/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() - - Select Case cboxStandort.SelectedItem - Case "Personalisiert" - If ConType = "rdp" Then - rdp(-1, -1, ReturnTerminalserver()) - Else - ' MsgBox(ConString) - rdp(ConString, "/multimon") - End If - Case Else - If cRes.CheckTermServer(ReturnTerminalserver()) Then - rdp(ReturnTerminalserver(), "/multimon") - Else - autologoff = False - autoconnect = False - MsgBox("Verbindung konnte nicht aufgebaut werden (Server" & ReturnTerminalserver() & " ist nicht erreichbar)") - End If - End Select - + check_Wartung() + If Wartung = False Then + Select Case cboxStandort.SelectedItem + Case "Personalisiert" + If ConType = "rdp" Then + rdp(-1, -1, ReturnTerminalserver()) + Else + ' MsgBox(ConString) + rdp(ConString, "/multimon") + End If + Case Else + If cRes.CheckTermServer(ReturnTerminalserver()) Then + rdp(ReturnTerminalserver(), "/multimon") + Else + autologoff = False + autoconnect = False + MsgBox("Verbindung konnte nicht aufgebaut werden (Server" & ReturnTerminalserver() & " ist nicht erreichbar)") + 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 diff --git a/TSAnmeldung/My Project/Resources.Designer.vb b/TSAnmeldung/My Project/Resources.Designer.vb index 9f02f86..b0f9475 100644 --- a/TSAnmeldung/My Project/Resources.Designer.vb +++ b/TSAnmeldung/My Project/Resources.Designer.vb @@ -81,7 +81,7 @@ Namespace My.Resources End Property ''' - ''' Sucht eine lokalisierte Zeichenfolge, die 1.2.2.3 ähnelt. + ''' Sucht eine lokalisierte Zeichenfolge, die 1.25.05.20 ähnelt. ''' Public ReadOnly Property ProgVersion() As String Get diff --git a/TSAnmeldung/My Project/Resources.resx b/TSAnmeldung/My Project/Resources.resx index 7952935..ff72d65 100644 --- a/TSAnmeldung/My Project/Resources.resx +++ b/TSAnmeldung/My Project/Resources.resx @@ -118,7 +118,7 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - 1.2.2.3 + 1.25.05.20