zabbix/ZabbixEasyTool
1
0
Fork 0
mirror of https://github.com/znilnet/ZabbixEasyTool.git synced 2024-11-01 00:07:20 +01:00
Code Issues Releases Wiki Activity
ad2bbd627a
ZabbixEasyTool/ZabbixEasyTool.au3

1330 lines
76 KiB
AutoIt
Raw Normal View History

Setup Zwischenstand
2017-09-15 23:01:06 +02:00
#include <Array.au3>
#include <Date.au3>
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
Alle Deklarationen
2017-09-16 17:26:40 +02:00
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <ListBoxConstants.au3>
#include <StaticConstants.au3>
#include <GuiTab.au3>
Trigger Farbauswahl + Checks Checkboxen
2017-09-16 23:19:27 +02:00
;~ #include <GuiListBox.au3>
#include <Misc.au3>
Setup Zwischenstand
2017-09-15 23:01:06 +02:00
AutoItSetOption("MustDeclareVars", 1)
Opt("GUIOnEventMode", 1)
#Region Variablen
; #####################################################################################
; ## ## ### ######## #### ### ######## ## ######## ## ##
; ## ## ## ## ## ## ## ## ## ## ## ## ## ### ##
; ## ## ## ## ## ## ## ## ## ## ## ## ## #### ##
; ## ## ## ## ######## ## ## ## ######## ## ###### ## ## ##
; ## ## ######### ## ## ## ######### ## ## ## ## ## ####
; ## ## ## ## ## ## ## ## ## ## ## ## ## ## ###
; ### ## ## ## ## #### ## ## ######## ######## ######## ## ##
;~ ####################################################################################
Alle Deklarationen
2017-09-16 17:26:40 +02:00
Setup aus dem Main aufrufbar
2017-09-17 19:41:06 +02:00
; Für die FormMain
FormMain Textsize + 3. Line
2017-09-18 11:52:45 +02:00
Global $FormMain, $FormMainPicStatus, $FormMainListViewTriggers, $FormMainLabelStatusLine1, $FormMainComboTimes, $FormMainButtonMaintenanceSet
Global $FormMainButtonMaintenanceDelete, $FormMainButtonAcknowledge, $FormMainButtonSetup, $FormMainLabelStatusLine2, $FormMainLabelStatusLine3
Alle Deklarationen
2017-09-16 17:26:40 +02:00
Trigger Farbauswahl + Checks Checkboxen
2017-09-16 23:19:27 +02:00
; Für die FormSetup
Alle Deklarationen
2017-09-16 17:26:40 +02:00
Global $FormSetup
Global $FormSetupPageControl
Global $FormSetupTabSheetZabbixAPI, $FormSetupAPIInputURL, $FormSetupAPILabelURL, $FormSetupAPILabelUsername, $FormSetupAPIInputUsername, $FormSetupAPILabelPassword, $FormSetupAPIInputPassword, $FormSetupAPIButtonTestCredentials
Global $FormSetupAPILabelCredentialsTest, $FormSetupAPILabelHost, $FormSetupAPIInputHost, $FormSetupAPIButtonReadDataZabbixAgent
Global $FormSetupTabSheetMaintenance, $FormSetupMaintenanceLabelPrefix, $FormSetupMaintenanceInputPrefix, $FormSetupMaintenanceLabelDescription, $FormSetupMaintenanceInputDescription, $FormSetupMaintenanceListTimes
Global $FormSetupMaintenanceButtonAdd, $FormSetupMaintenanceInputTime, $FormSetupMaintenanceButtonDelete, $FormSetupMaintenanceLabelTimes, $FormSetupMaintenanceComboUnit
Global $FormSetupTabSheetTrigger
Global $FormSetupTriggerLabelNotclassified, $FormSetupTriggerInputNotclassified, $FormSetupTriggerLabelColorNotclassified, $FormSetupTriggerInputColorNotclassified
Global $FormSetupTriggerLabelInformation, $FormSetupTriggerInputInformation, $FormSetupTriggerLabelColorInformation, $FormSetupTriggerInputColorInformation
Global $FormSetupTriggerLabelWarning, $FormSetupTriggerInputWarning, $FormSetupTriggerLabelColorWarning, $FormSetupTriggerInputColorWarning
Global $FormSetupTriggerLabelAverage, $FormSetupTriggerInputAverage, $FormSetupTriggerLabelColorAverage, $FormSetupTriggerInputColorAverage
Global $FormSetupTriggerLabelHigh, $FormSetupTriggerInputHigh, $FormSetupTriggerLabelColorHigh, $FormSetupTriggerInputColorHigh
Global $FormSetupTriggerLabelDisaster, $FormSetupTriggerInputDisaster, $FormSetupTriggerLabelColorDisaster, $FormSetupTriggerInputColorDisaster
Global $FormSetupTabSheetCheck, $FormSetupCheckLabelEvery1, $FormSetupCheckCheckboxMaintenanceStatus, $FormSetupCheckComboTimesMaintenance, $FormSetupCheckCheckboxTrigger, $FormSetupCheckLabelEvery2, $FormSetupCheckComboTimesTrigger
Global $FormSetupTabSheetAcknowledge, $FormSetupAcknowledgeLabelDefaultMessage, $FormSetupAcknowledgeEditDefaultMessage, $FormSetupAcknowledgeCheckboxCloseProblems, $FormSetupAcknowledgeCheckboxNeverAsk
Global $FormSetupTabSheetInfo, $FormSetupInfoLabelVersionLeft, $FormSetupInfoLabelDateTimeLeft, $FormSetupInfoLabelAutorLeft, $FormSetupInfoLabelHomepageLeft, $FormSetupInfoLabelRepositoryLeft
Global $FormSetupInfoLabelHomepageRight, $FormSetupInfoLabelRepositoryRight, $FormSetupInfoLabelAutorRight, $FormSetupInfoLabelLicenseLeft, $FormSetupInfoLabelLicenseRight
Global $FormSetupInfoLabelVersionRight, $FormSetupInfoLabelDateTimeRight
Global $FormSetupButtonOK, $FormSetupButtonCancel, $FormSetupButtonHelp, $FormSetupInfoEditGPOisActive
Trigger Farbauswahl + Checks Checkboxen
2017-09-16 23:19:27 +02:00
; Die Auswahl an Zeiten für die Maintenance
; 30m 1h 2h 4h 8h 24h 48h 72h
Global $g_a_MaintenanceTimes[9] = [ 8, 1800, 3600, 7200, 14400, 28800, 86400, 172800, 259200 ]
Local $s_temp = ""
StringSplit geändert
2017-09-18 12:40:39 +02:00
; Für den Countdown bei aktiver Maintenance
Global $g_i_Countdown = 0
Setup Zwischenstand
2017-09-15 23:01:06 +02:00
#EndRegion Variablen
#Region Funktionen
; ###############################################################################################################################################################################################
; ######## ## ## ## ## ## ## ######## #### ####### ## ## ######## ## ##
; ## ## ## ### ## ## ## ## ## ## ## ### ## ## ### ##
; ## ## ## #### ## ## ## ## ## ## ## #### ## ## #### ##
; ###### ## ## ## ## ## ##### ## ## ## ## ## ## ## ###### ## ## ##
; ## ## ## ## #### ## ## ## ## ## ## ## #### ## ## ####
; ## ## ## ## ### ## ## ## ## ## ## ## ### ## ## ###
; ## ####### ## ## ## ## ## #### ####### ## ## ######## ## ##
; ###############################################################################################################################################################################################
Func FormMainClose()
Exit
EndFunc
Func FormMainMinimize()
EndFunc
Alle Deklarationen
2017-09-16 17:26:40 +02:00
; #############################################################################################################################################################
Setup Zwischenstand
2017-09-15 23:01:06 +02:00
Func FormMainRestore()
EndFunc
Setup aus dem Main aufrufbar
2017-09-17 19:41:06 +02:00
; #############################################################################################################################################################
Func FormMainButtonMaintenanceSetClick()
StringSplit geändert
2017-09-18 12:40:39 +02:00
GUISetCursor(15, 1, $FormMain)
GUICtrlSetState($FormMainButtonMaintenanceSet, $GUI_DISABLE)
GUICtrlSetState($FormMainButtonMaintenanceDelete, $GUI_DISABLE)
GUICtrlSetState($FormMainComboTimes, $GUI_DISABLE)
Add Maintenance läuft
2017-09-18 00:10:05 +02:00
Local $__zbxURL = GUICtrlRead($FormSetupAPIInputURL)
Local $__zbxUser = GUICtrlRead($FormSetupAPIInputUsername)
Local $__zbxPassword = GUICtrlRead($FormSetupAPIInputPassword)
Local $__zbxHostname = GUICtrlRead($FormSetupAPIInputHost)
Local $__zbxSessionId = _zbx_Login( $__zbxURL, $__zbxUser, $__zbxPassword)
Local $__zbxHostId = _zbx_HostGetId($__zbxURL, $__zbxSessionId, $__zbxHostname)
Local $__zbxName = _ReplaceEnviromentVariables(GUICtrlRead($FormSetupMaintenanceInputPrefix)) & "- " & $__zbxHostname & " -- " & @YEAR & "-" & @MON & "-" & @MDAY & " - " & @HOUR & ":" & @MIN & ":" & @SEC
Local $__zbxDescription = _ReplaceEnviromentVariables(GUICtrlRead($FormSetupMaintenanceInputDescription))
Local $__zbxDurationTime = _TimeToSeconds(GUICtrlRead($FormMainComboTimes))
If _zbx_HostAddMaintenance($__zbxURL, $__zbxSessionId, $__zbxHostId, $__zbxName, $__zbxDescription, $__zbxDurationTime) <> "" Then
Sleep(1000)
_CheckMaintenanceStatus()
Else
FormMain Textsize + 3. Line
2017-09-18 11:52:45 +02:00
GUICtrlSetBkColor($FormMainLabelStatusLine1, 0xFF0000)
GUICtrlSetData($FormMainLabelStatusLine1, "API ERROR")
Add Maintenance läuft
2017-09-18 00:10:05 +02:00
GUICtrlSetBkColor($FormMainLabelStatusLine2, 0xFF0000)
GUICtrlSetData($FormMainLabelStatusLine2, "Failure adding Maintenance")
EndIf
If $__zbxSessionId <> "" Then
_zbx_Logout( $__zbxURL, $__zbxSessionId)
EndIf
StringSplit geändert
2017-09-18 12:40:39 +02:00
GUICtrlSetState($FormMainButtonMaintenanceSet, $GUI_ENABLE)
GUICtrlSetState($FormMainButtonMaintenanceDelete, $GUI_ENABLE)
GUICtrlSetState($FormMainComboTimes, $GUI_ENABLE)
GUISetCursor("", 1, $FormMain)
Setup aus dem Main aufrufbar
2017-09-17 19:41:06 +02:00
EndFunc
FormMainButtonMaintenanceDeleteClick created
2017-09-18 11:14:05 +02:00
Setup aus dem Main aufrufbar
2017-09-17 19:41:06 +02:00
; #############################################################################################################################################################
Func FormMainButtonMaintenanceDeleteClick()
StringSplit geändert
2017-09-18 12:40:39 +02:00
GUISetCursor(15, 1, $FormMain)
GUICtrlSetState($FormMainButtonMaintenanceSet, $GUI_DISABLE)
GUICtrlSetState($FormMainButtonMaintenanceDelete, $GUI_DISABLE)
GUICtrlSetState($FormMainComboTimes, $GUI_DISABLE)
FormMainButtonMaintenanceDeleteClick created
2017-09-18 11:14:05 +02:00
Local $__zbxURL = GUICtrlRead($FormSetupAPIInputURL)
Local $__zbxUser = GUICtrlRead($FormSetupAPIInputUsername)
Local $__zbxPassword = GUICtrlRead($FormSetupAPIInputPassword)
Local $__zbxHostname = GUICtrlRead($FormSetupAPIInputHost)
Local $__zbxSessionId = _zbx_Login( $__zbxURL, $__zbxUser, $__zbxPassword)
Local $__zbxHostId = _zbx_HostGetId($__zbxURL, $__zbxSessionId, $__zbxHostname)
Local $__aMaintenanceIds = _zbx_HostGetMaintenanceIDs($__zbxURL, $__zbxSessionId, $__zbxHostId, _ReplaceEnviromentVariables(GUICtrlRead($FormSetupMaintenanceInputPrefix)))
;~ _ArrayDisplay($__aMaintenanceIds, "$__aMaintenanceIds")
; $__aMaintenanceIds[x][1] = Id
; $__aMaintenanceIds[x][2] = Name
; $__aMaintenanceIds[x][3] = active_since
; $__aMaintenanceIds[x][4] = active_till
If $__aMaintenanceIds[0][0] > 0 Then
For $i = 1 To $__aMaintenanceIds[0][0] Step 1
StringSplit geändert
2017-09-18 12:40:39 +02:00
If _zbx_HostRemoveMaintenance($__zbxURL, $__zbxSessionId, $__zbxHostId, $__aMaintenanceIds[$i][1]) = $__aMaintenanceIds[$i][1] Then
FormMainButtonMaintenanceDeleteClick created
2017-09-18 11:14:05 +02:00
; Maintenance was deleted!
Else
; There was an error!
EndIf
Next
EndIf
If $__zbxSessionId <> "" Then
_zbx_Logout( $__zbxURL, $__zbxSessionId)
EndIf
StringSplit geändert
2017-09-18 12:40:39 +02:00
GUICtrlSetState($FormMainButtonMaintenanceSet, $GUI_ENABLE)
GUICtrlSetState($FormMainButtonMaintenanceDelete, $GUI_ENABLE)
GUICtrlSetState($FormMainComboTimes, $GUI_ENABLE)
GUISetCursor("", 1, $FormMain)
Setup aus dem Main aufrufbar
2017-09-17 19:41:06 +02:00
EndFunc
; #############################################################################################################################################################
Func FormMainButtonAcknowledgeClick()
StringSplit geändert
2017-09-18 12:40:39 +02:00
Local $__zbxURL = GUICtrlRead($FormSetupAPIInputURL)
Local $__zbxUser = GUICtrlRead($FormSetupAPIInputUsername)
Local $__zbxPassword = GUICtrlRead($FormSetupAPIInputPassword)
Local $__zbxHostname = GUICtrlRead($FormSetupAPIInputHost)
Local $__zbxSessionId = _zbx_Login( $__zbxURL, $__zbxUser, $__zbxPassword)
Local $__zbxHostId = _zbx_HostGetId($__zbxURL, $__zbxSessionId, $__zbxHostname)
;~ $__a_zbxHostTriggers[0][0] = 0
;~ $__a_zbxHostTriggers[0][1] = "triggerid"
;~ $__a_zbxHostTriggers[0][2] = "description"
;~ $__a_zbxHostTriggers[0][3] = "priority"
Local $__a_zbxHostTriggers = _zbx_HostTriggerGet($__zbxURL, $__zbxSessionId, $__zbxHostId)
;~ _ArrayDisplay($__a_zbxHostTriggers)
If $__zbxSessionId <> "" Then
_zbx_Logout( $__zbxURL, $__zbxSessionId)
EndIf
Setup aus dem Main aufrufbar
2017-09-17 19:41:06 +02:00
EndFunc
; #############################################################################################################################################################
Func FormMainButtonSetupClick()
StringSplit geändert
2017-09-18 12:40:39 +02:00
AdlibUnRegister("_CheckMaintenanceStatus")
Setup aus dem Main aufrufbar
2017-09-17 19:41:06 +02:00
GUISetState(@SW_SHOW, $FormSetup)
GUISetState(@SW_HIDE, $FormMain)
EndFunc
Maintenance Abfrage läuft
2017-09-17 22:38:57 +02:00
; #############################################################################################################################################################
Func FormMainLabelStatusClick()
_CheckMaintenanceStatus()
EndFunc
Alle Deklarationen
2017-09-16 17:26:40 +02:00
; #############################################################################################################################################################
Func FormSetupAPIButtonReadDataZabbixAgentClick()
EndFunc
Setup Zwischenstand
2017-09-15 23:01:06 +02:00
Alle Deklarationen
2017-09-16 17:26:40 +02:00
; #############################################################################################################################################################
Func FormSetupAPIButtonTestCredentialsClick()
Setup Zwischenstand
2017-09-15 23:01:06 +02:00
EndFunc
Alle Deklarationen
2017-09-16 17:26:40 +02:00
; #############################################################################################################################################################
Func FormSetupButtonCancelClick()
Setup aus dem Main aufrufbar
2017-09-17 19:41:06 +02:00
GUISetState(@SW_HIDE, $FormSetup)
GUISetState(@SW_SHOW, $FormMain)
StringSplit geändert
2017-09-18 12:40:39 +02:00
If GUICtrlRead($FormSetupCheckCheckboxMaintenanceStatus) = $GUI_CHECKED Then
AdlibRegister("_CheckMaintenanceStatus", _TimeToSeconds(GUICtrlRead($FormSetupCheckComboTimesMaintenance)) * 1000)
EndIf
Alle Deklarationen
2017-09-16 17:26:40 +02:00
EndFunc
; #############################################################################################################################################################
Func FormSetupButtonHelpClick()
Setup Zwischenstand
2017-09-15 23:01:06 +02:00
EndFunc
Alle Deklarationen
2017-09-16 17:26:40 +02:00
; #############################################################################################################################################################
; Alle Einstellungen in der Registry speichern
Setup Zwischenstand
2017-09-15 23:01:06 +02:00
Func FormSetupButtonOKClick()
Alle Deklarationen
2017-09-16 17:26:40 +02:00
_SettingsWrite()
Setup aus dem Main aufrufbar
2017-09-17 19:41:06 +02:00
GUISetState(@SW_HIDE, $FormSetup)
GUISetState(@SW_SHOW, $FormMain)
StringSplit geändert
2017-09-18 12:40:39 +02:00
If GUICtrlRead($FormSetupCheckCheckboxMaintenanceStatus) = $GUI_CHECKED Then
AdlibRegister("_CheckMaintenanceStatus", _TimeToSeconds(GUICtrlRead($FormSetupCheckComboTimesMaintenance)) * 1000)
EndIf
Alle Deklarationen
2017-09-16 17:26:40 +02:00
EndFunc
; #############################################################################################################################################################
Func FormSetupCheckCheckboxMaintenanceStatusClick()
Trigger Farbauswahl + Checks Checkboxen
2017-09-16 23:19:27 +02:00
If GUICtrlRead($FormSetupCheckCheckboxMaintenanceStatus) = $GUI_CHECKED Then
GUICtrlSetState($FormSetupCheckLabelEvery1, $GUI_ENABLE)
GUICtrlSetState($FormSetupCheckComboTimesMaintenance, $GUI_ENABLE)
Else
GUICtrlSetState($FormSetupCheckLabelEvery1, $GUI_DISABLE)
GUICtrlSetState($FormSetupCheckComboTimesMaintenance, $GUI_DISABLE)
EndIf
Alle Deklarationen
2017-09-16 17:26:40 +02:00
EndFunc
Setup Zwischenstand
2017-09-15 23:01:06 +02:00
Alle Deklarationen
2017-09-16 17:26:40 +02:00
; #############################################################################################################################################################
Func FormSetupCheckCheckboxTriggerClick()
Trigger Farbauswahl + Checks Checkboxen
2017-09-16 23:19:27 +02:00
If GUICtrlRead($FormSetupCheckCheckboxTrigger) = $GUI_CHECKED Then
GUICtrlSetState($FormSetupCheckLabelEvery2, $GUI_ENABLE)
GUICtrlSetState($FormSetupCheckComboTimesTrigger, $GUI_ENABLE)
Else
GUICtrlSetState($FormSetupCheckLabelEvery2, $GUI_DISABLE)
GUICtrlSetState($FormSetupCheckComboTimesTrigger, $GUI_DISABLE)
EndIf
Setup Zwischenstand
2017-09-15 23:01:06 +02:00
EndFunc
Alle Deklarationen
2017-09-16 17:26:40 +02:00
; #############################################################################################################################################################
Func FormSetupCheckComboTimesMaintenanceChange()
EndFunc
; #############################################################################################################################################################
Func FormSetupCheckComboTimesTriggerChange()
EndFunc
; #############################################################################################################################################################
Setup Zwischenstand
2017-09-15 23:01:06 +02:00
Func FormSetupClose()
Alle Deklarationen
2017-09-16 17:26:40 +02:00
FormSetupButtonCancelClick()
EndFunc
Setup Zwischenstand
2017-09-15 23:01:06 +02:00
Alle Deklarationen
2017-09-16 17:26:40 +02:00
; #############################################################################################################################################################
Func FormSetupInfoLabelHomepageRightClick()
EndFunc
; #############################################################################################################################################################
Func FormSetupInfoLabelLicenseRightClick()
EndFunc
; #############################################################################################################################################################
Func FormSetupInfoLabelRepositoryRightClick()
EndFunc
; #############################################################################################################################################################
Func FormSetupMaintenanceButtonAddClick()
EndFunc
; #############################################################################################################################################################
Func FormSetupMaintenanceButtonDeleteClick()
EndFunc
; #############################################################################################################################################################
Func FormSetupMaintenanceComboUnitChange()
Setup Zwischenstand
2017-09-15 23:01:06 +02:00
EndFunc
Alle Deklarationen
2017-09-16 17:26:40 +02:00
; #############################################################################################################################################################
Func FormSetupMaintenanceListTimesClick()
Setup Zwischenstand
2017-09-15 23:01:06 +02:00
EndFunc
Alle Deklarationen
2017-09-16 17:26:40 +02:00
; #############################################################################################################################################################
Func FormSetupMinimize()
EndFunc
; #############################################################################################################################################################
Setup Zwischenstand
2017-09-15 23:01:06 +02:00
Func FormSetupRestore()
Alle Deklarationen
2017-09-16 17:26:40 +02:00
EndFunc
; #############################################################################################################################################################
Func FormSetupTriggerInputColorAverageChange()
Trigger Farbauswahl + Checks Checkboxen
2017-09-16 23:19:27 +02:00
_TriggerInputColor()
GUICtrlSetBkColor($FormSetupTriggerLabelColorAverage, "0x" & GUICtrlRead($FormSetupTriggerInputColorAverage))
Alle Deklarationen
2017-09-16 17:26:40 +02:00
EndFunc
Setup Zwischenstand
2017-09-15 23:01:06 +02:00
Alle Deklarationen
2017-09-16 17:26:40 +02:00
; #############################################################################################################################################################
Func FormSetupTriggerInputColorDisasterChange()
Trigger Farbauswahl + Checks Checkboxen
2017-09-16 23:19:27 +02:00
_TriggerInputColor()
GUICtrlSetBkColor($FormSetupTriggerLabelColorDisaster, "0x" & GUICtrlRead($FormSetupTriggerInputColorDisaster))
Alle Deklarationen
2017-09-16 17:26:40 +02:00
EndFunc
; #############################################################################################################################################################
Func FormSetupTriggerInputColorHighChange()
Trigger Farbauswahl + Checks Checkboxen
2017-09-16 23:19:27 +02:00
_TriggerInputColor()
GUICtrlSetBkColor($FormSetupTriggerLabelColorHigh, "0x" & GUICtrlRead($FormSetupTriggerInputColorHigh))
Alle Deklarationen
2017-09-16 17:26:40 +02:00
EndFunc
; #############################################################################################################################################################
Func FormSetupTriggerInputColorInformationChange()
Trigger Farbauswahl + Checks Checkboxen
2017-09-16 23:19:27 +02:00
_TriggerInputColor()
GUICtrlSetBkColor($FormSetupTriggerLabelColorInformation, "0x" & GUICtrlRead($FormSetupTriggerInputColorInformation))
Alle Deklarationen
2017-09-16 17:26:40 +02:00
EndFunc
; #############################################################################################################################################################
Func FormSetupTriggerInputColorNotclassifiedChange()
Trigger Farbauswahl + Checks Checkboxen
2017-09-16 23:19:27 +02:00
_TriggerInputColor()
GUICtrlSetBkColor($FormSetupTriggerLabelColorNotclassified, "0x" & GUICtrlRead($FormSetupTriggerInputColorNotclassified))
Alle Deklarationen
2017-09-16 17:26:40 +02:00
EndFunc
; #############################################################################################################################################################
Func FormSetupTriggerInputColorWarningChange()
Trigger Farbauswahl + Checks Checkboxen
2017-09-16 23:19:27 +02:00
_TriggerInputColor()
GUICtrlSetBkColor($FormSetupTriggerLabelColorWarning, "0x" & GUICtrlRead($FormSetupTriggerInputColorWarning))
Alle Deklarationen
2017-09-16 17:26:40 +02:00
EndFunc
; #############################################################################################################################################################
Func FormSetupTriggerLabelColorAverageClick()
Trigger Farbauswahl + Checks Checkboxen
2017-09-16 23:19:27 +02:00
_TriggerChooseColor()
Alle Deklarationen
2017-09-16 17:26:40 +02:00
EndFunc
; #############################################################################################################################################################
Func FormSetupTriggerLabelColorDisasterClick()
Trigger Farbauswahl + Checks Checkboxen
2017-09-16 23:19:27 +02:00
_TriggerChooseColor()
Alle Deklarationen
2017-09-16 17:26:40 +02:00
EndFunc
; #############################################################################################################################################################
Func FormSetupTriggerLabelColorHighClick()
Trigger Farbauswahl + Checks Checkboxen
2017-09-16 23:19:27 +02:00
_TriggerChooseColor()
Alle Deklarationen
2017-09-16 17:26:40 +02:00
EndFunc
; #############################################################################################################################################################
Func FormSetupTriggerLabelColorInformationClick()
Trigger Farbauswahl + Checks Checkboxen
2017-09-16 23:19:27 +02:00
_TriggerChooseColor()
Alle Deklarationen
2017-09-16 17:26:40 +02:00
EndFunc
; #############################################################################################################################################################
Func FormSetupTriggerLabelColorNotclassifiedClick()
Trigger Farbauswahl + Checks Checkboxen
2017-09-16 23:19:27 +02:00
_TriggerChooseColor()
Alle Deklarationen
2017-09-16 17:26:40 +02:00
EndFunc
; #############################################################################################################################################################
Func FormSetupTriggerLabelColorWarningClick()
Trigger Farbauswahl + Checks Checkboxen
2017-09-16 23:19:27 +02:00
_TriggerChooseColor()
EndFunc
; #############################################################################################################################################################
; #############################################################################################################################################################
; #############################################################################################################################################################
Function _TimeToSeconds
2017-09-17 21:01:38 +02:00
; #############################################################################################################################################################
Func _CheckMaintenanceStatus()
StringSplit geändert
2017-09-18 12:40:39 +02:00
AdlibUnRegister("_CountdownMaintenance")
Maintenance Abfrage läuft
2017-09-17 22:38:57 +02:00
Local $__zbxURL = GUICtrlRead($FormSetupAPIInputURL)
Local $__zbxUser = GUICtrlRead($FormSetupAPIInputUsername)
Local $__zbxPassword = GUICtrlRead($FormSetupAPIInputPassword)
Local $__zbxHostname = GUICtrlRead($FormSetupAPIInputHost)
Local $__zbxSessionId = _zbx_Login( $__zbxURL, $__zbxUser, $__zbxPassword)
If $__zbxSessionId = "" Then
FormMain Textsize + 3. Line
2017-09-18 11:52:45 +02:00
_SetLabelStatus(0xFF0000, "API Login", "Failure", "")
Add Maintenance läuft
2017-09-18 00:10:05 +02:00
GUICtrlSetState($FormMainButtonMaintenanceSet, $GUI_DISABLE)
GUICtrlSetState($FormMainButtonMaintenanceDelete, $GUI_DISABLE)
GUICtrlSetState($FormMainComboTimes, $GUI_DISABLE)
Maintenance Abfrage läuft
2017-09-17 22:38:57 +02:00
Return
EndIf
FormMain Textsize + 3. Line
2017-09-18 11:52:45 +02:00
_SetLabelStatus(Default , "", "Logged in ...", "")
Maintenance Abfrage läuft
2017-09-17 22:38:57 +02:00
Local $__zbxHostId = _zbx_HostGetId($__zbxURL, $__zbxSessionId, $__zbxHostname)
Add Maintenance läuft
2017-09-18 00:10:05 +02:00
If $__zbxHostId = "" Then
FormMain Textsize + 3. Line
2017-09-18 11:52:45 +02:00
_SetLabelStatus(0xFF0000 , "Host not found:", $__zbxHostname, "")
Maintenance Abfrage läuft
2017-09-17 22:38:57 +02:00
_zbx_Logout( $__zbxURL, $__zbxSessionId)
Add Maintenance läuft
2017-09-18 00:10:05 +02:00
GUICtrlSetState($FormMainButtonMaintenanceSet, $GUI_DISABLE)
GUICtrlSetState($FormMainButtonMaintenanceDelete, $GUI_DISABLE)
GUICtrlSetState($FormMainComboTimes, $GUI_DISABLE)
Maintenance Abfrage läuft
2017-09-17 22:38:57 +02:00
Return
EndIf
FormMain Textsize + 3. Line
2017-09-18 11:52:45 +02:00
_SetLabelStatus(Default , "", "Host found ..", "")
Add Maintenance läuft
2017-09-18 00:10:05 +02:00
GUICtrlSetState($FormMainButtonMaintenanceSet, $GUI_ENABLE)
GUICtrlSetState($FormMainButtonMaintenanceDelete, $GUI_ENABLE)
GUICtrlSetState($FormMainComboTimes, $GUI_ENABLE)
Maintenance Abfrage läuft
2017-09-17 22:38:57 +02:00
Local $__aMaintenanceIds = _zbx_HostGetMaintenanceIDs($__zbxURL, $__zbxSessionId, $__zbxHostId, "")
;~ _ArrayDisplay($__aMaintenanceIds, "$__aMaintenanceIds")
If $__aMaintenanceIds[0][0] = 0 Then
FormMain Textsize + 3. Line
2017-09-18 11:52:45 +02:00
_SetLabelStatus(0x008800 , "no maintenance", "periods found", "")
Maintenance Abfrage läuft
2017-09-17 22:38:57 +02:00
Else
; there are maintenance periods, find a active one
Add Maintenance läuft
2017-09-18 00:10:05 +02:00
Local $__LocalTimeStructUTC = _Date_Time_GetSystemTime()
Local $__dCurrentTime = _DateDiff('s', "1970/01/01 00:00:00", _Date_Time_SystemTimeToDateTimeStr($__LocalTimeStructUTC, 1))
;~ Local $__dCurrentTime = _DateDiff('s', "1970/01/01 00:00:00", _NowCalc())
Maintenance Abfrage läuft
2017-09-17 22:38:57 +02:00
; $__aMaintenanceIds[x][1] = Id
; $__aMaintenanceIds[x][2] = Name
; $__aMaintenanceIds[x][3] = active_since
; $__aMaintenanceIds[x][4] = active_till
Local $__iMaintenanceTimeTill = 0
Local $__sMaintenanceName = ""
For $t = 1 To $__aMaintenanceIds[0][0] Step 1
Add Maintenance läuft
2017-09-18 00:10:05 +02:00
If $__dCurrentTime > $__aMaintenanceIds[$t][3] And $__dCurrentTime < $__aMaintenanceIds[$t][4] Then
Maintenance Abfrage läuft
2017-09-17 22:38:57 +02:00
If $__iMaintenanceTimeTill < $__aMaintenanceIds[$t][4] Then
$__iMaintenanceTimeTill = $__aMaintenanceIds[$t][4]
$__sMaintenanceName = $__aMaintenanceIds[$t][2]
EndIf
EndIf
Next
Add Maintenance läuft
2017-09-18 00:10:05 +02:00
If $__iMaintenanceTimeTill <> 0 Then
FormMain Textsize + 3. Line
2017-09-18 11:52:45 +02:00
_SetLabelStatus(0x880000 , "Host in maintenance", StringReplace(StringReplace(_SecondsToTime($__iMaintenanceTimeTill - $__dCurrentTime), "h", "h "),"m", "m "), $__sMaintenanceName)
StringSplit geändert
2017-09-18 12:40:39 +02:00
$g_i_Countdown = $__iMaintenanceTimeTill
AdlibRegister("_CountdownMaintenance", 3000)
Add Maintenance läuft
2017-09-18 00:10:05 +02:00
Else
FormMain Textsize + 3. Line
2017-09-18 11:52:45 +02:00
_SetLabelStatus(0x008800 , "no active maintenance", "periods found", "")
Add Maintenance läuft
2017-09-18 00:10:05 +02:00
EndIf
Maintenance Abfrage läuft
2017-09-17 22:38:57 +02:00
EndIf
If $__zbxSessionId <> "" Then
_zbx_Logout( $__zbxURL, $__zbxSessionId)
API-Login Test
2017-09-17 21:12:14 +02:00
EndIf
Function _TimeToSeconds
2017-09-17 21:01:38 +02:00
EndFunc
StringSplit geändert
2017-09-18 12:40:39 +02:00
; #############################################################################################################################################################
Func _CountdownMaintenance()
Local $__LocalTimeStructUTC = _Date_Time_GetSystemTime()
Local $__dCurrentTime = _DateDiff('s', "1970/01/01 00:00:00", _Date_Time_SystemTimeToDateTimeStr($__LocalTimeStructUTC, 1))
If $g_i_Countdown - $__dCurrentTime > 0 Then
GUICtrlSetData($FormMainLabelStatusLine2, StringReplace(StringReplace(_SecondsToTime($g_i_Countdown - $__dCurrentTime), "h", "h "),"m", "m "))
Else
_CheckMaintenanceStatus()
EndIf
EndFunc
Trigger Farbauswahl + Checks Checkboxen
2017-09-16 23:19:27 +02:00
; #############################################################################################################################################################
Func _TriggerInputColor()
GUICtrlSetData(@GUI_CtrlId,StringLeft(StringRegExpReplace(StringUpper(GUICtrlRead(@GUI_CtrlId)),"[^[01723456789ABCDEF]*", ""),6))
EndFunc
; #############################################################################################################################################################
Func _TriggerChooseColor()
Local $__hex_NewColor = _ChooseColor(2, "0x" & GUICtrlRead($FormSetupTriggerInputColorDisaster), 2, $FormSetup)
Local $__cInput
If $__hex_NewColor <> -1 Then
Switch @GUI_CtrlId
Case $FormSetupTriggerLabelColorNotclassified
$__cInput = $FormSetupTriggerInputColorNotclassified
Case $FormSetupTriggerLabelColorInformation
$__cInput = $FormSetupTriggerInputColorInformation
Case $FormSetupTriggerLabelColorWarning
$__cInput = $FormSetupTriggerInputColorWarning
Case $FormSetupTriggerLabelColorAverage
$__cInput = $FormSetupTriggerInputColorAverage
Case $FormSetupTriggerLabelColorHigh
$__cInput = $FormSetupTriggerInputColorHigh
Case $FormSetupTriggerLabelColorDisaster
$__cInput = $FormSetupTriggerInputColorDisaster
EndSwitch
GUICtrlSetData($__cInput, StringTrimLeft($__hex_NewColor, 2))
GUICtrlSetBkColor(@GUI_CtrlId, $__hex_NewColor)
EndIf
EndFunc
; #############################################################################################################################################################
Func _SecondsToTime($__iSec)
Local $__iRetH = 0, $__iRetM = 0, $__iRetS = 0, $__sReturn = ""
If $__iSec / 3600 >= 1 Then
$__iRetH = Floor($__iSec / 3600)
$__iSec = Mod($__iSec, 3600)
EndIf
If $__iSec / 60 >= 1 Then
$__iRetM = Floor($__iSec / 60)
$__iSec = Mod($__iSec, 60)
EndIf
$__iRetS = $__iSec
;Return StringFormat("%.2d:%.2d:%.2d",$__iRetH,$__iRetM,$__iRetS)
$__sReturn = StringFormat("%.2dh%.2dm%.2ds", $__iRetH, $__iRetM, $__iRetS)
$__sReturn = StringReplace($__sReturn, "00h", "")
$__sReturn = StringReplace($__sReturn, "00m", "")
$__sReturn = StringReplace($__sReturn, "00s", "")
;~ MsgBox(0,"",StringLeft($__sReturn, 1))
If StringLeft($__sReturn, 1) = "0" Then
$__sReturn = StringTrimLeft($__sReturn, 1)
EndIf
Return $__sReturn
EndFunc ;==>_SecondsToTime
Alle Deklarationen
2017-09-16 17:26:40 +02:00
Function _TimeToSeconds
2017-09-17 21:01:38 +02:00
; #############################################################################################################################################################
Func _TimeToSeconds($__sTime)
Local $__iResult = 0
Local $__iFactor = 1
Local $__aTime = StringSplit($__sTime, "")
For $i = $__aTime[0] To 1 Step -1
Maintenance Abfrage läuft
2017-09-17 22:38:57 +02:00
;~ ConsoleWrite("$i = " & $i & @CRLF)
Function _TimeToSeconds
2017-09-17 21:01:38 +02:00
Switch $__aTime[$i]
Case "s"
$__iFactor = 1
Maintenance Abfrage läuft
2017-09-17 22:38:57 +02:00
;~ ConsoleWrite("$__iFactor = 1" & @CRLF)
Function _TimeToSeconds
2017-09-17 21:01:38 +02:00
Case "m"
$__iFactor = 60
Maintenance Abfrage läuft
2017-09-17 22:38:57 +02:00
;~ ConsoleWrite("$__iFactor = 60" & @CRLF)
Function _TimeToSeconds
2017-09-17 21:01:38 +02:00
Case "h"
$__iFactor = 3600
Maintenance Abfrage läuft
2017-09-17 22:38:57 +02:00
;~ ConsoleWrite("$__iFactor = 3600" & @CRLF)
Function _TimeToSeconds
2017-09-17 21:01:38 +02:00
EndSwitch
If ($i - 1) > 0 Then
Maintenance Abfrage läuft
2017-09-17 22:38:57 +02:00
;~ ConsoleWrite("$i - 1 ist > 0" & @CRLF)
;~ ConsoleWrite('StringRegExp($__aTime[$i - 2], "^[01723456789]") = ' & StringRegExp($__aTime[$i - 2], "^[01723456789]") & @CRLF)
Function _TimeToSeconds
2017-09-17 21:01:38 +02:00
If StringRegExp($__aTime[$i - 2], "^[01723456789]") = 1 And ($i - 2) <> 0 Then
Maintenance Abfrage läuft
2017-09-17 22:38:57 +02:00
;~ ConsoleWrite("IsNumber($__aTime[$i - 2]) And ($i - 2) > 0" & @CRLF)
Function _TimeToSeconds
2017-09-17 21:01:38 +02:00
$__iResult = $__iResult + (Int($__aTime[$i - 2] & $__aTime[$i - 1]) * $__iFactor)
$i = $i - 2
Else
Maintenance Abfrage läuft
2017-09-17 22:38:57 +02:00
;~ ConsoleWrite("Keine Zahl oder $i -2 ist 0" & @CRLF)
Function _TimeToSeconds
2017-09-17 21:01:38 +02:00
$__iResult = $__iResult + ($__aTime[$i - 1] * $__iFactor)
$i = $i - 1
EndIf
Else
Maintenance Abfrage läuft
2017-09-17 22:38:57 +02:00
;~ ConsoleWrite("$i - 1 ist 0" & @CRLF)
Function _TimeToSeconds
2017-09-17 21:01:38 +02:00
$__iResult = $__iResult + ($__aTime[$i - 1] * $__iFactor)
$i = $i - 1
EndIf
Next
Return $__iResult
EndFunc
FormMainButtonMaintenanceDeleteClick created
2017-09-18 11:14:05 +02:00
; #############################################################################################################################################################
Func _ReplaceEnviromentVariables($__SourceText)
;~ Local $__repPID = Run(@ComSpec & " /c set", @SystemDir, @SW_HIDE, $STDOUT_CHILD)
;~ Local $__repLine
;~ While 1
;~ $__repLine = $__repLine & StdoutRead($PID)
;~ If @error Then ExitLoop
;~ Wend
;~ Local $
;~ MsgBox(0, "SET", $line)
Local $__sReturn = StringReplace($__SourceText, "%USERNAME%", @UserName)
$__sReturn = StringReplace($__sReturn, "%USERDOMAIN%", EnvGet("USERDOMAIN"))
$__sReturn = StringReplace($__sReturn, "%COMPUTERNAME%", @ComputerName)
$__sReturn = StringReplace($__sReturn, "\", "\\")
Return $__sReturn
EndFunc
FormMain Textsize + 3. Line
2017-09-18 11:52:45 +02:00
; #############################################################################################################################################################
Func _SetLabelStatus($__StatusColor = 0x808080, $__TextLine1 = "unknown", $__TextLine2 = "status", $__TextLine3 = "")
GUICtrlSetBkColor($FormMainLabelStatusLine1, $__StatusColor)
GUICtrlSetBkColor($FormMainLabelStatusLine2, $__StatusColor)
GUICtrlSetBkColor($FormMainLabelStatusLine3, $__StatusColor)
GUICtrlSetData($FormMainLabelStatusLine1, $__TextLine1)
GUICtrlSetData($FormMainLabelStatusLine2, $__TextLine2)
GUICtrlSetData($FormMainLabelStatusLine3, $__TextLine3)
EndFunc
Alle Deklarationen
2017-09-16 17:26:40 +02:00
; #############################################################################################################################################################
SetupRead works now
2017-09-17 20:15:13 +02:00
Func _SettingsRead()
; Tab "Zabbix API"
_zetRegRead("$FormSetupAPIInputURL", $FormSetupAPIInputURL)
_zetRegRead("$FormSetupAPIInputHost", $FormSetupAPIInputHost)
_zetRegRead("$FormSetupAPIInputUsername", $FormSetupAPIInputUsername)
_zetRegRead("$FormSetupAPIInputPassword", $FormSetupAPIInputPassword)
; Tab "Maintenance"
_zetRegRead("$FormSetupMaintenanceInputPrefix", $FormSetupMaintenanceInputPrefix)
_zetRegRead("$FormSetupMaintenanceInputDescription", $FormSetupMaintenanceInputDescription)
GUICtrlSetData($FormSetupMaintenanceListTimes, "")
GUICtrlSetData($FormMainComboTimes, "")
If _zetRegRead("MaintenanceTimes", "", True) <> "" Then
$g_a_MaintenanceTimes = StringSplit(_zetRegRead("MaintenanceTimes", "", True), "|")
EndIf
Local $__s_temp = ""
For $n = 1 To $g_a_MaintenanceTimes[0] Step 1
$__s_temp = $__s_temp & _SecondsToTime($g_a_MaintenanceTimes[$n]) & "|"
Next
GUICtrlSetData($FormSetupMaintenanceListTimes, $__s_temp)
;~ MsgBox(0, "$g_a_MaintenanceTimes[1]", $g_a_MaintenanceTimes[1])
GUICtrlSetData($FormMainComboTimes, $__s_temp, _SecondsToTime($g_a_MaintenanceTimes[1]))
; Tab "Trigger"
_zetRegRead("$FormSetupTriggerInputNotclassified", $FormSetupTriggerInputNotclassified)
_zetRegRead("$FormSetupTriggerInputInformation", $FormSetupTriggerInputInformation)
_zetRegRead("$FormSetupTriggerInputWarning", $FormSetupTriggerInputWarning)
_zetRegRead("$FormSetupTriggerInputAverage", $FormSetupTriggerInputAverage)
_zetRegRead("$FormSetupTriggerInputHigh", $FormSetupTriggerInputHigh)
_zetRegRead("$FormSetupTriggerInputDisaster", $FormSetupTriggerInputDisaster)
_zetRegRead("$FormSetupTriggerInputColorNotclassified", $FormSetupTriggerInputColorNotclassified)
Fehler behoben ReadSettings beim Setzen der Farben
2017-09-17 21:14:16 +02:00
GUICtrlSetBkColor($FormSetupTriggerLabelColorNotclassified, "0x" & GUICtrlRead($FormSetupTriggerInputColorNotclassified))
SetupRead works now
2017-09-17 20:15:13 +02:00
_zetRegRead("$FormSetupTriggerInputColorInformation", $FormSetupTriggerInputColorInformation)
Fehler behoben ReadSettings beim Setzen der Farben
2017-09-17 21:14:16 +02:00
GUICtrlSetBkColor($FormSetupTriggerLabelColorInformation, "0x" & GUICtrlRead($FormSetupTriggerInputColorInformation))
SetupRead works now
2017-09-17 20:15:13 +02:00
_zetRegRead("$FormSetupTriggerInputColorWarning", $FormSetupTriggerInputColorWarning)
Fehler behoben ReadSettings beim Setzen der Farben
2017-09-17 21:14:16 +02:00
GUICtrlSetBkColor($FormSetupTriggerLabelColorWarning, "0x" & GUICtrlRead($FormSetupTriggerInputColorWarning))
SetupRead works now
2017-09-17 20:15:13 +02:00
_zetRegRead("$FormSetupTriggerInputColorAverage", $FormSetupTriggerInputColorAverage)
Fehler behoben ReadSettings beim Setzen der Farben
2017-09-17 21:14:16 +02:00
GUICtrlSetBkColor($FormSetupTriggerLabelColorAverage, "0x" & GUICtrlRead($FormSetupTriggerInputColorAverage))
SetupRead works now
2017-09-17 20:15:13 +02:00
_zetRegRead("$FormSetupTriggerInputColorHigh", $FormSetupTriggerInputColorHigh)
Fehler behoben ReadSettings beim Setzen der Farben
2017-09-17 21:14:16 +02:00
GUICtrlSetBkColor($FormSetupTriggerLabelColorHigh, "0x" & GUICtrlRead($FormSetupTriggerInputColorHigh))
SetupRead works now
2017-09-17 20:15:13 +02:00
_zetRegRead("$FormSetupTriggerInputColorDisaster", $FormSetupTriggerInputColorDisaster)
Fehler behoben ReadSettings beim Setzen der Farben
2017-09-17 21:14:16 +02:00
GUICtrlSetBkColor($FormSetupTriggerLabelColorDisaster, "0x" & GUICtrlRead($FormSetupTriggerInputColorDisaster))
SetupRead works now
2017-09-17 20:15:13 +02:00
; Tab "Check"
_zetRegRead("$FormSetupCheckCheckboxMaintenanceStatus", $FormSetupCheckCheckboxMaintenanceStatus)
FormSetupCheckCheckboxMaintenanceStatusClick()
_zetRegRead("$FormSetupCheckCheckboxTrigger", $FormSetupCheckCheckboxTrigger)
FormSetupCheckCheckboxTriggerClick()
_zetRegRead("$FormSetupCheckComboTimesMaintenance", $FormSetupCheckComboTimesMaintenance)
_zetRegRead("$FormSetupCheckComboTimesTrigger", $FormSetupCheckComboTimesTrigger)
Trigger Farbauswahl + Checks Checkboxen
2017-09-16 23:19:27 +02:00
SetupRead works now
2017-09-17 20:15:13 +02:00
; Tab "Acknowledge"
_zetRegRead("$FormSetupAcknowledgeEditDefaultMessage", $FormSetupAcknowledgeEditDefaultMessage)
_zetRegRead("$FormSetupAcknowledgeCheckboxNeverAsk", $FormSetupAcknowledgeCheckboxNeverAsk)
_zetRegRead("$FormSetupAcknowledgeCheckboxCloseProblems", $FormSetupAcknowledgeCheckboxCloseProblems)
;~ RegWrite("HKEY_CURRENT_USER\Software\znil.net\ZabbixEasyTool\local","", "REG_SZ", @HOUR & ":" & @MIN & ":" & @SEC & " - " & @MDAY & "." & @MON & "." & @YEAR)
EndFunc
; #############################################################################################################################################################
Func _zetRegRead($__sRegValueName, $__sRegValue, $__bNoRead = False)
Local $__sCleanValueName
If $__bNoRead = False Then
$__sCleanValueName = StringReplace($__sRegValueName, "$FormSetup", "")
Else
$__sCleanValueName = $__sRegValueName
EndIf
Local $__sValue = RegRead("HKEY_CURRENT_USER\Software\znil.net\ZabbixEasyTool\local", $__sCleanValueName)
If $__sValue <> "" And $__bNoRead = False Then
If StringInStr($__sCleanValueName, "Checkbox") = 0 Then
GUICtrlSetData($__sRegValue, StringReplace(RegRead("HKEY_CURRENT_USER\Software\znil.net\ZabbixEasyTool\local", $__sCleanValueName), "<br>", @CRLF))
Else
GUICtrlSetState($__sRegValue, RegRead("HKEY_CURRENT_USER\Software\znil.net\ZabbixEasyTool\local", $__sCleanValueName))
Return 0
EndIf
Else
Return $__sValue
EndIf
EndFunc
; #############################################################################################################################################################
Alle Deklarationen
2017-09-16 17:26:40 +02:00
Func _SettingsWrite()
; Tab "Zabbix API"
Trigger Farbauswahl + Checks Checkboxen
2017-09-16 23:19:27 +02:00
_zetRegWrite("$FormSetupAPIInputURL", $FormSetupAPIInputURL)
_zetRegWrite("$FormSetupAPIInputHost", $FormSetupAPIInputHost)
_zetRegWrite("$FormSetupAPIInputUsername", $FormSetupAPIInputUsername)
_zetRegWrite("$FormSetupAPIInputPassword", $FormSetupAPIInputPassword)
; Tab "Maintenance"
_zetRegWrite("$FormSetupMaintenanceInputPrefix", $FormSetupMaintenanceInputPrefix)
_zetRegWrite("$FormSetupMaintenanceInputDescription", $FormSetupMaintenanceInputDescription)
_zetRegWrite("MaintenanceTimes", _ArrayToString($g_a_MaintenanceTimes,"|",1), True)
; Tab "Trigger"
_zetRegWrite("$FormSetupTriggerInputNotclassified", $FormSetupTriggerInputNotclassified)
_zetRegWrite("$FormSetupTriggerInputInformation", $FormSetupTriggerInputInformation)
_zetRegWrite("$FormSetupTriggerInputWarning", $FormSetupTriggerInputWarning)
_zetRegWrite("$FormSetupTriggerInputAverage", $FormSetupTriggerInputAverage)
_zetRegWrite("$FormSetupTriggerInputHigh", $FormSetupTriggerInputHigh)
_zetRegWrite("$FormSetupTriggerInputDisaster", $FormSetupTriggerInputDisaster)
_zetRegWrite("$FormSetupTriggerInputColorNotclassified", $FormSetupTriggerInputColorNotclassified)
_zetRegWrite("$FormSetupTriggerInputColorInformation", $FormSetupTriggerInputColorInformation)
_zetRegWrite("$FormSetupTriggerInputColorWarning", $FormSetupTriggerInputColorWarning)
_zetRegWrite("$FormSetupTriggerInputColorAverage", $FormSetupTriggerInputColorAverage)
_zetRegWrite("$FormSetupTriggerInputColorHigh", $FormSetupTriggerInputColorHigh)
_zetRegWrite("$FormSetupTriggerInputColorDisaster", $FormSetupTriggerInputColorDisaster)
; Tab "Check"
_zetRegWrite("$FormSetupCheckCheckboxMaintenanceStatus", $FormSetupCheckCheckboxMaintenanceStatus)
_zetRegWrite("$FormSetupCheckCheckboxTrigger", $FormSetupCheckCheckboxTrigger)
_zetRegWrite("$FormSetupCheckComboTimesMaintenance", $FormSetupCheckComboTimesMaintenance)
_zetRegWrite("$FormSetupCheckComboTimesTrigger", $FormSetupCheckComboTimesTrigger)
; Tab "Acknowledge"
_zetRegWrite("$FormSetupAcknowledgeEditDefaultMessage", $FormSetupAcknowledgeEditDefaultMessage)
_zetRegWrite("$FormSetupAcknowledgeCheckboxNeverAsk", $FormSetupAcknowledgeCheckboxNeverAsk)
_zetRegWrite("$FormSetupAcknowledgeCheckboxCloseProblems", $FormSetupAcknowledgeCheckboxCloseProblems)
RegWrite("HKEY_CURRENT_USER\Software\znil.net\ZabbixEasyTool\local","", "REG_SZ", @HOUR & ":" & @MIN & ":" & @SEC & " - " & @MDAY & "." & @MON & "." & @YEAR)
EndFunc
; #############################################################################################################################################################
Func _zetRegWrite($__sRegValueName, $__sRegValue, $__bNoRead = False)
If $__bNoRead = False Then
Local $__sCleanValueName = StringReplace($__sRegValueName, "$FormSetup", "")
RegWrite("HKEY_CURRENT_USER\Software\znil.net\ZabbixEasyTool\local",$__sCleanValueName, "REG_SZ", StringReplace(GUICtrlRead($__sRegValue), @CRLF, "<br>"))
Else
RegWrite("HKEY_CURRENT_USER\Software\znil.net\ZabbixEasyTool\local",$__sRegValueName, "REG_SZ", $__sRegValue)
EndIf
Setup Zwischenstand
2017-09-15 23:01:06 +02:00
EndFunc
Trigger Farbauswahl + Checks Checkboxen
2017-09-16 23:19:27 +02:00
API-Login Test
2017-09-17 21:12:14 +02:00
; #############################################################################################################################################################
Func _zbx_Login( $__zbxURL, $__zbxUser, $__zbxPassword)
Local $__zbxJSON = '{"params":{"password":"' & $__zbxPassword & '","user":"' & $__zbxUser & '","userData":true},"jsonrpc":"2.0","method":"user.login","id":42}'
Local $__oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
Local $__zbxSessionId = ""
$__oHTTP.Open("POST", $__zbxURL , False)
; ignore all SSL errors
$__oHTTP.Option("WinHttpRequestOption_SslErrorIgnoreFlags") = 0x3300
;$__oHTTP.Option(4) = 0x3300
; Unknown certification authority (CA) or untrusted root 0x0100
; Wrong usage 0x0200
; Invalid common name (CN) 0x1000
; Invalid date or certificate expired 0x2000
$__oHTTP.SetRequestHeader("Content-Type", "application/json-rpc")
$__oHTTP.Send($__zbxJSON)
Local $__oReceived = $__oHTTP.ResponseText
Local $__oStatusCode = $__oHTTP.Status
Maintenance Abfrage läuft
2017-09-17 22:38:57 +02:00
;~ MsgBox(0, "_zbx_Login", StringReplace($__oReceived,",", "," & @CRLF) & @CRLF & @CRLF & "Status Code: " & $__oStatusCode)
API-Login Test
2017-09-17 21:12:14 +02:00
If $__oStatusCode = 200 Then
Local $__atemp = StringSplit($__oReceived, ",:", 0)
For $i = 1 To $__atemp[0] Step 1
If StringInStr($__atemp[$i], "sessionid") > 0 Then
$__zbxSessionId = StringRegExpReplace($__atemp[$i + 1], '[^A-Za-z0-9_().+\%\-\s]+', "")
ExitLoop
EndIf
Next
EndIf
Return $__zbxSessionId
EndFunc
; #############################################################################################################################################################
Func _zbx_Logout( $__zbxURL, $__zbxSessionId)
Local $__zbxJSON = '{"jsonrpc": "2.0","method": "user.logout","params": [],"id": 42,"auth": "' & $__zbxSessionId & '"}'
Local $__oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
Local $__zbxResult = 0
$__oHTTP.Open("POST", $__zbxURL , False)
$__oHTTP.Option("WinHttpRequestOption_SslErrorIgnoreFlags") = 0x3300
$__oHTTP.SetRequestHeader("Content-Type", "application/json-rpc")
$__oHTTP.Send($__zbxJSON)
Local $__oReceived = $__oHTTP.ResponseText
Local $__oStatusCode = $__oHTTP.Status
Maintenance Abfrage läuft
2017-09-17 22:38:57 +02:00
;~ MsgBox(0, "_zbx_Logout", StringReplace($__oReceived,",", "," & @CRLF) & @CRLF & @CRLF & "Status Code: " & $__oStatusCode)
API-Login Test
2017-09-17 21:12:14 +02:00
If $__oStatusCode = 200 Then
Local $__atemp = StringSplit($__oReceived, ",:", 0)
For $i = 1 To $__atemp[0] Step 1
If StringInStr($__atemp[$i], "result") > 0 Then
$__zbxResult = StringRegExpReplace($__atemp[$i + 1], '[^A-Za-z0-9_().+\%\-\s]+', "")
ExitLoop
EndIf
Next
EndIf
Return $__zbxResult
EndFunc
; #############################################################################################################################################################
Func _zbx_HostGetId($__zbxURL, $__zbxSessionId, $__zbxHostname)
Local $__zbxJSON = '{"params":{"filter":{"name":"' & $__zbxHostname & '"},"output":["hostid"]},"jsonrpc": "2.0","method": "host.get","auth": "' & $__zbxSessionId & '","id":42}'
Local $__oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
Maintenance Abfrage läuft
2017-09-17 22:38:57 +02:00
Local $__zbxHostId = ""
API-Login Test
2017-09-17 21:12:14 +02:00
$__oHTTP.Open("POST", $__zbxURL , False)
$__oHTTP.Option("WinHttpRequestOption_SslErrorIgnoreFlags") = 0x3300
$__oHTTP.SetRequestHeader("Content-Type", "application/json-rpc")
$__oHTTP.Send($__zbxJSON)
Local $__oReceived = $__oHTTP.ResponseText
Local $__oStatusCode = $__oHTTP.Status
;~ MsgBox(0, "_zbx_HostGetId", StringReplace($__oReceived,",", "," & @CRLF) & @CRLF & @CRLF & "Status Code: " & $__oStatusCode)
If $__oStatusCode = 200 Then
Local $__atemp = StringSplit($__oReceived, ",:", 0)
For $i = 1 To $__atemp[0] Step 1
If StringInStr($__atemp[$i], "hostid") > 0 Then
$__zbxHostId = StringRegExpReplace($__atemp[$i + 1], '[^A-Za-z0-9_().+\%\-\s]+', "")
ExitLoop
EndIf
Next
EndIf
Return $__zbxHostId
EndFunc
; #############################################################################################################################################################
Func _zbx_HostGetMaintenanceIDs($__zbxURL, $__zbxSessionId, $__zbxHostId, $__zbxFilterByName = "")
Maintenance Abfrage läuft
2017-09-17 22:38:57 +02:00
Local $__bSkip = False
API-Login Test
2017-09-17 21:12:14 +02:00
Local $__zbxJSON = '{"params":{"output":"extend","selectHosts":"refer","selectGroups": "refer","hostids": "' & $__zbxHostId & '"},"jsonrpc": "2.0","method": "maintenance.get","auth": "' & $__zbxSessionId & '","id":42}'
Local $__oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
Maintenance Abfrage läuft
2017-09-17 22:38:57 +02:00
Local $__a_zbxHostMaintenanceId[1][5]
$__a_zbxHostMaintenanceId[0][0] = 0
$__a_zbxHostMaintenanceId[0][1] = "maintenanceid"
$__a_zbxHostMaintenanceId[0][2] = "name"
$__a_zbxHostMaintenanceId[0][3] = "active_since"
$__a_zbxHostMaintenanceId[0][4] = "active_till"
API-Login Test
2017-09-17 21:12:14 +02:00
$__oHTTP.Open("POST", $__zbxURL , False)
$__oHTTP.Option("WinHttpRequestOption_SslErrorIgnoreFlags") = 0x3300
$__oHTTP.SetRequestHeader("Content-Type", "application/json-rpc")
$__oHTTP.Send($__zbxJSON)
Local $__oReceived = $__oHTTP.ResponseText
Local $__oStatusCode = $__oHTTP.Status
;~ MsgBox(0, "_zbx_HostGetMaintenanceIDs", StringReplace($__oReceived,",", "," & @CRLF) & @CRLF & @CRLF & "Status Code: " & $__oStatusCode)
StringSplit geändert
2017-09-18 12:40:39 +02:00
;~ ConsoleWrite($__oReceived & @CRLF)
API-Login Test
2017-09-17 21:12:14 +02:00
If $__oStatusCode = 200 Then
StringSplit geändert
2017-09-18 12:40:39 +02:00
$__oReceived = StringReplace($__oReceived, '":"', '"§"')
$__oReceived = StringReplace($__oReceived, '","', '"§"')
$__oReceived = StringReplace($__oReceived, '":[{"', '"§"')
$__oReceived = StringReplace($__oReceived, '"}],"', '"§"')
$__oReceived = StringReplace($__oReceived, '"},{"', '"§"')
$__oReceived = StringReplace($__oReceived, '":', '"§')
Local $__atemp = StringSplit($__oReceived, "§", 0)
API-Login Test
2017-09-17 21:12:14 +02:00
For $i = 1 To $__atemp[0] Step 1
If StringInStr($__atemp[$i], "maintenanceid") > 0 Then
Maintenance Abfrage läuft
2017-09-17 22:38:57 +02:00
$__bSkip = True
API-Login Test
2017-09-17 21:12:14 +02:00
If $__zbxFilterByName <> "" Then
For $j = 1 To 12 Step 1
If StringInStr($__atemp[$i + $j], "ZabbixEasy") > 0 Then
Maintenance Abfrage läuft
2017-09-17 22:38:57 +02:00
$__a_zbxHostMaintenanceId[0][0] = $__a_zbxHostMaintenanceId[0][0] + 1
FormMainButtonMaintenanceDeleteClick created
2017-09-18 11:14:05 +02:00
ReDim $__a_zbxHostMaintenanceId[ $__a_zbxHostMaintenanceId[0][0] + 1 ][5]
Maintenance Abfrage läuft
2017-09-17 22:38:57 +02:00
$__a_zbxHostMaintenanceId[ $__a_zbxHostMaintenanceId[0][0] ][1] = StringRegExpReplace($__atemp[$i + 1], '[^A-Za-z0-9_().+\%\-\s]+', "")
API-Login Test
2017-09-17 21:12:14 +02:00
$i = $i + 1
Maintenance Abfrage läuft
2017-09-17 22:38:57 +02:00
$__bSkip = False
API-Login Test
2017-09-17 21:12:14 +02:00
ExitLoop
EndIf
Next
Else
Maintenance Abfrage läuft
2017-09-17 22:38:57 +02:00
$__a_zbxHostMaintenanceId[0][0] = $__a_zbxHostMaintenanceId[0][0] + 1
ReDim $__a_zbxHostMaintenanceId[ $__a_zbxHostMaintenanceId[0][0] + 1 ][5]
$__a_zbxHostMaintenanceId[ $__a_zbxHostMaintenanceId[0][0] ][1] = StringRegExpReplace($__atemp[$i + 1], '[^A-Za-z0-9_().+\%\-\s]+', "")
API-Login Test
2017-09-17 21:12:14 +02:00
$i = $i + 1
Maintenance Abfrage läuft
2017-09-17 22:38:57 +02:00
$__bSkip = False
EndIf
EndIf
If $__bSkip = False Then
If StringInStr($__atemp[$i], "name") > 0 Then
$__a_zbxHostMaintenanceId[ $__a_zbxHostMaintenanceId[0][0] ][2] = StringTrimRight(StringTrimLeft($__atemp[$i + 1], 1), 1)
EndIf
If StringInStr($__atemp[$i], "active_since") > 0 Then
$__a_zbxHostMaintenanceId[ $__a_zbxHostMaintenanceId[0][0] ][3] = StringRegExpReplace($__atemp[$i + 1], '[^A-Za-z0-9_().+\%\-\s]+', "")
EndIf
If StringInStr($__atemp[$i], "active_till") > 0 Then
$__a_zbxHostMaintenanceId[ $__a_zbxHostMaintenanceId[0][0] ][4] = StringRegExpReplace($__atemp[$i + 1], '[^A-Za-z0-9_().+\%\-\s]+', "")
API-Login Test
2017-09-17 21:12:14 +02:00
EndIf
EndIf
Next
EndIf
Return $__a_zbxHostMaintenanceId
EndFunc
Add Maintenance läuft
2017-09-18 00:10:05 +02:00
_Date_Time_GetTimeZoneInformation()
API-Login Test
2017-09-17 21:12:14 +02:00
; #############################################################################################################################################################
Func _zbx_HostAddMaintenance($__zbxURL, $__zbxSessionId, $__zbxHostId, $__zbxName, $__zbxDescription, $__zbxDurationTime = 3600)
Local $__StartTimeStructUTC = _Date_Time_GetSystemTime()
Local $__StartTimeUTC = _DateDiff('s', "1970/01/01 00:00:00", _Date_Time_SystemTimeToDateTimeStr($__StartTimeStructUTC, 1))
Local $__EndTimeUTC = $__StartTimeUTC + $__zbxDurationTime
Local $__zbxJSON = '{"jsonrpc":"2.0","method":"maintenance.create","params":[{"groupids":[],"hostids":["' & $__zbxHostId & '"],' & _
'"name":" ' & $__zbxName & '",' & _
'"maintenance_type":"0","description":" ' & $__zbxDescription & '","active_since":"' & $__StartTimeUTC & '","active_till":"' & $__EndTimeUTC & '",' & _
'"timeperiods":[{"timeperiod_type":0,"start_date":"' & $__StartTimeUTC & '","period":' & $__EndTimeUTC & '}]}],"auth":"' & $__zbxSessionId & '","id":42}'
Local $__oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
Add Maintenance läuft
2017-09-18 00:10:05 +02:00
Local $__zbxMaintenanceId = ""
API-Login Test
2017-09-17 21:12:14 +02:00
$__oHTTP.Open("POST", $__zbxURL , False)
$__oHTTP.Option("WinHttpRequestOption_SslErrorIgnoreFlags") = 0x3300
$__oHTTP.SetRequestHeader("Content-Type", "application/json-rpc")
$__oHTTP.Send($__zbxJSON)
Local $__oReceived = $__oHTTP.ResponseText
Local $__oStatusCode = $__oHTTP.Status
;~ MsgBox(0, "_zbx_HostAddMaintenance", StringReplace($__oReceived,",", "," & @CRLF) & @CRLF & @CRLF & "Status Code: " & $__oStatusCode)
Add Maintenance läuft
2017-09-18 00:10:05 +02:00
;~ ConsoleWrite($__zbxJSON & @CRLF)
API-Login Test
2017-09-17 21:12:14 +02:00
If $__oStatusCode = 200 Then
Local $__atemp = StringSplit($__oReceived, ",:", 0)
For $i = 1 To $__atemp[0] Step 1
If StringInStr($__atemp[$i], "maintenanceid") > 0 Then
$__zbxMaintenanceId = StringRegExpReplace($__atemp[$i + 1], '[^A-Za-z0-9_().+\%\-\s]+', "")
ExitLoop
EndIf
Next
EndIf
Return $__zbxMaintenanceId
EndFunc
; #############################################################################################################################################################
StringSplit geändert
2017-09-18 12:40:39 +02:00
Func _zbx_HostRemoveMaintenance($__zbxURL, $__zbxSessionId, $__zbxHostId, $__zbxMaintenanceId)
API-Login Test
2017-09-17 21:12:14 +02:00
Local $__zbxJSON = '{"jsonrpc":"2.0","method":"maintenance.delete","params":["' & $__zbxMaintenanceId & '"],"auth":"' & $__zbxSessionId & '","id":42}'
Local $__oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
Local $__zbxResult = 0
$__oHTTP.Open("POST", $__zbxURL , False)
$__oHTTP.Option("WinHttpRequestOption_SslErrorIgnoreFlags") = 0x3300
$__oHTTP.SetRequestHeader("Content-Type", "application/json-rpc")
$__oHTTP.Send($__zbxJSON)
Local $__oReceived = $__oHTTP.ResponseText
Local $__oStatusCode = $__oHTTP.Status
StringSplit geändert
2017-09-18 12:40:39 +02:00
MsgBox(0, "_zbx_HostRemoveMaintenance", StringReplace($__oReceived,",", "," & @CRLF) & @CRLF & @CRLF & "Status Code: " & $__oStatusCode)
API-Login Test
2017-09-17 21:12:14 +02:00
If $__oStatusCode = 200 Then
Local $__atemp = StringSplit($__oReceived, ",:", 0)
For $i = 1 To $__atemp[0] Step 1
If StringInStr($__atemp[$i], "maintenanceid") > 0 Then
$__zbxResult = StringRegExpReplace($__atemp[$i + 1], '[^A-Za-z0-9_().+\%\-\s]+', "")
ExitLoop
EndIf
Next
EndIf
Return $__zbxResult
EndFunc
; #############################################################################################################################################################
StringSplit geändert
2017-09-18 12:40:39 +02:00
Func _zbx_HostTriggerGet($__zbxURL, $__zbxSessionId, $__zbxHostId)
API-Login Test
2017-09-17 21:12:14 +02:00
Local $__zbxJSON = '{"jsonrpc": "2.0","method": "trigger.get","params":{"output":["triggerid","description","priority"],' & _
'"filter":{"value":1,"hostid":"' & $__zbxHostId & '"},"sortfield":"priority","sortorder":"DESC"},"auth": "' & $__zbxSessionId & '","id":42}'
Local $__oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
Local $__a_zbxHostTriggers[1][4] ; [0][0] = Anzahl
; [x][1] = triggerid
; [x][2] = description
; [x][3] = priority
$__a_zbxHostTriggers[0][0] = 0
$__a_zbxHostTriggers[0][1] = "triggerid"
$__a_zbxHostTriggers[0][2] = "description"
$__a_zbxHostTriggers[0][3] = "priority"
$__oHTTP.Open("POST", $__zbxURL , False)
$__oHTTP.Option("WinHttpRequestOption_SslErrorIgnoreFlags") = 0x3300
$__oHTTP.SetRequestHeader("Content-Type", "application/json-rpc")
$__oHTTP.Send($__zbxJSON)
Local $__oReceived = $__oHTTP.ResponseText
Local $__oStatusCode = $__oHTTP.Status
StringSplit geändert
2017-09-18 12:40:39 +02:00
;~ MsgBox(0, "_zbx_HostTriggerGet", StringReplace($__oReceived,",", "," & @CRLF) & @CRLF & @CRLF & "Status Code: " & $__oStatusCode)
;~ ConsoleWrite($__oReceived & @CRLF & @CRLF)
API-Login Test
2017-09-17 21:12:14 +02:00
If $__oStatusCode = 200 Then
StringSplit geändert
2017-09-18 12:40:39 +02:00
$__oReceived = StringReplace($__oReceived, '":"', '"§"')
$__oReceived = StringReplace($__oReceived, '","', '"§"')
$__oReceived = StringReplace($__oReceived, '":[{"', '"§"')
$__oReceived = StringReplace($__oReceived, '"}],"', '"§"')
$__oReceived = StringReplace($__oReceived, '"},{"', '"§"')
$__oReceived = StringReplace($__oReceived, '":', '"§')
Local $__atemp = StringSplit($__oReceived, "§", 0)
;~ _ArrayDisplay($__atemp)
API-Login Test
2017-09-17 21:12:14 +02:00
For $i = 1 To $__atemp[0] Step 1
If StringInStr($__atemp[$i], "triggerid") > 0 Then
$__a_zbxHostTriggers[0][0] = $__a_zbxHostTriggers[0][0] + 1
ReDim $__a_zbxHostTriggers[ $__a_zbxHostTriggers[0][0] + 1 ][4]
$__a_zbxHostTriggers[ $__a_zbxHostTriggers[0][0] ][1] = StringRegExpReplace($__atemp[$i + 1], '[^A-Za-z0-9_().+\%\-\s]+', "")
For $j = $i To $__atemp[0] Step 1
If StringInStr($__atemp[$j], "description") > 0 Then
$__a_zbxHostTriggers[ $__a_zbxHostTriggers[0][0] ][2] = StringTrimRight(StringTrimLeft($__atemp[$j + 1],1),1)
EndIf
If StringInStr($__atemp[$j], "priority") > 0 Then
$__a_zbxHostTriggers[ $__a_zbxHostTriggers[0][0] ][3] = StringRegExpReplace($__atemp[$j + 1], '[^A-Za-z0-9_().+\%\-\s]+', "")
ExitLoop
EndIf
Next
EndIf
Next
EndIf
Return $__a_zbxHostTriggers
EndFunc
; #############################################################################################################################################################
StringSplit geändert
2017-09-18 12:40:39 +02:00
Func _zbx_TriggerEventGet($__zbxURL, $__zbxSessionId, $__zbxTriggerId)
API-Login Test
2017-09-17 21:12:14 +02:00
Local $__zbxJSON = '{"jsonrpc": "2.0","method": "event.get","params":{"output":"extend","select_acknowledges":"extend","objectids":"' & $__zbxTriggerId & _
'","sortfield":["clock","eventid"],"sortorder": "DESC","filter":{"value":1}},"auth":"' & $__zbxSessionId & '","id":42}'
Local $__oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
Local $__a_zbxTriggerEvents[1] = [ 0 ]
$__oHTTP.Open("POST", $__zbxURL , False)
$__oHTTP.Option("WinHttpRequestOption_SslErrorIgnoreFlags") = 0x3300
$__oHTTP.SetRequestHeader("Content-Type", "application/json-rpc")
$__oHTTP.Send($__zbxJSON)
Local $__oReceived = $__oHTTP.ResponseText
Local $__oStatusCode = $__oHTTP.Status
MsgBox(0, "_zbxHostEventGet", StringReplace($__oReceived,",", "," & @CRLF) & @CRLF & @CRLF & "Status Code: " & $__oStatusCode)
If $__oStatusCode = 200 Then
Local $__atemp = StringSplit($__oReceived, ",:", 0)
For $i = 1 To $__atemp[0] Step 1
If StringInStr($__atemp[$i], '"eventid"') > 0 Then
$__a_zbxTriggerEvents[0] = $__a_zbxTriggerEvents[0] + 1
ReDim $__a_zbxTriggerEvents[ $__a_zbxTriggerEvents[0] + 1 ]
$__a_zbxTriggerEvents[ $__a_zbxTriggerEvents[0] ] = StringRegExpReplace($__atemp[$i + 1], '[^A-Za-z0-9_().+\%\-\s]+', "")
$i = $i + 1
EndIf
Next
EndIf
Return $__a_zbxTriggerEvents
EndFunc
; #############################################################################################################################################################
StringSplit geändert
2017-09-18 12:40:39 +02:00
Func _zbx_EventAcknowledge($__zbxURL, $__zbxSessionId, $__zbxEvendId, $__zbxMessage = "ZabbixEasy")
API-Login Test
2017-09-17 21:12:14 +02:00
Local $__zbxJSON = '{"jsonrpc":"2.0","method":"event.acknowledge","params":{"eventids": "' & $__zbxEvendId & '","message":"' & $__zbxMessage & '","action":0},"auth": "' & $__zbxSessionId & '","id":42}'
Local $__oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
Local $__zbxResult = 0
$__oHTTP.Open("POST", $__zbxURL , False)
$__oHTTP.Option("WinHttpRequestOption_SslErrorIgnoreFlags") = 0x3300
$__oHTTP.SetRequestHeader("Content-Type", "application/json-rpc")
$__oHTTP.Send($__zbxJSON)
Local $__oReceived = $__oHTTP.ResponseText
Local $__oStatusCode = $__oHTTP.Status
StringSplit geändert
2017-09-18 12:40:39 +02:00
MsgBox(0, "_zbx_HostRemoveMaintenance", StringReplace($__oReceived,",", "," & @CRLF) & @CRLF & @CRLF & "Status Code: " & $__oStatusCode)
API-Login Test
2017-09-17 21:12:14 +02:00
If $__oStatusCode = 200 Then
Local $__atemp = StringSplit($__oReceived, ",:", 0)
For $i = 1 To $__atemp[0] Step 1
If StringInStr($__atemp[$i], "eventids") > 0 Then
$__zbxResult = StringRegExpReplace($__atemp[$i + 1], '[^A-Za-z0-9_().+\%\-\s]+', "")
ExitLoop
EndIf
Next
EndIf
Return $__zbxResult
EndFunc
Setup Zwischenstand
2017-09-15 23:01:06 +02:00
#EndRegion Funktionen
; ###############################################################################################################################################################################################
; ###### ## ## ####
; ## ## ## ## ##
; ## ## ## ##
; ## #### ## ## ##
; ## ## ## ## ##
; ## ## ## ## ##
; ###### ####### ####
; ###############################################################################################################################################################################################
#Region ### START Koda GUI section ### Form=C:\_AutoIt\ZabbixEasyTool\FormMain.kxf
FormMain Textsize + 3. Line
2017-09-18 11:52:45 +02:00
$FormMain = GUICreate("ZabbixEasyTool", 405, 359, -1, -1, -1, BitOR($WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
Change Font to Arial
2017-09-17 20:18:58 +02:00
GUISetFont(10, 400, 0, "Arial")
Setup Zwischenstand
2017-09-15 23:01:06 +02:00
GUISetOnEvent($GUI_EVENT_CLOSE, "FormMainClose")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "FormMainMinimize")
GUISetOnEvent($GUI_EVENT_RESTORE, "FormMainRestore")
FormMain Textsize + 3. Line
2017-09-18 11:52:45 +02:00
$FormMainLabelStatusLine1 = GUICtrlCreateLabel("unknown", 0, 0, 404, 44, BitOR($SS_CENTER,$SS_CENTERIMAGE))
GUICtrlSetFont($FormMainLabelStatusLine1, 28, 400, 0, "Arial")
GUICtrlSetColor($FormMainLabelStatusLine1, 0xFFFFFF)
GUICtrlSetBkColor($FormMainLabelStatusLine1, 0x808080)
GUICtrlSetCursor ($FormMainLabelStatusLine1, 0)
GUICtrlSetOnEvent($FormMainLabelStatusLine1, "FormMainLabelStatusClick")
$FormMainComboTimes = GUICtrlCreateCombo("", 48, 122, 99, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
Add Maintenance läuft
2017-09-18 00:10:05 +02:00
GUICtrlSetFont($FormMainComboTimes, 12, 400, 0, "Arial")
FormMain Textsize + 3. Line
2017-09-18 11:52:45 +02:00
$FormMainButtonMaintenanceSet = GUICtrlCreateButton("Set", 152, 121, 99, 28)
Add Maintenance läuft
2017-09-18 00:10:05 +02:00
GUICtrlSetFont($FormMainButtonMaintenanceSet, 12, 400, 0, "Arial")
GUICtrlSetOnEvent($FormMainButtonMaintenanceSet, "FormMainButtonMaintenanceSetClick")
FormMain Textsize + 3. Line
2017-09-18 11:52:45 +02:00
$FormMainListViewTriggers = GUICtrlCreateListView("", 0, 176, 404, 142)
$FormMainButtonMaintenanceDelete = GUICtrlCreateButton("Delete all", 256, 121, 99, 28)
Add Maintenance läuft
2017-09-18 00:10:05 +02:00
GUICtrlSetFont($FormMainButtonMaintenanceDelete, 12, 400, 0, "Arial")
GUICtrlSetOnEvent($FormMainButtonMaintenanceDelete, "FormMainButtonMaintenanceDeleteClick")
FormMain Textsize + 3. Line
2017-09-18 11:52:45 +02:00
$FormMainButtonAcknowledge = GUICtrlCreateButton("Acknowledge", 48, 321, 109, 28)
Add Maintenance läuft
2017-09-18 00:10:05 +02:00
GUICtrlSetFont($FormMainButtonAcknowledge, 12, 400, 0, "Arial")
GUICtrlSetOnEvent($FormMainButtonAcknowledge, "FormMainButtonAcknowledgeClick")
FormMain Textsize + 3. Line
2017-09-18 11:52:45 +02:00
$FormMainButtonSetup = GUICtrlCreateButton("Setup", 246, 321, 109, 28)
Add Maintenance läuft
2017-09-18 00:10:05 +02:00
GUICtrlSetFont($FormMainButtonSetup, 12, 400, 0, "Arial")
GUICtrlSetOnEvent($FormMainButtonSetup, "FormMainButtonSetupClick")
$FormMainLabelStatusLine2 = GUICtrlCreateLabel("status", 0, 44, 404, 44, BitOR($SS_CENTER,$SS_CENTERIMAGE))
GUICtrlSetFont($FormMainLabelStatusLine2, 28, 400, 0, "Arial")
GUICtrlSetColor($FormMainLabelStatusLine2, 0xFFFFFF)
GUICtrlSetBkColor($FormMainLabelStatusLine2, 0x808080)
FormMain Textsize + 3. Line
2017-09-18 11:52:45 +02:00
GUICtrlSetCursor ($FormMainLabelStatusLine2, 0)
Add Maintenance läuft
2017-09-18 00:10:05 +02:00
GUICtrlSetOnEvent($FormMainLabelStatusLine2, "FormMainLabelStatusClick")
FormMain Textsize + 3. Line
2017-09-18 11:52:45 +02:00
$FormMainLabelStatusLine3 = GUICtrlCreateLabel("", 0, 88, 404, 28, BitOR($SS_CENTER,$SS_CENTERIMAGE))
GUICtrlSetColor($FormMainLabelStatusLine3, 0xFFFFFF)
GUICtrlSetBkColor($FormMainLabelStatusLine3, 0x808080)
GUICtrlSetCursor ($FormMainLabelStatusLine3, 0)
GUICtrlSetOnEvent($FormMainLabelStatusLine3, "FormMainLabelStatusClick")
Setup Zwischenstand
2017-09-15 23:01:06 +02:00
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Setup aus dem Main aufrufbar
2017-09-17 19:41:06 +02:00
;~ GUISetState(@SW_HIDE, $FormMain)
Alle Deklarationen
2017-09-16 17:26:40 +02:00
Setup Zwischenstand
2017-09-15 23:01:06 +02:00
#Region ### START Koda GUI section ### Form=C:\_AutoIt\ZabbixEasyTool\FormSetup.kxf
Alle Deklarationen
2017-09-16 17:26:40 +02:00
$FormSetup = GUICreate("Setup - ZabbixEasyTool", 458, 309, -1, -1)
GUISetFont(10, 400, 0, "Arial")
Setup Zwischenstand
2017-09-15 23:01:06 +02:00
GUISetOnEvent($GUI_EVENT_CLOSE, "FormSetupClose")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "FormSetupMinimize")
GUISetOnEvent($GUI_EVENT_RESTORE, "FormSetupRestore")
Alle Deklarationen
2017-09-16 17:26:40 +02:00
$FormSetupPageControl = GUICtrlCreateTab(8, 8, 444, 256)
GUICtrlSetFont($FormSetupPageControl, 10, 400, 0, "Arial")
$FormSetupTabSheetZabbixAPI = GUICtrlCreateTabItem("Zabbix API")
$FormSetupAPIInputURL = GUICtrlCreateInput("https://zabbix.znil.net/api_jsonrpc.php", 104, 47, 289, 24)
GUICtrlSetFont($FormSetupAPIInputURL, 10, 400, 0, "Arial")
$FormSetupAPILabelURL = GUICtrlCreateLabel("URL", 16, 50, 82, 20, $SS_RIGHT)
GUICtrlSetFont($FormSetupAPILabelURL, 10, 400, 0, "Arial")
GUICtrlSetBkColor($FormSetupAPILabelURL, 0xFFFFFF)
$FormSetupAPILabelUsername = GUICtrlCreateLabel("Username", 16, 146, 82, 20, $SS_RIGHT)
GUICtrlSetFont($FormSetupAPILabelUsername, 10, 400, 0, "Arial")
GUICtrlSetBkColor($FormSetupAPILabelUsername, 0xFFFFFF)
$FormSetupAPIInputUsername = GUICtrlCreateInput("apiuser", 104, 143, 289, 24)
GUICtrlSetFont($FormSetupAPIInputUsername, 10, 400, 0, "Arial")
$FormSetupAPILabelPassword = GUICtrlCreateLabel("Password", 16, 178, 82, 20, $SS_RIGHT)
GUICtrlSetFont($FormSetupAPILabelPassword, 10, 400, 0, "Arial")
GUICtrlSetBkColor($FormSetupAPILabelPassword, 0xFFFFFF)
$FormSetupAPIInputPassword = GUICtrlCreateInput("dummy&6", 104, 175, 289, 24, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD))
GUICtrlSetFont($FormSetupAPIInputPassword, 10, 400, 0, "Arial")
$FormSetupAPIButtonTestCredentials = GUICtrlCreateButton("Test Credentials", 104, 208, 139, 25)
GUICtrlSetFont($FormSetupAPIButtonTestCredentials, 10, 400, 0, "Arial")
GUICtrlSetOnEvent($FormSetupAPIButtonTestCredentials, "FormSetupAPIButtonTestCredentialsClick")
$FormSetupAPILabelCredentialsTest = GUICtrlCreateLabel("not tested", 254, 209, 139, 23, BitOR($SS_CENTER,$SS_CENTERIMAGE,$WS_BORDER))
GUICtrlSetFont($FormSetupAPILabelCredentialsTest, 10, 400, 0, "Arial")
GUICtrlSetBkColor($FormSetupAPILabelCredentialsTest, 0xC0C0C0)
$FormSetupAPILabelHost = GUICtrlCreateLabel("Host", 16, 82, 82, 20, $SS_RIGHT)
GUICtrlSetFont($FormSetupAPILabelHost, 10, 400, 0, "Arial")
GUICtrlSetBkColor($FormSetupAPILabelHost, 0xFFFFFF)
$FormSetupAPIInputHost = GUICtrlCreateInput("DC01", 104, 79, 289, 24)
GUICtrlSetFont($FormSetupAPIInputHost, 10, 400, 0, "Arial")
$FormSetupAPIButtonReadDataZabbixAgent = GUICtrlCreateButton("Read data from zabbix_agent configuration", 104, 110, 289, 25)
GUICtrlSetFont($FormSetupAPIButtonReadDataZabbixAgent, 10, 400, 0, "Arial")
GUICtrlSetOnEvent($FormSetupAPIButtonReadDataZabbixAgent, "FormSetupAPIButtonReadDataZabbixAgentClick")
$FormSetupTabSheetMaintenance = GUICtrlCreateTabItem("Maintenance")
Trigger Farbauswahl + Checks Checkboxen
2017-09-16 23:19:27 +02:00
GUICtrlSetState($FormSetupTabSheetMaintenance,$GUI_SHOW)
Alle Deklarationen
2017-09-16 17:26:40 +02:00
$FormSetupMaintenanceLabelPrefix = GUICtrlCreateLabel("Name Prefix", 16, 49, 82, 20, $SS_RIGHT)
GUICtrlSetFont($FormSetupMaintenanceLabelPrefix, 10, 400, 0, "Arial")
GUICtrlSetBkColor($FormSetupMaintenanceLabelPrefix, 0xFFFFFF)
$FormSetupMaintenanceInputPrefix = GUICtrlCreateInput("ZabbixEasyTool", 104, 46, 321, 24)
GUICtrlSetFont($FormSetupMaintenanceInputPrefix, 10, 400, 0, "Arial")
$FormSetupMaintenanceLabelDescription = GUICtrlCreateLabel("Description", 16, 81, 82, 20, $SS_RIGHT)
GUICtrlSetFont($FormSetupMaintenanceLabelDescription, 10, 400, 0, "Arial")
GUICtrlSetBkColor($FormSetupMaintenanceLabelDescription, 0xFFFFFF)
$FormSetupMaintenanceInputDescription = GUICtrlCreateInput("USERDOMAIN\USERNAME", 104, 78, 321, 24)
GUICtrlSetFont($FormSetupMaintenanceInputDescription, 10, 400, 0, "Arial")
Trigger Farbauswahl + Checks Checkboxen
2017-09-16 23:19:27 +02:00
$FormSetupMaintenanceListTimes = GUICtrlCreateList("", 24, 134, 73, 116, BitOR($LBS_NOTIFY,$WS_VSCROLL))
GUICtrlSetData($FormSetupMaintenanceListTimes, "30m|1h|2h|4h|8h|12h|18h|24h|48h|72h|")
Alle Deklarationen
2017-09-16 17:26:40 +02:00
GUICtrlSetFont($FormSetupMaintenanceListTimes, 10, 400, 0, "Arial")
GUICtrlSetOnEvent($FormSetupMaintenanceListTimes, "FormSetupMaintenanceListTimesClick")
$FormSetupMaintenanceButtonAdd = GUICtrlCreateButton("Add", 104, 166, 75, 24)
GUICtrlSetFont($FormSetupMaintenanceButtonAdd, 10, 400, 0, "Arial")
GUICtrlSetOnEvent($FormSetupMaintenanceButtonAdd, "FormSetupMaintenanceButtonAddClick")
$FormSetupMaintenanceInputTime = GUICtrlCreateInput("75", 104, 134, 35, 24, BitOR($GUI_SS_DEFAULT_INPUT,$ES_RIGHT,$ES_NUMBER))
GUICtrlSetFont($FormSetupMaintenanceInputTime, 10, 400, 0, "Arial")
$FormSetupMaintenanceButtonDelete = GUICtrlCreateButton("Delete", 104, 198, 75, 24)
GUICtrlSetFont($FormSetupMaintenanceButtonDelete, 10, 400, 0, "Arial")
GUICtrlSetOnEvent($FormSetupMaintenanceButtonDelete, "FormSetupMaintenanceButtonDeleteClick")
$FormSetupMaintenanceLabelTimes = GUICtrlCreateLabel("Times", 24, 112, 73, 22, $SS_CENTER)
GUICtrlSetFont($FormSetupMaintenanceLabelTimes, 12, 400, 0, "Arial")
GUICtrlSetBkColor($FormSetupMaintenanceLabelTimes, 0xE3E3E3)
$FormSetupMaintenanceComboUnit = GUICtrlCreateCombo("m", 144, 134, 33, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData($FormSetupMaintenanceComboUnit, "s|m|h|d")
GUICtrlSetFont($FormSetupMaintenanceComboUnit, 10, 400, 0, "Arial")
GUICtrlSetOnEvent($FormSetupMaintenanceComboUnit, "FormSetupMaintenanceComboUnitChange")
$FormSetupTabSheetTrigger = GUICtrlCreateTabItem("Trigger")
$FormSetupTriggerLabelNotclassified = GUICtrlCreateLabel("Not classified", 40, 58, 82, 20, $SS_RIGHT)
GUICtrlSetFont($FormSetupTriggerLabelNotclassified, 10, 400, 0, "Arial")
GUICtrlSetBkColor($FormSetupTriggerLabelNotclassified, 0xFFFFFF)
$FormSetupTriggerInputNotclassified = GUICtrlCreateInput("Not classified", 128, 55, 185, 24)
GUICtrlSetFont($FormSetupTriggerInputNotclassified, 10, 400, 0, "Arial")
$FormSetupTriggerLabelColorNotclassified = GUICtrlCreateLabel("", 320, 55, 24, 24)
GUICtrlSetFont($FormSetupTriggerLabelColorNotclassified, 10, 400, 0, "Arial")
GUICtrlSetCursor ($FormSetupTriggerLabelColorNotclassified, 0)
GUICtrlSetOnEvent($FormSetupTriggerLabelColorNotclassified, "FormSetupTriggerLabelColorNotclassifiedClick")
$FormSetupTriggerInputColorNotclassified = GUICtrlCreateInput("97AAB3", 352, 55, 65, 25)
GUICtrlSetFont($FormSetupTriggerInputColorNotclassified, 11, 400, 0, "Courier New")
GUICtrlSetOnEvent($FormSetupTriggerInputColorNotclassified, "FormSetupTriggerInputColorNotclassifiedChange")
$FormSetupTriggerLabelInformation = GUICtrlCreateLabel("Infomation", 40, 90, 82, 20, $SS_RIGHT)
GUICtrlSetFont($FormSetupTriggerLabelInformation, 10, 400, 0, "Arial")
GUICtrlSetBkColor($FormSetupTriggerLabelInformation, 0xFFFFFF)
$FormSetupTriggerInputInformation = GUICtrlCreateInput("Information", 128, 87, 185, 24)
GUICtrlSetFont($FormSetupTriggerInputInformation, 10, 400, 0, "Arial")
$FormSetupTriggerLabelColorInformation = GUICtrlCreateLabel("", 320, 87, 24, 24)
GUICtrlSetFont($FormSetupTriggerLabelColorInformation, 10, 400, 0, "Arial")
GUICtrlSetBkColor($FormSetupTriggerLabelColorInformation, 0xB9D1EA)
GUICtrlSetCursor ($FormSetupTriggerLabelColorInformation, 0)
GUICtrlSetOnEvent($FormSetupTriggerLabelColorInformation, "FormSetupTriggerLabelColorInformationClick")
$FormSetupTriggerInputColorInformation = GUICtrlCreateInput("7499FF", 352, 87, 65, 25)
GUICtrlSetFont($FormSetupTriggerInputColorInformation, 11, 400, 0, "Courier New")
GUICtrlSetOnEvent($FormSetupTriggerInputColorInformation, "FormSetupTriggerInputColorInformationChange")
$FormSetupTriggerLabelWarning = GUICtrlCreateLabel("Warning", 40, 122, 82, 20, $SS_RIGHT)
GUICtrlSetFont($FormSetupTriggerLabelWarning, 10, 400, 0, "Arial")
GUICtrlSetBkColor($FormSetupTriggerLabelWarning, 0xFFFFFF)
$FormSetupTriggerInputWarning = GUICtrlCreateInput("Warning", 128, 119, 185, 24)
GUICtrlSetFont($FormSetupTriggerInputWarning, 10, 400, 0, "Arial")
$FormSetupTriggerLabelColorWarning = GUICtrlCreateLabel("", 320, 119, 24, 24)
GUICtrlSetFont($FormSetupTriggerLabelColorWarning, 10, 400, 0, "Arial")
GUICtrlSetBkColor($FormSetupTriggerLabelColorWarning, 0xFF00FF)
GUICtrlSetCursor ($FormSetupTriggerLabelColorWarning, 0)
GUICtrlSetOnEvent($FormSetupTriggerLabelColorWarning, "FormSetupTriggerLabelColorWarningClick")
$FormSetupTriggerInputColorWarning = GUICtrlCreateInput("FFC859", 352, 119, 65, 25)
GUICtrlSetFont($FormSetupTriggerInputColorWarning, 11, 400, 0, "Courier New")
GUICtrlSetOnEvent($FormSetupTriggerInputColorWarning, "FormSetupTriggerInputColorWarningChange")
$FormSetupTriggerLabelAverage = GUICtrlCreateLabel("Average", 40, 154, 82, 20, $SS_RIGHT)
GUICtrlSetFont($FormSetupTriggerLabelAverage, 10, 400, 0, "Arial")
GUICtrlSetBkColor($FormSetupTriggerLabelAverage, 0xFFFFFF)
$FormSetupTriggerInputAverage = GUICtrlCreateInput("Average", 128, 151, 185, 24)
GUICtrlSetFont($FormSetupTriggerInputAverage, 10, 400, 0, "Arial")
$FormSetupTriggerLabelColorAverage = GUICtrlCreateLabel("", 320, 151, 24, 24)
GUICtrlSetFont($FormSetupTriggerLabelColorAverage, 10, 400, 0, "Arial")
GUICtrlSetBkColor($FormSetupTriggerLabelColorAverage, 0xFFFF00)
GUICtrlSetCursor ($FormSetupTriggerLabelColorAverage, 0)
GUICtrlSetOnEvent($FormSetupTriggerLabelColorAverage, "FormSetupTriggerLabelColorAverageClick")
$FormSetupTriggerInputColorAverage = GUICtrlCreateInput("FFA059", 352, 151, 65, 25)
GUICtrlSetFont($FormSetupTriggerInputColorAverage, 11, 400, 0, "Courier New")
GUICtrlSetOnEvent($FormSetupTriggerInputColorAverage, "FormSetupTriggerInputColorAverageChange")
$FormSetupTriggerLabelHigh = GUICtrlCreateLabel("High", 40, 186, 82, 20, $SS_RIGHT)
GUICtrlSetFont($FormSetupTriggerLabelHigh, 10, 400, 0, "Arial")
GUICtrlSetBkColor($FormSetupTriggerLabelHigh, 0xFFFFFF)
$FormSetupTriggerInputHigh = GUICtrlCreateInput("High", 128, 183, 185, 24)
GUICtrlSetFont($FormSetupTriggerInputHigh, 10, 400, 0, "Arial")
$FormSetupTriggerLabelColorHigh = GUICtrlCreateLabel("", 320, 183, 24, 24)
GUICtrlSetFont($FormSetupTriggerLabelColorHigh, 10, 400, 0, "Arial")
GUICtrlSetBkColor($FormSetupTriggerLabelColorHigh, 0x800000)
GUICtrlSetCursor ($FormSetupTriggerLabelColorHigh, 0)
GUICtrlSetOnEvent($FormSetupTriggerLabelColorHigh, "FormSetupTriggerLabelColorHighClick")
$FormSetupTriggerInputColorHigh = GUICtrlCreateInput("E97659", 352, 183, 65, 25)
GUICtrlSetFont($FormSetupTriggerInputColorHigh, 11, 400, 0, "Courier New")
GUICtrlSetOnEvent($FormSetupTriggerInputColorHigh, "FormSetupTriggerInputColorHighChange")
$FormSetupTriggerLabelDisaster = GUICtrlCreateLabel("Disaster", 40, 218, 82, 20, $SS_RIGHT)
GUICtrlSetFont($FormSetupTriggerLabelDisaster, 10, 400, 0, "Arial")
GUICtrlSetBkColor($FormSetupTriggerLabelDisaster, 0xFFFFFF)
$FormSetupTriggerInputDisaster = GUICtrlCreateInput("Disaster", 128, 215, 185, 24)
GUICtrlSetFont($FormSetupTriggerInputDisaster, 10, 400, 0, "Arial")
$FormSetupTriggerLabelColorDisaster = GUICtrlCreateLabel("", 320, 215, 24, 24)
GUICtrlSetFont($FormSetupTriggerLabelColorDisaster, 10, 400, 0, "Arial")
GUICtrlSetBkColor($FormSetupTriggerLabelColorDisaster, 0xFF0000)
GUICtrlSetCursor ($FormSetupTriggerLabelColorDisaster, 0)
GUICtrlSetOnEvent($FormSetupTriggerLabelColorDisaster, "FormSetupTriggerLabelColorDisasterClick")
$FormSetupTriggerInputColorDisaster = GUICtrlCreateInput("E45959", 352, 215, 65, 25)
GUICtrlSetFont($FormSetupTriggerInputColorDisaster, 11, 400, 0, "Courier New")
GUICtrlSetOnEvent($FormSetupTriggerInputColorDisaster, "FormSetupTriggerInputColorDisasterChange")
$FormSetupTabSheetCheck = GUICtrlCreateTabItem("Check")
$FormSetupCheckLabelEvery1 = GUICtrlCreateLabel("every", 80, 102, 50, 20, $SS_RIGHT)
GUICtrlSetFont($FormSetupCheckLabelEvery1, 10, 400, 0, "Arial")
GUICtrlSetBkColor($FormSetupCheckLabelEvery1, 0xFFFFFF)
$FormSetupCheckCheckboxMaintenanceStatus = GUICtrlCreateCheckbox("Check maintenance status", 64, 80, 361, 17)
GUICtrlSetState($FormSetupCheckCheckboxMaintenanceStatus, $GUI_CHECKED)
GUICtrlSetFont($FormSetupCheckCheckboxMaintenanceStatus, 10, 400, 0, "Arial")
GUICtrlSetOnEvent($FormSetupCheckCheckboxMaintenanceStatus, "FormSetupCheckCheckboxMaintenanceStatusClick")
$FormSetupCheckComboTimesMaintenance = GUICtrlCreateCombo("1m", 136, 100, 97, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData($FormSetupCheckComboTimesMaintenance, "30s|1m|2m|3m|5m|10m|15m|30m|1h")
GUICtrlSetFont($FormSetupCheckComboTimesMaintenance, 10, 400, 0, "Arial")
GUICtrlSetOnEvent($FormSetupCheckComboTimesMaintenance, "FormSetupCheckComboTimesMaintenanceChange")
$FormSetupCheckCheckboxTrigger = GUICtrlCreateCheckbox("Check unacknowledged trigger", 64, 158, 361, 17)
GUICtrlSetState($FormSetupCheckCheckboxTrigger, $GUI_CHECKED)
GUICtrlSetFont($FormSetupCheckCheckboxTrigger, 10, 400, 0, "Arial")
GUICtrlSetOnEvent($FormSetupCheckCheckboxTrigger, "FormSetupCheckCheckboxTriggerClick")
$FormSetupCheckLabelEvery2 = GUICtrlCreateLabel("every", 80, 180, 50, 20, $SS_RIGHT)
GUICtrlSetFont($FormSetupCheckLabelEvery2, 10, 400, 0, "Arial")
GUICtrlSetBkColor($FormSetupCheckLabelEvery2, 0xFFFFFF)
$FormSetupCheckComboTimesTrigger = GUICtrlCreateCombo("1m", 136, 178, 97, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData($FormSetupCheckComboTimesTrigger, "30s|1m|2m|3m|5m|10m|15m|30m|1h")
GUICtrlSetFont($FormSetupCheckComboTimesTrigger, 10, 400, 0, "Arial")
GUICtrlSetOnEvent($FormSetupCheckComboTimesTrigger, "FormSetupCheckComboTimesTriggerChange")
$FormSetupTabSheetAcknowledge = GUICtrlCreateTabItem("Acknowledge")
$FormSetupAcknowledgeLabelDefaultMessage = GUICtrlCreateLabel("Default Message Text", 16, 40, 130, 20)
GUICtrlSetFont($FormSetupAcknowledgeLabelDefaultMessage, 10, 400, 0, "Arial")
GUICtrlSetBkColor($FormSetupAcknowledgeLabelDefaultMessage, 0xFFFFFF)
$FormSetupAcknowledgeEditDefaultMessage = GUICtrlCreateEdit("", 16, 64, 425, 137)
GUICtrlSetData($FormSetupAcknowledgeEditDefaultMessage, StringFormat("This problem is ignored.\r\nIt is enough for the next occurrence of the problem to do something.\r\n\r\nUSERDOMAIN\USERNAME\r\n"))
GUICtrlSetFont($FormSetupAcknowledgeEditDefaultMessage, 10, 400, 0, "Arial")
$FormSetupAcknowledgeCheckboxCloseProblems = GUICtrlCreateCheckbox("Try to close problems", 16, 232, 201, 17)
GUICtrlSetFont($FormSetupAcknowledgeCheckboxCloseProblems, 10, 400, 0, "Arial")
$FormSetupAcknowledgeCheckboxNeverAsk = GUICtrlCreateCheckbox("Never ask - always use default message", 16, 208, 289, 17)
GUICtrlSetState($FormSetupAcknowledgeCheckboxNeverAsk, $GUI_CHECKED)
GUICtrlSetFont($FormSetupAcknowledgeCheckboxNeverAsk, 10, 400, 0, "Arial")
$FormSetupTabSheetInfo = GUICtrlCreateTabItem("Info")
$FormSetupInfoLabelVersionLeft = GUICtrlCreateLabel("Version:", 16, 48, 84, 20, $SS_RIGHT)
GUICtrlSetFont($FormSetupInfoLabelVersionLeft, 10, 400, 0, "Arial")
GUICtrlSetBkColor($FormSetupInfoLabelVersionLeft, 0xFFFFFF)
$FormSetupInfoLabelDateTimeLeft = GUICtrlCreateLabel("Date/Time:", 13, 72, 84, 20, $SS_RIGHT)
GUICtrlSetFont($FormSetupInfoLabelDateTimeLeft, 10, 400, 0, "Arial")
GUICtrlSetBkColor($FormSetupInfoLabelDateTimeLeft, 0xFFFFFF)
$FormSetupInfoLabelAutorLeft = GUICtrlCreateLabel("Autor:", 13, 120, 84, 20, $SS_RIGHT)
GUICtrlSetFont($FormSetupInfoLabelAutorLeft, 10, 400, 0, "Arial")
GUICtrlSetBkColor($FormSetupInfoLabelAutorLeft, 0xFFFFFF)
$FormSetupInfoLabelHomepageLeft = GUICtrlCreateLabel("Homepage:", 13, 144, 84, 20, $SS_RIGHT)
GUICtrlSetFont($FormSetupInfoLabelHomepageLeft, 10, 400, 0, "Arial")
GUICtrlSetBkColor($FormSetupInfoLabelHomepageLeft, 0xFFFFFF)
$FormSetupInfoLabelRepositoryLeft = GUICtrlCreateLabel("Repository", 13, 168, 84, 20, $SS_RIGHT)
GUICtrlSetFont($FormSetupInfoLabelRepositoryLeft, 10, 400, 0, "Arial")
GUICtrlSetBkColor($FormSetupInfoLabelRepositoryLeft, 0xFFFFFF)
$FormSetupInfoLabelHomepageRight = GUICtrlCreateLabel("https://znil.net", 101, 144, 308, 20)
GUICtrlSetFont($FormSetupInfoLabelHomepageRight, 10, 400, 4, "Arial")
GUICtrlSetColor($FormSetupInfoLabelHomepageRight, 0x0000FF)
GUICtrlSetBkColor($FormSetupInfoLabelHomepageRight, 0xFFFFFF)
GUICtrlSetCursor ($FormSetupInfoLabelHomepageRight, 0)
GUICtrlSetOnEvent($FormSetupInfoLabelHomepageRight, "FormSetupInfoLabelHomepageRightClick")
$FormSetupInfoLabelRepositoryRight = GUICtrlCreateLabel("https://github.com/znilnet/ZabbixEasyTool", 101, 168, 308, 20)
GUICtrlSetFont($FormSetupInfoLabelRepositoryRight, 10, 400, 4, "Arial")
GUICtrlSetColor($FormSetupInfoLabelRepositoryRight, 0x0000FF)
GUICtrlSetBkColor($FormSetupInfoLabelRepositoryRight, 0xFFFFFF)
GUICtrlSetCursor ($FormSetupInfoLabelRepositoryRight, 0)
GUICtrlSetOnEvent($FormSetupInfoLabelRepositoryRight, "FormSetupInfoLabelRepositoryRightClick")
$FormSetupInfoLabelAutorRight = GUICtrlCreateLabel("Bernhard Linz", 101, 120, 308, 20)
GUICtrlSetFont($FormSetupInfoLabelAutorRight, 10, 400, 0, "Arial")
GUICtrlSetBkColor($FormSetupInfoLabelAutorRight, 0xFFFFFF)
$FormSetupInfoLabelLicenseLeft = GUICtrlCreateLabel("License:", 13, 216, 84, 20, $SS_RIGHT)
GUICtrlSetFont($FormSetupInfoLabelLicenseLeft, 10, 400, 0, "Arial")
GUICtrlSetBkColor($FormSetupInfoLabelLicenseLeft, 0xFFFFFF)
$FormSetupInfoLabelLicenseRight = GUICtrlCreateLabel("https://github.com/znilnet/ZabbixEasyTool/./LICENSE.txt", 101, 216, 340, 20)
GUICtrlSetFont($FormSetupInfoLabelLicenseRight, 10, 400, 4, "Arial")
GUICtrlSetColor($FormSetupInfoLabelLicenseRight, 0x0000FF)
GUICtrlSetBkColor($FormSetupInfoLabelLicenseRight, 0xFFFFFF)
GUICtrlSetCursor ($FormSetupInfoLabelLicenseRight, 0)
GUICtrlSetOnEvent($FormSetupInfoLabelLicenseRight, "FormSetupInfoLabelLicenseRightClick")
$FormSetupInfoLabelVersionRight = GUICtrlCreateLabel("0.0.0.1", 101, 48, 308, 20)
GUICtrlSetFont($FormSetupInfoLabelVersionRight, 10, 400, 0, "Arial")
GUICtrlSetBkColor($FormSetupInfoLabelVersionRight, 0xFFFFFF)
$FormSetupInfoLabelDateTimeRight = GUICtrlCreateLabel("2017-09-16 08:59:00", 101, 72, 308, 20)
GUICtrlSetFont($FormSetupInfoLabelDateTimeRight, 10, 400, 0, "Arial")
GUICtrlSetBkColor($FormSetupInfoLabelDateTimeRight, 0xFFFFFF)
Setup Zwischenstand
2017-09-15 23:01:06 +02:00
GUICtrlCreateTabItem("")
Alle Deklarationen
2017-09-16 17:26:40 +02:00
$FormSetupButtonOK = GUICtrlCreateButton("&OK", 214, 272, 75, 25)
Setup Zwischenstand
2017-09-15 23:01:06 +02:00
GUICtrlSetOnEvent($FormSetupButtonOK, "FormSetupButtonOKClick")
Alle Deklarationen
2017-09-16 17:26:40 +02:00
$FormSetupButtonCancel = GUICtrlCreateButton("&Cancel", 294, 272, 75, 25)
Setup Zwischenstand
2017-09-15 23:01:06 +02:00
GUICtrlSetOnEvent($FormSetupButtonCancel, "FormSetupButtonCancelClick")
Alle Deklarationen
2017-09-16 17:26:40 +02:00
$FormSetupButtonHelp = GUICtrlCreateButton("&Help", 376, 272, 75, 25)
Setup Zwischenstand
2017-09-15 23:01:06 +02:00
GUICtrlSetOnEvent($FormSetupButtonHelp, "FormSetupButtonHelpClick")
Alle Deklarationen
2017-09-16 17:26:40 +02:00
$FormSetupInfoEditGPOisActive = GUICtrlCreateEdit("", 8, 264, 201, 41, BitOR($ES_CENTER,$ES_READONLY,$ES_WANTRETURN))
GUICtrlSetData($FormSetupInfoEditGPOisActive, StringFormat("Some Values are blocked by \r\nGroup Policy"))
GUICtrlSetFont($FormSetupInfoEditGPOisActive, 10, 800, 0, "Arial")
GUICtrlSetColor($FormSetupInfoEditGPOisActive, 0xFFFF00)
GUICtrlSetBkColor($FormSetupInfoEditGPOisActive, 0xFF0000)
Setup Zwischenstand
2017-09-15 23:01:06 +02:00
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Setup aus dem Main aufrufbar
2017-09-17 19:41:06 +02:00
GUISetState(@SW_HIDE, $FormSetup)
Setup Zwischenstand
2017-09-15 23:01:06 +02:00
Alle Deklarationen
2017-09-16 17:26:40 +02:00
GUICtrlSetState($FormSetupTabSheetZabbixAPI, $GUI_SHOW)
GUICtrlSetState($FormSetupInfoEditGPOisActive, $GUI_HIDE)
Setup Zwischenstand
2017-09-15 23:01:06 +02:00
Trigger Farbauswahl + Checks Checkboxen
2017-09-16 23:19:27 +02:00
; Fill ListBox with ArrayValue
GUICtrlSetData($FormSetupMaintenanceListTimes, "")
$s_temp = ""
For $n = 1 To $g_a_MaintenanceTimes[0] Step 1
$s_temp = $s_temp & _SecondsToTime($g_a_MaintenanceTimes[$n]) & "|"
Next
GUICtrlSetData($FormSetupMaintenanceListTimes, $s_temp)
; Set TriggerColors
GUICtrlSetBkColor($FormSetupTriggerLabelColorNotclassified, 0x97AAB3)
GUICtrlSetBkColor($FormSetupTriggerLabelColorInformation, 0x7499FF)
GUICtrlSetBkColor($FormSetupTriggerLabelColorWarning, 0xFFC859)
GUICtrlSetBkColor($FormSetupTriggerLabelColorAverage, 0xFFA059)
GUICtrlSetBkColor($FormSetupTriggerLabelColorHigh, 0xE97659)
GUICtrlSetBkColor($FormSetupTriggerLabelColorDisaster, 0xE45959)
Setup Zwischenstand
2017-09-15 23:01:06 +02:00
Function _TimeToSeconds
2017-09-17 21:01:38 +02:00
;~ GUISetState(@SW_HIDE, $FormMain)
;~ MsgBox(262208,"TimeToSeconds",_TimeToSeconds(GUICtrlRead($FormSetupCheckComboTimesMaintenance)),10)
;~ exit
Add Maintenance läuft
2017-09-18 00:10:05 +02:00
;~ _ReplaceEnviromentVariables("TEST")
;~ exit
SetupRead works now
2017-09-17 20:15:13 +02:00
; Startup
StringSplit geändert
2017-09-18 12:40:39 +02:00
#Region Startup
SetupRead works now
2017-09-17 20:15:13 +02:00
_SettingsRead()
ControlFocus($FormMain, "", $FormMainButtonMaintenanceSet)
Function _TimeToSeconds
2017-09-17 21:01:38 +02:00
If GUICtrlRead($FormSetupCheckCheckboxMaintenanceStatus) = $GUI_CHECKED Then
AdlibRegister("_CheckMaintenanceStatus", _TimeToSeconds(GUICtrlRead($FormSetupCheckComboTimesMaintenance)) * 1000)
EndIf
SetupRead works now
2017-09-17 20:15:13 +02:00
Setup Zwischenstand
2017-09-15 23:01:06 +02:00
While 1
Sleep(100)
WEnd
StringSplit geändert
2017-09-18 12:40:39 +02:00
#EndRegion Startup
Setup Zwischenstand
2017-09-15 23:01:06 +02:00
Reference in New Issue Copy Permalink