ThinClients Wartungs-Meldung eingebaut

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

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

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

Dokumentation/My 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

Dokumentation/My 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>

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.ContextMenuStrip3.SuspendLayout()
-        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.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

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>

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

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.chkWartung.AutoSize = True
-        Me.VerbindenMitAnydeskToolStripMenuItem.Size = New System.Drawing.Size(224, 22)
+        Me.chkWartung.Location = New System.Drawing.Point(78, 11)
-        Me.VerbindenMitAnydeskToolStripMenuItem.Text = "Verbinden mit Anydesk"
+        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

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