From fbaa4f1c02e780019dda45a9e28e6f227ba67b86 Mon Sep 17 00:00:00 2001 From: ms Date: Tue, 20 May 2025 13:51:01 +0200 Subject: [PATCH] ThinClients Wartungs-Meldung eingebaut --- Dokumentation/Classes/cSQL.vb | 22 +++ Dokumentation/Main.Designer.vb | 12 +- Dokumentation/Main.vb | 4 + .../My Project/Resources.Designer.vb | 2 +- Dokumentation/My Project/Resources.resx | 2 +- Dokumentation/frmHostBearbeiten.Designer.vb | 148 ++++++++++-------- Dokumentation/frmHostBearbeiten.resx | 3 + Dokumentation/frmHostBearbeiten.vb | 4 + Dokumentation/uscntr_TSSitzungen.Designer.vb | 33 +++- Dokumentation/uscntr_TSSitzungen.vb | 41 +++++ 10 files changed, 197 insertions(+), 74 deletions(-) diff --git a/Dokumentation/Classes/cSQL.vb b/Dokumentation/Classes/cSQL.vb index 2f5702c..9d83917 100644 --- a/Dokumentation/Classes/cSQL.vb +++ b/Dokumentation/Classes/cSQL.vb @@ -116,6 +116,28 @@ Public Class cSQL cmd.ExecuteNonQuery() con.Close() End Sub + Public Shared Sub UpdateSQL_(ByVal table As String, ByVal values As Dictionary(Of String, Object), ByVal where As String, Optional ByVal DBConnect As String = "") + If DBConnect = "" Then DBConnect = Class1.DBConString + + Using con As New SqlConnection(DBConnect), + cmd As New SqlCommand() + + con.Open() + cmd.Connection = con + + ' Dynamisch SQL-Zeile aufbauen + Dim setParts As New List(Of String) + For Each kvp In values + setParts.Add(kvp.Key & " = @" & kvp.Key) + cmd.Parameters.AddWithValue("@" & kvp.Key, kvp.Value) + Next + + cmd.CommandText = $"UPDATE {table} SET {String.Join(", ", setParts)} WHERE {where}" + + cmd.ExecuteNonQuery() + End Using + End Sub + Public Shared Sub InsertSQL(ByRef table As String, ByRef insert As String, Optional ByRef DBConnect As String = "") If DBConnect = "" Then DBConnect = Class1.DBConString diff --git a/Dokumentation/Main.Designer.vb b/Dokumentation/Main.Designer.vb index a90cb1a..64d4112 100644 --- a/Dokumentation/Main.Designer.vb +++ b/Dokumentation/Main.Designer.vb @@ -128,6 +128,7 @@ Partial Class Main Me.panTSSitzungen = New System.Windows.Forms.Panel() Me.Timer_Refresh = New System.Windows.Forms.Timer(Me.components) Me.Timer1 = New System.Windows.Forms.Timer(Me.components) + Me.IPAdresseKopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.Panel2.SuspendLayout() Me.Panel4.SuspendLayout() CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).BeginInit() @@ -881,9 +882,9 @@ Partial Class Main ' 'DGVMainContext ' - Me.DGVMainContext.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DgvMainContextMenuItemHost, Me.DateienToolStripMenuItem, Me.AnydeskToolStripMenuItem, Me.PuttyToolStripMenuItem, Me.ToolStripSeparator4, Me.DgvMainContextMenuItemLink, Me.LinkÖffnenMitEdgeToolStripMenuItem, Me.ToolStripSeparator5, Me.SMBToolStripMenuItem, Me.IPAdresseInZwischenablageToolStripMenuItem, Me.TeamviewerVerbindenToolStripMenuItem, Me.RDPToolStripMenuItem, Me.RDPFensterToolStripMenuItem, Me.ToolStripSeparator3, Me.ObjektLöschenToolStripMenuItem, Me.ToolStripSeparator2, Me.NetzwerkdateienToolStripMenuItem, Me.ToolsToolStripMenuItem}) + Me.DGVMainContext.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DgvMainContextMenuItemHost, Me.DateienToolStripMenuItem, Me.AnydeskToolStripMenuItem, Me.PuttyToolStripMenuItem, Me.IPAdresseKopierenToolStripMenuItem, Me.ToolStripSeparator4, Me.DgvMainContextMenuItemLink, Me.LinkÖffnenMitEdgeToolStripMenuItem, Me.ToolStripSeparator5, Me.SMBToolStripMenuItem, Me.IPAdresseInZwischenablageToolStripMenuItem, Me.TeamviewerVerbindenToolStripMenuItem, Me.RDPToolStripMenuItem, Me.RDPFensterToolStripMenuItem, Me.ToolStripSeparator3, Me.ObjektLöschenToolStripMenuItem, Me.ToolStripSeparator2, Me.NetzwerkdateienToolStripMenuItem, Me.ToolsToolStripMenuItem}) Me.DGVMainContext.Name = "ContextMenuStrip2" - Me.DGVMainContext.Size = New System.Drawing.Size(230, 336) + Me.DGVMainContext.Size = New System.Drawing.Size(230, 380) ' 'DgvMainContextMenuItemHost ' @@ -1105,6 +1106,12 @@ Partial Class Main 'Timer1 ' ' + 'IPAdresseKopierenToolStripMenuItem + ' + Me.IPAdresseKopierenToolStripMenuItem.Name = "IPAdresseKopierenToolStripMenuItem" + Me.IPAdresseKopierenToolStripMenuItem.Size = New System.Drawing.Size(229, 22) + Me.IPAdresseKopierenToolStripMenuItem.Text = "IP Adresse kopieren" + ' 'Main ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -1249,4 +1256,5 @@ Partial Class Main Friend WithEvents PuttyToolStripMenuItem As ToolStripMenuItem Friend WithEvents lblOfflinemodus As Label Friend WithEvents btnSync As Button + Friend WithEvents IPAdresseKopierenToolStripMenuItem As ToolStripMenuItem End Class diff --git a/Dokumentation/Main.vb b/Dokumentation/Main.vb index 98bf95d..5e22691 100644 --- a/Dokumentation/Main.vb +++ b/Dokumentation/Main.vb @@ -1820,6 +1820,10 @@ exit" End Sub + Private Sub IPAdresseKopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IPAdresseKopierenToolStripMenuItem.Click + Clipboard.SetText(DgVMain.CurrentRow.Cells("IPAdresse").Value) + End Sub + Private Sub Main_Closed(sender As Object, e As EventArgs) Handles Me.Closed Class1.ini.prop_Kompansicht = ChkKompAnsicht.Checked diff --git a/Dokumentation/My Project/Resources.Designer.vb b/Dokumentation/My Project/Resources.Designer.vb index 2d6e32d..82672b3 100644 --- a/Dokumentation/My Project/Resources.Designer.vb +++ b/Dokumentation/My Project/Resources.Designer.vb @@ -319,7 +319,7 @@ Namespace My.Resources End Property ''' - ''' Sucht eine lokalisierte Zeichenfolge, die 0.0.2.05 ähnelt. + ''' Sucht eine lokalisierte Zeichenfolge, die 0.0.2.07 ähnelt. ''' Friend ReadOnly Property Version() As String Get diff --git a/Dokumentation/My Project/Resources.resx b/Dokumentation/My Project/Resources.resx index 94ae7fa..a068fa6 100644 --- a/Dokumentation/My Project/Resources.resx +++ b/Dokumentation/My Project/Resources.resx @@ -137,7 +137,7 @@ ..\Resources\mail20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - 0.0.2.05 + 0.0.2.07 ..\Resources\Link.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a diff --git a/Dokumentation/frmHostBearbeiten.Designer.vb b/Dokumentation/frmHostBearbeiten.Designer.vb index e571d8a..4693c03 100644 --- a/Dokumentation/frmHostBearbeiten.Designer.vb +++ b/Dokumentation/frmHostBearbeiten.Designer.vb @@ -33,6 +33,8 @@ Partial Class frmHostBearbeiten Me.ChkKennwortAnzeigen = New System.Windows.Forms.CheckBox() Me.CmdIPChange = New System.Windows.Forms.Button() Me.TxtIP = New System.Windows.Forms.TextBox() + Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.IPAdresseKopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.Label1 = New System.Windows.Forms.Label() Me.CmdLink = New System.Windows.Forms.Button() Me.Label2 = New System.Windows.Forms.Label() @@ -73,6 +75,12 @@ Partial Class frmHostBearbeiten Me.CmdDelete = New System.Windows.Forms.Button() Me.TxtBenutzername = New System.Windows.Forms.TextBox() Me.Panel1 = New System.Windows.Forms.Panel() + Me.Button3 = New System.Windows.Forms.Button() + Me.txtAnydesk = New System.Windows.Forms.TextBox() + Me.Label15 = New System.Windows.Forms.Label() + Me.txtAnydeskPass = New System.Windows.Forms.TextBox() + Me.Label16 = New System.Windows.Forms.Label() + Me.CheckBox1 = New System.Windows.Forms.CheckBox() Me.Button2 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() Me.txtSSHPort = New System.Windows.Forms.TextBox() @@ -92,12 +100,7 @@ Partial Class frmHostBearbeiten Me.PanFirewall = New System.Windows.Forms.Panel() Me.PanSlaves = New System.Windows.Forms.Panel() Me.PanNavTop = New System.Windows.Forms.Panel() - Me.Button3 = New System.Windows.Forms.Button() - Me.txtAnydesk = New System.Windows.Forms.TextBox() - Me.Label15 = New System.Windows.Forms.Label() - Me.txtAnydeskPass = New System.Windows.Forms.TextBox() - Me.Label16 = New System.Windows.Forms.Label() - Me.CheckBox1 = New System.Windows.Forms.CheckBox() + Me.ContextMenuStrip3.SuspendLayout() Me.ContextMenuStrip2.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout() Me.Panel1.SuspendLayout() @@ -187,12 +190,25 @@ Partial Class frmHostBearbeiten ' 'TxtIP ' + Me.TxtIP.ContextMenuStrip = Me.ContextMenuStrip3 Me.TxtIP.Enabled = False Me.TxtIP.Location = New System.Drawing.Point(6, 51) Me.TxtIP.Name = "TxtIP" Me.TxtIP.Size = New System.Drawing.Size(219, 20) Me.TxtIP.TabIndex = 113 ' + 'ContextMenuStrip3 + ' + Me.ContextMenuStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.IPAdresseKopierenToolStripMenuItem}) + Me.ContextMenuStrip3.Name = "ContextMenuStrip3" + Me.ContextMenuStrip3.Size = New System.Drawing.Size(178, 26) + ' + 'IPAdresseKopierenToolStripMenuItem + ' + Me.IPAdresseKopierenToolStripMenuItem.Name = "IPAdresseKopierenToolStripMenuItem" + Me.IPAdresseKopierenToolStripMenuItem.Size = New System.Drawing.Size(177, 22) + Me.IPAdresseKopierenToolStripMenuItem.Text = "IP Adresse kopieren" + ' 'Label1 ' Me.Label1.AutoSize = True @@ -545,6 +561,7 @@ Partial Class frmHostBearbeiten ' 'Panel1 ' + Me.Panel1.ContextMenuStrip = Me.ContextMenuStrip3 Me.Panel1.Controls.Add(Me.Button3) Me.Panel1.Controls.Add(Me.txtAnydesk) Me.Panel1.Controls.Add(Me.Label15) @@ -609,6 +626,64 @@ Partial Class frmHostBearbeiten Me.Panel1.Size = New System.Drawing.Size(643, 588) Me.Panel1.TabIndex = 137 ' + 'Button3 + ' + Me.Button3.BackColor = System.Drawing.Color.SkyBlue + Me.Button3.FlatAppearance.BorderColor = System.Drawing.Color.DimGray + Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Button3.Location = New System.Drawing.Point(234, 377) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(75, 20) + Me.Button3.TabIndex = 157 + Me.Button3.Text = "Verb." + Me.Button3.UseVisualStyleBackColor = False + ' + 'txtAnydesk + ' + Me.txtAnydesk.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest + Me.txtAnydesk.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource + Me.txtAnydesk.Location = New System.Drawing.Point(6, 377) + Me.txtAnydesk.Name = "txtAnydesk" + Me.txtAnydesk.Size = New System.Drawing.Size(219, 20) + Me.txtAnydesk.TabIndex = 152 + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.Location = New System.Drawing.Point(3, 359) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(50, 13) + Me.Label15.TabIndex = 155 + Me.Label15.Text = "AnyDesk" + ' + 'txtAnydeskPass + ' + Me.txtAnydeskPass.Location = New System.Drawing.Point(6, 420) + Me.txtAnydeskPass.Name = "txtAnydeskPass" + Me.txtAnydeskPass.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42) + Me.txtAnydeskPass.Size = New System.Drawing.Size(300, 20) + Me.txtAnydeskPass.TabIndex = 154 + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.Location = New System.Drawing.Point(3, 404) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(77, 13) + Me.Label16.TabIndex = 156 + Me.Label16.Text = "Anydesk Pass." + ' + 'CheckBox1 + ' + Me.CheckBox1.AutoSize = True + Me.CheckBox1.Location = New System.Drawing.Point(86, 403) + Me.CheckBox1.Name = "CheckBox1" + Me.CheckBox1.Size = New System.Drawing.Size(70, 17) + Me.CheckBox1.TabIndex = 153 + Me.CheckBox1.Text = "Anzeigen" + Me.CheckBox1.UseVisualStyleBackColor = True + ' 'Button2 ' Me.Button2.BackColor = System.Drawing.SystemColors.ControlLightLight @@ -810,64 +885,6 @@ Partial Class frmHostBearbeiten Me.PanNavTop.Size = New System.Drawing.Size(309, 32) Me.PanNavTop.TabIndex = 141 ' - 'Button3 - ' - Me.Button3.BackColor = System.Drawing.Color.SkyBlue - Me.Button3.FlatAppearance.BorderColor = System.Drawing.Color.DimGray - Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Button3.Location = New System.Drawing.Point(234, 377) - Me.Button3.Name = "Button3" - Me.Button3.Size = New System.Drawing.Size(75, 20) - Me.Button3.TabIndex = 157 - Me.Button3.Text = "Verb." - Me.Button3.UseVisualStyleBackColor = False - ' - 'txtAnydesk - ' - Me.txtAnydesk.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest - Me.txtAnydesk.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource - Me.txtAnydesk.Location = New System.Drawing.Point(6, 377) - Me.txtAnydesk.Name = "txtAnydesk" - Me.txtAnydesk.Size = New System.Drawing.Size(219, 20) - Me.txtAnydesk.TabIndex = 152 - ' - 'Label15 - ' - Me.Label15.AutoSize = True - Me.Label15.Location = New System.Drawing.Point(3, 359) - Me.Label15.Name = "Label15" - Me.Label15.Size = New System.Drawing.Size(50, 13) - Me.Label15.TabIndex = 155 - Me.Label15.Text = "AnyDesk" - ' - 'txtAnydeskPass - ' - Me.txtAnydeskPass.Location = New System.Drawing.Point(6, 420) - Me.txtAnydeskPass.Name = "txtAnydeskPass" - Me.txtAnydeskPass.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42) - Me.txtAnydeskPass.Size = New System.Drawing.Size(300, 20) - Me.txtAnydeskPass.TabIndex = 154 - ' - 'Label16 - ' - Me.Label16.AutoSize = True - Me.Label16.Location = New System.Drawing.Point(3, 404) - Me.Label16.Name = "Label16" - Me.Label16.Size = New System.Drawing.Size(77, 13) - Me.Label16.TabIndex = 156 - Me.Label16.Text = "Anydesk Pass." - ' - 'CheckBox1 - ' - Me.CheckBox1.AutoSize = True - Me.CheckBox1.Location = New System.Drawing.Point(86, 403) - Me.CheckBox1.Name = "CheckBox1" - Me.CheckBox1.Size = New System.Drawing.Size(70, 17) - Me.CheckBox1.TabIndex = 153 - Me.CheckBox1.Text = "Anzeigen" - Me.CheckBox1.UseVisualStyleBackColor = True - ' 'frmHostBearbeiten ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -886,6 +903,7 @@ Partial Class frmHostBearbeiten Me.Name = "frmHostBearbeiten" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent Me.Text = " Host bearbeiten" + Me.ContextMenuStrip3.ResumeLayout(False) Me.ContextMenuStrip2.ResumeLayout(False) Me.ContextMenuStrip1.ResumeLayout(False) Me.Panel1.ResumeLayout(False) @@ -971,4 +989,6 @@ Partial Class frmHostBearbeiten Friend WithEvents txtAnydeskPass As TextBox Friend WithEvents Label16 As Label Friend WithEvents CheckBox1 As CheckBox + Friend WithEvents ContextMenuStrip3 As ContextMenuStrip + Friend WithEvents IPAdresseKopierenToolStripMenuItem As ToolStripMenuItem End Class diff --git a/Dokumentation/frmHostBearbeiten.resx b/Dokumentation/frmHostBearbeiten.resx index a1de5b8..bf3fdf1 100644 --- a/Dokumentation/frmHostBearbeiten.resx +++ b/Dokumentation/frmHostBearbeiten.resx @@ -117,6 +117,9 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 331, 17 + 174, 17 diff --git a/Dokumentation/frmHostBearbeiten.vb b/Dokumentation/frmHostBearbeiten.vb index 0f4ccef..01f0e74 100644 --- a/Dokumentation/frmHostBearbeiten.vb +++ b/Dokumentation/frmHostBearbeiten.vb @@ -424,4 +424,8 @@ Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click cExtProgramme.RunAnyDeskWithPassword(txtAnydesk.Text, txtAnydeskPass.Text) End Sub + + Private Sub IPAdresseKopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IPAdresseKopierenToolStripMenuItem.Click + Clipboard.SetText(TxtIP.Text) + End Sub End Class \ No newline at end of file diff --git a/Dokumentation/uscntr_TSSitzungen.Designer.vb b/Dokumentation/uscntr_TSSitzungen.Designer.vb index a03b2e1..3ee6628 100644 --- a/Dokumentation/uscntr_TSSitzungen.Designer.vb +++ b/Dokumentation/uscntr_TSSitzungen.Designer.vb @@ -27,10 +27,12 @@ Partial Class uscntr_TSSitzungen Me.dgvTSSitzungen = New System.Windows.Forms.DataGridView() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.VerbindenMitTeamVToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.VerbindenMitAnydeskToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.NachrichtSendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.UpdateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ProfildatenÖffnenExplorerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.TeamVIDKopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.HostnameKopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.Timer1 = New System.Windows.Forms.Timer(Me.components) Me.Panel1 = New System.Windows.Forms.Panel() Me.lblAnzahl = New System.Windows.Forms.Label() @@ -44,7 +46,7 @@ Partial Class uscntr_TSSitzungen Me.Label1 = New System.Windows.Forms.Label() Me.TextBox1 = New System.Windows.Forms.TextBox() Me.timDisUpdateTimer = New System.Windows.Forms.Timer(Me.components) - Me.VerbindenMitAnydeskToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.chkWartung = New System.Windows.Forms.CheckBox() CType(Me.dgvTSSitzungen, System.ComponentModel.ISupportInitialize).BeginInit() Me.ContextMenuStrip1.SuspendLayout() Me.Panel1.SuspendLayout() @@ -78,7 +80,7 @@ Partial Class uscntr_TSSitzungen ' 'ContextMenuStrip1 ' - Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VerbindenMitTeamVToolStripMenuItem, Me.VerbindenMitAnydeskToolStripMenuItem, Me.NachrichtSendenToolStripMenuItem, Me.UpdateToolStripMenuItem, Me.ProfildatenÖffnenExplorerToolStripMenuItem, Me.TeamVIDKopierenToolStripMenuItem}) + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VerbindenMitTeamVToolStripMenuItem, Me.VerbindenMitAnydeskToolStripMenuItem, Me.NachrichtSendenToolStripMenuItem, Me.UpdateToolStripMenuItem, Me.ProfildatenÖffnenExplorerToolStripMenuItem, Me.TeamVIDKopierenToolStripMenuItem, Me.HostnameKopierenToolStripMenuItem}) Me.ContextMenuStrip1.Name = "ContextMenuStrip1" Me.ContextMenuStrip1.Size = New System.Drawing.Size(225, 158) ' @@ -88,6 +90,12 @@ Partial Class uscntr_TSSitzungen Me.VerbindenMitTeamVToolStripMenuItem.Size = New System.Drawing.Size(224, 22) Me.VerbindenMitTeamVToolStripMenuItem.Text = "Verbinden mit TeamV." ' + 'VerbindenMitAnydeskToolStripMenuItem + ' + Me.VerbindenMitAnydeskToolStripMenuItem.Name = "VerbindenMitAnydeskToolStripMenuItem" + Me.VerbindenMitAnydeskToolStripMenuItem.Size = New System.Drawing.Size(224, 22) + Me.VerbindenMitAnydeskToolStripMenuItem.Text = "Verbinden mit Anydesk" + ' 'NachrichtSendenToolStripMenuItem ' Me.NachrichtSendenToolStripMenuItem.Name = "NachrichtSendenToolStripMenuItem" @@ -112,6 +120,12 @@ Partial Class uscntr_TSSitzungen Me.TeamVIDKopierenToolStripMenuItem.Size = New System.Drawing.Size(224, 22) Me.TeamVIDKopierenToolStripMenuItem.Text = "TeamV. ID kopieren" ' + 'HostnameKopierenToolStripMenuItem + ' + Me.HostnameKopierenToolStripMenuItem.Name = "HostnameKopierenToolStripMenuItem" + Me.HostnameKopierenToolStripMenuItem.Size = New System.Drawing.Size(224, 22) + Me.HostnameKopierenToolStripMenuItem.Text = "Hostname kopieren" + ' 'Timer1 ' Me.Timer1.Interval = 10000 @@ -119,6 +133,7 @@ Partial Class uscntr_TSSitzungen 'Panel1 ' Me.Panel1.BackColor = System.Drawing.SystemColors.GradientInactiveCaption + Me.Panel1.Controls.Add(Me.chkWartung) Me.Panel1.Controls.Add(Me.lblAnzahl) Me.Panel1.Controls.Add(Me.cmdNachricht) Me.Panel1.Controls.Add(Me.chkAutoUpdate) @@ -266,11 +281,15 @@ Partial Class uscntr_TSSitzungen ' Me.timDisUpdateTimer.Interval = 60000 ' - 'VerbindenMitAnydeskToolStripMenuItem + 'chkWartung ' - Me.VerbindenMitAnydeskToolStripMenuItem.Name = "VerbindenMitAnydeskToolStripMenuItem" - Me.VerbindenMitAnydeskToolStripMenuItem.Size = New System.Drawing.Size(224, 22) - Me.VerbindenMitAnydeskToolStripMenuItem.Text = "Verbinden mit Anydesk" + Me.chkWartung.AutoSize = True + Me.chkWartung.Location = New System.Drawing.Point(78, 11) + Me.chkWartung.Name = "chkWartung" + Me.chkWartung.Size = New System.Drawing.Size(67, 17) + Me.chkWartung.TabIndex = 14 + Me.chkWartung.Text = "Wartung" + Me.chkWartung.UseVisualStyleBackColor = True ' 'uscntr_TSSitzungen ' @@ -315,4 +334,6 @@ Partial Class uscntr_TSSitzungen Friend WithEvents timDisUpdateTimer As Timer Friend WithEvents TeamVIDKopierenToolStripMenuItem As ToolStripMenuItem Friend WithEvents VerbindenMitAnydeskToolStripMenuItem As ToolStripMenuItem + Friend WithEvents HostnameKopierenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents chkWartung As CheckBox End Class diff --git a/Dokumentation/uscntr_TSSitzungen.vb b/Dokumentation/uscntr_TSSitzungen.vb index 911ce0c..dc9fec6 100644 --- a/Dokumentation/uscntr_TSSitzungen.vb +++ b/Dokumentation/uscntr_TSSitzungen.vb @@ -13,8 +13,22 @@ Load2DGV() End Sub + Function checkwartung() As Boolean + Dim ds As New DataSet + cSQL.SQL2DS("select * from TbL_Dienste where Name = 'Wartung' ", ds) + If Not ds.Tables(0).Rows.Count = 0 Then + Dim row As DataRow = ds.Tables(0).Rows(0) + If Convert.ToBoolean(row("Aktiv")) = True Then + Return True + Else + Return False + End If + End If + End Function Function Load2DGV() ' (Optional ByVal Client As Boolean = False) + chkWartung.Checked = checkwartung() + If Client = False Then Dim ds As New DataSet cSQL.SQL2DS("SELECT * FROM TbL_TSSitzungen WHERE Name LIKE '" & ReturnOfTheWhere() & "' OR TSServer LIKE '" & ReturnOfTheWhere() & "' OR Company LIKE '" & ReturnOfTheWhere() & "' ORDER BY NAME", ds) @@ -255,4 +269,31 @@ Dim sitzung As String = Class1.DBNull2emptyString(dgvTSSitzungen.CurrentRow.Cells("TSServer").Value) & "\" & Name cExtProgramme.RunAnyDeskWithPassword(sitzung) End Sub + + Private Sub HostnameKopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HostnameKopierenToolStripMenuItem.Click + Dim host As String = "" + If Client Then + host = Class1.DBNull2emptyString(dgvTSSitzungen.CurrentRow.Cells("ClientName").Value) + Else + host = Class1.DBNull2emptyString(dgvTSSitzungen.CurrentRow.Cells("TSServer").Value) + End If + Clipboard.SetText(host) + End Sub + + Private Sub chkWartung_CheckedChanged(sender As Object, e As EventArgs) Handles chkWartung.CheckedChanged + Dim result As MsgBoxResult + If chkWartung.Checked Then + result = MsgBox("Hiermit werden alle Anmeldungen von ThinClients unterbunden. Sicher? ", MsgBoxStyle.YesNo Or MsgBoxStyle.Exclamation, "Warnung") + End If + + If result = MsgBoxResult.No Then + chkWartung.Checked = False + Exit Sub + End If + + Dim werte As New Dictionary(Of String, Object) + werte.Add("Aktiv", chkWartung.Checked) + cSQL.UpdateSQL_("TbL_Dienste", werte, "Name = 'Wartung'") + Load2DGV() + End Sub End Class