TSSittzungen

Dokumentation/Classes/Class1.vb

@@ -21,8 +21,10 @@ Public Class Class1
     Public Shared DebugText As String = ""
     Public Shared GroupUsers As List(Of cBenutzer)
     Public Shared dtSuchergebnis As DataTable
+    Public Shared TeamviewerToken As String = "6920997-rtea7sZy35Ujw2Erm3OP"
 
     Public Shared HostList As New List(Of String)
+    Public Shared TerminalServerList As New List(Of String)
 
 
     Public Shared Sub EnableDoubleBuffered(ByVal dgv As DataGridView)
@@ -33,6 +35,7 @@ Public Class Class1
     End Sub
 
     Public Shared Function CheckDebug()
+        Dim Debugoverride As Boolean = True 'wenn True dann Override auf Produktiv!
         Dim Startparameter As String = ""
         Dim i As Integer
         For Each s As String In Environment.GetCommandLineArgs
@@ -45,15 +48,13 @@ Public Class Class1
             i += 1
         Next
 
-        If Main.sAppPath Like "*\bin\Debug" Or Startparameter = "debug" Then
+        If (Main.sAppPath Like "*\bin\Debug" Or Startparameter = "debug") And Debugoverride = False Then
             DebugMode = True
 
             Class1.DBConString = "Server=DEVELOPER.verag.ost.dmn\DEVSQL;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
             Class1.FilePath = "\\192.168.0.253\backup\temp_Sebastian\DokuTest"
         Else
-            'Class1.DBConString = "Server=192.168.0.94\SQLEXPRESS;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
             Class1.DBConString = "Server=buchhaltung.verag.ost.dmn\SQLEXPRESS;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
-            'Class1.FilePath = "\\192.168.0.90\f\EDV-Wartung\Dokumentation"
             Class1.FilePath = "\\DEVELOPER.verag.ost.dmn\f\EDV-Wartung\Dokumentation"
         End If
     End Function
@@ -131,6 +132,52 @@ Public Class Class1
         End Try
     End Function
 
+    Public Shared Function datatable_2_csv_export(dt As DataTable)
+        Dim savefiledialog As New SaveFileDialog
+        Dim firstin As String
+        Dim out As String
+        Dim in2 As String
+        Dim header As String
+
+        savefiledialog.Filter = "CSV files (*.csv)|*.CSV"
+        savefiledialog.InitialDirectory = "C:\Verag"
+        savefiledialog.ShowDialog()
+
+
+        Try
+            For r As Integer = 0 To dt.Rows.Count - 1
+                For c As Integer = 0 To dt.Columns.Count - 1
+                    'test &= r & c & vbCrLf
+                    Try
+                        'test &= Replace(quelldgv.Rows(r).Cells(c).Value.ToString, vbCrLf, "vbCrlLf")
+                        firstin = dt.Rows(r).Item(c).ToString
+                        firstin = Replace(firstin, ";", ",")
+                        'in2 = """" & firstin & """" & ";"
+                        in2 = firstin & ";"
+                        out &= Replace(in2, vbCrLf, "##vbCrLf##")
+                    Catch ex As Exception
+                        MsgBox(ex.Message)
+                        out &= "ooo"
+                    End Try
+
+                Next
+
+                out &= "nZ"
+            Next
+            For c As Integer = 0 To dt.Columns.Count - 1
+                header &= dt.Columns(c).ColumnName & ";"
+            Next
+            out = Replace(out, "nZ", vbCrLf)
+            'MsgBox(out)
+            Using sw As New IO.StreamWriter(savefiledialog.FileName)
+                sw.WriteLine(header)
+                sw.WriteLine(out)
+            End Using
+        Catch ex As Exception
+            MsgBox("datatable_2_csv_export: " & ex.Message)
+        End Try
+    End Function
+
     Public Shared Function hochkomma(textin As String)
         Dim textout As String = textin.Replace("'", "''")
         Return (textout)

Dokumentation/Classes/Ext_Programme.vb

@@ -43,11 +43,24 @@
         End Try
     End Function
 
-    Public Shared Function pingip(ip As String)
+    Public Shared Function pingip(ip As String, Optional ByVal Argument As String = "")
         Dim ping As New Process
         ping.StartInfo.FileName = "cmd.exe"
-        ping.StartInfo.Arguments = " /k ping " & ip
+        ping.StartInfo.Arguments = " /k ping " & ip & Argument
         ping.Start()
     End Function
 
+    Public Shared Function msgsend(argumente As String)
+        Try
+            Dim msg As New Process
+            System.IO.File.WriteAllBytes("msg.exe", My.Resources.msg)
+            msg.StartInfo.FileName = "msg.exe"
+            'msg.StartInfo.WorkingDirectory = "C:\Windows\System32\"
+            msg.StartInfo.Arguments = argumente
+            msg.Start()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Function
+
 End Class

Dokumentation/Classes/cBenutzer.vb

@@ -117,7 +117,7 @@ Public Class cBenutzer
 
     Function isDokuAdmin() As Boolean
         Dim ds As New DataSet
-        SQL.SQL2DS("select * from TbL_Berechtigungen where Benutzeranmeldename = '" & Me.BenutzeranmeldeName & "' AND Standort = 'DokuAdmin'", ds)
+        cSQL.SQL2DS("select * from TbL_Berechtigungen where Benutzeranmeldename = '" & Me.BenutzeranmeldeName & "' AND Standort = 'DokuAdmin'", ds)
         If ds.Tables(0).Rows.Count > 0 Then
             Return True
         Else

Dokumentation/Classes/cBerechtigungen.vb

@@ -23,7 +23,7 @@ Public Class cBerechtigungen
     Public Function getFromSQL() '(ip As String)
         Dim ds As New DataSet
         Dim test As String = ""
-        SQL.SQL2DS("SELECT * FROM TbL_Berechtigungen WHERE BENUTZERANMELDENAME = '" & Benutzeranmeldename & "' AND Standort = '" & Standort & "'", ds)
+        cSQL.SQL2DS("SELECT * FROM TbL_Berechtigungen WHERE BENUTZERANMELDENAME = '" & Benutzeranmeldename & "' AND Standort = '" & Standort & "'", ds)
         If ds.Tables(0).Rows.Count > 0 Then
             For Each c As DataColumn In ds.Tables(0).Columns
                 Dim propInfo As PropertyInfo = Me.GetType.GetProperty(c.ColumnName)
@@ -42,7 +42,7 @@ Public Class cBerechtigungen
 
     Function checkExist() '(ByVal ip As String)
         Dim ds As New DataSet
-        SQL.SQL2DS("SELECT * FROM TbL_Berechtigungen WHERE BENUTZERANMELDENAME = '" & Benutzeranmeldename & "' AND Standort = '" & Standort & "'", ds)
+        cSQL.SQL2DS("SELECT * FROM TbL_Berechtigungen WHERE BENUTZERANMELDENAME = '" & Benutzeranmeldename & "' AND Standort = '" & Standort & "'", ds)
         If ds.Tables(0).Rows.Count > 0 Then
             MeExist = True
             Return True
@@ -67,7 +67,7 @@ Public Class cBerechtigungen
                 End If
             Next
             update = update.Substring(0, update.Length - 1)
-            SQL.UpdateSQL("TbL_Berechtigungen", update, where)
+            cSQL.UpdateSQL("TbL_Berechtigungen", update, where)
         Else
             Me.ID = Guid.NewGuid().ToString("N")
             Dim Spalten As String = ""
@@ -83,7 +83,7 @@ Public Class cBerechtigungen
             Spalten = Spalten.Substring(0, Spalten.Length - 1)
             Werte = Werte.Substring(0, Werte.Length - 1)
 
-            SQL.InsertSQL("TbL_Berechtigungen", "(" & Spalten & ") VALUES (" & Werte & ")")
+            cSQL.InsertSQL("TbL_Berechtigungen", "(" & Spalten & ") VALUES (" & Werte & ")")
             MeExist = True
         End If
     End Function
@@ -92,7 +92,7 @@ Public Class cBerechtigungen
         Try
             Dim ToR As New List(Of cBerechtigungen) ' ToR -> Table of Rights *Badum Tss*
             Dim ds As New DataSet
-            SQL.SQL2DS("SELECT * FROM TbL_Berechtigungen WHERE BENUTZERANMELDENAME = '" & Benutzeranmeldename & "'", ds)
+            cSQL.SQL2DS("SELECT * FROM TbL_Berechtigungen WHERE BENUTZERANMELDENAME = '" & Benutzeranmeldename & "'", ds)
             If ds.Tables(0).Rows.Count > 0 Then
                 For Each row As DataRow In ds.Tables(0).Rows
                     Dim R As New cBerechtigungen
@@ -111,7 +111,7 @@ Public Class cBerechtigungen
 
     Public Shared Function BenutzerBerechtigungfuerStandort(ByVal Benutzer As String, ByVal Standort As String)
         Dim ds As New DataSet
-        SQL.SQL2DS("SELECT ZUGRIFF FROM TbL_Berechtigungen WHERE BENUTZERANMELDENAME = '" & Benutzer & "' AND Standort = '" & Standort & "'", ds)
+        cSQL.SQL2DS("SELECT ZUGRIFF FROM TbL_Berechtigungen WHERE BENUTZERANMELDENAME = '" & Benutzer & "' AND Standort = '" & Standort & "'", ds)
         If ds.Tables(0).Rows.Count > 0 Then
             Return ds.Tables(0).Rows(0).Item(0).ToString
         Else
@@ -122,7 +122,7 @@ Public Class cBerechtigungen
 
     Public Shared Function BenutzerBerechtigungfuerID(ByVal Benutzer As String, ByVal ID As String)
         Dim ds As New DataSet
-        SQL.SQL2DS("SELECT ZUGRIFF FROM TbL_Berechtigungen WHERE BENUTZERANMELDENAME = '" & Benutzer & "' AND ID = '" & ID & "'", ds)
+        cSQL.SQL2DS("SELECT ZUGRIFF FROM TbL_Berechtigungen WHERE BENUTZERANMELDENAME = '" & Benutzer & "' AND ID = '" & ID & "'", ds)
         If ds.Tables(0).Rows.Count > 0 Then
             Return ds.Tables(0).Rows(0).Item(0).ToString
         Else

Dokumentation/Classes/cEintrag.vb

@@ -33,7 +33,7 @@ Public Class cEintrag
         Dim ds As New DataSet
         Dim test As String = ""
         Try
-            SQL.SQL2DS("SELECT * FROM TbL_Allgemein WHERE ID = '" & Me.ID & "'", ds)
+            cSQL.SQL2DS("SELECT * FROM TbL_Allgemein WHERE ID = '" & Me.ID & "'", ds)
             If ds.Tables(0).Rows.Count > 0 Then
                 For Each c As DataColumn In ds.Tables(0).Columns
                     Dim propInfo As PropertyInfo = Me.GetType.GetProperty(c.ColumnName)
@@ -45,7 +45,7 @@ Public Class cEintrag
                 Next
             Else
                 ds.Clear()
-                SQL.SQL2DS("SELECT * FROM TbL_Allgemein WHERE Rubrik = '" & rubrik & "' AND Titel = '" & Titel & "'", ds)
+                cSQL.SQL2DS("SELECT * FROM TbL_Allgemein WHERE Rubrik = '" & rubrik & "' AND Titel = '" & Titel & "'", ds)
                 For Each c As DataColumn In ds.Tables(0).Columns
                     Dim propInfo As PropertyInfo = Me.GetType.GetProperty(c.ColumnName)
                     If propInfo IsNot Nothing Then
@@ -78,7 +78,7 @@ Public Class cEintrag
             Spalten = Spalten.Substring(0, Spalten.Length - 1)
             Werte = Werte.Substring(0, Werte.Length - 1)
 
-            SQL.InsertSQL("TbL_Allgemein", "(" & Spalten & ") VALUES (" & Werte & ")")
+            cSQL.InsertSQL("TbL_Allgemein", "(" & Spalten & ") VALUES (" & Werte & ")")
         ElseIf checkExist() And NewID = True Then       ''----------------------------------------bestehender Eintrag ohne ID
             Dim UpdateString As String = ""
             Dim WhereString As String = ""
@@ -90,7 +90,7 @@ Public Class cEintrag
             Next
             UpdateString = UpdateString.Substring(0, UpdateString.Length - 1) 'wg. ','
 
-            SQL.UpdateSQL("TbL_Allgemein", UpdateString, "Rubrik = '" & rubrik & "' AND Titel = '" & Titel & "'")
+            cSQL.UpdateSQL("TbL_Allgemein", UpdateString, "Rubrik = '" & rubrik & "' AND Titel = '" & Titel & "'")
             NewID = False
         ElseIf checkExist() And NewID = False Then      ''----------------------------------------bestehender Eintrag mit bestehender ID
             Dim UpdateString As String = ""
@@ -103,19 +103,19 @@ Public Class cEintrag
             Next
             UpdateString = UpdateString.Substring(0, UpdateString.Length - 1) 'wg. ','
 
-            SQL.UpdateSQL("TbL_Allgemein", UpdateString, "ID = '" & ID & "'")
+            cSQL.UpdateSQL("TbL_Allgemein", UpdateString, "ID = '" & ID & "'")
 
         End If
     End Function
 
     Function checkExist() '(ByVal ip As String)
         Dim ds As New DataSet
-        SQL.SQL2DS("SELECT * FROM TbL_Allgemein WHERE ID = '" & Me.ID & "'", ds)
+        cSQL.SQL2DS("SELECT * FROM TbL_Allgemein WHERE ID = '" & Me.ID & "'", ds)
         If ds.Tables(0).Rows.Count > 0 Then
             Return True
         Else
             ds.Clear()
-            SQL.SQL2DS("SELECT * FROM TbL_Allgemein WHERE Rubrik = '" & rubrik & "' AND Titel = '" & Titel & "'", ds)
+            cSQL.SQL2DS("SELECT * FROM TbL_Allgemein WHERE Rubrik = '" & rubrik & "' AND Titel = '" & Titel & "'", ds)
             If ds.Tables(0).Rows.Count > 0 Then
                 Return True
             Else

Dokumentation/Classes/cFirewallEntry.vb

@@ -46,7 +46,7 @@ Public Class cFirewallEntry
   From [Doku].[dbo].[TbL_FirewallRules] where [fwr_hostip] = '" & HostIP & "'
 ORDER BY [fwr_in]"
 
-        SQL.SQL2DS(selector, ds)
+        cSQL.SQL2DS(selector, ds)
 
     End Function
 
@@ -86,13 +86,13 @@ ORDER BY [fwr_in]"
     Public Function insertFirewallEntry(ByRef entry As cFirewallEntry)
         Dim insert As String
         getInsertCmd(insert)
-        SQL.InsertSQL("TbL_FirewallRules", insert)
+        cSQL.InsertSQL("TbL_FirewallRules", insert)
     End Function
 
     Public Function updateFirewallEntry(ByRef entry As cFirewallEntry)
         Dim update, where As String
         getUpdateCmd(update, where)
-        SQL.UpdateSQL("TbL_FirewallRules", update, where)
+        cSQL.UpdateSQL("TbL_FirewallRules", update, where)
         'MsgBox(update & where)
 
     End Function

Dokumentation/Classes/cHost.vb

@@ -119,14 +119,14 @@ Public Class cHost
   From [Doku].[dbo].[TbL_FirewallRules] where [fwr_hostip] = '" & HostIP & "'
 ORDER BY [fwr_in]"
 
-        SQL.SQL2DS(selector, ds)
+        cSQL.SQL2DS(selector, ds)
 
     End Function
 
     Public Function gethost(ip As String)
         Dim ds As New DataSet
         Dim test As String = ""
-        SQL.SQL2DS("select * from TbL_Netzwerkclients where IPAdresse = '" & ip & "'", ds)
+        cSQL.SQL2DS("select * from TbL_Netzwerkclients where IPAdresse = '" & ip & "'", ds)
         For Each c As DataColumn In ds.Tables(0).Columns
             Dim propInfo As PropertyInfo = Me.GetType.GetProperty(c.ColumnName)
             If propInfo IsNot Nothing Then
@@ -194,15 +194,15 @@ ORDER BY [fwr_in]"
     Public Function updateHostEntry(ByRef entry As cHost)
         Dim update, where, slaveupdate, slavewhere As String
         getUpdateCmd(update, where, slaveupdate, slavewhere, Me.Linked)
-        SQL.UpdateSQL("TbL_Netzwerkclients", update, where)
+        cSQL.UpdateSQL("TbL_Netzwerkclients", update, where)
-        SQL.UpdateSQL("TbL_Netzwerkclients", slaveupdate, slavewhere)
+        cSQL.UpdateSQL("TbL_Netzwerkclients", slaveupdate, slavewhere)
         'MsgBox(update & where)
 
     End Function
 
     Function checkIfIPExist(ByVal ip As String)
         Dim ds As New DataSet
-        SQL.SQL2DS("SELECT * FROM TbL_Netzwerkclients WHERE IPADRESSE = '" & ip & "'", ds)
+        cSQL.SQL2DS("SELECT * FROM TbL_Netzwerkclients WHERE IPADRESSE = '" & ip & "'", ds)
         If ds.Tables(0).Rows.Count > 0 Then
             Return True
         Else
@@ -215,7 +215,7 @@ ORDER BY [fwr_in]"
             If MessageBox.Show("Eintrag " & Me.FQDN & " wirklich löschen?", "Hosteintrag löschen", MessageBoxButtons.OKCancel) = DialogResult.OK Then
                 Dim ds As New DataSet
                 Dim Slaves As String = ""
-                SQL.SQL2DS("SELECT * FROM TbL_Netzwerkclients WHERE LinkedWith ='" & Me.IPAdresse & "'", ds)
+                cSQL.SQL2DS("SELECT * FROM TbL_Netzwerkclients WHERE LinkedWith ='" & Me.IPAdresse & "'", ds)
 
                 If ds.Tables(0).Rows.Count > 0 Then
                     For Each r As DataRow In ds.Tables(0).Rows
@@ -225,18 +225,18 @@ ORDER BY [fwr_in]"
                     If MessageBox.Show("
 Achtung! " & vbCrLf & "Der Eintrag " & Me.FQDN & " ist ein MasterEintrag für die IP Adressen " & vbCrLf & Slaves & "
 Diese Einträge werden ebenfalls gelöscht. Fortfahren?", "Hosteintrag löschen", MessageBoxButtons.OKCancel) = DialogResult.OK Then
-                        SQL.DeleteSQL("TbL_Netzwerkclients", "LinkedWith = '" & Me.IPAdresse & "'")
+                        cSQL.DeleteSQL("TbL_Netzwerkclients", "LinkedWith = '" & Me.IPAdresse & "'")
                     ElseIf DialogResult.Cancel Then
                         Exit Function
                     End If
                 End If
-                SQL.DeleteSQL("TbL_Netzwerkclients", "IPAdresse = '" & Me.IPAdresse & "'")
+                cSQL.DeleteSQL("TbL_Netzwerkclients", "IPAdresse = '" & Me.IPAdresse & "'")
                 Class1.RefillNW(Me.Netzwerk)
             ElseIf DialogResult.Cancel Then
                 Exit Function
             End If
         Else
-            SQL.DeleteSQL("TbL_Netzwerkclients", "IPAdresse = '" & Me.IPAdresse & "'")
+            cSQL.DeleteSQL("TbL_Netzwerkclients", "IPAdresse = '" & Me.IPAdresse & "'")
             Class1.RefillNW(Me.Netzwerk)
         End If
 
@@ -251,7 +251,7 @@ Diese Einträge werden ebenfalls gelöscht. Fortfahren?", "Hosteintrag löschen"
 
         'Get Slaves of LinkedMaster 
         Dim ds As New DataSet
-        SQL.SQL2DS("SELECT * FROM TbL_Netzwerkclients WHERE LinkedWith = '" & Me.IPAdresse & "'", ds)
+        cSQL.SQL2DS("SELECT * FROM TbL_Netzwerkclients WHERE LinkedWith = '" & Me.IPAdresse & "'", ds)
 
         'Ziel prüfen und gegebenenfalls anzeigen
         If (
@@ -269,7 +269,7 @@ Diese Einträge werden ebenfalls gelöscht. Fortfahren?", "Hosteintrag löschen"
 
         'If Host = LinkedMaster then Update Slaves
         If ds.Tables(0).Rows.Count > 0 Then
-            SQL.UpdateSQL("TbL_Netzwerkclients", "LinkedWith = '" & newip & "'", "LinkedWith = '" & oldip & "'")
+            cSQL.UpdateSQL("TbL_Netzwerkclients", "LinkedWith = '" & newip & "'", "LinkedWith = '" & oldip & "'")
         End If
 
         newhost.FQDN = Me.FQDN
@@ -291,7 +291,7 @@ Diese Einträge werden ebenfalls gelöscht. Fortfahren?", "Hosteintrag löschen"
 
         Dim update, where As String
         getUpdateCmd(update, where, "", "", newhost.Linked, newhost)
-        SQL.UpdateSQL("TbL_Netzwerkclients", update, where)
+        cSQL.UpdateSQL("TbL_Netzwerkclients", update, where)
 
         cFolder.FolderMove(Me.NWSTANDORT & "_" & Me.NETNAME, Me.HOST, newhost.NWSTANDORT & "_" & newhost.NETNAME, newhost.HOST)
 
@@ -302,7 +302,7 @@ Diese Einträge werden ebenfalls gelöscht. Fortfahren?", "Hosteintrag löschen"
 
     Public Shared Function getSlaves(ByVal ip As String, ByRef ds As DataSet)
 
-        SQL.SQL2DS("SELECT IPAdresse , (NWSTANDORT + ' ' +  NETNAME) as Netzwerk FROM TbL_Netzwerkclients WHERE LinkedWith = '" & ip & "'", ds)
+        cSQL.SQL2DS("SELECT IPAdresse , (NWSTANDORT + ' ' +  NETNAME) as Netzwerk FROM TbL_Netzwerkclients WHERE LinkedWith = '" & ip & "'", ds)
 
     End Function
 

Dokumentation/Classes/cNetzwerk.vb

@@ -42,7 +42,7 @@ Public Class cNetzwerk
     Public Function getNetzwerk(nwstandort_ As String, netname_ As String)
         Dim ds As New DataSet
         '    Dim test As String = ""
-        SQL.SQL2DS("select * from TbL_Netzwerke where Netzwerkname = '" & nwstandort_ & "_" & netname_ & "'", ds)
+        cSQL.SQL2DS("select * from TbL_Netzwerke where Netzwerkname = '" & nwstandort_ & "_" & netname_ & "'", ds)
         For Each c As DataColumn In ds.Tables(0).Columns
             Dim propInfo As PropertyInfo = Me.GetType.GetProperty(c.ColumnName)
             If propInfo IsNot Nothing Then

Dokumentation/Classes/cSQL.vb

@@ -1,6 +1,6 @@
 Imports System.Data.SqlClient
 
-Public Class SQL
+Public Class cSQL
 
     Public Shared Sub SQL2DS(ByRef selector As String, ByRef ds As DataSet)
         Dim con As New SqlConnection

Dokumentation/Classes/cTSUser.vb

@@ -0,0 +1,17 @@
+Public Class cTSUser
+
+    Property BenutzerAnmeldeName As String = ""
+    Property Name As String = ""
+    Property TeamviewerID As Integer = Nothing
+    Property LastLogonTime As DateTime = Nothing
+    Property LastReport As DateTime = Nothing
+    Property TSServer As String = ""
+    Property NameKurz As String = ""
+
+
+    Public Function genNameKurz()
+        Dim i As Integer = Me.BenutzerAnmeldeName.IndexOf("\")
+        Me.NameKurz = Me.BenutzerAnmeldeName.Substring(i + 1, Me.BenutzerAnmeldeName.Length - (i + 1))
+    End Function
+
+End Class

Dokumentation/Dokumentation.vbproj

@@ -155,12 +155,19 @@
     </Compile>
     <Compile Include="Classes\cEintrag.vb" />
     <Compile Include="Classes\cNetzwerk.vb" />
+    <Compile Include="Classes\cTSUser.vb" />
     <Compile Include="frmAllgemeinEintrag.Designer.vb">
       <DependentUpon>frmAllgemeinEintrag.vb</DependentUpon>
     </Compile>
     <Compile Include="frmAllgemeinEintrag.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="uscntr_TSSitzungen.Designer.vb">
+      <DependentUpon>uscntr_TSSitzungen.vb</DependentUpon>
+    </Compile>
+    <Compile Include="uscntr_TSSitzungen.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
     <Compile Include="uscntr_FunktionAdmin.Designer.vb">
       <DependentUpon>uscntr_FunktionAdmin.vb</DependentUpon>
     </Compile>
@@ -181,7 +188,7 @@
     <Compile Include="Classes\cFirewallEntry.vb" />
     <Compile Include="Classes\cFolder.vb" />
     <Compile Include="Classes\cHost.vb" />
-    <Compile Include="Classes\SQL.vb" />
+    <Compile Include="Classes\cSQL.vb" />
     <Compile Include="Drucken\frmPrint.Designer.vb">
       <DependentUpon>frmPrint.vb</DependentUpon>
     </Compile>
@@ -301,6 +308,12 @@
     <Compile Include="uscntr_Firewalleinstellungen.vb">
       <SubType>UserControl</SubType>
     </Compile>
+    <Compile Include="uscntr_SendMSG.Designer.vb">
+      <DependentUpon>uscntr_SendMSG.vb</DependentUpon>
+    </Compile>
+    <Compile Include="uscntr_SendMSG.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
     <Compile Include="uscntr_Slaves.Designer.vb">
       <DependentUpon>uscntr_Slaves.vb</DependentUpon>
     </Compile>
@@ -313,6 +326,12 @@
     <Compile Include="uscntr_INFO.vb">
       <SubType>UserControl</SubType>
     </Compile>
+    <Compile Include="uscntr_TSServer.Designer.vb">
+      <DependentUpon>uscntr_TSServer.vb</DependentUpon>
+    </Compile>
+    <Compile Include="uscntr_TSServer.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
   </ItemGroup>
   <ItemGroup>
     <EmbeddedResource Include="Administration\NetzwerkHinzu.resx">
@@ -330,6 +349,9 @@
     <EmbeddedResource Include="frmAllgemeinEintrag.resx">
       <DependentUpon>frmAllgemeinEintrag.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="uscntr_TSSitzungen.resx">
+      <DependentUpon>uscntr_TSSitzungen.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="uscntr_FunktionAdmin.resx">
       <DependentUpon>uscntr_FunktionAdmin.vb</DependentUpon>
     </EmbeddedResource>
@@ -394,9 +416,15 @@
     <EmbeddedResource Include="uscntr_INFO.resx">
       <DependentUpon>uscntr_INFO.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="uscntr_SendMSG.resx">
+      <DependentUpon>uscntr_SendMSG.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="uscntr_Slaves.resx">
       <DependentUpon>uscntr_Slaves.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="uscntr_TSServer.resx">
+      <DependentUpon>uscntr_TSServer.vb</DependentUpon>
+    </EmbeddedResource>
   </ItemGroup>
   <ItemGroup>
     <None Include="My Project\app.manifest" />
@@ -420,9 +448,12 @@
     <None Include="Resources\Folder20.bmp" />
     <None Include="Resources\Bearbeiten20.bmp" />
     <None Include="Resources\Netzwerk20.bmp" />
+    <None Include="Resources\mail20.png" />
+    <None Include="Resources\msg.exe" />
     <Content Include="Resources\pdf512.png" />
     <None Include="Resources\Print.png" />
     <None Include="Resources\Print20x20.png" />
+    <None Include="Resources\Update.png" />
     <Content Include="rj45_ICO.ico" />
   </ItemGroup>
   <ItemGroup>

Dokumentation/Login/Login.vb

@@ -207,10 +207,12 @@ Public Class Login
                 Class1.LoggedOnUserisAdmin = True
                 main.BenutzerToolStripMenuItem.Enabled = True
                 main.NetzwerkeToolStripMenuItem.Enabled = True
+                main.AllesSichernCSVToolStripMenuItem.Enabled = True
                 Exit For
             Else
                 main.BenutzerToolStripMenuItem.Enabled = False
                 main.NetzwerkeToolStripMenuItem.Enabled = False
+                main.AllesSichernCSVToolStripMenuItem.Enabled = False
             End If
         Next
 

Dokumentation/Main.Designer.vb

@@ -50,12 +50,14 @@ Partial Class Main
         Me.ExportToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ImportToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.BenutzerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.AllesSichernCSVToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
         Me.UpdateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ExitToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItemINFO = New System.Windows.Forms.ToolStripMenuItem()
         Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.chkTSSitzungen = New System.Windows.Forms.CheckBox()
         Me.lblCount = New System.Windows.Forms.Label()
         Me.btnNeu = New System.Windows.Forms.Button()
         Me.ChkDHCPClients = New System.Windows.Forms.CheckBox()
@@ -90,8 +92,9 @@ Partial Class Main
         Me.ToolsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.PuttyToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.PingToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
+        Me.PingtToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.PanTools = New System.Windows.Forms.Panel()
+        Me.CmdPintT = New System.Windows.Forms.Button()
         Me.btnTest3 = New System.Windows.Forms.Button()
         Me.LblDebugInfo = New System.Windows.Forms.Label()
         Me.CmdPing = New System.Windows.Forms.Button()
@@ -99,6 +102,7 @@ Partial Class Main
         Me.TimerUhrzeit = New System.Windows.Forms.Timer(Me.components)
         Me.TimerUpdate = New System.Windows.Forms.Timer(Me.components)
         Me.TimerWillkommen = New System.Windows.Forms.Timer(Me.components)
+        Me.panTSSitzungen = New System.Windows.Forms.Panel()
         Me.Panel2.SuspendLayout()
         Me.Panel4.SuspendLayout()
         Me.PanType.SuspendLayout()
@@ -122,7 +126,7 @@ Partial Class Main
         Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
         Me.Panel2.Location = New System.Drawing.Point(0, 0)
         Me.Panel2.Name = "Panel2"
-        Me.Panel2.Size = New System.Drawing.Size(1477, 130)
+        Me.Panel2.Size = New System.Drawing.Size(1581, 130)
         Me.Panel2.TabIndex = 1
         '
         'Panel4
@@ -141,7 +145,7 @@ Partial Class Main
         Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill
         Me.Panel4.Location = New System.Drawing.Point(272, 24)
         Me.Panel4.Name = "Panel4"
-        Me.Panel4.Size = New System.Drawing.Size(1205, 106)
+        Me.Panel4.Size = New System.Drawing.Size(1309, 106)
         Me.Panel4.TabIndex = 14
         '
         'LblDEBUGMODE
@@ -159,7 +163,7 @@ Partial Class Main
         '
         Me.LblVersion.Anchor = System.Windows.Forms.AnchorStyles.Right
         Me.LblVersion.AutoSize = True
-        Me.LblVersion.Location = New System.Drawing.Point(858, 81)
+        Me.LblVersion.Location = New System.Drawing.Point(962, 81)
         Me.LblVersion.Name = "LblVersion"
         Me.LblVersion.Size = New System.Drawing.Size(42, 13)
         Me.LblVersion.TabIndex = 17
@@ -180,7 +184,7 @@ Partial Class Main
         Me.CmdSucheReset.BackColor = System.Drawing.SystemColors.ControlLightLight
         Me.CmdSucheReset.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
         Me.CmdSucheReset.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.CmdSucheReset.Location = New System.Drawing.Point(709, 71)
+        Me.CmdSucheReset.Location = New System.Drawing.Point(813, 71)
         Me.CmdSucheReset.Name = "CmdSucheReset"
         Me.CmdSucheReset.Size = New System.Drawing.Size(121, 23)
         Me.CmdSucheReset.TabIndex = 15
@@ -191,7 +195,7 @@ Partial Class Main
         '
         Me.TxtSuche.Anchor = System.Windows.Forms.AnchorStyles.Right
         Me.TxtSuche.BackColor = System.Drawing.SystemColors.ControlLightLight
-        Me.TxtSuche.Location = New System.Drawing.Point(523, 23)
+        Me.TxtSuche.Location = New System.Drawing.Point(627, 23)
         Me.TxtSuche.Name = "TxtSuche"
         Me.TxtSuche.Size = New System.Drawing.Size(138, 20)
         Me.TxtSuche.TabIndex = 3
@@ -200,9 +204,10 @@ Partial Class Main
         '
         Me.Label1.Anchor = System.Windows.Forms.AnchorStyles.Right
         Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(476, 26)
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(580, 26)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(41, 13)
+        Me.Label1.Size = New System.Drawing.Size(47, 13)
         Me.Label1.TabIndex = 4
         Me.Label1.Text = "Suche:"
         '
@@ -211,7 +216,7 @@ Partial Class Main
         Me.PanType.Anchor = System.Windows.Forms.AnchorStyles.Right
         Me.PanType.Controls.Add(Me.LstType)
         Me.PanType.Controls.Add(Me.Label2)
-        Me.PanType.Location = New System.Drawing.Point(667, 5)
+        Me.PanType.Location = New System.Drawing.Point(771, 5)
         Me.PanType.Name = "PanType"
         Me.PanType.Size = New System.Drawing.Size(183, 41)
         Me.PanType.TabIndex = 12
@@ -228,9 +233,10 @@ Partial Class Main
         'Label2
         '
         Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(11, 21)
+        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label2.Location = New System.Drawing.Point(3, 21)
         Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(34, 13)
+        Me.Label2.Size = New System.Drawing.Size(39, 13)
         Me.Label2.TabIndex = 9
         Me.Label2.Text = "Type:"
         '
@@ -238,7 +244,7 @@ Partial Class Main
         '
         Me.PictureBox1.Anchor = System.Windows.Forms.AnchorStyles.Right
         Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
-        Me.PictureBox1.Location = New System.Drawing.Point(861, 2)
+        Me.PictureBox1.Location = New System.Drawing.Point(965, 2)
         Me.PictureBox1.Name = "PictureBox1"
         Me.PictureBox1.Size = New System.Drawing.Size(333, 67)
         Me.PictureBox1.TabIndex = 1
@@ -250,7 +256,7 @@ Partial Class Main
         Me.PanSuche.Controls.Add(Me.RadGlobal)
         Me.PanSuche.Controls.Add(Me.RadNurNetzwerk)
         Me.PanSuche.Controls.Add(Me.RadStandort)
-        Me.PanSuche.Location = New System.Drawing.Point(523, 49)
+        Me.PanSuche.Location = New System.Drawing.Point(627, 49)
         Me.PanSuche.Name = "PanSuche"
         Me.PanSuche.Size = New System.Drawing.Size(314, 31)
         Me.PanSuche.TabIndex = 11
@@ -290,7 +296,7 @@ Partial Class Main
         'LblUhrzeit
         '
         Me.LblUhrzeit.Anchor = System.Windows.Forms.AnchorStyles.Left
-        Me.LblUhrzeit.Location = New System.Drawing.Point(946, 81)
+        Me.LblUhrzeit.Location = New System.Drawing.Point(1051, 81)
         Me.LblUhrzeit.Name = "LblUhrzeit"
         Me.LblUhrzeit.Size = New System.Drawing.Size(235, 13)
         Me.LblUhrzeit.TabIndex = 7
@@ -322,13 +328,13 @@ Partial Class Main
         Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.ToolStripMenuItem2, Me.ToolStripMenuItemINFO})
         Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
         Me.MenuStrip1.Name = "MenuStrip1"
-        Me.MenuStrip1.Size = New System.Drawing.Size(1477, 24)
+        Me.MenuStrip1.Size = New System.Drawing.Size(1581, 24)
         Me.MenuStrip1.TabIndex = 2
         Me.MenuStrip1.Text = "MenuStrip1"
         '
         'ToolStripMenuItem1
         '
-        Me.ToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NetzwerkeToolStripMenuItem, Me.AnsichtDruckenToolStripMenuItem, Me.ExportToolStripMenuItem, Me.ImportToolStripMenuItem, Me.BenutzerToolStripMenuItem, Me.ToolStripSeparator1, Me.UpdateToolStripMenuItem, Me.ExitToolStripMenuItem})
+        Me.ToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NetzwerkeToolStripMenuItem, Me.AnsichtDruckenToolStripMenuItem, Me.ExportToolStripMenuItem, Me.ImportToolStripMenuItem, Me.BenutzerToolStripMenuItem, Me.AllesSichernCSVToolStripMenuItem, Me.ToolStripSeparator1, Me.UpdateToolStripMenuItem, Me.ExitToolStripMenuItem})
         Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
         Me.ToolStripMenuItem1.Size = New System.Drawing.Size(50, 20)
         Me.ToolStripMenuItem1.Text = "Extras"
@@ -363,6 +369,12 @@ Partial Class Main
         Me.BenutzerToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
         Me.BenutzerToolStripMenuItem.Text = "Benutzer"
         '
+        'AllesSichernCSVToolStripMenuItem
+        '
+        Me.AllesSichernCSVToolStripMenuItem.Name = "AllesSichernCSVToolStripMenuItem"
+        Me.AllesSichernCSVToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
+        Me.AllesSichernCSVToolStripMenuItem.Text = "Alles Sichern (CSV)"
+        '
         'ToolStripSeparator1
         '
         Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
@@ -395,6 +407,7 @@ Partial Class Main
         'Panel3
         '
         Me.Panel3.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
+        Me.Panel3.Controls.Add(Me.chkTSSitzungen)
         Me.Panel3.Controls.Add(Me.lblCount)
         Me.Panel3.Controls.Add(Me.btnNeu)
         Me.Panel3.Controls.Add(Me.ChkDHCPClients)
@@ -412,13 +425,23 @@ Partial Class Main
         Me.Panel3.Dock = System.Windows.Forms.DockStyle.Left
         Me.Panel3.Location = New System.Drawing.Point(0, 130)
         Me.Panel3.Name = "Panel3"
-        Me.Panel3.Size = New System.Drawing.Size(200, 771)
+        Me.Panel3.Size = New System.Drawing.Size(200, 790)
         Me.Panel3.TabIndex = 2
         '
+        'chkTSSitzungen
+        '
+        Me.chkTSSitzungen.AutoSize = True
+        Me.chkTSSitzungen.Location = New System.Drawing.Point(25, 680)
+        Me.chkTSSitzungen.Name = "chkTSSitzungen"
+        Me.chkTSSitzungen.Size = New System.Drawing.Size(157, 17)
+        Me.chkTSSitzungen.TabIndex = 19
+        Me.chkTSSitzungen.Text = "Terminalsitzungen anzeigen"
+        Me.chkTSSitzungen.UseVisualStyleBackColor = True
+        '
         'lblCount
         '
         Me.lblCount.AutoSize = True
-        Me.lblCount.Location = New System.Drawing.Point(13, 746)
+        Me.lblCount.Location = New System.Drawing.Point(12, 768)
         Me.lblCount.Name = "lblCount"
         Me.lblCount.Size = New System.Drawing.Size(45, 13)
         Me.lblCount.TabIndex = 18
@@ -443,7 +466,7 @@ Partial Class Main
         Me.ChkDHCPClients.AutoSize = True
         Me.ChkDHCPClients.Checked = True
         Me.ChkDHCPClients.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.ChkDHCPClients.Location = New System.Drawing.Point(25, 651)
+        Me.ChkDHCPClients.Location = New System.Drawing.Point(25, 628)
         Me.ChkDHCPClients.Name = "ChkDHCPClients"
         Me.ChkDHCPClients.Size = New System.Drawing.Size(136, 17)
         Me.ChkDHCPClients.TabIndex = 16
@@ -453,7 +476,7 @@ Partial Class Main
         'ChkFreieHosts
         '
         Me.ChkFreieHosts.AutoSize = True
-        Me.ChkFreieHosts.Location = New System.Drawing.Point(25, 628)
+        Me.ChkFreieHosts.Location = New System.Drawing.Point(25, 605)
         Me.ChkFreieHosts.Name = "ChkFreieHosts"
         Me.ChkFreieHosts.Size = New System.Drawing.Size(122, 17)
         Me.ChkFreieHosts.TabIndex = 15
@@ -465,7 +488,7 @@ Partial Class Main
         Me.ChkKompAnsicht.AutoSize = True
         Me.ChkKompAnsicht.Checked = True
         Me.ChkKompAnsicht.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.ChkKompAnsicht.Location = New System.Drawing.Point(25, 605)
+        Me.ChkKompAnsicht.Location = New System.Drawing.Point(25, 582)
         Me.ChkKompAnsicht.Name = "ChkKompAnsicht"
         Me.ChkKompAnsicht.Size = New System.Drawing.Size(124, 17)
         Me.ChkKompAnsicht.TabIndex = 14
@@ -549,7 +572,7 @@ Partial Class Main
         'ChkTools
         '
         Me.ChkTools.AutoSize = True
-        Me.ChkTools.Location = New System.Drawing.Point(25, 709)
+        Me.ChkTools.Location = New System.Drawing.Point(25, 726)
         Me.ChkTools.Name = "ChkTools"
         Me.ChkTools.Size = New System.Drawing.Size(107, 17)
         Me.ChkTools.TabIndex = 10
@@ -573,7 +596,7 @@ Partial Class Main
         'ChKZugangsdaten
         '
         Me.ChKZugangsdaten.AutoSize = True
-        Me.ChKZugangsdaten.Location = New System.Drawing.Point(25, 687)
+        Me.ChKZugangsdaten.Location = New System.Drawing.Point(25, 703)
         Me.ChKZugangsdaten.Name = "ChKZugangsdaten"
         Me.ChKZugangsdaten.Size = New System.Drawing.Size(141, 17)
         Me.ChKZugangsdaten.TabIndex = 4
@@ -601,7 +624,7 @@ Partial Class Main
         'CMdTest2
         '
         Me.CMdTest2.Dock = System.Windows.Forms.DockStyle.Right
-        Me.CMdTest2.Location = New System.Drawing.Point(1202, 0)
+        Me.CMdTest2.Location = New System.Drawing.Point(941, 0)
         Me.CMdTest2.Name = "CMdTest2"
         Me.CMdTest2.Size = New System.Drawing.Size(75, 100)
         Me.CMdTest2.TabIndex = 3
@@ -611,7 +634,7 @@ Partial Class Main
         'CmdTest
         '
         Me.CmdTest.Dock = System.Windows.Forms.DockStyle.Right
-        Me.CmdTest.Location = New System.Drawing.Point(1127, 0)
+        Me.CmdTest.Location = New System.Drawing.Point(866, 0)
         Me.CmdTest.Name = "CmdTest"
         Me.CmdTest.Size = New System.Drawing.Size(75, 100)
         Me.CmdTest.TabIndex = 2
@@ -641,7 +664,7 @@ Partial Class Main
         Me.DgVMain.Name = "DgVMain"
         Me.DgVMain.ReadOnly = True
         Me.DgVMain.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.DgVMain.Size = New System.Drawing.Size(1277, 671)
+        Me.DgVMain.Size = New System.Drawing.Size(1016, 690)
         Me.DgVMain.TabIndex = 3
         '
         'DGVMainContext
@@ -710,7 +733,7 @@ Partial Class Main
         '
         'ToolsToolStripMenuItem
         '
-        Me.ToolsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PuttyToolStripMenuItem, Me.PingToolStripMenuItem, Me.ToolStripSeparator4})
+        Me.ToolsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PuttyToolStripMenuItem, Me.PingToolStripMenuItem, Me.PingtToolStripMenuItem})
         Me.ToolsToolStripMenuItem.Name = "ToolsToolStripMenuItem"
         Me.ToolsToolStripMenuItem.Size = New System.Drawing.Size(229, 22)
         Me.ToolsToolStripMenuItem.Text = "Tools"
@@ -718,23 +741,25 @@ Partial Class Main
         'PuttyToolStripMenuItem
         '
         Me.PuttyToolStripMenuItem.Name = "PuttyToolStripMenuItem"
-        Me.PuttyToolStripMenuItem.Size = New System.Drawing.Size(102, 22)
+        Me.PuttyToolStripMenuItem.Size = New System.Drawing.Size(110, 22)
         Me.PuttyToolStripMenuItem.Text = "Putty"
         '
         'PingToolStripMenuItem
         '
         Me.PingToolStripMenuItem.Name = "PingToolStripMenuItem"
-        Me.PingToolStripMenuItem.Size = New System.Drawing.Size(102, 22)
+        Me.PingToolStripMenuItem.Size = New System.Drawing.Size(110, 22)
         Me.PingToolStripMenuItem.Text = "Ping"
         '
-        'ToolStripSeparator4
+        'PingtToolStripMenuItem
         '
-        Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
+        Me.PingtToolStripMenuItem.Name = "PingtToolStripMenuItem"
-        Me.ToolStripSeparator4.Size = New System.Drawing.Size(99, 6)
+        Me.PingtToolStripMenuItem.Size = New System.Drawing.Size(110, 22)
+        Me.PingtToolStripMenuItem.Text = "Ping -t"
         '
         'PanTools
         '
         Me.PanTools.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
+        Me.PanTools.Controls.Add(Me.CmdPintT)
         Me.PanTools.Controls.Add(Me.btnTest3)
         Me.PanTools.Controls.Add(Me.LblDebugInfo)
         Me.PanTools.Controls.Add(Me.CmdPing)
@@ -742,16 +767,28 @@ Partial Class Main
         Me.PanTools.Controls.Add(Me.CmdTest)
         Me.PanTools.Controls.Add(Me.CMdTest2)
         Me.PanTools.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.PanTools.Location = New System.Drawing.Point(200, 801)
+        Me.PanTools.Location = New System.Drawing.Point(200, 820)
         Me.PanTools.Name = "PanTools"
-        Me.PanTools.Size = New System.Drawing.Size(1277, 100)
+        Me.PanTools.Size = New System.Drawing.Size(1016, 100)
         Me.PanTools.TabIndex = 4
         Me.PanTools.Visible = False
         '
+        'CmdPintT
+        '
+        Me.CmdPintT.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.CmdPintT.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
+        Me.CmdPintT.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.CmdPintT.Location = New System.Drawing.Point(183, 36)
+        Me.CmdPintT.Name = "CmdPintT"
+        Me.CmdPintT.Size = New System.Drawing.Size(151, 23)
+        Me.CmdPintT.TabIndex = 14
+        Me.CmdPintT.Text = "Ping -t"
+        Me.CmdPintT.UseVisualStyleBackColor = False
+        '
         'btnTest3
         '
         Me.btnTest3.Dock = System.Windows.Forms.DockStyle.Right
-        Me.btnTest3.Location = New System.Drawing.Point(1052, 0)
+        Me.btnTest3.Location = New System.Drawing.Point(791, 0)
         Me.btnTest3.Name = "btnTest3"
         Me.btnTest3.Size = New System.Drawing.Size(75, 100)
         Me.btnTest3.TabIndex = 13
@@ -799,13 +836,23 @@ Partial Class Main
         Me.TimerWillkommen.Enabled = True
         Me.TimerWillkommen.Interval = 5000
         '
+        'panTSSitzungen
+        '
+        Me.panTSSitzungen.Dock = System.Windows.Forms.DockStyle.Right
+        Me.panTSSitzungen.Location = New System.Drawing.Point(1216, 130)
+        Me.panTSSitzungen.Name = "panTSSitzungen"
+        Me.panTSSitzungen.Size = New System.Drawing.Size(365, 790)
+        Me.panTSSitzungen.TabIndex = 5
+        Me.panTSSitzungen.Visible = False
+        '
         'Main
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1477, 901)
+        Me.ClientSize = New System.Drawing.Size(1581, 920)
         Me.Controls.Add(Me.DgVMain)
         Me.Controls.Add(Me.PanTools)
+        Me.Controls.Add(Me.panTSSitzungen)
         Me.Controls.Add(Me.Panel3)
         Me.Controls.Add(Me.Panel2)
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@@ -898,7 +945,6 @@ Partial Class Main
     Friend WithEvents PuttyToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents PingToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents ObjektLöschenToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents ToolStripSeparator4 As ToolStripSeparator
     Friend WithEvents ChkFreieHosts As CheckBox
     Friend WithEvents ChkDHCPClients As CheckBox
     Public WithEvents DgVMain As DataGridView
@@ -911,4 +957,9 @@ Partial Class Main
     Friend WithEvents ToolStripMenuItemINFO As ToolStripMenuItem
     Friend WithEvents SMBToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents IPAdresseInZwischenablageToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents PingtToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents CmdPintT As Button
+    Friend WithEvents AllesSichernCSVToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents panTSSitzungen As Panel
+    Friend WithEvents chkTSSitzungen As CheckBox
 End Class

Dokumentation/Main.vb

@@ -72,6 +72,8 @@ Public Class Main
         TypeFilter()
 
         ChkTools.Checked = Class1.DebugMode
+        chkTSSitzungen.Checked = True
+
     End Sub
 
     ''LISTEN
@@ -170,7 +172,7 @@ Public Class Main
 
         LstStandort.Items.Clear() : Class1.Standorte.Clear() : Class1.AlleStandorte.Clear()
 
-        SQL.SQL2DS("SELECT NWSTANDORT from TbL_Netzwerke where main='True' order by NWSTANDORT", ds)
+        cSQL.SQL2DS("SELECT NWSTANDORT from TbL_Netzwerke where main='True' order by NWSTANDORT", ds)
         Try
             For Each dr As DataRow In ds.Tables(0).Rows
                 Dim b As New cBerechtigungen
@@ -200,7 +202,7 @@ Public Class Main
 
 
         Dim dsa As New DataSet()
-        SQL.SQL2DS("select distinct Rubrik from tbl_allgemein", dsa)
+        cSQL.SQL2DS("select distinct Rubrik from tbl_allgemein", dsa)
         LstAllgemein.Items.Clear()
 
         Try
@@ -249,7 +251,7 @@ Public Class Main
         Dim ds As New DataSet()
         Dim Standort As String = LstStandort.SelectedItem
 
-        SQL.SQL2DS("select NETNAME from TbL_Netzwerke where NWSTANDORT='" & Standort & "' ORDER BY NETNAME", ds)
+        cSQL.SQL2DS("select NETNAME from TbL_Netzwerke where NWSTANDORT='" & Standort & "' ORDER BY NETNAME", ds)
 
         LstNetzwerk.Items.Clear()
         Try
@@ -312,16 +314,16 @@ Public Class Main
 
             If tabelle = "TbL_Netzwerkclients" Then
                 If ChkFreieHosts.Checked Then
-                    SQL.SQL2DS("select * from " & tabelle & " where NWSTANDORT='" & Standort & "' AND NETNAME='" & Netzwerk & "' order by host", ds)
+                    cSQL.SQL2DS("select * from " & tabelle & " where NWSTANDORT='" & Standort & "' AND NETNAME='" & Netzwerk & "' order by host", ds)
                     dgvfill(ds, "Netzwerk")
                 Else
-                    SQL.SQL2DS("select * from " & tabelle & " where NWSTANDORT='" & Standort & "' AND NETNAME='" & Netzwerk & "'  AND FQDN is not NUll order by host", ds)
+                    cSQL.SQL2DS("select * from " & tabelle & " where NWSTANDORT='" & Standort & "' AND NETNAME='" & Netzwerk & "'  AND FQDN is not NUll order by host", ds)
                     dgvfill(ds, "Netzwerk")
                 End If
 
             ElseIf tabelle = "TbL_Allgemein" Then
                 'SQL.SQL2DS("select * from " & tabelle & " WHERE Rubrik = '" & LstAllgemein.SelectedItem & "'", ds)
-                SQL.SQL2DS("select * from TbL_Allgemein left join TbL_Berechtigungen on TbL_Allgemein.ID = TbL_Berechtigungen.Standort where ((Benutzeranmeldename = '" & Class1.LoggedOnUser.BenutzeranmeldeName & "' AND not Zugriff = '0') OR (Zugriff is null )) AND (Rubrik = '" & LstAllgemein.SelectedItem & "')", ds)
+                cSQL.SQL2DS("select * from TbL_Allgemein left join TbL_Berechtigungen on TbL_Allgemein.ID = TbL_Berechtigungen.Standort where ((Benutzeranmeldename = '" & Class1.LoggedOnUser.BenutzeranmeldeName & "' AND not Zugriff = '0') OR (Zugriff is null )) AND (Rubrik = '" & LstAllgemein.SelectedItem & "')", ds)
                 dgvfill(ds, "Allgemein")
             End If
 
@@ -390,13 +392,13 @@ Public Class Main
             '''ABFRAGE RADIOBUTTONS + SUCHPARAMETER'''
 
             If RadGlobal.Checked Then
-                SQL.SQL2DS("select " & SelSQL4DGV & " from TbL_Netzwerkclients where " & Suchparameter & " order by host", ds)
+                cSQL.SQL2DS("select " & SelSQL4DGV & " from TbL_Netzwerkclients where " & Suchparameter & " order by host", ds)
             ElseIf RadNurNetzwerk.Checked Then
-                SQL.SQL2DS("select " & SelSQL4DGV & " from TbL_Netzwerkclients where NWSTANDORT = '" & Standort & "' AND NETNAME ='" & Netzwerk & "' AND " & Suchparameter & " order by host", ds)
+                cSQL.SQL2DS("select " & SelSQL4DGV & " from TbL_Netzwerkclients where NWSTANDORT = '" & Standort & "' AND NETNAME ='" & Netzwerk & "' AND " & Suchparameter & " order by host", ds)
             ElseIf RadStandort.Checked Then
-                SQL.SQL2DS("select " & SelSQL4DGV & " from TbL_Netzwerkclients where NWSTANDORT = '" & Standort & "' AND " & Suchparameter & " order by host", ds)
+                cSQL.SQL2DS("select " & SelSQL4DGV & " from TbL_Netzwerkclients where NWSTANDORT = '" & Standort & "' AND " & Suchparameter & " order by host", ds)
             ElseIf suchbegriff = "" Then
-                SQL.SQL2DS("select " & SelSQL4DGV & " from TbL_Netzwerkclients order by host", ds)
+                cSQL.SQL2DS("select " & SelSQL4DGV & " from TbL_Netzwerkclients order by host", ds)
             End If
 
 
@@ -447,7 +449,7 @@ Public Class Main
             'con.Open()
             'dataadapter.Fill(ds)
             'con.Close()
-            SQL.SQL2DS("select * from TbL_Allgemein left join TbL_Berechtigungen on TbL_Allgemein.ID = TbL_Berechtigungen.Standort where ((Benutzeranmeldename = '" & Class1.LoggedOnUser.BenutzeranmeldeName & "' AND not Zugriff = '0') OR (Zugriff is null )) AND (Rubrik = '" & LstAllgemein.SelectedItem & "') AND " & Suchparameter & "", ds)
+            cSQL.SQL2DS("select * from TbL_Allgemein left join TbL_Berechtigungen on TbL_Allgemein.ID = TbL_Berechtigungen.Standort where ((Benutzeranmeldename = '" & Class1.LoggedOnUser.BenutzeranmeldeName & "' AND not Zugriff = '0') OR (Zugriff is null )) AND (Rubrik = '" & LstAllgemein.SelectedItem & "') AND " & Suchparameter & "", ds)
 
 
             dgvfill(ds, "Allgemein")
@@ -907,7 +909,7 @@ Public Class Main
                     'Dim sda As New SqlDataAdapter("SELECT * FROM Tbl_NetzwerkClients WHERE IPAdresse='" & SenderIP & "'", con)
                     'sda.Fill(ds)
                     'con.Close()
-                    SQL.SQL2DS("SELECT * FROM Tbl_NetzwerkClients WHERE IPAdresse='" & SenderIP & "'", ds)
+                    cSQL.SQL2DS("SELECT * FROM Tbl_NetzwerkClients WHERE IPAdresse='" & SenderIP & "'", ds)
 
                     If IsDBNull(ds.Tables(0).Rows(0).Item("Linked")) Then
                         islinked = "0"
@@ -932,7 +934,7 @@ Public Class Main
                         'da.Fill(dslinked)
 
                         'con.Close()
-                        SQL.SQL2DS("SELECT * FROM Tbl_NetzwerkClients WHERE IPAdresse='" & LinkedWith & "'", dslinked)
+                        cSQL.SQL2DS("SELECT * FROM Tbl_NetzwerkClients WHERE IPAdresse='" & LinkedWith & "'", dslinked)
                         Select Case art
                             Case "Dateien"
                                 Path = Class1.FilePath & "\" & dslinked.Tables(0).Rows(0).Item("NWStandort") & "_" & dslinked.Tables(0).Rows(0).Item("NetName") & "\" & dslinked.Tables(0).Rows(0).Item("Host")
@@ -1115,7 +1117,7 @@ Public Class Main
         LblVersion.Text = "Version: " & Version
         Try
             Dim ds As New DataSet
-            SQL.SQL2DS("SELECT prog_aktuelleVersion FROM ADMIN.dbo.tblProgramme WHERE prog_codename= '" & My.Resources.Programmcode & "'", ds)
+            cSQL.SQL2DS("SELECT prog_aktuelleVersion FROM ADMIN.dbo.tblProgramme WHERE prog_codename= '" & My.Resources.Programmcode & "'", ds)
             If ds.Tables(0).Rows.Count Then
                 RemoteVersion = ds.Tables(0).Rows(0).Item(0).ToString
             End If
@@ -1212,7 +1214,11 @@ Public Class Main
     End Sub
 
     Private Sub btnTest3_Click(sender As Object, e As EventArgs) Handles btnTest3.Click
-        cFolder.netuse("Verag", "1VerSub9#", "\\10.4.3.17")
+        panTSSitzungen.Controls.Clear()
+        Dim dingsi As New uscntr_TSSitzungen
+        panTSSitzungen.Controls.Add(dingsi)
+
+
     End Sub
 
     Private Sub ToolStripMenuItemINFO_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItemINFO.Click
@@ -1239,6 +1245,36 @@ Public Class Main
         End If
     End Sub
 
+    Private Sub PingtToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PingtToolStripMenuItem.Click, CmdPintT.Click
+        Ext_Programme.pingip(DgVMain.CurrentRow.Cells("IPAdresse").Value, " -t")
+    End Sub
+
+    Private Sub AllesSichernCSVToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AllesSichernCSVToolStripMenuItem.Click
+        Dim dgvtemp As New DataGridView
+        Dim dstemp As New DataSet
+
+        cSQL.SQL2DS("select * from TbL_Netzwerkclients where FQDN is not null order by NWSTANDORT, NETNAME, host", dstemp)
+
+        dgvtemp.DataSource = dstemp.Tables(0)
+
+        Class1.datatable_2_csv_export(dstemp.Tables(0))
+    End Sub
+
+    Private Sub chkTSSitzungen_CheckedChanged(sender As Object, e As EventArgs) Handles chkTSSitzungen.CheckedChanged
+        If chkTSSitzungen.Checked Then
+            panTSSitzungen.Controls.Clear()
+            Dim dingsi As New uscntr_TSSitzungen
+            dingsi.AutoSize = AutoSizeMode.GrowAndShrink
+            dingsi.Dock = Dock.Fill
+
+            panTSSitzungen.Controls.Add(dingsi)
+            panTSSitzungen.Visible = True
+        Else
+            panTSSitzungen.Controls.Clear()
+            panTSSitzungen.Visible = False
+        End If
+    End Sub
+
     Private Sub ObjektLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ObjektLöschenToolStripMenuItem.Click
         If Tabelle = "TbL_Netzwerkclients" Then
             Dim ds As New DataSet

Dokumentation/My Project/Resources.Designer.vb

@@ -110,6 +110,26 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property mail20() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("mail20", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Byte[].
+        '''</summary>
+        Friend ReadOnly Property msg() As Byte()
+            Get
+                Dim obj As Object = ResourceManager.GetObject("msg", resourceCulture)
+                Return CType(obj,Byte())
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -169,7 +189,17 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die 0.0.1.35 ähnelt.
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property Update() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("Update", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die 0.0.1.38 ähnelt.
         '''</summary>
         Friend ReadOnly Property Version() As String
             Get

Dokumentation/My Project/Resources.resx

@@ -117,41 +117,50 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
-  <data name="Programmname" xml:space="preserve">
-    <value>Dokumentation</value>
-  </data>
   <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-  <data name="Link20" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="Folder20" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Link20.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\Folder20.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Update" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Update.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Bearbeiten20" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Bearbeiten20.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</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>
-  </data>
   <data name="Version" xml:space="preserve">
-    <value>0.0.1.35</value>
+    <value>0.0.1.38</value>
-  </data>
-  <data name="Link" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="Folder20" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Folder20.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="Programmcode" xml:space="preserve">
-    <value>DOKU</value>
-  </data>
-  <data name="pdf512" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\pdf512.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="Netzwerk20" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Netzwerk20.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="Print" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Print.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Print20x20" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Print20x20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="Netzwerk20" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Netzwerk20.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Programmname" xml:space="preserve">
+    <value>Dokumentation</value>
+  </data>
+  <data name="Link20" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Link20.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Print" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Print.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="pdf512" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\pdf512.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Link" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Programmcode" xml:space="preserve">
+    <value>DOKU</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>
+  </data>
+  <data name="mail20" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\mail20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="msg" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\msg.exe;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
 </root>

Dokumentation/frmAllgemeinEintrag.vb

@@ -93,7 +93,7 @@
             'sda.Fill(ds)
             'con.Close()
 
-            SQL.SQL2DS("SELECT * FROM TbL_Allgemein WHERE Rubrik='" & Eintrag.rubrik & "' AND Titel='" & Eintrag.Titel & "'", ds)
+            cSQL.SQL2DS("SELECT * FROM TbL_Allgemein WHERE Rubrik='" & Eintrag.rubrik & "' AND Titel='" & Eintrag.Titel & "'", ds)
 
             Dim Info As String = ds.Tables(0).Rows(0).Item("Info")
 
@@ -112,7 +112,7 @@
                 Dim dslinked As New DataSet()
 
 
-                SQL.SQL2DS("SELECT * FROM Tbl_Allgemein WHERE LinkedWith='" & LinkedWith & "'", dslinked)
+                cSQL.SQL2DS("SELECT * FROM Tbl_Allgemein WHERE LinkedWith='" & LinkedWith & "'", dslinked)
 
 
                 path = Class1.FilePath & "\" & dslinked.Tables(0).Rows(0).Item("Rubrik") & "\" & dslinked.Tables(0).Rows(0).Item("Titel") '& "\" & dslinked.Tables(0).Rows(0).Item("Host")
@@ -153,7 +153,7 @@
             ElseIf DialogResult.No Then
                 Exit Sub
             End If
-            SQL.DeleteSQL("TbL_Allgemein", "ID = '" & Eintrag.ID & "'")
+            cSQL.DeleteSQL("TbL_Allgemein", "ID = '" & Eintrag.ID & "'")
             '    Main.LstStandortLoad()
             Me.Close()
         Else

Dokumentation/frmHostBearbeiten.Designer.vb

@@ -60,6 +60,7 @@ Partial Class frmHostBearbeiten
         Me.TxtLink = New System.Windows.Forms.TextBox()
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.MitHTTPFüllenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.KopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.CmdIPUp = New System.Windows.Forms.Button()
         Me.CmdDateien = New System.Windows.Forms.Button()
         Me.Label6 = New System.Windows.Forms.Label()
@@ -77,6 +78,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.FFPortToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ContextMenuStrip2.SuspendLayout()
         Me.ContextMenuStrip1.SuspendLayout()
         Me.Panel1.SuspendLayout()
@@ -406,16 +408,22 @@ Partial Class frmHostBearbeiten
         '
         'ContextMenuStrip1
         '
-        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MitHTTPFüllenToolStripMenuItem})
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MitHTTPFüllenToolStripMenuItem, Me.KopierenToolStripMenuItem, Me.FFPortToolStripMenuItem})
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(157, 26)
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(181, 92)
         '
         'MitHTTPFüllenToolStripMenuItem
         '
         Me.MitHTTPFüllenToolStripMenuItem.Name = "MitHTTPFüllenToolStripMenuItem"
-        Me.MitHTTPFüllenToolStripMenuItem.Size = New System.Drawing.Size(156, 22)
+        Me.MitHTTPFüllenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.MitHTTPFüllenToolStripMenuItem.Text = "mit HTTP füllen"
         '
+        'KopierenToolStripMenuItem
+        '
+        Me.KopierenToolStripMenuItem.Name = "KopierenToolStripMenuItem"
+        Me.KopierenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.KopierenToolStripMenuItem.Text = "Kopieren"
+        '
         'CmdIPUp
         '
         Me.CmdIPUp.BackColor = System.Drawing.SystemColors.ControlLightLight
@@ -627,6 +635,13 @@ Partial Class frmHostBearbeiten
         Me.PanNavTop.Size = New System.Drawing.Size(309, 32)
         Me.PanNavTop.TabIndex = 141
         '
+        'FFPortToolStripMenuItem
+        '
+        Me.FFPortToolStripMenuItem.Name = "FFPortToolStripMenuItem"
+        Me.FFPortToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.FFPortToolStripMenuItem.Text = "FF Port"
+        Me.FFPortToolStripMenuItem.Visible = False
+        '
         'frmHostBearbeiten
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -708,4 +723,6 @@ Partial Class frmHostBearbeiten
     Friend WithEvents PanNavTop As Panel
     Friend WithEvents cmdSMB As Button
     Friend WithEvents cmdAuthSMB As Button
+    Friend WithEvents KopierenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents FFPortToolStripMenuItem As ToolStripMenuItem
 End Class

Dokumentation/frmHostBearbeiten.vb

@@ -190,8 +190,8 @@
         ShowFirewallPanel(chkFirewall.Checked)
     End Sub
     Public Function EnableDisableFirewallBoolean(ByVal hostip As String, ByVal EnDisable As Boolean)
-        SQL.UpdateSQL("TbL_Netzwerkclients", "Firewall = '" & EnDisable & "'", "ipadresse = '" & hostip & "'")
+        cSQL.UpdateSQL("TbL_Netzwerkclients", "Firewall = '" & EnDisable & "'", "ipadresse = '" & hostip & "'")
-        SQL.UpdateSQL("TbL_Netzwerkclients", "Firewall = '" & EnDisable & "'", "linkedwith = '" & hostip & "'")
+        cSQL.UpdateSQL("TbL_Netzwerkclients", "Firewall = '" & EnDisable & "'", "linkedwith = '" & hostip & "'")
     End Function
 
     Public Function ShowFirewallPanel(ByVal EnDisable As Boolean)
@@ -306,7 +306,10 @@
     End Sub
 
     Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles Me.KeyDown
-        If e.KeyCode = Keys.ControlKey Then cmdAuthSMB.Text = "NetDelete"
+        If e.KeyCode = Keys.ControlKey Then
+            cmdAuthSMB.Text = "NetDelete"
+            FFPortToolStripMenuItem.Visible = True
+        End If
 
         If e.KeyCode = Keys.Escape Then
             Me.Close()
@@ -315,6 +318,7 @@
 
     Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As KeyEventArgs) Handles Me.KeyUp
         cmdAuthSMB.Text = "Auth. SMB"
+        FFPortToolStripMenuItem.Visible = False
     End Sub
 
     Private Sub MitHTTPFüllenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MitHTTPFüllenToolStripMenuItem.Click
@@ -331,7 +335,7 @@
         cFolder.explorerstarten(host.IPAdresse, True)
     End Sub
 
-    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.DoubleClick
+    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.DoubleClick, TxtIP.DoubleClick
         Clipboard.SetText(host.IPAdresse)
     End Sub
 
@@ -350,5 +354,9 @@
         cFolder.netdelete("\\" & host.IPAdresse)
     End Sub
 
+    Private Sub KopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KopierenToolStripMenuItem.Click
+        Clipboard.SetText(TxtLink.Text)
+    End Sub
+
 
 End Class

Dokumentation/uscntr_Firewalleinstellungen.vb

@@ -130,7 +130,7 @@
     End Sub
 
     Private Sub btnLoeschen_Click(sender As Object, e As EventArgs) Handles btnLoeschen.Click
-        If MsgBox("Eintrag wirklich löschen?", MessageBoxButtons.OKCancel, "Löschen?") = MsgBoxResult.Ok Then SQL.DeleteSQL("TbL_FirewallRules", "fwr_ID = '" & fwr_ID & "'") : clear() : Laden()
+        If MsgBox("Eintrag wirklich löschen?", MessageBoxButtons.OKCancel, "Löschen?") = MsgBoxResult.Ok Then cSQL.DeleteSQL("TbL_FirewallRules", "fwr_ID = '" & fwr_ID & "'") : clear() : Laden()
     End Sub
 
     Private Function clear()

Dokumentation/uscntr_FunktionAdmin.vb

@@ -30,7 +30,7 @@
         Select Case sender.name
             Case "btnJa"
                 btnJa.BackColor = Color.Green : Berechtigung.Zugriff = "Y" : Berechtigung.SaveToSQL()
-                SQL.UpdateSQL("TbL_Berechtigungen", "Zugriff = 'W'", "Benutzeranmeldename = '" & User.BenutzeranmeldeName & "' AND NOT Standort = 'DokuAdmin'")
+                cSQL.UpdateSQL("TbL_Berechtigungen", "Zugriff = 'W'", "Benutzeranmeldename = '" & User.BenutzeranmeldeName & "' AND NOT Standort = 'DokuAdmin'")
             Case "btnNein"
                 btnNein.BackColor = Color.Red : Berechtigung.Zugriff = "0" : Berechtigung.SaveToSQL()
         End Select

Dokumentation/uscntr_SendMSG.Designer.vb

@@ -0,0 +1,145 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class uscntr_SendMSG
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.cmdSenden = New System.Windows.Forms.Button()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.PanServerListe = New System.Windows.Forms.Panel()
+        Me.PanMain = New System.Windows.Forms.Panel()
+        Me.LabelInfo = New System.Windows.Forms.Label()
+        Me.cmdVorschau = New System.Windows.Forms.Button()
+        Me.Panel1.SuspendLayout()
+        Me.PanMain.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Location = New System.Drawing.Point(8, 21)
+        Me.TextBox1.Margin = New System.Windows.Forms.Padding(8)
+        Me.TextBox1.Multiline = True
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(444, 71)
+        Me.TextBox1.TabIndex = 0
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(5, 0)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(56, 13)
+        Me.Label1.TabIndex = 1
+        Me.Label1.Text = "Nachricht:"
+        '
+        'cmdSenden
+        '
+        Me.cmdSenden.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.cmdSenden.Location = New System.Drawing.Point(383, 173)
+        Me.cmdSenden.Name = "cmdSenden"
+        Me.cmdSenden.Size = New System.Drawing.Size(75, 23)
+        Me.cmdSenden.TabIndex = 2
+        Me.cmdSenden.Text = "Senden"
+        Me.cmdSenden.UseVisualStyleBackColor = True
+        '
+        'Panel1
+        '
+        Me.Panel1.Controls.Add(Me.TextBox1)
+        Me.Panel1.Controls.Add(Me.Label1)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel1.Location = New System.Drawing.Point(0, 0)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(461, 108)
+        Me.Panel1.TabIndex = 3
+        '
+        'PanServerListe
+        '
+        Me.PanServerListe.Dock = System.Windows.Forms.DockStyle.Left
+        Me.PanServerListe.Location = New System.Drawing.Point(0, 108)
+        Me.PanServerListe.Name = "PanServerListe"
+        Me.PanServerListe.Size = New System.Drawing.Size(196, 91)
+        Me.PanServerListe.TabIndex = 0
+        '
+        'PanMain
+        '
+        Me.PanMain.AutoSize = True
+        Me.PanMain.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.PanMain.Controls.Add(Me.LabelInfo)
+        Me.PanMain.Controls.Add(Me.cmdVorschau)
+        Me.PanMain.Controls.Add(Me.cmdSenden)
+        Me.PanMain.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.PanMain.Location = New System.Drawing.Point(0, 0)
+        Me.PanMain.MinimumSize = New System.Drawing.Size(461, 199)
+        Me.PanMain.Name = "PanMain"
+        Me.PanMain.Size = New System.Drawing.Size(461, 199)
+        Me.PanMain.TabIndex = 4
+        '
+        'LabelInfo
+        '
+        Me.LabelInfo.AutoSize = True
+        Me.LabelInfo.Location = New System.Drawing.Point(202, 111)
+        Me.LabelInfo.Name = "LabelInfo"
+        Me.LabelInfo.Size = New System.Drawing.Size(51, 13)
+        Me.LabelInfo.TabIndex = 4
+        Me.LabelInfo.Text = "LabelInfo"
+        '
+        'cmdVorschau
+        '
+        Me.cmdVorschau.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.cmdVorschau.Location = New System.Drawing.Point(205, 173)
+        Me.cmdVorschau.Name = "cmdVorschau"
+        Me.cmdVorschau.Size = New System.Drawing.Size(75, 23)
+        Me.cmdVorschau.TabIndex = 3
+        Me.cmdVorschau.Text = "Vorschau"
+        Me.cmdVorschau.UseVisualStyleBackColor = True
+        '
+        'uscntr_SendMSG
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.AutoSize = True
+        Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.Controls.Add(Me.PanServerListe)
+        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.PanMain)
+        Me.MinimumSize = New System.Drawing.Size(461, 199)
+        Me.Name = "uscntr_SendMSG"
+        Me.Size = New System.Drawing.Size(461, 199)
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        Me.PanMain.ResumeLayout(False)
+        Me.PanMain.PerformLayout()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents cmdSenden As Button
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents PanServerListe As Panel
+    Friend WithEvents PanMain As Panel
+    Friend WithEvents cmdVorschau As Button
+    Friend WithEvents LabelInfo As Label
+End Class

Dokumentation/uscntr_SendMSG.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

Dokumentation/uscntr_SendMSG.vb

@@ -0,0 +1,85 @@
+Public Class uscntr_SendMSG
+
+    Dim recserver As New List(Of String)
+    Public recuser As New cTSUser
+    Dim msg As String = " {0} /Server:{1} '{2}'" 'Username, Server, Nachricht
+    Dim msgfin As String = ""
+    Dim SingleUserRec As Boolean = False
+
+    Private Sub uscntr_SendMSG_Load(sender As Object, e As EventArgs) Handles Me.Load
+        LabelInfo.Text = ""
+        FillPanWithServer()
+        SelectUniUser()
+    End Sub
+
+    Function FillPanWithServer()
+        PanServerListe.Controls.Clear()
+
+        Dim i As Integer = 0
+
+        For Each Server As String In Class1.TerminalServerList
+            Dim usrcntrl As New uscntr_TSServer
+            usrcntrl.btnServer.Text = Server
+            usrcntrl.Location = New Point(0, i * usrcntrl.Height)
+            i = i + 1
+            PanServerListe.Controls.Add(usrcntrl)
+            AddHandler usrcntrl.btnServer.Click, Function()
+                                                     UpdateSelectedServerList()
+                                                 End Function
+
+        Next
+    End Function
+
+    Sub UpdateSelectedServerList()
+        recserver.Clear()
+        For Each uc As uscntr_TSServer In PanServerListe.Controls
+            If uc.selected Then
+                ' LabelInfo.Text &= uc.btnServer.Text & vbCrLf
+                recserver.Add(uc.btnServer.Text)
+            End If
+        Next
+    End Sub
+
+    Private Sub cmdVorschau_Click(sender As Object, e As EventArgs) Handles cmdVorschau.Click
+        If SingleUserRec = True Then
+            MsgBox("msg" & msgfin)
+        Else
+            For Each srv As String In recserver
+                MsgBox(String.Format(msg, "*", srv, TextBox1.Text))
+            Next
+        End If
+    End Sub
+
+    Function SelectUniUser()    'wenn nur ein Empfänger
+        If recuser.BenutzerAnmeldeName.Length > 0 Then
+            SingleUserRec = True
+            recuser.genNameKurz()
+            LabelInfo.Text = String.Format(msg, recuser.NameKurz, recuser.TSServer, "Das ist ein Test!")
+            For Each uc As uscntr_TSServer In PanServerListe.Controls
+                If uc.btnServer.Text = recuser.TSServer Then uc.btnServer.PerformClick()
+                uc.btnServer.Enabled = False
+            Next
+        End If
+    End Function
+
+    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
+        If SingleUserRec = True Then
+            msgfin = String.Format(msg, recuser.NameKurz, recuser.TSServer, TextBox1.Text)
+        Else
+            msgfin = String.Format(msg, "*", recserver(0), TextBox1.Text)
+        End If
+        LabelInfo.Text = "msg" & msgfin
+    End Sub
+
+    Private Sub cmdSenden_Click(sender As Object, e As EventArgs) Handles cmdSenden.Click
+        If MsgBox("Nachricht senden?", MsgBoxStyle.OkCancel, "Senden?") = MsgBoxResult.Ok Then
+            If SingleUserRec = True Then
+                Ext_Programme.msgsend(msgfin)
+            Else
+                For Each srv As String In recserver
+                    Ext_Programme.msgsend(String.Format(msg, "*", srv, TextBox1.Text))
+                Next
+            End If
+        End If
+    End Sub
+End Class

Dokumentation/uscntr_TSServer.Designer.vb

@@ -0,0 +1,54 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class uscntr_TSServer
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.btnServer = New System.Windows.Forms.Button()
+        Me.SuspendLayout()
+        '
+        'btnServer
+        '
+        Me.btnServer.BackColor = System.Drawing.Color.Red
+        Me.btnServer.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnServer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnServer.Location = New System.Drawing.Point(3, 3)
+        Me.btnServer.Name = "btnServer"
+        Me.btnServer.Size = New System.Drawing.Size(148, 24)
+        Me.btnServer.TabIndex = 3
+        Me.btnServer.Text = "btnServer"
+        Me.btnServer.UseVisualStyleBackColor = False
+        '
+        'uscntr_TSServer
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.AutoSize = True
+        Me.Controls.Add(Me.btnServer)
+        Me.MinimumSize = New System.Drawing.Size(154, 30)
+        Me.Name = "uscntr_TSServer"
+        Me.Size = New System.Drawing.Size(154, 30)
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents btnServer As Button
+End Class

Dokumentation/uscntr_TSServer.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

Dokumentation/uscntr_TSServer.vb

@@ -0,0 +1,13 @@
+Public Class uscntr_TSServer
+    Public selected As Boolean = False
+
+    Private Sub btnServer_Click(sender As Object, e As EventArgs) Handles btnServer.Click
+        selected = Not selected
+        If selected Then
+            btnServer.BackColor = Color.Green
+        Else
+            btnServer.BackColor = Color.Red
+        End If
+
+    End Sub
+End Class

Dokumentation/uscntr_TSSitzungen.Designer.vb

@@ -0,0 +1,233 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class uscntr_TSSitzungen
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Me.dgvTSSitzungen = New System.Windows.Forms.DataGridView()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.NachrichtSendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.UpdateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.cmdNachricht = New System.Windows.Forms.Button()
+        Me.chkAutoUpdate = New System.Windows.Forms.CheckBox()
+        Me.CmdUpdate = New System.Windows.Forms.Button()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.btnReset = New System.Windows.Forms.Button()
+        Me.lblAnzahl = New System.Windows.Forms.Label()
+        CType(Me.dgvTSSitzungen, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ContextMenuStrip1.SuspendLayout()
+        Me.Panel1.SuspendLayout()
+        Me.Panel2.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'dgvTSSitzungen
+        '
+        Me.dgvTSSitzungen.AllowUserToAddRows = False
+        Me.dgvTSSitzungen.AllowUserToDeleteRows = False
+        Me.dgvTSSitzungen.AllowUserToResizeRows = False
+        Me.dgvTSSitzungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvTSSitzungen.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.dgvTSSitzungen.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.dgvTSSitzungen.Location = New System.Drawing.Point(0, 36)
+        Me.dgvTSSitzungen.MultiSelect = False
+        Me.dgvTSSitzungen.Name = "dgvTSSitzungen"
+        Me.dgvTSSitzungen.ReadOnly = True
+        Me.dgvTSSitzungen.RowTemplate.ReadOnly = True
+        Me.dgvTSSitzungen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvTSSitzungen.Size = New System.Drawing.Size(365, 197)
+        Me.dgvTSSitzungen.TabIndex = 0
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NachrichtSendenToolStripMenuItem, Me.UpdateToolStripMenuItem})
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(168, 48)
+        '
+        'NachrichtSendenToolStripMenuItem
+        '
+        Me.NachrichtSendenToolStripMenuItem.Name = "NachrichtSendenToolStripMenuItem"
+        Me.NachrichtSendenToolStripMenuItem.Size = New System.Drawing.Size(167, 22)
+        Me.NachrichtSendenToolStripMenuItem.Text = "Nachricht senden"
+        '
+        'UpdateToolStripMenuItem
+        '
+        Me.UpdateToolStripMenuItem.Name = "UpdateToolStripMenuItem"
+        Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(167, 22)
+        Me.UpdateToolStripMenuItem.Text = "Update"
+        '
+        'Timer1
+        '
+        Me.Timer1.Interval = 10000
+        '
+        'Panel1
+        '
+        Me.Panel1.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
+        Me.Panel1.Controls.Add(Me.lblAnzahl)
+        Me.Panel1.Controls.Add(Me.cmdNachricht)
+        Me.Panel1.Controls.Add(Me.chkAutoUpdate)
+        Me.Panel1.Controls.Add(Me.CmdUpdate)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.Panel1.Location = New System.Drawing.Point(0, 233)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(365, 67)
+        Me.Panel1.TabIndex = 2
+        '
+        'cmdNachricht
+        '
+        Me.cmdNachricht.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.cmdNachricht.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.cmdNachricht.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
+        Me.cmdNachricht.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.cmdNachricht.Image = Global.Dokumentation.My.Resources.Resources.mail20
+        Me.cmdNachricht.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.cmdNachricht.Location = New System.Drawing.Point(8, 31)
+        Me.cmdNachricht.Margin = New System.Windows.Forms.Padding(8)
+        Me.cmdNachricht.Name = "cmdNachricht"
+        Me.cmdNachricht.Size = New System.Drawing.Size(151, 28)
+        Me.cmdNachricht.TabIndex = 12
+        Me.cmdNachricht.Text = "Nachricht"
+        Me.cmdNachricht.UseVisualStyleBackColor = False
+        '
+        'chkAutoUpdate
+        '
+        Me.chkAutoUpdate.AutoSize = True
+        Me.chkAutoUpdate.Location = New System.Drawing.Point(220, 11)
+        Me.chkAutoUpdate.Name = "chkAutoUpdate"
+        Me.chkAutoUpdate.Size = New System.Drawing.Size(127, 17)
+        Me.chkAutoUpdate.TabIndex = 11
+        Me.chkAutoUpdate.Text = "AutoUpdate (10 sec.)"
+        Me.chkAutoUpdate.UseVisualStyleBackColor = True
+        '
+        'CmdUpdate
+        '
+        Me.CmdUpdate.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.CmdUpdate.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.CmdUpdate.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
+        Me.CmdUpdate.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.CmdUpdate.Image = Global.Dokumentation.My.Resources.Resources.Update
+        Me.CmdUpdate.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.CmdUpdate.Location = New System.Drawing.Point(206, 31)
+        Me.CmdUpdate.Margin = New System.Windows.Forms.Padding(8)
+        Me.CmdUpdate.Name = "CmdUpdate"
+        Me.CmdUpdate.Size = New System.Drawing.Size(151, 28)
+        Me.CmdUpdate.TabIndex = 10
+        Me.CmdUpdate.Text = "Update"
+        Me.CmdUpdate.UseVisualStyleBackColor = False
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
+        Me.Panel2.Controls.Add(Me.btnReset)
+        Me.Panel2.Controls.Add(Me.Label1)
+        Me.Panel2.Controls.Add(Me.TextBox1)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(365, 36)
+        Me.Panel2.TabIndex = 3
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Location = New System.Drawing.Point(103, 8)
+        Me.TextBox1.Margin = New System.Windows.Forms.Padding(8)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(157, 20)
+        Me.TextBox1.TabIndex = 0
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(8, 12)
+        Me.Label1.Margin = New System.Windows.Forms.Padding(8)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(93, 13)
+        Me.Label1.TabIndex = 1
+        Me.Label1.Text = "TSUser Suche:"
+        '
+        'btnReset
+        '
+        Me.btnReset.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnReset.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.btnReset.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
+        Me.btnReset.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnReset.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnReset.Location = New System.Drawing.Point(276, 8)
+        Me.btnReset.Margin = New System.Windows.Forms.Padding(8)
+        Me.btnReset.Name = "btnReset"
+        Me.btnReset.Size = New System.Drawing.Size(81, 20)
+        Me.btnReset.TabIndex = 13
+        Me.btnReset.Text = "Reset"
+        Me.btnReset.UseVisualStyleBackColor = False
+        '
+        'lblAnzahl
+        '
+        Me.lblAnzahl.AutoSize = True
+        Me.lblAnzahl.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblAnzahl.ForeColor = System.Drawing.SystemColors.WindowFrame
+        Me.lblAnzahl.Location = New System.Drawing.Point(9, 11)
+        Me.lblAnzahl.Name = "lblAnzahl"
+        Me.lblAnzahl.Size = New System.Drawing.Size(43, 12)
+        Me.lblAnzahl.TabIndex = 13
+        Me.lblAnzahl.Text = "lblAnzahl"
+        '
+        'uscntr_TSSitzungen
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.AutoSize = True
+        Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.Controls.Add(Me.dgvTSSitzungen)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.Panel1)
+        Me.MinimumSize = New System.Drawing.Size(365, 300)
+        Me.Name = "uscntr_TSSitzungen"
+        Me.Size = New System.Drawing.Size(365, 300)
+        CType(Me.dgvTSSitzungen, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ContextMenuStrip1.ResumeLayout(False)
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents dgvTSSitzungen As DataGridView
+    Friend WithEvents Timer1 As Timer
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents CmdUpdate As Button
+    Friend WithEvents chkAutoUpdate As CheckBox
+    Friend WithEvents cmdNachricht As Button
+    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
+    Friend WithEvents NachrichtSendenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents UpdateToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents Panel2 As Panel
+    Friend WithEvents Label1 As Label
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents btnReset As Button
+    Friend WithEvents lblAnzahl As Label
+End Class

Dokumentation/uscntr_TSSitzungen.resx

@@ -0,0 +1,129 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>106, 17</value>
+  </metadata>
+  <metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>44</value>
+  </metadata>
+</root>

Dokumentation/uscntr_TSSitzungen.vb

@@ -0,0 +1,104 @@
+Public Class uscntr_TSSitzungen
+
+    Private Sub uscntr_TSSitzungen_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Load2DGV()
+    End Sub
+
+    Function Load2DGV(Optional ByVal WhereString As String = "")
+        Dim ds As New DataSet
+        cSQL.SQL2DS("SELECT * FROM TbL_TSSitzungen WHERE Name LIKE '" & ReturnOfTheWhere() & "' OR TSServer LIKE '" & ReturnOfTheWhere() & "' ORDER BY NAME", ds)
+
+        With dgvTSSitzungen
+            .RowHeadersVisible = False
+            .DataSource = ds.Tables(0)
+            .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.DisplayedCells
+            .Columns("BenutzerAnmeldeName").Visible = False
+            '.Columns("BenutzerAnmeldeName").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+            .Columns("LastLogon").Visible = False
+            .Columns("LastLogon").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+            '.Columns("LastReport").Width = 85
+            '.Columns("TeamviewerID").Width = 80
+            '.Columns("TSServer").Width = 60
+        End With
+        lblAnzahl.Text = dgvTSSitzungen.Rows.Count
+        LoadTSServer()
+    End Function
+
+    Private Sub dgvTSSitzungen_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvTSSitzungen.CellContentDoubleClick
+
+        Dim sitzung As String = Class1.DBNull2emptyString(dgvTSSitzungen.CurrentRow.Cells("TeamviewerID").Value)
+        StartTeamviewer(sitzung)
+
+    End Sub
+
+    Public Function StartTeamviewer(ID As String)
+        Dim teamviewer As New Process
+        With teamviewer.StartInfo
+            .FileName = "Teamviewer.exe"
+            .WorkingDirectory = "C:\Program Files (x86)\TeamViewer"
+            .Arguments = "-i " & ID & " -P BmWr501956"
+        End With
+
+        teamviewer.Start()
+
+    End Function
+
+    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
+        Load2DGV()
+    End Sub
+
+    Private Sub RefreshToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CmdUpdate.Click, UpdateToolStripMenuItem.Click
+        Load2DGV()
+    End Sub
+
+    Private Sub chkAutoUpdate_CheckedChanged(sender As Object, e As EventArgs) Handles chkAutoUpdate.CheckedChanged
+        If chkAutoUpdate.Checked Then
+            Timer1.Enabled = True
+        Else
+            Timer1.Enabled = False
+        End If
+    End Sub
+
+    Private Function LoadTSServer()
+        Dim ds As New DataSet
+        cSQL.SQL2DS("SELECT DISTINCT TSServer FROM TbL_TSSitzungen", ds)
+
+        For Each r As DataRow In ds.Tables(0).Rows
+            Class1.TerminalServerList.Add(r.Item(0).ToString)
+        Next
+
+
+    End Function
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles cmdNachricht.Click
+        Dim send As New frmLeer
+        send.Text = "Nachricht senden"
+        Dim usrcntrl As New uscntr_SendMSG
+        usrcntrl.Dock = DockStyle.Fill : send.PanMain.Controls.Add(usrcntrl)
+        send.Show()
+    End Sub
+
+    Private Sub NachrichtSendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NachrichtSendenToolStripMenuItem.Click
+        Dim send As New frmLeer
+        send.Text = "Nachricht senden"
+        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.Dock = DockStyle.Fill : send.PanMain.Controls.Add(usrcntrl)
+        send.Show()
+    End Sub
+
+    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
+        Load2DGV(TextBox1.Text)
+    End Sub
+
+    Function ReturnOfTheWhere()
+        Dim ding As String = "%{0}%"
+        Return String.Format(ding, TextBox1.Text)
+    End Function
+
+    Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
+        TextBox1.Text = ""
+    End Sub
+End Class

Dokumentation_Updater/Update.Designer.vb

@@ -68,7 +68,7 @@ Partial Class Update
         Me.Controls.Add(Me.CmdUpdate)
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.Name = "Update"
-        Me.Text = "Doku Update 1.0.1"
+        Me.Text = "Doku Update 1.0.2"
         Me.ResumeLayout(False)
         Me.PerformLayout()
 

Dokumentation_Updater/Update.vb

@@ -3,7 +3,7 @@
 Public Class Update
     Public sAppPath As String = Application.StartupPath
 
-    Public Updatequelle As String = "\\192.168.0.91\f\Programme\Doku\"
+    Public Updatequelle As String = "\\share01.verag.ost.dmn\Programme\Doku\"
 
     Private Sub Update_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         TxtInfo.Text = "Programmpfad: " & sAppPath & vbCrLf