ThinClients Wartungs-Meldung eingebaut

2025-05-20 13:51:01 +02:00
parent d5e4555e6e
commit fbaa4f1c02
10 changed files with 197 additions and 74 deletions
--- a/Dokumentation/Classes/cSQL.vb
+++ b/Dokumentation/Classes/cSQL.vb
@@ -116,6 +116,28 @@ Public Class cSQL
        cmd.ExecuteNonQuery()
        con.Close()
    End Sub
+    Public Shared Sub UpdateSQL_(ByVal table As String, ByVal values As Dictionary(Of String, Object), ByVal where As String, Optional ByVal DBConnect As String = "")
+        If DBConnect = "" Then DBConnect = Class1.DBConString
+
+        Using con As New SqlConnection(DBConnect),
+          cmd As New SqlCommand()
+
+            con.Open()
+            cmd.Connection = con
+
+            ' Dynamisch SQL-Zeile aufbauen
+            Dim setParts As New List(Of String)
+            For Each kvp In values
+                setParts.Add(kvp.Key & " = @" & kvp.Key)
+                cmd.Parameters.AddWithValue("@" & kvp.Key, kvp.Value)
+            Next
+
+            cmd.CommandText = $"UPDATE {table} SET {String.Join(", ", setParts)} WHERE {where}"
+
+            cmd.ExecuteNonQuery()
+        End Using
+    End Sub
+

    Public Shared Sub InsertSQL(ByRef table As String, ByRef insert As String, Optional ByRef DBConnect As String = "")
        If DBConnect = "" Then DBConnect = Class1.DBConString
--- a/Dokumentation/Main.Designer.vb
+++ b/Dokumentation/Main.Designer.vb
@@ -128,6 +128,7 @@ Partial Class Main
        Me.panTSSitzungen = New System.Windows.Forms.Panel()
        Me.Timer_Refresh = New System.Windows.Forms.Timer(Me.components)
        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
+        Me.IPAdresseKopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.Panel2.SuspendLayout()
        Me.Panel4.SuspendLayout()
        CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -881,9 +882,9 @@ Partial Class Main
        '
        'DGVMainContext
        '
-        Me.DGVMainContext.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DgvMainContextMenuItemHost, Me.DateienToolStripMenuItem, Me.AnydeskToolStripMenuItem, Me.PuttyToolStripMenuItem, Me.ToolStripSeparator4, Me.DgvMainContextMenuItemLink, Me.LinkÖffnenMitEdgeToolStripMenuItem, Me.ToolStripSeparator5, Me.SMBToolStripMenuItem, Me.IPAdresseInZwischenablageToolStripMenuItem, Me.TeamviewerVerbindenToolStripMenuItem, Me.RDPToolStripMenuItem, Me.RDPFensterToolStripMenuItem, Me.ToolStripSeparator3, Me.ObjektLöschenToolStripMenuItem, Me.ToolStripSeparator2, Me.NetzwerkdateienToolStripMenuItem, Me.ToolsToolStripMenuItem})
+        Me.DGVMainContext.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DgvMainContextMenuItemHost, Me.DateienToolStripMenuItem, Me.AnydeskToolStripMenuItem, Me.PuttyToolStripMenuItem, Me.IPAdresseKopierenToolStripMenuItem, Me.ToolStripSeparator4, Me.DgvMainContextMenuItemLink, Me.LinkÖffnenMitEdgeToolStripMenuItem, Me.ToolStripSeparator5, Me.SMBToolStripMenuItem, Me.IPAdresseInZwischenablageToolStripMenuItem, Me.TeamviewerVerbindenToolStripMenuItem, Me.RDPToolStripMenuItem, Me.RDPFensterToolStripMenuItem, Me.ToolStripSeparator3, Me.ObjektLöschenToolStripMenuItem, Me.ToolStripSeparator2, Me.NetzwerkdateienToolStripMenuItem, Me.ToolsToolStripMenuItem})
        Me.DGVMainContext.Name = "ContextMenuStrip2"
-        Me.DGVMainContext.Size = New System.Drawing.Size(230, 336)
+        Me.DGVMainContext.Size = New System.Drawing.Size(230, 380)
        '
        'DgvMainContextMenuItemHost
        '
@@ -1105,6 +1106,12 @@ Partial Class Main
        'Timer1
        '
        '
+        'IPAdresseKopierenToolStripMenuItem
+        '
+        Me.IPAdresseKopierenToolStripMenuItem.Name = "IPAdresseKopierenToolStripMenuItem"
+        Me.IPAdresseKopierenToolStripMenuItem.Size = New System.Drawing.Size(229, 22)
+        Me.IPAdresseKopierenToolStripMenuItem.Text = "IP Adresse kopieren"
+        '
        'Main
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1249,4 +1256,5 @@ Partial Class Main
    Friend WithEvents PuttyToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents lblOfflinemodus As Label
    Friend WithEvents btnSync As Button
+    Friend WithEvents IPAdresseKopierenToolStripMenuItem As ToolStripMenuItem
 End Class
--- a/Dokumentation/Main.vb
+++ b/Dokumentation/Main.vb
@@ -1820,6 +1820,10 @@ exit"

    End Sub

+    Private Sub IPAdresseKopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IPAdresseKopierenToolStripMenuItem.Click
+        Clipboard.SetText(DgVMain.CurrentRow.Cells("IPAdresse").Value)
+    End Sub
+
    Private Sub Main_Closed(sender As Object, e As EventArgs) Handles Me.Closed

        Class1.ini.prop_Kompansicht = ChkKompAnsicht.Checked
--- a/Project/Resources.Designer.vb
+++ b/Project/Resources.Designer.vb
@@ -319,7 +319,7 @@ Namespace My.Resources
        End Property
        
        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die 0.0.2.05 ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die 0.0.2.07 ähnelt.
        '''</summary>
        Friend ReadOnly Property Version() As String
            Get
--- a/Project/Resources.resx
+++ b/Project/Resources.resx
@@ -137,7 +137,7 @@
    <value>..\Resources\mail20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
  <data name="Version" xml:space="preserve">
-    <value>0.0.2.05</value>
+    <value>0.0.2.07</value>
  </data>
  <data name="Link1" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\Link.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
--- a/Dokumentation/frmHostBearbeiten.Designer.vb
+++ b/Dokumentation/frmHostBearbeiten.Designer.vb
@@ -33,6 +33,8 @@ Partial Class frmHostBearbeiten
        Me.ChkKennwortAnzeigen = New System.Windows.Forms.CheckBox()
        Me.CmdIPChange = New System.Windows.Forms.Button()
        Me.TxtIP = New System.Windows.Forms.TextBox()
+        Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.IPAdresseKopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.CmdLink = New System.Windows.Forms.Button()
        Me.Label2 = New System.Windows.Forms.Label()
@@ -73,6 +75,12 @@ Partial Class frmHostBearbeiten
        Me.CmdDelete = New System.Windows.Forms.Button()
        Me.TxtBenutzername = New System.Windows.Forms.TextBox()
        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.txtAnydesk = New System.Windows.Forms.TextBox()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.txtAnydeskPass = New System.Windows.Forms.TextBox()
+        Me.Label16 = New System.Windows.Forms.Label()
+        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
        Me.Button2 = New System.Windows.Forms.Button()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.txtSSHPort = New System.Windows.Forms.TextBox()
@@ -92,12 +100,7 @@ Partial Class frmHostBearbeiten
        Me.PanFirewall = New System.Windows.Forms.Panel()
        Me.PanSlaves = New System.Windows.Forms.Panel()
        Me.PanNavTop = New System.Windows.Forms.Panel()
-        Me.Button3 = New System.Windows.Forms.Button()
-        Me.txtAnydesk = New System.Windows.Forms.TextBox()
-        Me.Label15 = New System.Windows.Forms.Label()
-        Me.txtAnydeskPass = New System.Windows.Forms.TextBox()
-        Me.Label16 = New System.Windows.Forms.Label()
-        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
+        Me.ContextMenuStrip3.SuspendLayout()
        Me.ContextMenuStrip2.SuspendLayout()
        Me.ContextMenuStrip1.SuspendLayout()
        Me.Panel1.SuspendLayout()
@@ -187,12 +190,25 @@ Partial Class frmHostBearbeiten
        '
        'TxtIP
        '
+        Me.TxtIP.ContextMenuStrip = Me.ContextMenuStrip3
        Me.TxtIP.Enabled = False
        Me.TxtIP.Location = New System.Drawing.Point(6, 51)
        Me.TxtIP.Name = "TxtIP"
        Me.TxtIP.Size = New System.Drawing.Size(219, 20)
        Me.TxtIP.TabIndex = 113
        '
+        'ContextMenuStrip3
+        '
+        Me.ContextMenuStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.IPAdresseKopierenToolStripMenuItem})
+        Me.ContextMenuStrip3.Name = "ContextMenuStrip3"
+        Me.ContextMenuStrip3.Size = New System.Drawing.Size(178, 26)
+        '
+        'IPAdresseKopierenToolStripMenuItem
+        '
+        Me.IPAdresseKopierenToolStripMenuItem.Name = "IPAdresseKopierenToolStripMenuItem"
+        Me.IPAdresseKopierenToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
+        Me.IPAdresseKopierenToolStripMenuItem.Text = "IP Adresse kopieren"
+        '
        'Label1
        '
        Me.Label1.AutoSize = True
@@ -545,6 +561,7 @@ Partial Class frmHostBearbeiten
        '
        'Panel1
        '
+        Me.Panel1.ContextMenuStrip = Me.ContextMenuStrip3
        Me.Panel1.Controls.Add(Me.Button3)
        Me.Panel1.Controls.Add(Me.txtAnydesk)
        Me.Panel1.Controls.Add(Me.Label15)
@@ -609,6 +626,64 @@ Partial Class frmHostBearbeiten
        Me.Panel1.Size = New System.Drawing.Size(643, 588)
        Me.Panel1.TabIndex = 137
        '
+        'Button3
+        '
+        Me.Button3.BackColor = System.Drawing.Color.SkyBlue
+        Me.Button3.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
+        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Button3.Location = New System.Drawing.Point(234, 377)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(75, 20)
+        Me.Button3.TabIndex = 157
+        Me.Button3.Text = "Verb."
+        Me.Button3.UseVisualStyleBackColor = False
+        '
+        'txtAnydesk
+        '
+        Me.txtAnydesk.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
+        Me.txtAnydesk.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
+        Me.txtAnydesk.Location = New System.Drawing.Point(6, 377)
+        Me.txtAnydesk.Name = "txtAnydesk"
+        Me.txtAnydesk.Size = New System.Drawing.Size(219, 20)
+        Me.txtAnydesk.TabIndex = 152
+        '
+        'Label15
+        '
+        Me.Label15.AutoSize = True
+        Me.Label15.Location = New System.Drawing.Point(3, 359)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(50, 13)
+        Me.Label15.TabIndex = 155
+        Me.Label15.Text = "AnyDesk"
+        '
+        'txtAnydeskPass
+        '
+        Me.txtAnydeskPass.Location = New System.Drawing.Point(6, 420)
+        Me.txtAnydeskPass.Name = "txtAnydeskPass"
+        Me.txtAnydeskPass.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
+        Me.txtAnydeskPass.Size = New System.Drawing.Size(300, 20)
+        Me.txtAnydeskPass.TabIndex = 154
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.Location = New System.Drawing.Point(3, 404)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(77, 13)
+        Me.Label16.TabIndex = 156
+        Me.Label16.Text = "Anydesk Pass."
+        '
+        'CheckBox1
+        '
+        Me.CheckBox1.AutoSize = True
+        Me.CheckBox1.Location = New System.Drawing.Point(86, 403)
+        Me.CheckBox1.Name = "CheckBox1"
+        Me.CheckBox1.Size = New System.Drawing.Size(70, 17)
+        Me.CheckBox1.TabIndex = 153
+        Me.CheckBox1.Text = "Anzeigen"
+        Me.CheckBox1.UseVisualStyleBackColor = True
+        '
        'Button2
        '
        Me.Button2.BackColor = System.Drawing.SystemColors.ControlLightLight
@@ -810,64 +885,6 @@ Partial Class frmHostBearbeiten
        Me.PanNavTop.Size = New System.Drawing.Size(309, 32)
        Me.PanNavTop.TabIndex = 141
        '
-        'Button3
-        '
-        Me.Button3.BackColor = System.Drawing.Color.SkyBlue
-        Me.Button3.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
-        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Button3.Location = New System.Drawing.Point(234, 377)
-        Me.Button3.Name = "Button3"
-        Me.Button3.Size = New System.Drawing.Size(75, 20)
-        Me.Button3.TabIndex = 157
-        Me.Button3.Text = "Verb."
-        Me.Button3.UseVisualStyleBackColor = False
-        '
-        'txtAnydesk
-        '
-        Me.txtAnydesk.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
-        Me.txtAnydesk.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
-        Me.txtAnydesk.Location = New System.Drawing.Point(6, 377)
-        Me.txtAnydesk.Name = "txtAnydesk"
-        Me.txtAnydesk.Size = New System.Drawing.Size(219, 20)
-        Me.txtAnydesk.TabIndex = 152
-        '
-        'Label15
-        '
-        Me.Label15.AutoSize = True
-        Me.Label15.Location = New System.Drawing.Point(3, 359)
-        Me.Label15.Name = "Label15"
-        Me.Label15.Size = New System.Drawing.Size(50, 13)
-        Me.Label15.TabIndex = 155
-        Me.Label15.Text = "AnyDesk"
-        '
-        'txtAnydeskPass
-        '
-        Me.txtAnydeskPass.Location = New System.Drawing.Point(6, 420)
-        Me.txtAnydeskPass.Name = "txtAnydeskPass"
-        Me.txtAnydeskPass.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
-        Me.txtAnydeskPass.Size = New System.Drawing.Size(300, 20)
-        Me.txtAnydeskPass.TabIndex = 154
-        '
-        'Label16
-        '
-        Me.Label16.AutoSize = True
-        Me.Label16.Location = New System.Drawing.Point(3, 404)
-        Me.Label16.Name = "Label16"
-        Me.Label16.Size = New System.Drawing.Size(77, 13)
-        Me.Label16.TabIndex = 156
-        Me.Label16.Text = "Anydesk Pass."
-        '
-        'CheckBox1
-        '
-        Me.CheckBox1.AutoSize = True
-        Me.CheckBox1.Location = New System.Drawing.Point(86, 403)
-        Me.CheckBox1.Name = "CheckBox1"
-        Me.CheckBox1.Size = New System.Drawing.Size(70, 17)
-        Me.CheckBox1.TabIndex = 153
-        Me.CheckBox1.Text = "Anzeigen"
-        Me.CheckBox1.UseVisualStyleBackColor = True
-        '
        'frmHostBearbeiten
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -886,6 +903,7 @@ Partial Class frmHostBearbeiten
        Me.Name = "frmHostBearbeiten"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
        Me.Text = " Host bearbeiten"
+        Me.ContextMenuStrip3.ResumeLayout(False)
        Me.ContextMenuStrip2.ResumeLayout(False)
        Me.ContextMenuStrip1.ResumeLayout(False)
        Me.Panel1.ResumeLayout(False)
@@ -971,4 +989,6 @@ Partial Class frmHostBearbeiten
    Friend WithEvents txtAnydeskPass As TextBox
    Friend WithEvents Label16 As Label
    Friend WithEvents CheckBox1 As CheckBox
+    Friend WithEvents ContextMenuStrip3 As ContextMenuStrip
+    Friend WithEvents IPAdresseKopierenToolStripMenuItem As ToolStripMenuItem
 End Class
--- a/Dokumentation/frmHostBearbeiten.resx
+++ b/Dokumentation/frmHostBearbeiten.resx
@@ -117,6 +117,9 @@
  <resheader name="writer">
    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </resheader>
+  <metadata name="ContextMenuStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>331, 17</value>
+  </metadata>
  <metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>174, 17</value>
  </metadata>
--- a/Dokumentation/frmHostBearbeiten.vb
+++ b/Dokumentation/frmHostBearbeiten.vb
@@ -424,4 +424,8 @@
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        cExtProgramme.RunAnyDeskWithPassword(txtAnydesk.Text, txtAnydeskPass.Text)
    End Sub
+
+    Private Sub IPAdresseKopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IPAdresseKopierenToolStripMenuItem.Click
+        Clipboard.SetText(TxtIP.Text)
+    End Sub
 End Class
--- a/Dokumentation/uscntr_TSSitzungen.Designer.vb
+++ b/Dokumentation/uscntr_TSSitzungen.Designer.vb
@@ -27,10 +27,12 @@ Partial Class uscntr_TSSitzungen
        Me.dgvTSSitzungen = New System.Windows.Forms.DataGridView()
        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.VerbindenMitTeamVToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.VerbindenMitAnydeskToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.NachrichtSendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.UpdateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.ProfildatenÖffnenExplorerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.TeamVIDKopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.HostnameKopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.lblAnzahl = New System.Windows.Forms.Label()
@@ -44,7 +46,7 @@ Partial Class uscntr_TSSitzungen
        Me.Label1 = New System.Windows.Forms.Label()
        Me.TextBox1 = New System.Windows.Forms.TextBox()
        Me.timDisUpdateTimer = New System.Windows.Forms.Timer(Me.components)
-        Me.VerbindenMitAnydeskToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.chkWartung = New System.Windows.Forms.CheckBox()
        CType(Me.dgvTSSitzungen, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.ContextMenuStrip1.SuspendLayout()
        Me.Panel1.SuspendLayout()
@@ -78,7 +80,7 @@ Partial Class uscntr_TSSitzungen
        '
        'ContextMenuStrip1
        '
-        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VerbindenMitTeamVToolStripMenuItem, Me.VerbindenMitAnydeskToolStripMenuItem, Me.NachrichtSendenToolStripMenuItem, Me.UpdateToolStripMenuItem, Me.ProfildatenÖffnenExplorerToolStripMenuItem, Me.TeamVIDKopierenToolStripMenuItem})
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VerbindenMitTeamVToolStripMenuItem, Me.VerbindenMitAnydeskToolStripMenuItem, Me.NachrichtSendenToolStripMenuItem, Me.UpdateToolStripMenuItem, Me.ProfildatenÖffnenExplorerToolStripMenuItem, Me.TeamVIDKopierenToolStripMenuItem, Me.HostnameKopierenToolStripMenuItem})
        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
        Me.ContextMenuStrip1.Size = New System.Drawing.Size(225, 158)
        '
@@ -88,6 +90,12 @@ Partial Class uscntr_TSSitzungen
        Me.VerbindenMitTeamVToolStripMenuItem.Size = New System.Drawing.Size(224, 22)
        Me.VerbindenMitTeamVToolStripMenuItem.Text = "Verbinden mit TeamV."
        '
+        'VerbindenMitAnydeskToolStripMenuItem
+        '
+        Me.VerbindenMitAnydeskToolStripMenuItem.Name = "VerbindenMitAnydeskToolStripMenuItem"
+        Me.VerbindenMitAnydeskToolStripMenuItem.Size = New System.Drawing.Size(224, 22)
+        Me.VerbindenMitAnydeskToolStripMenuItem.Text = "Verbinden mit Anydesk"
+        '
        'NachrichtSendenToolStripMenuItem
        '
        Me.NachrichtSendenToolStripMenuItem.Name = "NachrichtSendenToolStripMenuItem"
@@ -112,6 +120,12 @@ Partial Class uscntr_TSSitzungen
        Me.TeamVIDKopierenToolStripMenuItem.Size = New System.Drawing.Size(224, 22)
        Me.TeamVIDKopierenToolStripMenuItem.Text = "TeamV. ID kopieren"
        '
+        'HostnameKopierenToolStripMenuItem
+        '
+        Me.HostnameKopierenToolStripMenuItem.Name = "HostnameKopierenToolStripMenuItem"
+        Me.HostnameKopierenToolStripMenuItem.Size = New System.Drawing.Size(224, 22)
+        Me.HostnameKopierenToolStripMenuItem.Text = "Hostname kopieren"
+        '
        'Timer1
        '
        Me.Timer1.Interval = 10000
@@ -119,6 +133,7 @@ Partial Class uscntr_TSSitzungen
        'Panel1
        '
        Me.Panel1.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
+        Me.Panel1.Controls.Add(Me.chkWartung)
        Me.Panel1.Controls.Add(Me.lblAnzahl)
        Me.Panel1.Controls.Add(Me.cmdNachricht)
        Me.Panel1.Controls.Add(Me.chkAutoUpdate)
@@ -266,11 +281,15 @@ Partial Class uscntr_TSSitzungen
        '
        Me.timDisUpdateTimer.Interval = 60000
        '
-        'VerbindenMitAnydeskToolStripMenuItem
+        'chkWartung
        '
-        Me.VerbindenMitAnydeskToolStripMenuItem.Name = "VerbindenMitAnydeskToolStripMenuItem"
-        Me.VerbindenMitAnydeskToolStripMenuItem.Size = New System.Drawing.Size(224, 22)
-        Me.VerbindenMitAnydeskToolStripMenuItem.Text = "Verbinden mit Anydesk"
+        Me.chkWartung.AutoSize = True
+        Me.chkWartung.Location = New System.Drawing.Point(78, 11)
+        Me.chkWartung.Name = "chkWartung"
+        Me.chkWartung.Size = New System.Drawing.Size(67, 17)
+        Me.chkWartung.TabIndex = 14
+        Me.chkWartung.Text = "Wartung"
+        Me.chkWartung.UseVisualStyleBackColor = True
        '
        'uscntr_TSSitzungen
        '
@@ -315,4 +334,6 @@ Partial Class uscntr_TSSitzungen
    Friend WithEvents timDisUpdateTimer As Timer
    Friend WithEvents TeamVIDKopierenToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents VerbindenMitAnydeskToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents HostnameKopierenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents chkWartung As CheckBox
 End Class
--- a/Dokumentation/uscntr_TSSitzungen.vb
+++ b/Dokumentation/uscntr_TSSitzungen.vb
@@ -13,8 +13,22 @@
        Load2DGV()
    End Sub

+    Function checkwartung() As Boolean
+        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
+                Return True
+            Else
+                Return False
+            End If
+        End If
+    End Function

    Function Load2DGV() ' (Optional ByVal Client As Boolean = False)
+        chkWartung.Checked = checkwartung()
+
        If Client = False Then
            Dim ds As New DataSet
            cSQL.SQL2DS("SELECT * FROM TbL_TSSitzungen WHERE Name LIKE '" & ReturnOfTheWhere() & "' OR TSServer LIKE '" & ReturnOfTheWhere() & "' OR Company LIKE '" & ReturnOfTheWhere() & "' ORDER BY NAME", ds)
@@ -255,4 +269,31 @@
        Dim sitzung As String = Class1.DBNull2emptyString(dgvTSSitzungen.CurrentRow.Cells("TSServer").Value) & "\" & Name
        cExtProgramme.RunAnyDeskWithPassword(sitzung)
    End Sub
+
+    Private Sub HostnameKopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HostnameKopierenToolStripMenuItem.Click
+        Dim host As String = ""
+        If Client Then
+            host = Class1.DBNull2emptyString(dgvTSSitzungen.CurrentRow.Cells("ClientName").Value)
+        Else
+            host = Class1.DBNull2emptyString(dgvTSSitzungen.CurrentRow.Cells("TSServer").Value)
+        End If
+        Clipboard.SetText(host)
+    End Sub
+
+    Private Sub chkWartung_CheckedChanged(sender As Object, e As EventArgs) Handles chkWartung.CheckedChanged
+        Dim result As MsgBoxResult
+        If chkWartung.Checked Then
+            result = MsgBox("Hiermit werden alle Anmeldungen von ThinClients unterbunden. Sicher? ", MsgBoxStyle.YesNo Or MsgBoxStyle.Exclamation, "Warnung")
+        End If
+
+        If result = MsgBoxResult.No Then
+            chkWartung.Checked = False
+            Exit Sub
+        End If
+
+        Dim werte As New Dictionary(Of String, Object)
+        werte.Add("Aktiv", chkWartung.Checked)
+        cSQL.UpdateSQL_("TbL_Dienste", werte, "Name = 'Wartung'")
+        Load2DGV()
+    End Sub
 End Class