From e5a552892e228d81623d2dfa3e99e6036f5f367c Mon Sep 17 00:00:00 2001 From: ms Date: Mon, 29 Jun 2026 09:04:32 +0200 Subject: [PATCH] =?UTF-8?q?PRTG=20Temperaturen=20der=20Serverr=C3=A4ume=20?= =?UTF-8?q?jetzt=20per=20SQL=20anpassbar?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Dokumentation/Classes/cSQL.vb | 12 +++ Dokumentation/Main.Designer.vb | 94 +++++++++---------- Dokumentation/Main.resx | 7 +- Dokumentation/Main.vb | 20 +++- .../My Project/Resources.Designer.vb | 2 +- Dokumentation/My Project/Resources.resx | 2 +- 6 files changed, 78 insertions(+), 59 deletions(-) diff --git a/Dokumentation/Classes/cSQL.vb b/Dokumentation/Classes/cSQL.vb index 9d83917..b4a69ea 100644 --- a/Dokumentation/Classes/cSQL.vb +++ b/Dokumentation/Classes/cSQL.vb @@ -178,6 +178,18 @@ Public Class cSQL con.Close() End Sub + Public Shared Function sql_simple_request(db As String, table As String, WO As String) As String + Dim ds As New DataSet + Dim Antwort As String + cSQL.SQL2DS($"SELECT Parameter FROM [{db}].[dbo].[{table}] WHERE Name = '{WO}'", ds) + If ds.Tables(0).Rows.Count > 0 Then + Antwort = ds.Tables(0).Rows(0).Item(0).ToString + Return Antwort + End If + + ds.Clear() + End Function + End Class diff --git a/Dokumentation/Main.Designer.vb b/Dokumentation/Main.Designer.vb index 6e05867..1bb2c3f 100644 --- a/Dokumentation/Main.Designer.vb +++ b/Dokumentation/Main.Designer.vb @@ -24,9 +24,9 @@ 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 DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 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.lblRufbereitschaft = New System.Windows.Forms.Label() @@ -81,6 +81,7 @@ Partial Class Main Me.ProxMoxToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.PortainerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.FirewallToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.DocmostToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.Panel3 = New System.Windows.Forms.Panel() Me.lblTempServerraum15 = New System.Windows.Forms.Label() Me.lblTempServerraum100 = New System.Windows.Forms.Label() @@ -140,7 +141,6 @@ Partial Class Main Me.Timer1 = New System.Windows.Forms.Timer(Me.components) Me.Timer_Temperatur = New System.Windows.Forms.Timer(Me.components) Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) - Me.DocmostToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.Panel2.SuspendLayout() Me.Panel4.SuspendLayout() CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).BeginInit() @@ -225,7 +225,7 @@ Partial Class Main Me.Button3.BackColor = System.Drawing.SystemColors.ControlLightLight Me.Button3.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button3.Image = Global.Doku.My.Resources.Resources.mstsc1 + Me.Button3.Image = Global.DOKU.My.Resources.Resources.mstsc1 Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button3.Location = New System.Drawing.Point(17, 34) Me.Button3.Name = "Button3" @@ -239,7 +239,7 @@ Partial Class Main Me.Button2.BackColor = System.Drawing.SystemColors.ControlLightLight Me.Button2.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button2.Image = Global.Doku.My.Resources.Resources.Netzwerk20 + Me.Button2.Image = Global.DOKU.My.Resources.Resources.Netzwerk20 Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button2.Location = New System.Drawing.Point(17, 67) Me.Button2.Name = "Button2" @@ -265,7 +265,7 @@ Partial Class Main 'picAVISOMessenger ' Me.picAVISOMessenger.Anchor = System.Windows.Forms.AnchorStyles.Right - Me.picAVISOMessenger.BackgroundImage = Global.Doku.My.Resources.Resources.aviso_messenger + Me.picAVISOMessenger.BackgroundImage = Global.DOKU.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(427, 40) @@ -279,7 +279,7 @@ Partial Class Main 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.Doku.My.Resources.Resources.external_content_duckduckgo_com + Me.btnTSSitzungen.Image = Global.DOKU.My.Resources.Resources.external_content_duckduckgo_com Me.btnTSSitzungen.ImageAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnTSSitzungen.Location = New System.Drawing.Point(139, 68) Me.btnTSSitzungen.Name = "btnTSSitzungen" @@ -324,7 +324,7 @@ Partial Class Main Me.btnBenutzerverwaltung.BackColor = System.Drawing.SystemColors.ControlLightLight Me.btnBenutzerverwaltung.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) Me.btnBenutzerverwaltung.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnBenutzerverwaltung.Image = Global.Doku.My.Resources.Resources.Admin20 + Me.btnBenutzerverwaltung.Image = Global.DOKU.My.Resources.Resources.Admin20 Me.btnBenutzerverwaltung.ImageAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnBenutzerverwaltung.Location = New System.Drawing.Point(139, 34) Me.btnBenutzerverwaltung.Name = "btnBenutzerverwaltung" @@ -505,7 +505,7 @@ Partial Class Main Me.Button1.ContextMenuStrip = Me.ContextMenuStrip1 Me.Button1.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button1.Image = Global.Doku.My.Resources.Resources.iconfinder_contat_us_27phone_4211855_115040__Benutzerdefiniert_ + Me.Button1.Image = Global.DOKU.My.Resources.Resources.iconfinder_contat_us_27phone_4211855_115040__Benutzerdefiniert_ Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button1.Location = New System.Drawing.Point(150, 70) Me.Button1.Name = "Button1" @@ -668,6 +668,12 @@ Partial Class Main Me.FirewallToolStripMenuItem.Size = New System.Drawing.Size(59, 20) Me.FirewallToolStripMenuItem.Text = "Firewall" ' + 'DocmostToolStripMenuItem + ' + Me.DocmostToolStripMenuItem.Name = "DocmostToolStripMenuItem" + Me.DocmostToolStripMenuItem.Size = New System.Drawing.Size(67, 20) + Me.DocmostToolStripMenuItem.Text = "Docmost" + ' 'Panel3 ' Me.Panel3.BackColor = System.Drawing.SystemColors.GradientInactiveCaption @@ -715,7 +721,7 @@ Partial Class Main Me.btnSync.BackColor = System.Drawing.SystemColors.ControlLightLight Me.btnSync.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) Me.btnSync.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnSync.Image = Global.Doku.My.Resources.Resources.sign_sync_icon_34357 + Me.btnSync.Image = Global.DOKU.My.Resources.Resources.sign_sync_icon_34357 Me.btnSync.ImageAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnSync.Location = New System.Drawing.Point(51, 613) Me.btnSync.Name = "btnSync" @@ -739,7 +745,7 @@ Partial Class Main Me.btnNeu.BackColor = System.Drawing.SystemColors.ControlLightLight Me.btnNeu.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) Me.btnNeu.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnNeu.Image = Global.Doku.My.Resources.Resources.Bearbeiten20 + Me.btnNeu.Image = Global.DOKU.My.Resources.Resources.Bearbeiten20 Me.btnNeu.ImageAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnNeu.Location = New System.Drawing.Point(25, 476) Me.btnNeu.Name = "btnNeu" @@ -795,7 +801,7 @@ Partial Class Main Me.CmdNWDateien.BackColor = System.Drawing.SystemColors.ControlLightLight Me.CmdNWDateien.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) Me.CmdNWDateien.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.CmdNWDateien.Image = Global.Doku.My.Resources.Resources.Folder20 + Me.CmdNWDateien.Image = Global.DOKU.My.Resources.Resources.Folder20 Me.CmdNWDateien.ImageAlign = System.Drawing.ContentAlignment.MiddleRight Me.CmdNWDateien.Location = New System.Drawing.Point(22, 11) Me.CmdNWDateien.Name = "CmdNWDateien" @@ -809,7 +815,7 @@ Partial Class Main Me.CmdNetzwerkbearbeiten.BackColor = System.Drawing.SystemColors.ControlLightLight Me.CmdNetzwerkbearbeiten.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) Me.CmdNetzwerkbearbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.CmdNetzwerkbearbeiten.Image = Global.Doku.My.Resources.Resources.Netzwerk20 + Me.CmdNetzwerkbearbeiten.Image = Global.DOKU.My.Resources.Resources.Netzwerk20 Me.CmdNetzwerkbearbeiten.ImageAlign = System.Drawing.ContentAlignment.MiddleRight Me.CmdNetzwerkbearbeiten.Location = New System.Drawing.Point(22, 45) Me.CmdNetzwerkbearbeiten.Name = "CmdNetzwerkbearbeiten" @@ -823,7 +829,7 @@ Partial Class Main Me.CmDBearbeiten.BackColor = System.Drawing.SystemColors.ControlLightLight Me.CmDBearbeiten.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) Me.CmDBearbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.CmDBearbeiten.Image = Global.Doku.My.Resources.Resources.Bearbeiten20 + Me.CmDBearbeiten.Image = Global.DOKU.My.Resources.Resources.Bearbeiten20 Me.CmDBearbeiten.ImageAlign = System.Drawing.ContentAlignment.MiddleRight Me.CmDBearbeiten.Location = New System.Drawing.Point(25, 442) Me.CmDBearbeiten.Name = "CmDBearbeiten" @@ -837,7 +843,7 @@ Partial Class Main Me.CmdFiles.BackColor = System.Drawing.SystemColors.ControlLightLight Me.CmdFiles.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) Me.CmdFiles.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.CmdFiles.Image = Global.Doku.My.Resources.Resources.Folder20 + Me.CmdFiles.Image = Global.DOKU.My.Resources.Resources.Folder20 Me.CmdFiles.ImageAlign = System.Drawing.ContentAlignment.MiddleRight Me.CmdFiles.Location = New System.Drawing.Point(25, 408) Me.CmdFiles.Name = "CmdFiles" @@ -860,7 +866,7 @@ Partial Class Main Me.CmdLink.BackColor = System.Drawing.SystemColors.ControlLightLight Me.CmdLink.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) Me.CmdLink.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.CmdLink.Image = Global.Doku.My.Resources.Resources.Link20 + Me.CmdLink.Image = Global.DOKU.My.Resources.Resources.Link20 Me.CmdLink.ImageAlign = System.Drawing.ContentAlignment.MiddleRight Me.CmdLink.Location = New System.Drawing.Point(25, 374) Me.CmdLink.Name = "CmdLink" @@ -925,38 +931,38 @@ Partial Class Main Me.DgVMain.AllowUserToDeleteRows = False Me.DgVMain.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill Me.DgVMain.BorderStyle = System.Windows.Forms.BorderStyle.None - DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.DgVMain.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4 + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle1.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)) + DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.DgVMain.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 Me.DgVMain.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.DgVMain.ContextMenuStrip = Me.DGVMainContext - DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.DgVMain.DefaultCellStyle = DataGridViewCellStyle5 + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.DgVMain.DefaultCellStyle = DataGridViewCellStyle2 Me.DgVMain.Dock = System.Windows.Forms.DockStyle.Fill Me.DgVMain.Location = New System.Drawing.Point(200, 130) Me.DgVMain.MultiSelect = False Me.DgVMain.Name = "DgVMain" Me.DgVMain.ReadOnly = True Me.DgVMain.RowHeadersBorderStyle = System.Windows.Forms.DataGridViewHeaderBorderStyle.[Single] - DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.DgVMain.RowHeadersDefaultCellStyle = DataGridViewCellStyle6 + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.DgVMain.RowHeadersDefaultCellStyle = DataGridViewCellStyle3 Me.DgVMain.RowHeadersVisible = False Me.DgVMain.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.DgVMain.Size = New System.Drawing.Size(876, 708) @@ -1204,12 +1210,6 @@ Partial Class Main Me.ContextMenuStrip2.Name = "ContextMenuStrip2" Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4) ' - 'DocmostToolStripMenuItem - ' - Me.DocmostToolStripMenuItem.Name = "DocmostToolStripMenuItem" - Me.DocmostToolStripMenuItem.Size = New System.Drawing.Size(67, 20) - Me.DocmostToolStripMenuItem.Text = "Docmost" - ' 'Main ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) diff --git a/Dokumentation/Main.resx b/Dokumentation/Main.resx index 4d35303..e3db9e4 100644 --- a/Dokumentation/Main.resx +++ b/Dokumentation/Main.resx @@ -117,9 +117,6 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 33, 15 - @@ -280,8 +277,8 @@ 1156, 17 - - True + + 33, 15 True diff --git a/Dokumentation/Main.vb b/Dokumentation/Main.vb index 73253ce..4838b58 100644 --- a/Dokumentation/Main.vb +++ b/Dokumentation/Main.vb @@ -675,9 +675,11 @@ Public Class Main End Sub Public Sub btnTest3_Click(sender As Object, e As EventArgs) Handles btnTest3.Click - Dim ps = cExtProgramme.RunRemotePSScript("stor10", "veragost\administrator", "+d#XisdBbSt!", "C:\Tools\SMBOpenFiles.ps1", True) - Dim ds As New DataSet - cSMB.obj2DS(ps, ds, "SMB") + Dim text As String + + text = cSQL.sql_simple_request("Doku", "TbL_Dienste", "Wartung") + + MsgBox(text) End Sub @@ -1329,8 +1331,11 @@ exit" Dim prtg As New cPRTG() ' Aufgaben parallel starten - Dim task1 = prtg.getValuefromPRTG("8208", 9) - Dim task2 = prtg.getValuefromPRTG("8223", 9) + 'Dim task1 = prtg.getValuefromPRTG("8208", 9) + 'Dim task2 = prtg.getValuefromPRTG("8223", 9) + + Dim task1 = prtg.getValuefromPRTG(cSQL.sql_simple_request("Doku", "TbL_Dienste", "TempServerraum100_PRTG_ID"), cSQL.sql_simple_request("Doku", "TbL_Dienste", "TempServerraum100_Kanal")) + Dim task2 = prtg.getValuefromPRTG(cSQL.sql_simple_request("Doku", "TbL_Dienste", "TempServerraum15_PRTG_ID"), cSQL.sql_simple_request("Doku", "TbL_Dienste", "TempServerraum15_Kanal")) ' Ergebnisse abwarten Dim result1 = Await task1 @@ -1907,6 +1912,11 @@ exit" cExtProgramme.startlink("https://docmost.it.verag.ag") End Sub + Private Async Sub lblTempServerraum15_Click(sender As Object, e As EventArgs) Handles lblTempServerraum15.Click, lblTempServerraum100.Click + + Await AktualisiereTemperaturenAsync() + 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 161e312..f84fd4f 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.20 ähnelt. + ''' Sucht eine lokalisierte Zeichenfolge, die 0.0.2.21 ähnelt. ''' Friend ReadOnly Property Version() As String Get diff --git a/Dokumentation/My Project/Resources.resx b/Dokumentation/My Project/Resources.resx index 3549844..f491b6d 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.20 + 0.0.2.21 ..\Resources\Link.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a