Dumdidummdummda

Dokumentation/Classes/Class1.vb

@@ -31,6 +31,8 @@ Public Class Class1
     Public Shared HostList As New List(Of String)
     Public Shared TerminalServerList As New List(Of String)
 
+    Public Shared ini As New cINI
+
 
     Public Shared Sub EnableDoubleBuffered(ByRef dgv As DataGridView)
         Dim dgvType As Type = dgv.[GetType]()

Dokumentation/Classes/cDomUser.vb

@@ -14,6 +14,8 @@ Public Class cDomUser
     Property du_Dom As String = ""
     Property du_sAMAc As String = ""
     Property du_Info As String = ""
+    Property du_autologoff As Boolean = False
+    Property du_autologofftime As DateTime
     Property mit_username As String = ""
     Property mit_pwd As String = ""
     '-----------------------------------------
@@ -41,6 +43,8 @@ Public Class cDomUser
         list.Add(New SQLVariable("du_Dom", du_Dom))
         list.Add(New SQLVariable("du_sAMAc", du_sAMAc))
         list.Add(New SQLVariable("du_Info", du_Info))
+        list.Add(New SQLVariable("du_autologoff", du_autologoff))
+        list.Add(New SQLVariable("du_autologofftime", du_autologofftime))
         list.Add(New SQLVariable("mit_username", mit_username))
         list.Add(New SQLVariable("mit_pwd", mit_pwd))
         Return list

Dokumentation/Classes/cINI.vb

@@ -0,0 +1,123 @@
+Imports System.Reflection
+Imports System.IO
+
+Public Class cINI
+
+    Public sAppPath As String = Application.StartupPath
+
+    Dim cINIPropertys = New List(Of MemberInfo)
+    Dim INIfile As String = sAppPath & "\config.ini"
+    Property prop_TSSitzungenAnzeigen As Boolean = True
+    Property prop_Kompansicht As Boolean = True
+    Property prop_FreiHostsAnzeigen As Boolean = False
+    Property prop_DHCPClientsAnzeigen As Boolean = False
+    Property prop_ToolsPanelAnzeizgen As Boolean = False
+
+    Property prop_Pano As Boolean = False
+
+
+    Public Function LoadParameters()
+        If Not File.Exists(Application.StartupPath & "\config.ini") Then
+            File.Create(Application.StartupPath & "\config.ini")
+            Exit Function
+        End If
+
+
+        Dim test As String = ""
+        Dim cINIPropertysNames = New List(Of String)
+        Dim t As Type = GetType(cINI)
+
+        For Each member As MemberInfo In t.GetMembers
+            If member.Name.ToString Like "prop_*" Then
+                cINIPropertys.Add(member)
+                cINIPropertysNames.Add(member.Name)
+                'MsgBox(member.Name)
+            End If
+        Next
+
+        Try
+            Dim lines = IO.File.ReadAllLines(sAppPath & "\config.ini")
+            If lines.Count <= 1 Then Me.save()
+            Try
+                Dim colCount = lines.First.Split(";"c).Length
+            Catch
+                '
+                Me.save(True)
+            End Try
+
+            '    Dim cINIPropertys = New List(Of MemberInfo)
+
+
+
+
+            For Each meh In cINIPropertys
+                test &= meh.Name.ToString & vbCrLf
+            Next
+
+            '  MsgBox(test)
+
+            For Each member As MemberInfo In cINIPropertys
+                For Each line In lines
+                    Dim objFields = From field In line.Split(";"c)
+
+                    Select Case objFields(0).ToString
+                        Case member.Name
+                            ' MsgBox(objFields(0).ToString)
+                            'MsgBox(objFields(1).ToString)
+                            SetPropertyValueByName(Me, member.Name, objFields(1))
+                            '    _ConType = objFields(1).ToString
+                            '    Return True
+                            '    Exit Function
+                    End Select
+                Next
+            Next
+            ' MsgBox(prop_TSSitzungenAnzeigen)
+            Return False
+        Catch ex As Exception
+            MsgBox("Fehler beim Lesen config.ini: " & vbCrLf & ex.Message)
+        End Try
+
+
+
+    End Function
+
+    Public Shared Function SetPropertyValueByName(obj As [Object], name As String, value As [Object]) As Boolean
+        Dim prop = obj.[GetType]().GetProperty(name, BindingFlags.[Public] Or BindingFlags.Instance)
+        If prop Is Nothing OrElse Not prop.CanWrite Then
+            Return False
+        End If
+        Try
+            prop.SetValue(obj, value, Nothing)
+        Catch
+            Dim b As Boolean = False
+            If value = "True" Or value = "1" Then
+                b = True
+            Else
+                b = False
+            End If
+            prop.SetValue(obj, b, Nothing)
+        End Try
+
+        Return True
+    End Function
+
+    Public Shared Function GETPropertyValueByName(obj As [Object], name As String)
+        Dim prop = obj.[GetType]().GetProperty(name, BindingFlags.[Public] Or BindingFlags.Instance)
+        Return prop.GetValue(obj)
+    End Function
+
+    Function save(Optional ByVal echostring As Boolean = False)
+        Dim savestring As String = ""
+        For Each member As MemberInfo In cINIPropertys
+            savestring &= member.Name & ";" & GETPropertyValueByName(Me, member.Name) & ";" & vbCrLf
+        Next
+        If echostring = True Then
+            MsgBox(savestring)
+            Exit Function
+        End If
+        Dim objWriter As New System.IO.StreamWriter(INIfile)
+        objWriter.Write(savestring)
+        objWriter.Close()
+
+    End Function
+End Class

Dokumentation/Dokumentation.vbproj

@@ -219,6 +219,7 @@
     </Compile>
     <Compile Include="Classes\cDomUser.vb" />
     <Compile Include="Classes\cEintrag.vb" />
+    <Compile Include="Classes\cINI.vb" />
     <Compile Include="Classes\cNetzwerk.vb" />
     <Compile Include="Classes\cTSUser.vb" />
     <Compile Include="Drucken\frmColumnsPrint.Designer.vb">
@@ -579,6 +580,7 @@
     <None Include="Resources\Hakerl20.png" />
     <None Include="Resources\aviso_messenger.png" />
     <Content Include="Resources\excel20.png" />
+    <None Include="Resources\external-content.duckduckgo.com.png" />
     <Content Include="Resources\pdf512.png" />
     <None Include="Resources\Print.png" />
     <None Include="Resources\Print20x20.png" />

Dokumentation/Main.Designer.vb

@@ -24,7 +24,7 @@ Partial Class Main
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Main))
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.Panel2 = New System.Windows.Forms.Panel()
         Me.Panel4 = New System.Windows.Forms.Panel()
         Me.Button1 = New System.Windows.Forms.Button()
@@ -60,6 +60,8 @@ Partial Class Main
         Me.ToolStripMenuItemINFO = New System.Windows.Forms.ToolStripMenuItem()
         Me.btnBenutzerverwaltung = New System.Windows.Forms.Button()
         Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.chkPano = New System.Windows.Forms.CheckBox()
+        Me.btnTSSitzungen = New System.Windows.Forms.Button()
         Me.Label20 = New System.Windows.Forms.Label()
         Me.picAVISOMessenger = New System.Windows.Forms.PictureBox()
         Me.chkTSSitzungen = New System.Windows.Forms.CheckBox()
@@ -134,7 +136,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(1614, 130)
+        Me.Panel2.Size = New System.Drawing.Size(1697, 130)
         Me.Panel2.TabIndex = 1
         '
         'Panel4
@@ -154,7 +156,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(1342, 106)
+        Me.Panel4.Size = New System.Drawing.Size(1425, 106)
         Me.Panel4.TabIndex = 14
         '
         'Button1
@@ -186,7 +188,7 @@ Partial Class Main
         '
         Me.LblVersion.Anchor = System.Windows.Forms.AnchorStyles.Right
         Me.LblVersion.AutoSize = True
-        Me.LblVersion.Location = New System.Drawing.Point(995, 81)
+        Me.LblVersion.Location = New System.Drawing.Point(1078, 81)
         Me.LblVersion.Name = "LblVersion"
         Me.LblVersion.Size = New System.Drawing.Size(42, 13)
         Me.LblVersion.TabIndex = 17
@@ -207,7 +209,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(846, 71)
+        Me.CmdSucheReset.Location = New System.Drawing.Point(929, 71)
         Me.CmdSucheReset.Name = "CmdSucheReset"
         Me.CmdSucheReset.Size = New System.Drawing.Size(121, 23)
         Me.CmdSucheReset.TabIndex = 15
@@ -218,7 +220,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(660, 23)
+        Me.TxtSuche.Location = New System.Drawing.Point(743, 23)
         Me.TxtSuche.Name = "TxtSuche"
         Me.TxtSuche.Size = New System.Drawing.Size(138, 20)
         Me.TxtSuche.TabIndex = 3
@@ -228,7 +230,7 @@ Partial Class Main
         Me.Label1.Anchor = System.Windows.Forms.AnchorStyles.Right
         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(613, 26)
+        Me.Label1.Location = New System.Drawing.Point(696, 26)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(47, 13)
         Me.Label1.TabIndex = 4
@@ -239,7 +241,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(804, 5)
+        Me.PanType.Location = New System.Drawing.Point(887, 5)
         Me.PanType.Name = "PanType"
         Me.PanType.Size = New System.Drawing.Size(183, 41)
         Me.PanType.TabIndex = 12
@@ -267,7 +269,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(998, 2)
+        Me.PictureBox1.Location = New System.Drawing.Point(1081, 2)
         Me.PictureBox1.Name = "PictureBox1"
         Me.PictureBox1.Size = New System.Drawing.Size(333, 67)
         Me.PictureBox1.TabIndex = 1
@@ -279,7 +281,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(660, 49)
+        Me.PanSuche.Location = New System.Drawing.Point(743, 49)
         Me.PanSuche.Name = "PanSuche"
         Me.PanSuche.Size = New System.Drawing.Size(314, 31)
         Me.PanSuche.TabIndex = 11
@@ -351,7 +353,7 @@ 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(1614, 24)
+        Me.MenuStrip1.Size = New System.Drawing.Size(1697, 24)
         Me.MenuStrip1.TabIndex = 2
         Me.MenuStrip1.Text = "MenuStrip1"
         '
@@ -359,60 +361,60 @@ Partial Class Main
         '
         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(49, 20)
+        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(50, 20)
         Me.ToolStripMenuItem1.Text = "Extras"
         '
         'NetzwerkeToolStripMenuItem
         '
         Me.NetzwerkeToolStripMenuItem.Name = "NetzwerkeToolStripMenuItem"
-        Me.NetzwerkeToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
+        Me.NetzwerkeToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
         Me.NetzwerkeToolStripMenuItem.Text = "Tabellen bearbeiten"
         '
         'AnsichtDruckenToolStripMenuItem
         '
         Me.AnsichtDruckenToolStripMenuItem.Name = "AnsichtDruckenToolStripMenuItem"
-        Me.AnsichtDruckenToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
+        Me.AnsichtDruckenToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
         Me.AnsichtDruckenToolStripMenuItem.Text = "Drucken"
         '
         'ExportToolStripMenuItem
         '
         Me.ExportToolStripMenuItem.Name = "ExportToolStripMenuItem"
-        Me.ExportToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
+        Me.ExportToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
         Me.ExportToolStripMenuItem.Text = "Export"
         '
         'ImportToolStripMenuItem
         '
         Me.ImportToolStripMenuItem.Name = "ImportToolStripMenuItem"
-        Me.ImportToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
+        Me.ImportToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
         Me.ImportToolStripMenuItem.Text = "Import"
         '
         'BenutzerToolStripMenuItem
         '
         Me.BenutzerToolStripMenuItem.Name = "BenutzerToolStripMenuItem"
-        Me.BenutzerToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
+        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(177, 22)
+        Me.AllesSichernCSVToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
         Me.AllesSichernCSVToolStripMenuItem.Text = "Alles Sichern (CSV)"
         '
         'ToolStripSeparator1
         '
         Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
-        Me.ToolStripSeparator1.Size = New System.Drawing.Size(174, 6)
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(173, 6)
         '
         'UpdateToolStripMenuItem
         '
         Me.UpdateToolStripMenuItem.Name = "UpdateToolStripMenuItem"
-        Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
+        Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
         Me.UpdateToolStripMenuItem.Text = "Update"
         '
         'ExitToolStripMenuItem
         '
         Me.ExitToolStripMenuItem.Name = "ExitToolStripMenuItem"
-        Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
+        Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
         Me.ExitToolStripMenuItem.Text = "Exit"
         '
         'ToolStripMenuItem2
@@ -434,7 +436,7 @@ Partial Class Main
         Me.btnBenutzerverwaltung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btnBenutzerverwaltung.Image = Global.Dokumentation.My.Resources.Resources.Admin20
         Me.btnBenutzerverwaltung.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnBenutzerverwaltung.Location = New System.Drawing.Point(25, 695)
+        Me.btnBenutzerverwaltung.Location = New System.Drawing.Point(25, 685)
         Me.btnBenutzerverwaltung.Name = "btnBenutzerverwaltung"
         Me.btnBenutzerverwaltung.Size = New System.Drawing.Size(151, 28)
         Me.btnBenutzerverwaltung.TabIndex = 20
@@ -444,6 +446,8 @@ Partial Class Main
         'Panel3
         '
         Me.Panel3.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
+        Me.Panel3.Controls.Add(Me.chkPano)
+        Me.Panel3.Controls.Add(Me.btnTSSitzungen)
         Me.Panel3.Controls.Add(Me.Label20)
         Me.Panel3.Controls.Add(Me.picAVISOMessenger)
         Me.Panel3.Controls.Add(Me.btnBenutzerverwaltung)
@@ -465,16 +469,41 @@ 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, 921)
+        Me.Panel3.Size = New System.Drawing.Size(200, 863)
         Me.Panel3.TabIndex = 2
         '
+        'chkPano
+        '
+        Me.chkPano.AutoSize = True
+        Me.chkPano.Location = New System.Drawing.Point(25, 826)
+        Me.chkPano.Name = "chkPano"
+        Me.chkPano.Size = New System.Drawing.Size(51, 17)
+        Me.chkPano.TabIndex = 44
+        Me.chkPano.Text = "Pano"
+        Me.chkPano.UseVisualStyleBackColor = True
+        Me.chkPano.Visible = False
+        '
+        'btnTSSitzungen
+        '
+        Me.btnTSSitzungen.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.btnTSSitzungen.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
+        Me.btnTSSitzungen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnTSSitzungen.Image = Global.Dokumentation.My.Resources.Resources.external_content_duckduckgo_com
+        Me.btnTSSitzungen.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnTSSitzungen.Location = New System.Drawing.Point(25, 719)
+        Me.btnTSSitzungen.Name = "btnTSSitzungen"
+        Me.btnTSSitzungen.Size = New System.Drawing.Size(151, 28)
+        Me.btnTSSitzungen.TabIndex = 43
+        Me.btnTSSitzungen.Text = "TS Sitzungen"
+        Me.btnTSSitzungen.UseVisualStyleBackColor = False
+        '
         'Label20
         '
         Me.Label20.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label20.BackColor = System.Drawing.Color.Red
         Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Label20.ForeColor = System.Drawing.Color.White
-        Me.Label20.Location = New System.Drawing.Point(148, 862)
+        Me.Label20.Location = New System.Drawing.Point(148, 804)
         Me.Label20.Name = "Label20"
         Me.Label20.Size = New System.Drawing.Size(28, 19)
         Me.Label20.TabIndex = 42
@@ -488,7 +517,7 @@ Partial Class Main
         Me.picAVISOMessenger.BackgroundImage = Global.Dokumentation.My.Resources.Resources.aviso_messenger
         Me.picAVISOMessenger.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.picAVISOMessenger.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.picAVISOMessenger.Location = New System.Drawing.Point(107, 821)
+        Me.picAVISOMessenger.Location = New System.Drawing.Point(135, 805)
         Me.picAVISOMessenger.Name = "picAVISOMessenger"
         Me.picAVISOMessenger.Size = New System.Drawing.Size(59, 55)
         Me.picAVISOMessenger.TabIndex = 41
@@ -497,7 +526,7 @@ Partial Class Main
         'chkTSSitzungen
         '
         Me.chkTSSitzungen.AutoSize = True
-        Me.chkTSSitzungen.Location = New System.Drawing.Point(25, 744)
+        Me.chkTSSitzungen.Location = New System.Drawing.Point(25, 757)
         Me.chkTSSitzungen.Name = "chkTSSitzungen"
         Me.chkTSSitzungen.Size = New System.Drawing.Size(157, 17)
         Me.chkTSSitzungen.TabIndex = 19
@@ -638,7 +667,7 @@ Partial Class Main
         'ChkTools
         '
         Me.ChkTools.AutoSize = True
-        Me.ChkTools.Location = New System.Drawing.Point(25, 790)
+        Me.ChkTools.Location = New System.Drawing.Point(25, 803)
         Me.ChkTools.Name = "ChkTools"
         Me.ChkTools.Size = New System.Drawing.Size(107, 17)
         Me.ChkTools.TabIndex = 10
@@ -662,7 +691,7 @@ Partial Class Main
         'ChKZugangsdaten
         '
         Me.ChKZugangsdaten.AutoSize = True
-        Me.ChKZugangsdaten.Location = New System.Drawing.Point(25, 767)
+        Me.ChKZugangsdaten.Location = New System.Drawing.Point(25, 780)
         Me.ChKZugangsdaten.Name = "ChKZugangsdaten"
         Me.ChKZugangsdaten.Size = New System.Drawing.Size(141, 17)
         Me.ChKZugangsdaten.TabIndex = 4
@@ -690,7 +719,7 @@ Partial Class Main
         'CMdTest2
         '
         Me.CMdTest2.Dock = System.Windows.Forms.DockStyle.Right
-        Me.CMdTest2.Location = New System.Drawing.Point(974, 0)
+        Me.CMdTest2.Location = New System.Drawing.Point(988, 0)
         Me.CMdTest2.Name = "CMdTest2"
         Me.CMdTest2.Size = New System.Drawing.Size(75, 100)
         Me.CMdTest2.TabIndex = 3
@@ -700,7 +729,7 @@ Partial Class Main
         'CmdTest
         '
         Me.CmdTest.Dock = System.Windows.Forms.DockStyle.Right
-        Me.CmdTest.Location = New System.Drawing.Point(899, 0)
+        Me.CmdTest.Location = New System.Drawing.Point(913, 0)
         Me.CmdTest.Name = "CmdTest"
         Me.CmdTest.Size = New System.Drawing.Size(75, 100)
         Me.CmdTest.TabIndex = 2
@@ -725,14 +754,14 @@ Partial Class Main
         Me.DgVMain.AllowUserToDeleteRows = False
         Me.DgVMain.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.DgVMain.BorderStyle = System.Windows.Forms.BorderStyle.None
-        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DgVMain.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
+        Me.DgVMain.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
         Me.DgVMain.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.DgVMain.ContextMenuStrip = Me.DGVMainContext
         Me.DgVMain.Dock = System.Windows.Forms.DockStyle.Fill
@@ -743,7 +772,7 @@ Partial Class Main
         Me.DgVMain.RowHeadersBorderStyle = System.Windows.Forms.DataGridViewHeaderBorderStyle.[Single]
         Me.DgVMain.RowHeadersVisible = False
         Me.DgVMain.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.DgVMain.Size = New System.Drawing.Size(1049, 821)
+        Me.DgVMain.Size = New System.Drawing.Size(1063, 763)
         Me.DgVMain.TabIndex = 3
         '
         'DGVMainContext
@@ -846,9 +875,9 @@ 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, 951)
+        Me.PanTools.Location = New System.Drawing.Point(200, 893)
         Me.PanTools.Name = "PanTools"
-        Me.PanTools.Size = New System.Drawing.Size(1049, 100)
+        Me.PanTools.Size = New System.Drawing.Size(1063, 100)
         Me.PanTools.TabIndex = 4
         Me.PanTools.Visible = False
         '
@@ -867,7 +896,7 @@ Partial Class Main
         'btnTest3
         '
         Me.btnTest3.Dock = System.Windows.Forms.DockStyle.Right
-        Me.btnTest3.Location = New System.Drawing.Point(824, 0)
+        Me.btnTest3.Location = New System.Drawing.Point(838, 0)
         Me.btnTest3.Name = "btnTest3"
         Me.btnTest3.Size = New System.Drawing.Size(75, 100)
         Me.btnTest3.TabIndex = 13
@@ -918,9 +947,9 @@ Partial Class Main
         'panTSSitzungen
         '
         Me.panTSSitzungen.Dock = System.Windows.Forms.DockStyle.Right
-        Me.panTSSitzungen.Location = New System.Drawing.Point(1249, 130)
+        Me.panTSSitzungen.Location = New System.Drawing.Point(1263, 130)
         Me.panTSSitzungen.Name = "panTSSitzungen"
-        Me.panTSSitzungen.Size = New System.Drawing.Size(365, 921)
+        Me.panTSSitzungen.Size = New System.Drawing.Size(434, 863)
         Me.panTSSitzungen.TabIndex = 5
         Me.panTSSitzungen.Visible = False
         '
@@ -933,7 +962,7 @@ Partial Class Main
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1614, 1051)
+        Me.ClientSize = New System.Drawing.Size(1697, 993)
         Me.Controls.Add(Me.DgVMain)
         Me.Controls.Add(Me.PanTools)
         Me.Controls.Add(Me.panTSSitzungen)
@@ -980,7 +1009,6 @@ Partial Class Main
     Friend WithEvents LblUhrzeit As Label
     Friend WithEvents LblNetzwerkinfo As Label
     Friend WithEvents CmdNetzwerkbearbeiten As Button
-    Friend WithEvents PictureBox1 As PictureBox
     Friend WithEvents MenuStrip1 As MenuStrip
     Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
     Friend WithEvents NetzwerkeToolStripMenuItem As ToolStripMenuItem
@@ -1054,4 +1082,7 @@ Partial Class Main
     Friend WithEvents Timer_Refresh As Timer
     Friend WithEvents Timer1 As Timer
     Friend WithEvents Button1 As Button
+    Public WithEvents PictureBox1 As PictureBox
+    Friend WithEvents btnTSSitzungen As Button
+    Friend WithEvents chkPano As CheckBox
 End Class

Dokumentation/Main.resx

@@ -117,6 +117,9 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
@@ -299,7 +302,7 @@
     <value>1067, 17</value>
   </metadata>
   <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>59</value>
+    <value>48</value>
   </metadata>
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>

Dokumentation/Main.vb

@@ -1,4 +1,5 @@
 Imports System.Data.SqlClient
+Imports System.IO
 Imports System.DirectoryServices.AccountManagement
 
 Public Class Main
@@ -32,19 +33,19 @@ Public Class Main
 
     Public printds As DataSet = Nothing
 
-    Private Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As IntPtr
+    Public Shared Event ResetButtonPressed()
 
+    Private Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As IntPtr
 
 
     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         LblUhrzeit.Text = "Willkommen " & Class1.LoggedOnUser.Name
+        Class1.ini.LoadParameters()
+        SetAnsichtLautIni()
         Class1.EnableDoubleBuffered(DgVMain)
 
         Me.KeyPreview = True
-        'MsgBox(sAppPath)
 
-
-        'If Class1.DBConString = "Server=DEVELOPER\DEVSQL;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;" Then
         If Class1.DebugMode = True Then
             LblDEBUGMODE.Visible = True
             LblDEBUGMODE.ForeColor = Color.Red
@@ -61,7 +62,6 @@ Public Class Main
             CheckUpdate("Programmstart")
             LstStandortLoad()
             LblUhrzeit.Text = ""
-            'ImportToolStripMenuItem.Enabled = False
             With DgVMain
                 .RowsDefaultCellStyle.BackColor = Color.White 'Color.Bisque
                 .AlternatingRowsDefaultCellStyle.BackColor = ColorTranslator.FromHtml("#d7e4f2")
@@ -70,8 +70,8 @@ Public Class Main
 
         TypeFilter()
 
-        ChkTools.Checked = Class1.DebugMode
+        'ChkTools.Checked = Class1.DebugMode
-        chkTSSitzungen.Checked = True
+        ' chkTSSitzungen.Checked = True
 
     End Sub
 
@@ -278,6 +278,7 @@ Public Class Main
         Dim netzwerkname As String = SenderStandort & "_" & SenderNetzwerk
         LblNetzwerkinfo.Text = ""
         Try
+            'con.StatisticsEnabled = True
             con.Open()
             cmd.CommandText = "SELECT * FROM Tbl_Netzwerke WHERE Netzwerkname='" & netzwerkname & "'"
             reader = cmd.ExecuteReader()
@@ -642,7 +643,7 @@ Public Class Main
     End Function
 
     Private Sub CmdTest_Click(sender As Object, e As EventArgs) Handles CmdTest.Click
-        CheckUpdate("DingDong")
+
     End Sub
     Private Sub CMdTest2_Click(sender As Object, e As EventArgs) Handles CMdTest2.Click
         Dim testuser As New cDomUser
@@ -663,7 +664,7 @@ Public Class Main
 
     End Sub
     Private Sub btnTest3_Click(sender As Object, e As EventArgs) Handles btnTest3.Click
-
+        Class1.ini.save()
     End Sub
 
     Public Function GetDHCPClients(Netzwerk As String, DHCPServer As String, Fill As Boolean, ByRef ds As DataSet)
@@ -770,17 +771,17 @@ Public Class Main
     Private Sub TxtSuche_TextChanged(sender As Object, e As EventArgs) Handles TxtSuche.TextChanged, RadNurNetzwerk.CheckedChanged, RadGlobal.CheckedChanged, RadStandort.CheckedChanged, LstType.SelectedIndexChanged ', TxtSuche.MouseClick
         If TxtSuche.TextLength < 1 And LstType.SelectedItem = "" Then
             Suchbegriff = "%%"
-            ChkFreieHosts.Checked = False
+            ' ChkFreieHosts.Checked = False
             dgvload_filter(Suchbegriff)
 
         ElseIf TxtSuche.TextLength < 1 And Not LstType.SelectedItem = "" Then
-            ChkDHCPClients.Checked = False
+            'ChkDHCPClients.Checked = False
-            ChkFreieHosts.Checked = False
+            'ChkFreieHosts.Checked = False
             dgvload_filter(Suchbegriff)
         Else
             Suchbegriff = "%" & Class1.hochkomma(TxtSuche.Text) & "%"
-            ChkDHCPClients.Checked = False
+            'ChkDHCPClients.Checked = False
-            ChkFreieHosts.Checked = False
+            'ChkFreieHosts.Checked = False
             dgvload_filter(Suchbegriff)
         End If
 
@@ -898,6 +899,7 @@ Public Class Main
     End Sub
 
     Private Sub ChkTools_CheckedChanged(sender As Object, e As EventArgs) Handles ChkTools.CheckedChanged
+
         If ChkTools.Checked Then
             PanTools.Visible = True
         Else
@@ -1046,7 +1048,8 @@ Public Class Main
     End Sub
 
     Private Sub ChkKompAnsicht_CheckedChanged(sender As Object, e As EventArgs) Handles ChkKompAnsicht.CheckedChanged, ChkFreieHosts.CheckedChanged, ChkDHCPClients.CheckedChanged
-        'dgvload(Tabelle)
+
+
         If ChkFreieHosts.Checked Then
             TxtSuche.Text = ""
             LstType.SelectedItem = ""
@@ -1235,6 +1238,7 @@ Public Class Main
     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
@@ -1362,7 +1366,15 @@ Public Class Main
         DS.OPEN_SINGLE()
     End Sub
 
-    Private Sub PictureBox1_Click_1(sender As Object, e As EventArgs) Handles PictureBox1.Click
+    Public Sub PictureBox1_Click_1(sender As Object, e As EventArgs) Handles PictureBox1.Click
+        TxtSuche.Text = ""
+        RadNurNetzwerk.PerformClick()
+        CmdSucheReset.PerformClick()
+        Try
+            RaiseEvent ResetButtonPressed()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
         LstStandortLoad()
         'dgvload_filter
     End Sub
@@ -1492,8 +1504,42 @@ Public Class Main
 
     End Sub
 
+    Function SetAnsichtLautIni()
+        If File.Exists(Application.StartupPath & "\config.ini") Then
+            chkTSSitzungen.Checked = Class1.ini.prop_TSSitzungenAnzeigen
+            ChkKompAnsicht.Checked = Class1.ini.prop_Kompansicht
+            ChkFreieHosts.Checked = Class1.ini.prop_FreiHostsAnzeigen
+            ChkDHCPClients.Checked = Class1.ini.prop_DHCPClientsAnzeigen
+            ChkTools.Checked = Class1.ini.prop_ToolsPanelAnzeizgen
+            chkPano.Checked = Class1.ini.prop_Pano
+        Else
+            '     File.Create(Application.StartupPath & "\config.ini")
+        End If
+    End Function
+
+    Private Sub btnTSSitzungen_Click(sender As Object, e As EventArgs) Handles btnTSSitzungen.Click
+        Dim TSSitzungen As New frmLeer
+        TSSitzungen.PanMain.Controls.Clear()
+        Dim dingsi As New uscntr_TSSitzungen
+        TSSitzungen.AutoSize = AutoSizeMode.GrowAndShrink
+        TSSitzungen.Size = New Size(434, 863)
+        dingsi.Dock = Dock.Fill
+        TSSitzungen.PanMain.Controls.Add(dingsi)
+        TSSitzungen.Show()
+    End Sub
 
 
+    Private Sub Main_Closed(sender As Object, e As EventArgs) Handles Me.Closed
+
+        Class1.ini.prop_Kompansicht = ChkKompAnsicht.Checked
+        Class1.ini.prop_FreiHostsAnzeigen = ChkFreieHosts.Checked
+        Class1.ini.prop_DHCPClientsAnzeigen = ChkDHCPClients.Checked
+        Class1.ini.prop_ToolsPanelAnzeizgen = ChkTools.Checked
+        Class1.ini.prop_TSSitzungenAnzeigen = chkTSSitzungen.Checked
+        Class1.ini.prop_Pano = chkPano.Checked
+
+        Class1.ini.save()
+    End Sub
 End Class
 
 '1208

Dokumentation/My Project/Resources.Designer.vb

@@ -120,6 +120,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property external_content_duckduckgo_com() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("external-content.duckduckgo.com", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -269,7 +279,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die 0.0.1.60 ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die 0.0.1.64 ähnelt.
         '''</summary>
         Friend ReadOnly Property Version() As String
             Get

Dokumentation/My Project/Resources.resx

@@ -124,17 +124,17 @@
   <data name="Hakerl20" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Hakerl20.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>
   <data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\del.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="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="Version" xml:space="preserve">
-    <value>0.0.1.60</value>
+    <value>0.0.1.64</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>
@@ -145,20 +145,20 @@
   <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="excel20" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="Link1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\excel20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\Link.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="Admin" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Admin.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Admin20" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Admin20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="aviso_messenger" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\aviso_messenger.png;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">
+  <data name="excel20" 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\excel20.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>
@@ -166,22 +166,25 @@
   <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="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="mail20" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="msg" 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>
+    <value>..\Resources\msg.exe;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
   <data name="Programmcode" xml:space="preserve">
     <value>DOKU</value>
   </data>
-  <data name="Link1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="Admin" 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>
+    <value>..\Resources\Admin.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="aviso_messenger" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="external-content.duckduckgo.com" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\aviso_messenger.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\external-content.duckduckgo.com.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
 </root>

Dokumentation/uscntr_DomUser.Designer.vb

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class uscntr_DomUser
     Inherits System.Windows.Forms.UserControl
 
     'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class uscntr_DomUser
     '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()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.cmdSave = New System.Windows.Forms.Button()
         Me.TxtAvisoBenutzername = New System.Windows.Forms.TextBox()
@@ -48,6 +48,9 @@ Partial Class uscntr_DomUser
         Me.Label1 = New System.Windows.Forms.Label()
         Me.ListDomUser = New System.Windows.Forms.ListBox()
         Me.btnSchliessen = New System.Windows.Forms.Button()
+        Me.chkAutoLogoff = New System.Windows.Forms.CheckBox()
+        Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
+        Me.cmd3Uhr = New System.Windows.Forms.Button()
         Me.SuspendLayout()
         '
         'cmdSave
@@ -308,12 +311,50 @@ Partial Class uscntr_DomUser
         Me.btnSchliessen.Text = "Schließen"
         Me.btnSchliessen.UseVisualStyleBackColor = False
         '
+        'chkAutoLogoff
+        '
+        Me.chkAutoLogoff.AutoSize = True
+        Me.chkAutoLogoff.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.chkAutoLogoff.Location = New System.Drawing.Point(8, 227)
+        Me.chkAutoLogoff.Name = "chkAutoLogoff"
+        Me.chkAutoLogoff.Size = New System.Drawing.Size(78, 17)
+        Me.chkAutoLogoff.TabIndex = 164
+        Me.chkAutoLogoff.Text = "Aut. Logoff"
+        Me.chkAutoLogoff.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.chkAutoLogoff.UseVisualStyleBackColor = True
+        '
+        'DateTimePicker1
+        '
+        Me.DateTimePicker1.Enabled = False
+        Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Time
+        Me.DateTimePicker1.Location = New System.Drawing.Point(103, 224)
+        Me.DateTimePicker1.Name = "DateTimePicker1"
+        Me.DateTimePicker1.Size = New System.Drawing.Size(82, 20)
+        Me.DateTimePicker1.TabIndex = 165
+        '
+        'cmd3Uhr
+        '
+        Me.cmd3Uhr.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.cmd3Uhr.Enabled = False
+        Me.cmd3Uhr.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
+        Me.cmd3Uhr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.cmd3Uhr.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cmd3Uhr.Location = New System.Drawing.Point(191, 224)
+        Me.cmd3Uhr.Name = "cmd3Uhr"
+        Me.cmd3Uhr.Size = New System.Drawing.Size(66, 20)
+        Me.cmd3Uhr.TabIndex = 166
+        Me.cmd3Uhr.Text = "03:00"
+        Me.cmd3Uhr.UseVisualStyleBackColor = False
+        '
         'uscntr_DomUser
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.AutoSize = True
         Me.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
+        Me.Controls.Add(Me.cmd3Uhr)
+        Me.Controls.Add(Me.DateTimePicker1)
+        Me.Controls.Add(Me.chkAutoLogoff)
         Me.Controls.Add(Me.btnSchliessen)
         Me.Controls.Add(Me.ListDomUser)
         Me.Controls.Add(Me.txtInfo)
@@ -341,7 +382,7 @@ Partial Class uscntr_DomUser
         Me.Controls.Add(Me.ChkKennwortAnzeigen)
         Me.Controls.Add(Me.cmdSave)
         Me.Name = "uscntr_DomUser"
-        Me.Size = New System.Drawing.Size(678, 498)
+        Me.Size = New System.Drawing.Size(678, 369)
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -373,4 +414,7 @@ Partial Class uscntr_DomUser
     Friend WithEvents Label1 As Label
     Friend WithEvents ListDomUser As ListBox
     Friend WithEvents btnSchliessen As Button
+    Friend WithEvents chkAutoLogoff As CheckBox
+    Friend WithEvents DateTimePicker1 As DateTimePicker
+    Friend WithEvents cmd3Uhr As Button
 End Class

Dokumentation/uscntr_DomUser.vb

@@ -21,6 +21,11 @@
             txtDomKennwort.Text = DomUser.du_Kennwort
 
             txtEMailAdresse.Enabled = DomUser.du_Email_Activated
+
+            chkAutoLogoff.Checked = DomUser.du_autologoff
+            If DomUser.du_autologoff = True Then
+                DateTimePicker1.Value = DomUser.du_autologofftime
+            End If
         End If
     End Function
 
@@ -35,6 +40,8 @@
         DomUser.du_Email_Activated = chkEMailAktiv.Checked
         DomUser.du_EMail = txtEMailAdresse.Text
         DomUser.du_Info = txtInfo.Text
+        DomUser.du_autologoff = chkAutoLogoff.Checked
+        DomUser.du_autologofftime = DateTimePicker1.Value
     End Function
 
     Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
@@ -58,6 +65,7 @@
         If chkEMailAktiv.Checked Then
             txtEMailAdresse.Enabled = True
         Else
+            txtEMailAdresse.Text = ""
             txtEMailAdresse.Enabled = False
         End If
     End Sub
@@ -96,4 +104,17 @@
         cmdSave.PerformClick()
         ParentForm.Close()
     End Sub
+
+    Private Sub chkAutoLogoff_CheckedChanged(sender As Object, e As EventArgs) Handles chkAutoLogoff.CheckedChanged
+        DateTimePicker1.Enabled = chkAutoLogoff.Checked
+        cmd3Uhr.Enabled = chkAutoLogoff.Checked
+    End Sub
+
+    Private Sub Button1_Click_1(sender As Object, e As EventArgs)
+        MsgBox("hier")
+    End Sub
+
+    Private Sub cmd3Uhr_Click(sender As Object, e As EventArgs) Handles cmd3Uhr.Click
+        DateTimePicker1.Value = New DateTime(2020, 9, 1, 3, 0, 0)
+    End Sub
 End Class

Dokumentation/uscntr_DomUserList.Designer.vb

@@ -24,6 +24,9 @@ Partial Class uscntr_DomUserList
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.ExportToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.labAnzahl = New System.Windows.Forms.Label()
         Me.cmdNeu = New System.Windows.Forms.Button()
         Me.cmdReset = New System.Windows.Forms.Button()
         Me.CheckBox1 = New System.Windows.Forms.CheckBox()
@@ -35,14 +38,11 @@ Partial Class uscntr_DomUserList
         Me.dgvListUser = New System.Windows.Forms.DataGridView()
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.labAnzahl = New System.Windows.Forms.Label()
-        Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.ExportToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.Panel1.SuspendLayout()
+        Me.ContextMenuStrip2.SuspendLayout()
         Me.Panel2.SuspendLayout()
         CType(Me.dgvListUser, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuStrip1.SuspendLayout()
-        Me.ContextMenuStrip2.SuspendLayout()
         Me.SuspendLayout()
         '
         'Panel1
@@ -63,6 +63,27 @@ Partial Class uscntr_DomUserList
         Me.Panel1.Size = New System.Drawing.Size(678, 100)
         Me.Panel1.TabIndex = 0
         '
+        'ContextMenuStrip2
+        '
+        Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ExportToolStripMenuItem})
+        Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
+        Me.ContextMenuStrip2.Size = New System.Drawing.Size(109, 26)
+        '
+        'ExportToolStripMenuItem
+        '
+        Me.ExportToolStripMenuItem.Name = "ExportToolStripMenuItem"
+        Me.ExportToolStripMenuItem.Size = New System.Drawing.Size(108, 22)
+        Me.ExportToolStripMenuItem.Text = "Export"
+        '
+        'labAnzahl
+        '
+        Me.labAnzahl.AutoSize = True
+        Me.labAnzahl.Location = New System.Drawing.Point(535, 10)
+        Me.labAnzahl.Name = "labAnzahl"
+        Me.labAnzahl.Size = New System.Drawing.Size(39, 13)
+        Me.labAnzahl.TabIndex = 139
+        Me.labAnzahl.Text = "Label3"
+        '
         'cmdNeu
         '
         Me.cmdNeu.BackColor = System.Drawing.SystemColors.ControlLightLight
@@ -168,27 +189,6 @@ Partial Class uscntr_DomUserList
         Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(118, 22)
         Me.LöschenToolStripMenuItem.Text = "Löschen"
         '
-        'labAnzahl
-        '
-        Me.labAnzahl.AutoSize = True
-        Me.labAnzahl.Location = New System.Drawing.Point(535, 10)
-        Me.labAnzahl.Name = "labAnzahl"
-        Me.labAnzahl.Size = New System.Drawing.Size(39, 13)
-        Me.labAnzahl.TabIndex = 139
-        Me.labAnzahl.Text = "Label3"
-        '
-        'ContextMenuStrip2
-        '
-        Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ExportToolStripMenuItem})
-        Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
-        Me.ContextMenuStrip2.Size = New System.Drawing.Size(181, 48)
-        '
-        'ExportToolStripMenuItem
-        '
-        Me.ExportToolStripMenuItem.Name = "ExportToolStripMenuItem"
-        Me.ExportToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
-        Me.ExportToolStripMenuItem.Text = "Export"
-        '
         'uscntr_DomUserList
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -201,10 +201,10 @@ Partial Class uscntr_DomUserList
         Me.Size = New System.Drawing.Size(678, 498)
         Me.Panel1.ResumeLayout(False)
         Me.Panel1.PerformLayout()
+        Me.ContextMenuStrip2.ResumeLayout(False)
         Me.Panel2.ResumeLayout(False)
         CType(Me.dgvListUser, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ContextMenuStrip1.ResumeLayout(False)
-        Me.ContextMenuStrip2.ResumeLayout(False)
         Me.ResumeLayout(False)
 
     End Sub

Dokumentation/uscntr_DomUserList.vb

@@ -75,12 +75,15 @@ Public Class uscntr_DomUserList
         Me.Parent.Enabled = False
 
         AddHandler frm.FormClosing, Function()
+                                        Try
                                             Me.Parent.Enabled = True
                                             BringToFront()
                                             LoadDGV()
+                                        Catch
+                                        End Try
                                     End Function
 
-        frm.ShowDialog()
+        frm.Show()
 
     End Sub
 
@@ -112,7 +115,7 @@ Public Class uscntr_DomUserList
                                         LoadDGV()
                                     End Function
 
-        frm.ShowDialog()
+        frm.Show()
     End Sub
 
     Private Sub cbDomain_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbDomain.SelectedIndexChanged, TextBox1.TextChanged, CheckBox1.CheckedChanged
@@ -136,4 +139,5 @@ Public Class uscntr_DomUserList
     Private Sub ExportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExportToolStripMenuItem.Click
         Class1.datatable_2_csv_export(LoadDGV(True))
     End Sub
+
 End Class

Dokumentation/uscntr_TSSitzungen.Designer.vb

@@ -288,10 +288,10 @@ Partial Class uscntr_TSSitzungen
     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
     Friend WithEvents VerbindenMitTeamVToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents btnClient As Button
     Friend WithEvents btnSitzung As Button
     Friend WithEvents ProfildatenÖffnenExplorerToolStripMenuItem As ToolStripMenuItem
+    Public WithEvents btnReset As Button
 End Class

Dokumentation/uscntr_TSSitzungen.vb

@@ -4,11 +4,16 @@
     Dim SelectedIndex As Integer = 0
     Dim StartIndex As Integer = 0
 
-    Private Sub uscntr_TSSitzungen_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+    Public Sub uscntr_TSSitzungen_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        AddHandler Main.ResetButtonPressed, AddressOf Reset
+
         Class1.EnableDoubleBuffered(dgvTSSitzungen)
         Load2DGV()
     End Sub
 
+
     Function Load2DGV() ' (Optional ByVal Client As Boolean = False)
         If Client = False Then
             Dim ds As New DataSet
@@ -20,8 +25,10 @@
                 .RowHeadersVisible = False
                 .DataSource = ds.Tables(0)
                 .Columns("Domain").Visible = False
-                .Columns("LastLogon").Visible = False
+                .Columns("LastLogon").Visible = True
+                .Columns("LastLogon").HeaderText = "Sitzungsst."
                 .Columns("BenutzerAnmeldeName").Visible = False
+                .Columns("LastReport").Visible = False
 
                 .Columns("Name").Width = 110 'AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
                 .Columns("TeamviewerID").Width = 80
@@ -42,10 +49,10 @@
                 .DataSource = ds.Tables(0)
                 '.Columns("Domain").Visible = False
                 '.Columns("LastLogon").Visible = False
-                '.Columns("BenutzerAnmeldeName").Visible = False
+                .Columns("BenutzerAnmeldeName").Visible = False
-
+                .Columns("LastReport").Visible = False
                 '.Columns("Name").Width = 110 'AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
-                '.Columns("TeamviewerID").Width = 80
+                .Columns("TeamviewerID").Width = 80
                 '.Columns("TSServer").Width = 55
 
                 .AutoResizeColumn(1)
@@ -71,8 +78,6 @@
 
     End Sub
 
-
-
     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
         Load2DGV()
     End Sub
@@ -131,8 +136,14 @@
         Return String.Format(ding, TextBox1.Text)
     End Function
 
-    Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
+    Function Reset()
+        btnSitzung.PerformClick()
         TextBox1.Text = ""
+    End Function
+
+    Public Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
+        'TextBox1.Text = ""
+        Reset()
     End Sub
 
     Private Sub VerbindenMitTeamVToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerbindenMitTeamVToolStripMenuItem.Click
@@ -178,4 +189,7 @@
         SelectedIndex = dgvTSSitzungen.CurrentRow.Index
         StartIndex = dgvTSSitzungen.FirstDisplayedScrollingRowIndex
     End Function
+
+
+
 End Class