vor Migration

Dokumentation/Main.vb

@@ -1,12 +1,13 @@
 Imports System.Data.SqlClient
-Imports System.IO
-Imports System.Threading
-Imports System.ServiceProcess
 Imports System.DirectoryServices.AccountManagement
-Imports System.Web.UI.WebControls
+Imports System.IO
 Imports System.Management.Automation
 Imports System.Management.Automation.Runspaces
 Imports System.Security
+Imports System.ServiceProcess
+Imports System.Threading
+Imports System.Web.UI.WebControls
+Imports Chilkat
 
 Public Class Main
     Public con As New SqlConnection
@@ -54,6 +55,7 @@ Public Class Main
         btnBenutzerverwaltung.Enabled = Not Class1.offline
         chkTSSitzungen.Checked = Not Class1.offline
         lblOfflinemodus.Visible = Class1.offline
+        If Not Class1.offline Then getIT()
 
         Me.KeyPreview = True
 
@@ -1258,7 +1260,7 @@ exit"
         If Class1.offline Then Exit Function
         dbload()
         Dim pascom As New cPascom
-        lblNotruf.Text = "Notruf geht an: " & pascom.getredirect("555")
+        'lblNotruf.Text = "Notruf geht an: " & pascom.getredirect("555")
         Dim RemoteVersion As String = ""
         LblVersion.Text = "Version: " & Version
         Try
@@ -1322,7 +1324,7 @@ exit"
 
     End Sub
 
-    Public Async Function AktualisiereTemperaturenAsync() As Task
+    Public Async Function AktualisiereTemperaturenAsync() As Task(Of Task)
         Dim prtg As New cPRTG()
 
         ' Aufgaben parallel starten
@@ -1470,6 +1472,7 @@ exit"
                 ' MsgBox(newMsg)
                 Label20.Text = newMsg
                 Label20.Visible = (newMsg > 0)
+                getIT()
                 If newMsg Then
                     ' Me.Icon = My.Resources.avisoNewMsg
 
@@ -1852,6 +1855,56 @@ exit"
         cExtProgramme.startlink("https://192.168.85.250:9443")
     End Sub
 
+    Private Sub VCenterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VCenterToolStripMenuItem.Click
+        cExtProgramme.startlink("https://vcenter.verag.ost.dmn/ui")
+    End Sub
+
+    Private Sub FirewallToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FirewallToolStripMenuItem.Click
+        cExtProgramme.startlink("https://192.168.0.109:4444")
+    End Sub
+
+    Private Sub FirewallToolStripMenuItem_DoubleClick(sender As Object, e As EventArgs) Handles FirewallToolStripMenuItem.DoubleClick
+        MsgBox("DoubleTrouble")
+    End Sub
+
+    Private Sub lblRufbereitschaft_Click(sender As Object, e As EventArgs) Handles lblRufbereitschaft.Click
+
+        getIT()
+    End Sub
+
+    Private Sub lblRufbereitschaft_DoubleClick(sender As Object, e As EventArgs) Handles lblRufbereitschaft.DoubleClick
+
+        Dim pascom As New cPascom
+        If pascom.getredirect("199").Length > 2 Then
+            pascom.Weiterleitung("199", "")
+        Else
+            pascom.Weiterleitung("199", "555")
+        End If
+
+        getIT()
+    End Sub
+
+    Private Function getIT()
+        Dim pascom As New cPascom
+        'lblRufbereitschaft.Text = pascom.getredirect("199")
+        Dim text As String = ""
+
+        If pascom.getredirect("199").Length <= 2 Then
+            text = "199 - Umleitung deaktiviert"
+        Else
+            text = "199 - Umgeleitet auf: " & pascom.getredirect("199")
+        End If
+
+        If lblRufbereitschaft.Text <> text Then
+            lblRufbereitschaft.Text = text
+        End If
+
+    End Function
+
+    Private Sub SnipeITToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SnipeITToolStripMenuItem.Click
+        cExtProgramme.startlink("https://snipeit.verag.ag/")
+    End Sub
+
     Private Sub Main_Closed(sender As Object, e As EventArgs) Handles Me.Closed
 
         Class1.ini.prop_Kompansicht = ChkKompAnsicht.Checked