Nachrichten verbessert, Bugs beseitigt, ...

Dokumentation/uscntr_TSSitzungen.vb

@@ -1,6 +1,7 @@
 Public Class uscntr_TSSitzungen
 
     Private Sub uscntr_TSSitzungen_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Class1.EnableDoubleBuffered(dgvTSSitzungen)
         Load2DGV()
     End Sub
 
@@ -11,20 +12,21 @@
         With dgvTSSitzungen
             .RowHeadersVisible = False
             .DataSource = ds.Tables(0)
-            .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.DisplayedCells
-            .Columns("BenutzerAnmeldeName").Visible = False
-            '.Columns("BenutzerAnmeldeName").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+            .Columns("Domain").Visible = False
             .Columns("LastLogon").Visible = False
-            .Columns("LastLogon").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
-            '.Columns("LastReport").Width = 85
-            '.Columns("TeamviewerID").Width = 80
-            '.Columns("TSServer").Width = 60
+            .Columns("BenutzerAnmeldeName").Visible = False
+
+            .Columns("Name").Width = 110 'AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+            .Columns("TeamviewerID").Width = 80
+            .Columns("TSServer").Width = 55
+
+            .AutoResizeColumn(1)
         End With
         lblAnzahl.Text = dgvTSSitzungen.Rows.Count
         LoadTSServer()
     End Function
 
-    Private Sub dgvTSSitzungen_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvTSSitzungen.CellContentDoubleClick
+    Private Sub dgvTSSitzungen_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvTSSitzungen.CellDoubleClick 'dgvTSSitzungen.CellContentDoubleClick, 
 
         Dim sitzung As String = Class1.DBNull2emptyString(dgvTSSitzungen.CurrentRow.Cells("TeamviewerID").Value)
         StartTeamviewer(sitzung)
@@ -40,7 +42,6 @@
         End With
 
         teamviewer.Start()
-
     End Function
 
     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
@@ -61,10 +62,13 @@
 
     Private Function LoadTSServer()
         Dim ds As New DataSet
-        cSQL.SQL2DS("SELECT DISTINCT TSServer FROM TbL_TSSitzungen", ds)
 
+        cSQL.SQLCommand("DELETE FROM TbL_TSSitzungen where LastReport < (dateadd(HOUR, -1, getdate()))")
+        cSQL.SQL2DS("SELECT DISTINCT TSServer, Domain FROM TbL_TSSitzungen", ds)
+
+        Class1.TerminalServerList.Clear()
         For Each r As DataRow In ds.Tables(0).Rows
-            Class1.TerminalServerList.Add(r.Item(0).ToString)
+            Class1.TerminalServerList.Add(r.Item(0).ToString & "." & r.Item(1).ToString)
         Next
 
 
@@ -84,7 +88,7 @@
         Dim usrcntrl As New uscntr_SendMSG
         usrcntrl.recuser.Name = dgvTSSitzungen.CurrentRow.Cells("Name").Value.ToString
         usrcntrl.recuser.BenutzerAnmeldeName = dgvTSSitzungen.CurrentRow.Cells("BenutzerAnmeldeName").Value.ToString
-        usrcntrl.recuser.TSServer = dgvTSSitzungen.CurrentRow.Cells("TSServer").Value.ToString
+        usrcntrl.recuser.TSServer = dgvTSSitzungen.CurrentRow.Cells("TSServer").Value.ToString & "." & dgvTSSitzungen.CurrentRow.Cells("Domain").Value.ToString
         usrcntrl.Dock = DockStyle.Fill : send.PanMain.Controls.Add(usrcntrl)
         send.Show()
     End Sub
@@ -101,4 +105,9 @@
     Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
         TextBox1.Text = ""
     End Sub
+
+    Private Sub VerbindenMitTeamVToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerbindenMitTeamVToolStripMenuItem.Click
+        Dim sitzung As String = Class1.DBNull2emptyString(dgvTSSitzungen.CurrentRow.Cells("TeamviewerID").Value)
+        StartTeamviewer(sitzung)
+    End Sub
 End Class