Schnellscheißtasten

2025-07-03 11:05:59 +02:00
parent 428755f337
commit a0c5689d10
3 changed files with 59 additions and 32 deletions
--- a/Dokumentation/Main.Designer.vb
+++ b/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.lblOfflinemodus = New System.Windows.Forms.Label()
@@ -75,6 +75,8 @@ Partial Class Main
        Me.PascomToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.UnifiToolStripMenuItem = 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()
        Me.btnSync = New System.Windows.Forms.Button()
        Me.lblCount = New System.Windows.Forms.Label()
        Me.btnNeu = New System.Windows.Forms.Button()
@@ -129,9 +131,9 @@ 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.lblTempServerraum100 = New System.Windows.Forms.Label()
-        Me.lblTempServerraum15 = New System.Windows.Forms.Label()
        Me.Timer_Temperatur = New System.Windows.Forms.Timer(Me.components)
+        Me.ProxMoxToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.PortainerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.Panel2.SuspendLayout()
        Me.Panel4.SuspendLayout()
        CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -527,7 +529,7 @@ Partial Class Main
        'MenuStrip1
        '
        Me.MenuStrip1.BackColor = System.Drawing.SystemColors.GradientActiveCaption
-        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.ToolStripMenuItem2, Me.ToolStripMenuItemINFO, Me.TicketsystemToolStripMenuItem, Me.PascomToolStripMenuItem, Me.UnifiToolStripMenuItem})
+        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.ToolStripMenuItem2, Me.ToolStripMenuItemINFO, Me.TicketsystemToolStripMenuItem, Me.PascomToolStripMenuItem, Me.UnifiToolStripMenuItem, Me.ProxMoxToolStripMenuItem, Me.PortainerToolStripMenuItem})
        Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
        Me.MenuStrip1.Name = "MenuStrip1"
        Me.MenuStrip1.Size = New System.Drawing.Size(1494, 24)
@@ -649,6 +651,24 @@ Partial Class Main
        Me.Panel3.Size = New System.Drawing.Size(200, 831)
        Me.Panel3.TabIndex = 2
        '
+        'lblTempServerraum15
+        '
+        Me.lblTempServerraum15.AutoSize = True
+        Me.lblTempServerraum15.Location = New System.Drawing.Point(15, 767)
+        Me.lblTempServerraum15.Name = "lblTempServerraum15"
+        Me.lblTempServerraum15.Size = New System.Drawing.Size(110, 13)
+        Me.lblTempServerraum15.TabIndex = 21
+        Me.lblTempServerraum15.Text = "lblTempServerraum15"
+        '
+        'lblTempServerraum100
+        '
+        Me.lblTempServerraum100.AutoSize = True
+        Me.lblTempServerraum100.Location = New System.Drawing.Point(15, 747)
+        Me.lblTempServerraum100.Name = "lblTempServerraum100"
+        Me.lblTempServerraum100.Size = New System.Drawing.Size(116, 13)
+        Me.lblTempServerraum100.TabIndex = 20
+        Me.lblTempServerraum100.Text = "lblTempServerraum100"
+        '
        'btnSync
        '
        Me.btnSync.BackColor = System.Drawing.SystemColors.ControlLightLight
@@ -864,14 +884,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
-        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
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control
+        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.WindowText
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        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
@@ -1117,29 +1137,23 @@ Partial Class Main
        'Timer1
        '
        '
-        'lblTempServerraum100
-        '
-        Me.lblTempServerraum100.AutoSize = True
-        Me.lblTempServerraum100.Location = New System.Drawing.Point(15, 747)
-        Me.lblTempServerraum100.Name = "lblTempServerraum100"
-        Me.lblTempServerraum100.Size = New System.Drawing.Size(116, 13)
-        Me.lblTempServerraum100.TabIndex = 20
-        Me.lblTempServerraum100.Text = "lblTempServerraum100"
-        '
-        'lblTempServerraum15
-        '
-        Me.lblTempServerraum15.AutoSize = True
-        Me.lblTempServerraum15.Location = New System.Drawing.Point(15, 767)
-        Me.lblTempServerraum15.Name = "lblTempServerraum15"
-        Me.lblTempServerraum15.Size = New System.Drawing.Size(110, 13)
-        Me.lblTempServerraum15.TabIndex = 21
-        Me.lblTempServerraum15.Text = "lblTempServerraum15"
-        '
        'Timer_Temperatur
        '
        Me.Timer_Temperatur.Enabled = True
        Me.Timer_Temperatur.Interval = 30000
        '
+        'ProxMoxToolStripMenuItem
+        '
+        Me.ProxMoxToolStripMenuItem.Name = "ProxMoxToolStripMenuItem"
+        Me.ProxMoxToolStripMenuItem.Size = New System.Drawing.Size(65, 20)
+        Me.ProxMoxToolStripMenuItem.Text = "ProxMox"
+        '
+        'PortainerToolStripMenuItem
+        '
+        Me.PortainerToolStripMenuItem.Name = "PortainerToolStripMenuItem"
+        Me.PortainerToolStripMenuItem.Size = New System.Drawing.Size(67, 20)
+        Me.PortainerToolStripMenuItem.Text = "Portainer"
+        '
        'Main
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1288,4 +1302,6 @@ Partial Class Main
    Friend WithEvents lblTempServerraum15 As Label
    Friend WithEvents lblTempServerraum100 As Label
    Friend WithEvents Timer_Temperatur As Timer
+    Friend WithEvents ProxMoxToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents PortainerToolStripMenuItem As ToolStripMenuItem
 End Class
--- a/Dokumentation/Main.resx
+++ b/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>33, 15</value>
+  </metadata>
  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>1156, 17</value>
  </metadata>
@@ -277,8 +280,8 @@
        2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV//Z
 </value>
  </data>
-  <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>33, 15</value>
+  <metadata name="ChkDHCPClients.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
  </metadata>
  <metadata name="ChkDHCPClients.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>True</value>
--- a/Dokumentation/Main.vb
+++ b/Dokumentation/Main.vb
@@ -1844,6 +1844,14 @@ exit"
        Await AktualisiereTemperaturenAsync()
    End Sub

+    Private Sub ProxMoxToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ProxMoxToolStripMenuItem.Click
+        cExtProgramme.startlink("https://192.168.0.242:8006/")
+    End Sub
+
+    Private Sub PortainerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PortainerToolStripMenuItem.Click
+        cExtProgramme.startlink("https://192.168.85.250:9443")
+    End Sub
+
    Private Sub Main_Closed(sender As Object, e As EventArgs) Handles Me.Closed

        Class1.ini.prop_Kompansicht = ChkKompAnsicht.Checked