Schnellscheißtasten

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
+        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
@@ -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

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">
+  <metadata name="ChkDHCPClients.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>33, 15</value>
+    <value>True</value>
   </metadata>
   <metadata name="ChkDHCPClients.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>

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