diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..4473662 --- /dev/null +++ b/.gitignore @@ -0,0 +1 @@ +*.bak diff --git a/Chatbox.zip b/Chatbox.zip new file mode 100644 index 0000000..e358b58 Binary files /dev/null and b/Chatbox.zip differ diff --git a/Colored_Text_Test.au3 b/Colored_Text_Test.au3 new file mode 100644 index 0000000..3a24de5 --- /dev/null +++ b/Colored_Text_Test.au3 @@ -0,0 +1,44 @@ +#include +#include +#include +#include +#include +#include + +#Region ### START Koda GUI section ### Form= +$Form1 = GUICreate("Form1", 345, 290, 192, 124) +$hRichEdit = _GUICtrlRichEdit_Create($Form1, "", 40, 16, 273, 175, BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL,$ES_NOHIDESEL)) +$Input1 = GUICtrlCreateInput("[Account]", 40, 202, 121, 21) +$Input2 = GUICtrlCreateInput("mein text", 40, 232, 121, 21) +$Input3 = GUICtrlCreateInput("zusatz", 40, 262, 121, 21) +$Button1 = GUICtrlCreateButton("Button1", 192, 232, 75, 25, $WS_GROUP) +GUISetState(@SW_SHOW) +#EndRegion ### END Koda GUI section ### + +While 1 + $nMsg = GUIGetMsg() + Switch $nMsg + Case $GUI_EVENT_CLOSE + Exit + Case $Button1 + _GUICtrlRichEdit_SetSel($hRichEdit,-1,-1) + _GUICtrlRichEdit_AppendText($hRichEdit,GUICtrlRead($Input1)) + _RichEdit_AddColoredText($hRichEdit, GUICtrlRead($Input2), 0xFF0000) + _RichEdit_AddColoredText($hRichEdit,"|", 0x000000) + _RichEdit_AddColoredText($hRichEdit,GUICtrlRead($Input3), 0x00FF00) + _RichEdit_AddColoredText($hRichEdit, @CR, 0x000000) + EndSwitch +WEnd + + + +Func _RichEdit_AddColoredText($hRichEdit, $sText, $nColor) + ;SEuBo + Local $aSel, $aNSel + $aSel = _GUICtrlRichEdit_GetSel($hRichEdit) ; aktuelle Cursorpos. + _GUICtrlRichEdit_AppendText($hRichEdit, $sText) ; Text ahängen + $aNSel = _GUICtrlRichEdit_GetSel($hRichEdit) ; Cursorpos nach dem Text einfügen + _GUICtrlRichEdit_SetSel($hRichEdit, $aSel[0], $aNSel[0], True) ; Geschriebenen Text wählen + _GUICtrlRichEdit_SetCharColor($hRichEdit, $nColor) ; Einfärben + _GUICtrlRichEdit_SetSel($hRichEdit, -1, -1) ; Und cursor ans ende setzen +EndFunc ;==>_RichEdit_AddColoredText \ No newline at end of file diff --git a/Icon256-32.ico b/Icon256-32.ico new file mode 100644 index 0000000..f70f635 Binary files /dev/null and b/Icon256-32.ico differ diff --git a/Tail.au3 b/Tail.au3 new file mode 100644 index 0000000..2eedb30 --- /dev/null +++ b/Tail.au3 @@ -0,0 +1,219 @@ +#Region ;**** Directives created by AutoIt3Wrapper_GUI **** +#AutoIt3Wrapper_UseUpx=n +#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** +; =============================================================================================================================== +#include +#include +#include +; =============================================================================================================================== +Global Const $INI = @ScriptDir & "\Tail.ini" +Global Const $W = 750 +Global Const $H = 500 +Global Const $MinW = 600 +Global Const $MinH = 400 +; =============================================================================================================================== +Global $LogFile = "" +Global $LogPath = IniRead($INI, "Tail", "Path", "") +Global $MaxBytes = 1024 +$aM = DllCall("User32.dll", "Int", "GetSystemMetrics", "Int", 15) ; SM_CYMENU = 15 +$DH = 20 + $aM[0] +; =============================================================================================================================== +Opt("GUIOnEventMode", 1) +Opt("GUICloseOnESC", 0) +Opt("GUIResizeMode", BitOR($GUI_DOCKSIZE, $GUI_DOCKLEFT, $GUI_DOCKBOTTOM)) +$hGUI = GUICreate("Tail", $W, $H, -1, -1, BitOr($GUI_SS_DEFAULT_GUI, $WS_SIZEBOX, $WS_MAXIMIZEBOX)) +GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit") +$idFileMenu = GUICtrlCreateMenu("&File") +$idOpen = GUICtrlCreateMenuItem("&Open", $idFileMenu) +GUICtrlSetOnEvent(-1, "_Open") +$idRead = GUICtrlCreateMenuItem("&Read", $idFileMenu) +GUICtrlSetOnEvent(-1, "_Read") +GUICtrlSetState(-1, $GUI_DISABLE) +GUICtrlCreateMenuItem("", $idFileMenu) +$idExit = GUICtrlCreateMenuItem("&Exit", $idFileMenu) +GUICtrlSetOnEvent(-1, "_Exit") +$idEditMenu = GUICtrlCreateMenu("&Edit") +$idClear = GUICtrlCreateMenuItem("&Clear", $idEditMenu) +GUICtrlSetState(-1, $GUI_DISABLE) +GUICtrlSetOnEvent(-1, "_Clear") +$idSave = GUICtrlCreateMenuItem("&Save", $idEditMenu) +GUICtrlSetState(-1, $GUI_DISABLE) +GUICtrlSetOnEvent(-1, "_Save") +$idTailMenu = GUICtrlCreateMenu("&Tail") +$idStart = GUICtrlCreateMenuItem("&Start", $idTailMenu) +GUICtrlSetState(-1, $GUI_DISABLE) +GUICtrlSetOnEvent(-1, "_StartStop") +$idBytesMenu = GUICtrlCreateMenu("&Bytes") +$idBytes = GUICtrlCreateMenuItem($MaxBytes, $idBytesMenu) +GUICtrlSetOnEvent(-1, "_Bytes") +$idEdit = GUICtrlCreateEdit("", 0, 0, $W, $H - $DH, BitOR($GUI_SS_DEFAULT_EDIT, $ES_READONLY)) +GUICtrlSetResizing(-1, $GUI_DOCKBORDERS) +GUICtrlSetColor(-1, 0x000080) +GUICtrlSetBkColor(-1, 0xFFFFFF) +GUICtrlSetFont(-1, 9, -1, -1, "Courier New") +GUICtrlSendMsg(-1, $EM_LIMITTEXT, 0, 0) +$idStatus = GUICtrlCreateInput("", 0, $H - $DH, $W, 20, $ES_READONLY) +GUICtrlSetResizing(-1, BitOR($GUI_DOCKLEFT, $GUI_DOCKRIGHT, $GUI_DOCKBOTTOM, $GUI_DOCKHEIGHT)) +$idDummy = GUICtrlCreateDummy() +GUICtrlSetOnEvent(-1, "_Update") +GUIRegisterMsg($WM_GETMINMAXINFO, "_MinInfo") +GUISetState() +While True + Sleep(1000) +WEnd +; =============================================================================================================================== +; GUI & menu functions +; =============================================================================================================================== +Func _Exit() + AdlibUnRegister("_Tail_AdLib") + GUIDelete() + Sleep(250) + Exit +EndFunc +; =============================================================================================================================== +Func _MinInfo($hWnd, $iMsg, $wParam, $lParam) + Local $MINMAXINFO = DllStructCreate("LONG[10]", $lParam) + DllStructSetData($MINMAXINFO, 1, $MinW, 7) + DllStructSetData($MINMAXINFO, 1, $MinH, 8) + Return $GUI_RUNDEFMSG +EndFunc +; =============================================================================================================================== +Func _Update() + Local $Tail = _Tail_Content() + GUICtrlSendMsg($idEdit, $EM_SETSEL, -2, -1) + GUICtrlSetData($idEdit, $Tail, 1) + GUICtrlSetData($idStatus, StringLen($Tail) & " bytes read") +EndFunc +; =============================================================================================================================== +Func _Open() + GUICtrlSetData($idStatus, "") + Local $File, $Pos + $File = FileOpenDialog( "Tail - Open File", $LogPath, "Text (*.*)", 3, "" , $hGUI) + If @error Then Return + $Pos = StringInStr($File, "\", 0, -1) + $LogPath = StringLeft($File, $Pos) + IniWrite($INI, "Tail", "Path", $LogPath) + _Clear() + GUICtrlSetState($idRead, $GUI_ENABLE) + GUICtrlSetState($idClear, $GUI_ENABLE) + GUICtrlSetState($idSave, $GUI_ENABLE) + GUICtrlSetState($idStart, $GUI_ENABLE) + WinSetTitle($hGUI, "", "Tail - " & $File) + $LogFile = $File + _Tail($LogFile, $MaxBytes) +EndFunc +; =============================================================================================================================== +Func _Read() + _Clear() + _Tail($LogFile, $MaxBytes) +EndFunc +; =============================================================================================================================== +Func _Clear() + GUICtrlSetData($idStatus, "") + GUICtrlSetData($idEdit, "") +EndFunc +; =============================================================================================================================== +Func _Save() + GUICtrlSetData($idStatus, "") + Local $Sel, $File, $Handle, $Now + $Sel = ControlCommand($hGUI, "", $idEdit, "GetSelected") + If Not $Sel Then Return GUICtrlSetData($idStatus, "ERROR: Save - No text selected!") + $File = FileSaveDialog("Tail - Append Selection to File", @ScriptDir, "Text (*.txt)", 0, "Log.txt", $hGUI) + If @error Then Return + $Handle = FileOpen($File, 1) + If $Handle = -1 Then Return GUICtrlSetData($idStatus, "ERROR: Save - Cannot open file for writing!") + $Now = StringFormat("%04d-%02d-%02d %02d:%02d:%02d > ", @YEAR, @MON, @MDAY, @HOUR, @MIN, @SEC) + FileWrite($Handle, ">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>" & @CRLF) + FileWrite($Handle, $Now & $LogFile & @CRLF) + FileWrite($Handle, ">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>" & @CRLF) + FileWrite($Handle, $Sel & @CRLF) + FileClose($Handle) + GUICtrlSetData($idStatus, "Save: " & StringLen($Sel) & " chars saved to file " & $File) +EndFunc +; =============================================================================================================================== +Func _StartStop() + GUICtrlSetData($idStatus, "") + If GUICtrlRead($idStart, 1) = "&Start" Then + AdlibRegister("_Tail_AdLib", 500) + GUICtrlSetData($idStart, "&Stop") + $State = $GUI_DISABLE + Else + AdlibUnRegister("_Tail_AdLib") + GUICtrlSetData($idStart, "&Start") + $State = $GUI_ENABLE + EndIf + GUICtrlSetState($idOpen, $State) + GUICtrlSetState($idRead, $State) + GUICtrlSetState($idExit, $State) + GUICtrlSetState($idClear, $State) + GUICtrlSetState($idSave, $State) + GUICtrlSetState($idBytes, $State) +EndFunc +; =============================================================================================================================== +Func _Bytes() + Opt("GUIOnEventMode", 0) + GUISetState(@SW_DISABLE, $hGUI) + Local $hBytesGUI = Guicreate("Tail - Bytes", 300, 125, -1, -1, -1, -1, $hGUI) + GUICtrlCreateLabel("Initial number of bytes (max. 999999):", 20, 20, 260, 20) + Local $idInp = GUICtrlCreateInput($MaxBytes, 20, 40, 260, 20, $ES_NUMBER) + GUICtrlSetLimit(-1, 6) + Local $idBtn = GUICtrlCreateButton("OK", 20, 80, 260, 25) + GUICtrlSetState(-1, $GUI_DEFBUTTON) + GUISetState() + While True + Switch GUIGetMsg() + Case $GUI_EVENT_CLOSE + ExitLoop + Case $idBtn + $MaxBytes = GUICtrlRead($idInp) + GUICtrlSetData($idBytes, $MaxBytes) + ExitLoop + EndSwitch + WEnd + Opt("GUIOnEventMode", 1) + GUISetState(@SW_ENABLE, $hGUI) + GUIDelete($hBytesGui) +EndFunc +; =============================================================================================================================== +; Tail functions +; =============================================================================================================================== +Func _Tail_AdLib() + _Tail() +EndFunc +; =============================================================================================================================== +Func _Tail_Content($bSet = False, $sNew = "") + Local Static $Tail = "" + If $bSet Then $Tail = $sNew + Return $Tail +EndFunc +; =============================================================================================================================== +Func _Tail($sFile = "", $nBytes = 1024) + Local Static $TailPos = 0 + Local Static $TailFile = "" + Local $TailNew = "" + If $sFile Then + $TailFile = $sFile + $TailPos = 0 + EndIf + Local $Handle = FileOpen($TailFile) + If $Handle = -1 Then Return + FileSetPos($Handle, 0, 2) + Local $Size = FileGetPos($Handle) + If $TailPos = 0 Then + If $Size > $nBytes Then + $TailPos = $Size - $nBytes + EndIf + ElseIf $Size < $TailPos Then + $TailPos = $Size + EndIf + If $Size > $TailPos Then + FileSetPos($Handle, $TailPos, 0) + $TailNew = FileRead($Handle) + $TailPos = FileGetPos($Handle) + EndIf + FileClose($Handle) + If $TailNew Then + _Tail_Content(True, $TailNew) + GUICtrlSendToDummy($idDummy) + EndIf +EndFunc \ No newline at end of file diff --git a/Tail.exe b/Tail.exe new file mode 100644 index 0000000..a39ef70 Binary files /dev/null and b/Tail.exe differ diff --git a/_ChatBox.au3 b/_ChatBox.au3 new file mode 100644 index 0000000..7c91e5f --- /dev/null +++ b/_ChatBox.au3 @@ -0,0 +1,83 @@ +#include-once +#include +#include +#include +#include +#include +#include +#include + + + +Local $__CB__filesstr="{\rtf1\utf8" & @CRLF & "{\colortbl;" & @CRLF & "}" & @CRLF & @CRLF & "}" +;Local $__CB__filesstr="{\rtf1\utf8"&@CRLF&"{\colortbl;"&@CRLF&"\red0\green0\blue0;"&@CRLF&@CRLF&"}"&@CRLF&@CRLF&"}" + + + + +Func _ChatBoxCreate($gui,$txt="",$x=0,$y=0,$w=100,$h=100,$bgc="0xFFFFFF",$readonly=True,$autodetecturl=True) + Local $ret;RichEdit + $ret=_GUICtrlRichEdit_Create($gui,"",$x,$y,$w,$h,BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL)) + _GUICtrlRichEdit_AutoDetectURL($ret,$autodetecturl) + _GUICtrlRichEdit_SetLimitOnText($ret,-1) + _GUICtrlRichEdit_SetBkColor($ret,$bgc) + _GUICtrlRichEdit_SetReadOnly($ret,$readonly) + If $txt<>"" Then _ChatBoxAdd($ret,$txt) + Return $ret +EndFunc + +Func _ChatBoxClear(ByRef $box) + If Not IsHWnd($box) Then Return SetError(101, 0, False) + _GUICtrlRichEdit_SetText($box,"") +EndFunc + +Func _ChatBoxDestroy(ByRef $box) + If Not IsHWnd($box) Then Return SetError(101, 0, False) + _GUICtrlRichEdit_Destroy($box) +EndFunc + +Func _ChatBoxAdd(ByRef $box,$txt) + If Not IsHWnd($box) Then Return SetError(101, 0, False) + If $txt="" Then Return 0 + $txt=__ChatBoxConvert($txt) + _GUICtrlRichEdit_AppendTextUTF8($box,$txt) +EndFunc + +Func __ChatBoxConvert($txt) +;~ $txt=StringReplace($txt,"{","\{") +;~ $txt=StringReplace($txt,"}","\}") + $txt = StringReplace($txt, @CRLF, "\line ") + $txt=StringRegExpReplace($txt,"(?i)\[b\](.*?)\[/b\]","{\\b $1}") + $txt=StringRegExpReplace($txt,"(?i)\[i\](.*?)\[/i\]","{\\i $1}") + $txt=StringRegExpReplace($txt,"(?i)\[u\](.*?)\[/u\]","{\\ul $1}") + $txt=StringRegExpReplace($txt,"(?i)\[s\](.*?)\[/s\]","{\\strike $1}") + $txt=StringRegExpReplace($txt,"(?i)\[size=(\d+?)\](.*?)\[/size\]","{\\fs$1 $2}") + Local $aColor = StringRegExp($txt, "(?i)\[c=#([0-9A-Fa-f]{6})\].*?\[/c\]", 3) + Local $sColor, $iColors + If Not @error Then + For $i = 0 To UBound($aColor) - 1 + $sColor &= "\red" & Dec(StringMid($aColor[$i], 1, 2)) & "\green" & Dec(StringMid($aColor[$i], 3, 2)) & "\blue" & Dec(StringMid($aColor[$i], 5, 2)) & ";" & @CRLF + $iColors += 1 + $txt = StringRegExpReplace($txt, "\[c=#" & $aColor[$i] & "\](.*?)\[/c\]", "\\cf" & $iColors & " $1\\cf0 ") + Next + EndIf + Local $sRTFString = StringMid($__CB__filesstr, 1, StringInStr($__CB__filesstr, "l;" & @CRLF) + 2) & _ + $sColor & _ + StringTrimRight(StringMid($__CB__filesstr, StringInStr($__CB__filesstr, "l;" & @CRLF, 1, 1) + 4), 4) & _ + $txt & _ + "}" + Return $sRTFString +EndFunc + +; ProgAndy ; Edited +Func _GUICtrlRichEdit_AppendTextUTF8($hWnd, $sText) + If Not IsHWnd($hWnd) Then Return SetError(101, 0, False) + _GUICtrlRichEdit_SetSel($hWnd, -1, -1) ; go to end of text + Local $tSetText = DllStructCreate($tagSETTEXTEX) + DllStructSetData($tSetText, 1, $ST_SELECTION) + DllStructSetData($tSetText, 2, 65001) + Local $iRet = _SendMessage($hWnd, $EM_SETTEXTEX, DllStructGetPtr($tSetText), BinaryToString(StringToBinary($sText, 4), 1), 0, "ptr", "STR") + If Not $iRet Then Return SetError(700, 0, False) + Return True +EndFunc ;==>_GUICtrlRichEdit_AppendText + diff --git a/_ChatBox.exe b/_ChatBox.exe new file mode 100644 index 0000000..0e627cd Binary files /dev/null and b/_ChatBox.exe differ diff --git a/test5.au3 b/test5.au3 new file mode 100644 index 0000000..f09223d --- /dev/null +++ b/test5.au3 @@ -0,0 +1,31 @@ +#include "_ChatBox.au3" + + + +$data="[s]Hallo,[/s] [b][i]wie[/i] [u]gehts[/u]?[/b]"&@CRLF& _ + "[c=#00FF00]Grün"&@CRLF&"![/c]"&@CRLF& _ + "[c=#00FF00]Moinsen,[/c] schwarz"&@CRLF& _ + "[c=#FF0000]Moinsen,[/c] schwarz"&@CRLF + + +$Form1 = GUICreate("__A__",588,413) +$Edit1 = _ChatBoxCreate($Form1,"",8,8,572,397,"0x99FFFF") +GUISetState() + +_ChatBoxAdd($Edit1,$data) + + + +While 1 + $nMsg = GUIGetMsg() + Switch $nMsg + Case $GUI_EVENT_CLOSE + ExitLoop + EndSwitch + Sleep(10) +WEnd + + +_ChatBoxDestroy($Edit1) + + diff --git a/znilTAIL-V2.kxf b/znilTAIL-V2.kxf new file mode 100644 index 0000000..bba0854 --- /dev/null +++ b/znilTAIL-V2.kxf @@ -0,0 +1,375 @@ + + + + 488 + 278 + 998 + 523 + znilTail: zabbix_agentd.log + clBlack + DEFAULT_CHARSET + clWindowText + -11 + MS Sans Serif + + False + True + -1798373376 + 256 + 1.04 + A standard Windows Form. + False + False + True + False + 0 + 1 + 0 + 0 + DockAuto, DockLeft, DockBottom + 96 + 13 + + + + + 0 + 38 + 983 + 377 + ANSI_CHARSET + clWindowText + -13 + Lucida Console + + + +
  • Edit1
    • +     +     + False + 0 + 1412632772 + 512 + DockLeft, DockRight, DockTop, DockBottom +     + +     + + + 900 + 4 + 81 + 30 + Open another Textfile for tailing + Open File + ANSI_CHARSET + clWindowText + -11 + Lucida Console + + False + 1 + clBtnFace + 1342373888 + 0 + DockTop, DockWidth, DockHeight + + + + + + 2 + 4 + 81 + 30 + START tailing the file. + START + ANSI_CHARSET + clGreen + -16 + Lucida Console + fsBold + False + 2 + clBtnFace + 1342373888 + 0 + DockLeft, DockTop, DockWidth, DockHeight + + + + + + 88 + 4 + 81 + 30 + STOP tailing! + STOP + False + ANSI_CHARSET + clRed + -16 + Lucida Console + fsBold + False + 3 + clBtnFace + 1342373888 + 0 + DockLeft, DockTop, DockWidth, DockHeight + + + + + + 5 + 418 + 17 + 25 + 4 + 1342242819 + 0 + DockAuto, DockLeft, DockBottom, DockWidth, DockHeight + + + + + + 24 + 420 + 958 + 20 + clMoneyGreen + ANSI_CHARSET + clWindowText + -12 + Lucida Console + fsBold + False + 5 + Highlight Lines with this Text + 1342374016 + 512 + DockLeft, DockBottom, DockHeight + + + + + + 192 + 4 + 33 + 30 + make Font bigger + + + ANSI_CHARSET + clBlack + -27 + Courier New + fsBold + False + 6 + clBtnFace + 1342373888 + 0 + DockLeft, DockTop, DockWidth, DockHeight + + + + + + 232 + 4 + 33 + 30 + make Font smaler + - + ANSI_CHARSET + clBlack + -27 + Courier New + fsBold + False + 7 + clBtnFace + 1342373888 + 0 + DockLeft, DockTop, DockWidth, DockHeight + + + + + + 5 + 447 + 17 + 25 + 8 + 1342242819 + 0 + DockAuto, DockLeft, DockBottom, DockWidth, DockHeight + + + + + + 24 + 449 + 958 + 20 + clRed + ANSI_CHARSET + clYellow + -12 + Lucida Console + fsBold + False + 9 + Hide Lines with this Text + 1342374016 + 512 + DockLeft, DockBottom, DockHeight + + + + + + 768 + 4 + 123 + 30 + Number of Bytes that have been read since start. + False + LabelCounter + clNavy + ANSI_CHARSET + clWhite + -13 + Lucida Console + fsBold + False + False + 10 + False + 1342313217 + 0 + DockRight, DockTop + + + + + + 728 + 4 + 33 + 30 + About Box with link to Homepage + ? + ANSI_CHARSET + clBlack + -24 + Lucida Console + fsBold + False + 11 + clBtnFace + 1342373888 + 0 + DockLeft, DockTop, DockWidth, DockHeight + + + + + + 292 + 4 + 153 + 30 + Change the DebugLevel of Zabbix Agent to 3 (Warnings) and restart the Agent. If this Button ist greyed Out you need to start znilTail.exe with Adminisrator-Rights. If no Zabbix Agent was found this Button will not shown. + Restart Zabbix Agent with DebugLevel=3 + ANSI_CHARSET + clWindowText + -11 + Lucida Console + + False + 12 + clBtnFace + 1342382080 + 0 + DockLeft, DockTop, DockWidth, DockHeight + + + + + + 452 + 4 + 153 + 30 + Change the DebugLevel of Zabbix Agent to 3 (Debugging) and restart the Agent. If this Button ist greyed Out you need to start znilTail.exe with Adminisrator-Rights. If no Zabbix Agent was found this Button will not shown. + Restart Zabbix Agent with DebugLevel=4 + ANSI_CHARSET + clWindowText + -11 + Lucida Console + + False + 13 + clBtnFace + 1342382080 + 0 + DockLeft, DockTop, DockWidth, DockHeight + + + + + + 610 + 4 + 113 + 30 + Just Restart the Zabbix Agent (without changing DebugLevel) + Restart Zabbix Agent + ANSI_CHARSET + clWindowText + -11 + Lucida Console + + False + 14 + clBtnFace + 1342382080 + 0 + DockLeft, DockTop, DockWidth, DockHeight + + + + + + 0 + 477 + 990 + 19 + False + LabelStatus + clSilver + ANSI_CHARSET + clWindowText + -16 + Lucida Console + + False + False + 15 + False + 1350697216 + 0 + DockLeft, DockBottom, DockHeight + + + +     +     \ No newline at end of file diff --git a/znilTAIL.kxf b/znilTAIL.kxf new file mode 100644 index 0000000..0ba0b01 --- /dev/null +++ b/znilTAIL.kxf @@ -0,0 +1,351 @@ + + + + 488 + 278 + 1000 + 517 + znilTail: zabbix_agentd.log + clBlack + DEFAULT_CHARSET + clWindowText + -11 + MS Sans Serif + + False + True + -1798373376 + 256 + 1.04 + A standard Windows Form. + False + False + True + False + 0 + 1 + 0 + 0 + DockAuto, DockLeft, DockBottom + 96 + 13 + + + + + 0 + 38 + 983 + 377 + ANSI_CHARSET + clWindowText + -13 + Courier New + + + +
  • Edit1
    • +     +     + False + 0 + 1412632772 + 512 + DockLeft, DockRight, DockTop, DockBottom +     + +     + + + 900 + 4 + 81 + 30 + Open another Textfile for tailing + Open File + ANSI_CHARSET + clWindowText + -11 + Courier New + + False + 1 + clBtnFace + 1342373888 + 0 + DockTop, DockWidth, DockHeight + + + + + + 2 + 4 + 81 + 30 + START tailing the file. + START + ANSI_CHARSET + clGreen + -16 + Courier New + fsBold + False + 2 + clBtnFace + 1342373888 + 0 + DockLeft, DockTop, DockWidth, DockHeight + + + + + + 88 + 4 + 81 + 30 + STOP tailing! + STOP + False + ANSI_CHARSET + clRed + -16 + Courier New + fsBold + False + 3 + clBtnFace + 1342373888 + 0 + DockLeft, DockTop, DockWidth, DockHeight + + + + + + 5 + 418 + 17 + 25 + 4 + 1342242819 + 0 + DockAuto, DockLeft, DockBottom, DockWidth, DockHeight + + + + + + 24 + 420 + 958 + 24 + clMoneyGreen + ANSI_CHARSET + clWindowText + -12 + Courier New + fsBold + False + 5 + Highlight Lines with this Text + 1342374016 + 512 + DockLeft, DockBottom, DockHeight + + + + + + 192 + 4 + 33 + 30 + make Font bigger + + + ANSI_CHARSET + clBlack + -27 + Courier New + fsBold + False + 6 + clBtnFace + 1342373888 + 0 + DockLeft, DockTop, DockWidth, DockHeight + + + + + + 232 + 4 + 33 + 30 + make Font smaler + - + ANSI_CHARSET + clBlack + -27 + Courier New + fsBold + False + 7 + clBtnFace + 1342373888 + 0 + DockLeft, DockTop, DockWidth, DockHeight + + + + + + 5 + 447 + 17 + 25 + 8 + 1342242819 + 0 + DockAuto, DockLeft, DockBottom, DockWidth, DockHeight + + + + + + 24 + 449 + 958 + 24 + clRed + ANSI_CHARSET + clYellow + -12 + Courier New + fsBold + False + 9 + Hide Lines with this Text + 1342374016 + 512 + DockLeft, DockBottom, DockHeight + + + + + + 768 + 4 + 123 + 30 + Number of Bytes that have been read since start. + False + LabelCounter + clNavy + ANSI_CHARSET + clWhite + -13 + Courier New + fsBold + False + False + 10 + False + 1342313217 + 0 + DockRight, DockTop + + + + + + 728 + 4 + 33 + 30 + About Box with link to Homepage + ? + ANSI_CHARSET + clBlack + -27 + Courier New + fsBold + False + 11 + clBtnFace + 1342373888 + 0 + DockLeft, DockTop, DockWidth, DockHeight + + + + + + 292 + 4 + 153 + 30 + Change the DebugLevel of Zabbix Agent to 3 (Warnings) and restart the Agent. If this Button ist greyed Out you need to start znilTail.exe with Adminisrator-Rights. If no Zabbix Agent was found this Button will not shown. + Restart Zabbix Agent with DebugLevel=3 + ANSI_CHARSET + clWindowText + -11 + Courier New + + False + 12 + clBtnFace + 1342382080 + 0 + DockLeft, DockTop, DockWidth, DockHeight + + + + + + 452 + 4 + 153 + 30 + Change the DebugLevel of Zabbix Agent to 3 (Debugging) and restart the Agent. If this Button ist greyed Out you need to start znilTail.exe with Adminisrator-Rights. If no Zabbix Agent was found this Button will not shown. + Restart Zabbix Agent with DebugLevel=4 + ANSI_CHARSET + clWindowText + -11 + Courier New + + False + 13 + clBtnFace + 1342382080 + 0 + DockLeft, DockTop, DockWidth, DockHeight + + + + + + 610 + 4 + 113 + 30 + Just Restart the Zabbix Agent (without changing DebugLevel) + Restart Zabbix Agent + ANSI_CHARSET + clWindowText + -11 + Courier New + + False + 14 + clBtnFace + 1342382080 + 0 + DockLeft, DockTop, DockWidth, DockHeight + + + +     +     \ No newline at end of file diff --git a/znilTail-AboutBox.kxf b/znilTail-AboutBox.kxf new file mode 100644 index 0000000..1ba18ee --- /dev/null +++ b/znilTail-AboutBox.kxf @@ -0,0 +1,263 @@ + + + + 726 + 446 + 337 + 278 + About znilTail + clBtnFace + ANSI_CHARSET + clWindowText + -11 + Courier New + + False + True + -1798700544 + 264 + 1.04 + Standard "AboutBox" Dialog with Picture. + False + False + False + False + 0 + 1 + 0 + 0 + + 96 + 14 + + + + + 8 + 8 + 305 + 81 + 1342341127 + 0 + 0 + + + + + + 1 + 8 + 302 + 35 + False + This Tool is FREEWARE! + ANSI_CHARSET + clWindowText + -21 + Courier New + fsBold + False + 0 + False + 1342309121 + 0 + + + + + + + 1 + 40 + 302 + 18 + False + Copy it, give it away, + ANSI_CHARSET + clWindowText + -13 + Courier New + + False + 1 + False + 1342308609 + 0 + + + + + + + 1 + 56 + 302 + 20 + False + give it to others who need it! + ANSI_CHARSET + clWindowText + -13 + Courier New + + False + 2 + False + 1342308609 + 0 + + + + + + + + + 238 + 208 + 75 + 25 + &OK + ANSI_CHARSET + clWindowText + -16 + Courier New + + False + 1 + clBtnFace + 1342242816 + 0 + DockWidth, DockHeight + + + + + + 9 + 212 + 222 + 20 + crHandPoint + False + http://znil.net + ANSI_CHARSET + clBlue + -13 + Courier New + fsUnderline + False + 2 + False + 1342308608 + 0 + + + + + + + 8 + 160 + 305 + 41 + 1342341127 + 0 + Commandline Call: + 3 + + + + + + 4 + 16 + 299 + 18 + False + znilTail.exe [Path+Filename-to-Tail] + ANSI_CHARSET + clWindowText + -13 + Courier New + fsBold + False + 0 + False + 1342308608 + 0 + + + + + + + + + 8 + 96 + 305 + 18 + False + 2013/2014 by Bernhard Linz + ANSI_CHARSET + clWindowText + -13 + Courier New + + False + 4 + False + 1342308608 + 0 + + + + + + + 8 + 116 + 305 + 18 + False + Version: + ANSI_CHARSET + clWindowText + -13 + Courier New + + False + 5 + False + 1342308608 + 0 + + + + + + + 8 + 136 + 305 + 18 + crHandPoint + False + Contact: Bernhard@znil.de + ANSI_CHARSET + clWindowText + -13 + Courier New + + False + 6 + False + 1342308608 + 0 + + + + + + \ No newline at end of file diff --git a/znilTail-V2.au3 b/znilTail-V2.au3 new file mode 100644 index 0000000..f742535 --- /dev/null +++ b/znilTail-V2.au3 @@ -0,0 +1,906 @@ +#NoTrayIcon +#RequireAdmin +#Region ;**** Directives created by AutoIt3Wrapper_GUI **** +#AutoIt3Wrapper_Version=Beta +#AutoIt3Wrapper_Icon=Icon256-32.ico +#AutoIt3Wrapper_Res_Description=Simple Tail Programm as an Zabbix Tool +#AutoIt3Wrapper_Res_Fileversion=2.0.0.8 +#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y +#AutoIt3Wrapper_Res_LegalCopyright=2015 Bernhard Linz / Bernhard@znil.de +#AutoIt3Wrapper_Res_SaveSource=y +#AutoIt3Wrapper_Res_Language=1031 +#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** +Opt('MustDeclareVars', 1) +Opt("GUIOnEventMode", 1) ; Change to OnEvent mode + +#Region ;************ Includes ************ + +#Include +#Include +#Include +;~ #include ;~~~ +;~ #include ;~~~ +;~ #include ;~~~ +#include "_ChatBox.au3" +#EndRegion ;************ Includes ************ +#Region ------ Dim Variables ------------------------------ +Global $Form_znilTail +Global $EditTailText +Global $ButtonStart +Global $ButtonStop +Global $ButtonOpen +Global $CheckboxHighlight +Global $CheckboxHideText +Global $InputHighlightText +Global $InputHidetext +Global $ButtonFontMinus +Global $ButtonFontPlus +Global $iFontsize = 9 +Global $nMsg +Global $data +Global $bUseColorize = False +Global $bHideText = False +Global $sTailFileName = "" +Global $sFormTitle = "znilTail: No File selected" +Global $aWndPos +Global $iTextLength = 0 +Global $LabelCounter +Global $iRichEditTextLimit = 2147483647 ; 2GB - 1 Byte +Global $ButtonHelp +Global $LabelStatus +Global $i +Global $zabbixAgentName +Global $zabbixAgentConfigFile +Global $hzabbixAgentConfigFile +Global $iCurrentDebugLevel = 99 +Global $stemp +Global $sRegSubKey +Global $bShowZabbixAgentButtons = False +Global $bAdminrights = False +Global $ButtonDebugLevel3 +Global $ButtonDebugLevel4 +Global $ButtonRestartAgent +Global $iTimer +Global $hControl +Global $bAboutFormExit = False +Global $AboutForm, $AboutGroupBoxFreeware, $AboutLabelFreeware1, $AboutLabelFreeware2,$AboutLabelFreeware3 +Global $AboutButtonOK, $AboutLabelWeblink, $AboutGroupboxCommandline, $AboutLabelCommandline +Global $AboutLabelAuthor, $AboutLabelVersion, $AboutLabelContact, $nMsg2 +Global $aWndPosAboutForm +;Global $iRichEditTextLimit = 1048576 + +Global $aRegistryBaseServicePaths[3] = ["HKLM\SYSTEM\CurrentControlSet\", _ + "HKLM64\SYSTEM\CurrentControlSet\", _ + "HKLM\SOFTWARE\Wow6432Node\SYSTEM\CurrentControlSet\"] +Global $iRightRegistryPath + + +Global $iTailPos = 0 +Global $nBytes = 1024 +Global $TailNew = "" +Global $sFile + +Global $iFileSizeLastRun = 0 +Global $iFileSizeNow = 0 + +Global $iRefreshrate = 400 +Global $aStatus[4] +$aStatus[0] = "-" +$aStatus[1] = "\" +$aStatus[2] = "|" +$aStatus[3] = "/" + + + +#EndRegion --- Global Variables ------------------------------ + +Func _TailBoxCreate($gui,$txt,$x,$y,$w,$h,$bgc,$readonly,$autodetecturl, $style) + Local $ret;RichEdit + $ret=_GUICtrlRichEdit_Create($gui,"",$x,$y,$w,$h,$style) + _GUICtrlRichEdit_AutoDetectURL($ret,$autodetecturl) + ;_GUICtrlRichEdit_SetLimitOnText($ret,-1) + _GUICtrlRichEdit_SetBkColor($ret,$bgc) + _GUICtrlRichEdit_SetReadOnly($ret,$readonly) + Return $ret +EndFunc + + +Func _znilTailAboutBox() + + +#Region ### START Koda GUI section ### Form=C:\_AutoIt\tail\znilTail-AboutBox.kxf +$AboutForm = GUICreate("About znilTail", 326, 244, 726, 446, BitOR($GUI_SS_DEFAULT_GUI,$DS_SETFOREGROUND), BitOR($WS_EX_TOPMOST,$WS_EX_WINDOWEDGE)) +GUISetFont(8, 400, 0, "Courier New") +$AboutGroupBoxFreeware = GUICtrlCreateGroup("", 8, 8, 305, 81, BitOR($GUI_SS_DEFAULT_GROUP,$BS_FLAT)) +$AboutLabelFreeware1 = GUICtrlCreateLabel("This Tool is FREEWARE!", 9, 16, 302, 35, BitOR($SS_CENTER,$SS_CENTERIMAGE)) +GUICtrlSetFont(-1, 16, 800, 0, "Courier New") +$AboutLabelFreeware2 = GUICtrlCreateLabel("Copy it, give it away,", 9, 48, 302, 18, $SS_CENTER) +GUICtrlSetFont(-1, 10, 400, 0, "Courier New") +$AboutLabelFreeware3 = GUICtrlCreateLabel("give it to others who need it!", 9, 64, 302, 20, $SS_CENTER) +GUICtrlSetFont(-1, 10, 400, 0, "Courier New") +GUICtrlCreateGroup("", -99, -99, 1, 1) +$AboutButtonOK = GUICtrlCreateButton("&OK", 238, 208, 75, 25, 0) +GUICtrlSetFont(-1, 12, 400, 0, "Courier New") +$AboutLabelWeblink = GUICtrlCreateLabel("http://znil.net", 9, 212, 222, 20) +GUICtrlSetFont(-1, 10, 400, 4, "Courier New") +GUICtrlSetColor(-1, 0x0000FF) +GUICtrlSetCursor (-1, 0) +$AboutGroupboxCommandline = GUICtrlCreateGroup(" Commandline Call: ", 8, 160, 305, 41, BitOR($GUI_SS_DEFAULT_GROUP,$BS_FLAT)) +$AboutLabelCommandline = GUICtrlCreateLabel("znilTail.exe [Path+Filename-to-Tail]", 12, 176, 299, 18) +GUICtrlSetFont(-1, 10, 800, 0, "Courier New") +GUICtrlCreateGroup("", -99, -99, 1, 1) +$AboutLabelAuthor = GUICtrlCreateLabel("2013/2014 by Bernhard Linz", 8, 96, 305, 18) +GUICtrlSetFont(-1, 10, 400, 0, "Courier New") +$AboutLabelVersion = GUICtrlCreateLabel("Version: ", 8, 116, 305, 18) +GUICtrlSetFont(-1, 10, 400, 0, "Courier New") +$AboutLabelContact = GUICtrlCreateLabel("Contact: Bernhard@znil.de", 8, 136, 305, 18) +GUICtrlSetFont(-1, 10, 400, 0, "Courier New") +GUICtrlSetCursor (-1, 0) +GUISetState(@SW_SHOW) +#EndRegion ### END Koda GUI section ### + $bAboutFormExit = False + GUISetOnEvent($GUI_EVENT_CLOSE, "_CLOSEAboutForm", $AboutForm) + GUICtrlSetOnEvent($AboutButtonOK, "_CLOSEAboutForm") + GUICtrlSetOnEvent($AboutLabelContact, "_AboutLabelContact") + GUICtrlSetOnEvent($AboutLabelWeblink, "_AboutLabelWeblink") + + GUICtrlSetData($AboutLabelVersion, "Version: " & FileGetVersion(@ScriptFullPath)) + $aWndPosAboutForm = WinGetPos($AboutForm) + WinMove($AboutForm, "About znilTail", (@DesktopWidth - $aWndPosAboutForm[2]) / 2, (@DesktopHeight - $aWndPosAboutForm[3]) / 2, $aWndPosAboutForm[2], $aWndPosAboutForm[3]) +;~ While $bAboutFormExit = False +;~ Sleep(100) +;~ WEnd +;~ Return +EndFunc + +Func _CLOSEAboutForm() + GUISetState(@SW_HIDE,$AboutForm) + GUIDelete($AboutForm) + $bAboutFormExit = True +EndFunc + +Func _AboutLabelContact() + _INetMail("Bernhard@znil.de", "- znilTail.exe - " & FileGetVersion(@ScriptFullPath), "") +EndFunc + +Func _AboutLabelWeblink() + ShellExecute ("http://znil.net") +EndFunc + +; ##################################################################################################################### + +Func _SetDebugLevelandRestartAgent($idebuglevel) + Local $aLinesInFile + Local $i + Local $bFoundLine = False + Local $hConfigFile + Local $oShell + _FileReadToArrayLocal($zabbixAgentConfigFile, $aLinesInFile) + For $i = 1 To $aLinesInFile[0] + If StringInStr($aLinesInFile[$i],"DebugLevel") > 0 And StringInStr($aLinesInFile[$i],"#") = 0 Then + If $bFoundLine = False Then + $aLinesInFile[$i] = "DebugLevel=" & $idebuglevel + $bFoundLine = True + Else + ;ok we found it more than one time, set the other ones to a comment + $aLinesInFile[$i] = "#" & $aLinesInFile[$i] + EndIf + EndIf + Next + $hConfigFile = FileOpen($zabbixAgentConfigFile, 2) + For $i = 1 To $aLinesInFile[0] + FileWriteLine($hConfigFile, $aLinesInFile[$i]) + Next + If $bFoundLine = False Then + ;ok, we did not found the value, so we add him as last Entry + FileWriteLine($hConfigFile, "DebugLevel=" & $idebuglevel) + EndIf + FileClose($hConfigFile) + + ; File is rewritten, so restart the servcie + $i = Run(@ComSpec & ' /c net stop "' & $zabbixAgentName & '"', "", @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD + $STDERR_CHILD) + $iTimer = TimerInit() + While ProcessExists("zabbix_agentd.exe") > 0 + Sleep(100) + If TimerDiff($iTimer) > 10000 Then + ExitLoop + EndIf + WEnd + ;Sleep(2000) + $i = Run(@ComSpec & ' /c net start "' & $zabbixAgentName & '"', "", @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD + $STDERR_CHILD) + +EndFunc ; ==>_SetDebugLevelandRestartAgent + +; ##################################################################################################################### + +Func _GetDebugLevel() + Local $aLinesInFile + Local $i + Local $bFoundLine = False + Local $hConfigFile + Local $oShell + Local $iReturnValue + + _FileReadToArrayLocal($zabbixAgentConfigFile, $aLinesInFile) + For $i = 1 To $aLinesInFile[0] + If StringInStr($aLinesInFile[$i],"DebugLevel") > 0 And StringInStr($aLinesInFile[$i],"#") = 0 Then + If $bFoundLine = False Then + $iReturnValue = StringReplace($aLinesInFile[$i],"DebugLevel=","") + $iReturnValue = StringReplace($aLinesInFile[$i]," ","") + $bFoundLine = True + EndIf + EndIf + Next + If $bFoundLine = False Then + $iReturnValue = 3 + EndIf + Return $iReturnValue +EndFunc ; ==>_SetDebugLevelandRestartAgent + +; ##################################################################################################################### + +Func _TailFile() + + Local $atemp + Local $sSearchStringHighlight + Local $sSearchStringHide + Local $i + Local $WhoHasFocus = ControlGetHandle($Form_znilTail, '', ControlGetFocus($Form_znilTail)) + Local $sLabelStatus + Local $Size + +;~ _WinAPI_RedrawWindow($Form_znilTail) + _GUICtrlRichEdit_PauseRedraw($EditTailText) +;~ If $sFile Then +;~ $iTailPos = 0 +;~ EndIf + ; Schritt 1: Datei öffnen, die 256 steht für "UTF8 without BOM" Format, in dem Format schreibt auch der zabbix_agentd seine Log Datei +;~ $iFileSizeNow = FileGetSize($sTailFileName) + Local $hTailFile = FileOpen($sTailFileName, 256) + If $hTailFile = -1 Then ; Hat das Öffnen nicht geklappt! + MsgBox(0,"","Konnte nicht öffnen!") + Return + EndIf + ; Wir gehen an das Ende der Datei + FileSetPos($hTailFile, 0, 2) + ; Jetzt lesen wir diese Position aus, ergibt die Länge der Datei + $Size = FileGetPos($hTailFile) + ; $iTailPos ist die Leseposition innerhalb der Datei. + ; Ist TailPos = 0 dann haben wir noch gar nichts gelesen + If $iTailPos = 0 Then + ; Jetzt schauen wir ob die Größe kleiner als $nBytes ist. $nBytes ist die Menge an Bytes die wir sonst initial einlesen + ; Ist oben mit 1024 Bytes definiert = 1KByte + If $Size > $nBytes Then + ; Die Datei ist größer als 1024 Bytes. Also ziehen wir vom Ende/der Größe der Datei 1024 Bytes ab und fangen dort an zu lesen + $iTailPos = $Size - $nBytes + EndIf + ; Kein Else! Ist die Datei kleiner als 1024 Bytes fangen wir bei 0 an zu lesen + EndIf + + ; Falls die Größer kleiner ist als unserer Lese-Position (kann passieren bei einem Logrotate) springen wir wieder an den Anfang der Datei + If $Size < $iTailPos Then +;~ $iTailPos = $Size + $iTailPos = 0 + EndIf + + ; Wenn $Size größer als unsere letzte Leseposition ist, gibt es etwas zum einlesen! + If $Size > $iTailPos Then + ; Wir springen an die letzte Leseposition + FileSetPos($hTailFile, $iTailPos, 0) + ; Wir lesen alles bis zum Ende ein, dafür steht die -1 + $TailNew = FileRead($hTailFile, -1) + ; Wir ermitteln wieder die Position in der Datei - müsste wieder das Ende sein + $iTailPos = FileGetPos($hTailFile) + ; Dann machen wir die Datei zu + FileClose($hTailFile) + Else + ; Es gibt nichts einzulesen - also raus aus der Funktion + FileClose($hTailFile) + $sLabelStatus = GUICtrlRead($LabelStatus) + If StringLen($sLabelStatus) < 96 Then + $sLabelStatus = $sLabelStatus & "-" + Else + $sLabelStatus = "-" + EndIf + GUICtrlSetData($LabelStatus, $sLabelStatus) + Return + EndIf + + _WinAPI_SetFocus($WhoHasFocus) + + ; Testen wir ob wir etwas eingelesen haben + If StringLen($TailNew) > 0 Then + ; _Tail_Content(True, $TailNew) hab nie verstanden wofür diese Funktion ist ... + $sLabelStatus = GUICtrlRead($LabelStatus) + If StringLen($sLabelStatus) < 96 Then + $sLabelStatus = $sLabelStatus & "#" + Else + $sLabelStatus = "#" + EndIf + GUICtrlSetData($LabelStatus, $sLabelStatus) + $iTextLength = $iTextLength + StringLen($TailNew) + If $bUseColorize = True Or $bHideText = True Then + $atemp = StringSplit($TailNew, @CRLF) + $sSearchStringHighlight = GUICtrlRead($InputHighlightText) + $sSearchStringHide = GUICtrlRead($InputHidetext) + ;ConsoleWrite($sSearchString & @CRLF) + $TailNew = "" + _WinAPI_SetFocus($WhoHasFocus) + For $i = 1 To $atemp[0] + If $bHideText = True Then + If StringInStr($atemp[$i], $sSearchStringHide) > 1 Then + $atemp[$i] = "" + EndIf + _WinAPI_SetFocus($WhoHasFocus) + EndIf + If StringInStr($atemp[$i], $sSearchStringHighlight) > 1 Then + ;$TailNew = $TailNew & "[b][c=#FF0000]" & $atemp[$i] & "[/b][/c]" & @CRLF + _ChatBoxAdd($EditTailText, "[b][c=#CC0000]" & $atemp[$i] & "[/b][/c]" & @CRLF) + ;_GUICtrlRichEdit_SetSel($EditTailText, _GUICtrlRichEdit_GetTextLength($EditTailText) - StringLen($atemp[$i]), -1) + ;_GUICtrlRichEdit_SetCharBkColor($EditTailText, 0x00FF00) + ;_GUICtrlRichEdit_SetCharBkColor($EditTailText, 0xFFFFFF) + Else + If $atemp[$i] <> @CRLF And $atemp[$i] <> "" Then + _ChatBoxAdd($EditTailText, "[c=#666666]" & $atemp[$i] & "[/c]" & @CRLF) + EndIf + EndIf + _WinAPI_SetFocus($WhoHasFocus) + Next + Else + _ChatBoxAdd($EditTailText, $TailNew) + _WinAPI_SetFocus($WhoHasFocus) + EndIf + _GUICtrlRichEdit_SetSel($EditTailText, 0, -1) ; go to begin of text + _GUICtrlRichEdit_SetFont($EditTailText, $iFontsize, "Lucida Console") + _GUICtrlRichEdit_SetSel($EditTailText, -1, -1) ; go to end of text + ;ConsoleWrite(StringLen($TailNew) & @CRLF) + EndIf + _WinAPI_SetFocus($WhoHasFocus) + GUICtrlSetData($LabelCounter, StringRegExpReplace(_StringReverse(StringRegExpReplace(_StringReverse($iTextLength),"\d{3}","\0.")),"(? ($iRichEditTextLimit - 524288) Then + _GUICtrlRichEdit_SetText($EditTailText, StringRight(_GUICtrlRichEdit_GetText($EditTailText, False, 1200), 524288)) + EndIf + _GUICtrlRichEdit_ResumeRedraw($EditTailText) + _WinAPI_RedrawWindow($Form_znilTail) +EndFunc ;==>_TailFile + +; ##################################################################################################################### + +;~ Func _Tail_Content($bSet = False, $sNew = "") +;~ Local Static $Tail = "" +;~ If $bSet Then $Tail = $sNew +;~ Return $Tail +;~ EndFunc + +; ##################################################################################################################### + +Func WM_SIZE($hWnd, $iMsg, $wParam, $lParam) + Local $aWndPos = WinGetPos($Form_znilTail) + Local $iWidth = _WinAPI_LoWord($lParam) + Local $iHeight = _WinAPI_HiWord($lParam) + If $iWidth < 991 Then + $iWidth = 995 + WinMove($Form_znilTail, $sFormTitle, $aWndPos[0], $aWndPos[1], $iWidth, $iHeight) + Else + ;nix zu tun + EndIf + If $iHeight < 300 Then + $iHeight = 350 + WinMove($Form_znilTail, $sFormTitle, $aWndPos[0], $aWndPos[1], $iWidth, $iHeight) + EndIf + _WinAPI_MoveWindow($EditTailText, 0, 38, $iWidth - 2, $iHeight - 120) + GUICtrlSetPos($CheckboxHighlight, 5, $iHeight - 79) + GUICtrlSetPos($InputHighlightText, 24, $iHeight - 77, $iWidth - 29) + GUICtrlSetPos($CheckboxHideText, 5, $iHeight - 50) + GUICtrlSetPos($InputHidetext, 24, $iHeight - 48, $iWidth - 29) + GUICtrlSetPos($ButtonOpen, $iWidth - 85, 4, 81, 30) + GUICtrlSetPos($LabelCounter, $iWidth - 217, 4, 123, 30) + GUICtrlSetPos($ButtonHelp, $iWidth - 257, 4, 33, 30) + GUICtrlSetPos($LabelStatus, 0, $iHeight - 20, $iWidth - 1, 19) + Return 0 +EndFunc ;==>WM_SIZE + +; #FUNCTION# ==================================================================================================================== +; Name...........: _StringReverse +; Description ...: Reverses the contents of the specified string. +; Syntax.........: _StringReverse($s_String) +; Parameters ....: $s_String - String to reverse +; Return values .: Success - Returns reversed string +; Failure - Returns an empty string and sets @error = 1 +; |@Error - 0 = No error. +; |@Error - 1 = One of the parameters is invalid +; |@Error - 2 = Dll error +; Author ........: Jon +; Modified.......: SmOke_N (Re-written using msvcrt.dll for speed) +; Remarks .......: +; Related .......: +; Link ..........: +; Example .......: Yes +; =============================================================================================================================== +Func _StringReverse($s_String) + + Local $i_len = StringLen($s_String) + If $i_len < 1 Then Return SetError(1, 0, "") + + Local $t_chars = DllStructCreate("char[" & $i_len + 1 & "]") + DllStructSetData($t_chars, 1, $s_String) + + Local $a_rev = DllCall("msvcrt.dll", "ptr:cdecl", "_strrev", "struct*", $t_chars) + If @error Or $a_rev[0] = 0 Then Return SetError(2, 0, "") + + Return DllStructGetData($t_chars, 1) +EndFunc ;==>_StringReverse + +; #FUNCTION# ==================================================================================================================== +; Name...........: _FileReadToArrayLocal +; Description ...: Reads the specified file into an array. +; Syntax.........: _FileReadToArrayLocal($sFilePath, ByRef $aArray) +; Parameters ....: $sFilePath - Path and filename of the file to be read. +; $aArray - The array to store the contents of the file. +; Return values .: Success - Returns a 1 +; Failure - Returns a 0 +; @Error - 0 = No error. +; |1 = Error opening specified file +; |2 = Unable to Split the file +; Author ........: Jonathan Bennett , Valik - Support Windows Unix and Mac line separator +; Modified.......: Jpm - fixed empty line at the end, Gary Fixed file contains only 1 line. +; Remarks .......: $aArray[0] will contain the number of records read into the array. +; Related .......: _FileWriteFromArray +; Link ..........: +; Example .......: Yes +; =============================================================================================================================== +Func _FileReadToArrayLocal($sFilePath, ByRef $aArray) + Local $hFile = FileOpen($sFilePath, $FO_READ) + If $hFile = -1 Then Return SetError(1, 0, 0);; unable to open the file + ;; Read the file and remove any trailing white spaces + Local $aFile = FileRead($hFile, FileGetSize($sFilePath)) +;~ $aFile = StringStripWS($aFile, 2) + ; remove last line separator if any at the end of the file + If StringRight($aFile, 1) = @LF Then $aFile = StringTrimRight($aFile, 1) + If StringRight($aFile, 1) = @CR Then $aFile = StringTrimRight($aFile, 1) + FileClose($hFile) + If StringInStr($aFile, @LF) Then + $aArray = StringSplit(StringStripCR($aFile), @LF) + ElseIf StringInStr($aFile, @CR) Then ;; @LF does not exist so split on the @CR + $aArray = StringSplit($aFile, @CR) + Else ;; unable to split the file + If StringLen($aFile) Then + Dim $aArray[2] = [1, $aFile] + Else + Return SetError(2, 0, 0) + EndIf + EndIf + Return 1 +EndFunc ;==>_FileReadToArrayLocal + +; ------------------------------------------------------------------------------------------ +Func _CLOSEznilTail() + _WinAPI_SetFocus($hControl) + _ChatBoxDestroy($EditTailText) + AdlibUnRegister("_TailFile") + GUIDelete($Form_znilTail) + Sleep(250) + Exit 0 +EndFunc +; ------------------------------------------------------------------------------------------ +; -------------------------------------------------------------------------------------------------------- + +Func _ButtonOpen() + $sTailFileName = FileOpenDialog("Open File for Tail", @ScriptDir, "Textfiles (*.*)", 3, "", $Form_znilTail) + If $sTailFileName = "" Or @error = 1 Then + $sTailFileName = "" + $sFormTitle = "znilTail: No File selected" + Else + $sFormTitle = "znilTail: " & $sTailFileName + EndIf + _WinAPI_SetWindowText($Form_znilTail, $sFormTitle) + _WinAPI_SetFocus($hControl) + ; nach dem Öffnen auch gleich loslegen! + $iTailPos = 0 + _ButtonStart() +EndFunc + +Func _ButtonStart() + If $sTailFileName <> "" Then + AdlibRegister("_TailFile", $iRefreshrate) + GUICtrlSetState($ButtonStart, $GUI_DISABLE) + GUICtrlSetState($ButtonStop, $GUI_ENABLE) + GUICtrlSetState($ButtonOpen, $GUI_DISABLE) + Else + MsgBox(262192,"znilTail: No file selected","You need to open a File first!",5) + EndIf + _WinAPI_SetFocus($hControl) +EndFunc + +Func _ButtonStop() + AdlibUnRegister("_TailFile") + GUICtrlSetState($ButtonStart, $GUI_ENABLE) + GUICtrlSetState($ButtonOpen, $GUI_ENABLE) + GUICtrlSetState($ButtonStop, $GUI_DISABLE) + _WinAPI_SetFocus($hControl) +EndFunc + +Func _ButtonFontMinus() + If $iFontsize > 6 Then + $iFontsize = $iFontsize - 1 + _GUICtrlRichEdit_SetSel($EditTailText, 0, -1) ; go to begin of text + _GUICtrlRichEdit_SetFont($EditTailText, $iFontsize, "Lucida Console") + _GUICtrlRichEdit_SetSel($EditTailText, -1, -1) ; go to end of text + EndIf + _WinAPI_SetFocus($hControl) +EndFunc + +Func _ButtonFontPlus() + $iFontsize = $iFontsize + 1 + _GUICtrlRichEdit_SetSel($EditTailText, 0, -1) ; go to begin of text + _GUICtrlRichEdit_SetFont($EditTailText, $iFontsize, "Lucida Console") + _GUICtrlRichEdit_SetSel($EditTailText, -1, -1) ; go to end of text + _WinAPI_SetFocus($hControl) +EndFunc + +Func _ButtonHelp() +;~ MsgBox(0,"","ButtonHelp!") + _znilTailAboutBox() + _WinAPI_SetFocus($hControl) +EndFunc + +Func _ButtonDebugLevel3() + $iCurrentDebugLevel = 3 + _WinAPI_SetFocus($hControl) + GUICtrlSetState($ButtonDebugLevel3, $GUI_DISABLE) + GUICtrlSetData($ButtonDebugLevel3, "Debug Level 3 is active") + GUICtrlSetState($ButtonDebugLevel4, $GUI_ENABLE) + GUICtrlSetData($ButtonDebugLevel4, "Restart Zabbix Agent with DebugLevel 4") + _SetDebugLevelandRestartAgent($iCurrentDebugLevel) +EndFunc + +Func _ButtonDebugLevel4() + $iCurrentDebugLevel = 4 + _WinAPI_SetFocus($hControl) + GUICtrlSetState($ButtonDebugLevel4, $GUI_DISABLE) + GUICtrlSetData($ButtonDebugLevel4, "Debug Level 4 is active") + GUICtrlSetState($ButtonDebugLevel3, $GUI_ENABLE) + GUICtrlSetData($ButtonDebugLevel3, "Restart Zabbix Agent with DebugLevel 3") + _SetDebugLevelandRestartAgent($iCurrentDebugLevel) +EndFunc + +Func _ButtonRestartAgent() + _WinAPI_SetFocus($hControl) +;~ $i = Run(@ComSpec & ' /c net stop "' & $zabbixAgentName & '"', "", @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD + $STDERR_CHILD) +;~ MsgBox(0,"",@ComSpec & ' /c net stop "' & $zabbixAgentName & '"') + GUICtrlSetData($LabelStatus, GUICtrlRead($LabelStatus) & " stopping zabbbix_agentd.exe ... ") +;~ SplashTextOn("Restart Zabbix Agent", "Zabbix Agent wird beendet ...", 400, 38, -1 ,-1, 0, "Lucida Console", 14) + $i = Run(@ComSpec & ' /c net stop "' & $zabbixAgentName & '"', "", @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD + $STDERR_CHILD) + $iTimer = TimerInit() + While ProcessExists("zabbix_agentd.exe") > 0 + Sleep(100) + If TimerDiff($iTimer) > 10000 Then + ExitLoop + EndIf + WEnd + ;Sleep(2000) +;~ SplashOff() +;~ SplashTextOn("Restart Zabbix Agent", "Zabbix Agent wird gestartet ...", 400, 38, -1 ,-1, 0, "Lucida Console", 14) + $i = Run(@ComSpec & ' /c net start "' & $zabbixAgentName & '"', "", @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD + $STDERR_CHILD) +;~ _TailFile() + GUICtrlSetData($LabelStatus, GUICtrlRead($LabelStatus) & " starting zabbbix_agentd.exe ... ") + Sleep(1000) +;~ SplashOff() +EndFunc + +Func _GUI_HideShow() + _WinAPI_SetFocus($hControl) + GUISetState(@SW_HIDE,$Form_znilTail) ;Hide GUI + GUISetState(@SW_SHOW,$Form_znilTail) ;Show GUI +EndFunc + +Func _CheckboxHighlight() + If GUICtrlRead($CheckboxHighlight) = $GUI_CHECKED Then + $bUseColorize = True + Else + $bUseColorize = False + EndIf +EndFunc + +Func _CheckboxHideText() + If GUICtrlRead($CheckboxHideText) = $GUI_CHECKED Then + $bHideText = True + Else + $bHideText = False + EndIf +EndFunc +; -------------------------------------------------------------------------------------------------------- + + + +#Region ### START Koda GUI section ### Form=c:\_autoit\tail\zniltail-v2.kxf +$Form_znilTail = GUICreate("znilTail: zabbix_agentd.log", 991, 497, 488, 278, BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_TABSTOP)) +GUISetBkColor(0x000000) +$EditTailText = GUICtrlCreateEdit("", 0, 38, 983, 377, BitOR($GUI_SS_DEFAULT_EDIT,$WS_CLIPSIBLINGS)) +GUICtrlSetData(-1, "Edit1") +GUICtrlSetFont(-1, 10, 400, 0, "Lucida Console") +GUICtrlSetResizing(-1, $GUI_DOCKLEFT+$GUI_DOCKRIGHT+$GUI_DOCKTOP+$GUI_DOCKBOTTOM) +$ButtonOpen = GUICtrlCreateButton("Open File", 900, 4, 81, 30) +GUICtrlSetFont(-1, 8, 400, 0, "Lucida Console") +GUICtrlSetResizing(-1, $GUI_DOCKTOP+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT) +GUICtrlSetTip(-1, "Open another Textfile for tailing") +$ButtonStart = GUICtrlCreateButton("START", 2, 4, 81, 30) +GUICtrlSetFont(-1, 12, 800, 0, "Lucida Console") +GUICtrlSetColor(-1, 0x008000) +GUICtrlSetResizing(-1, $GUI_DOCKLEFT+$GUI_DOCKTOP+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT) +GUICtrlSetTip(-1, "START tailing the file.") +$ButtonStop = GUICtrlCreateButton("STOP", 88, 4, 81, 30) +GUICtrlSetFont(-1, 12, 800, 0, "Lucida Console") +GUICtrlSetColor(-1, 0xFF0000) +GUICtrlSetResizing(-1, $GUI_DOCKLEFT+$GUI_DOCKTOP+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT) +GUICtrlSetState(-1, $GUI_DISABLE) +GUICtrlSetTip(-1, "STOP tailing!") +$CheckboxHighlight = GUICtrlCreateCheckbox("", 5, 418, 17, 25) +GUICtrlSetResizing(-1, $GUI_DOCKAUTO+$GUI_DOCKLEFT+$GUI_DOCKBOTTOM+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT) +$InputHighlightText = GUICtrlCreateInput("Highlight Lines with this Text", 24, 420, 958, 20) +GUICtrlSetFont(-1, 9, 800, 0, "Lucida Console") +GUICtrlSetBkColor(-1, 0xC0DCC0) +GUICtrlSetResizing(-1, $GUI_DOCKLEFT+$GUI_DOCKBOTTOM+$GUI_DOCKHEIGHT) +$ButtonFontPlus = GUICtrlCreateButton("+", 192, 4, 33, 30) +GUICtrlSetFont(-1, 20, 800, 0, "Courier New") +GUICtrlSetResizing(-1, $GUI_DOCKLEFT+$GUI_DOCKTOP+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT) +GUICtrlSetTip(-1, "make Font bigger") +$ButtonFontMinus = GUICtrlCreateButton("-", 232, 4, 33, 30) +GUICtrlSetFont(-1, 20, 800, 0, "Courier New") +GUICtrlSetResizing(-1, $GUI_DOCKLEFT+$GUI_DOCKTOP+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT) +GUICtrlSetTip(-1, "make Font smaler") +$CheckboxHideText = GUICtrlCreateCheckbox("", 5, 447, 17, 25) +GUICtrlSetResizing(-1, $GUI_DOCKAUTO+$GUI_DOCKLEFT+$GUI_DOCKBOTTOM+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT) +$InputHidetext = GUICtrlCreateInput("Hide Lines with this Text", 24, 449, 958, 20) +GUICtrlSetFont(-1, 9, 800, 0, "Lucida Console") +GUICtrlSetColor(-1, 0xFFFF00) +GUICtrlSetBkColor(-1, 0xFF0000) +GUICtrlSetResizing(-1, $GUI_DOCKLEFT+$GUI_DOCKBOTTOM+$GUI_DOCKHEIGHT) +$LabelCounter = GUICtrlCreateLabel("LabelCounter", 768, 4, 123, 30, BitOR($SS_CENTER,$SS_CENTERIMAGE,$SS_SUNKEN)) +GUICtrlSetFont(-1, 10, 800, 0, "Lucida Console") +GUICtrlSetColor(-1, 0xFFFFFF) +GUICtrlSetBkColor(-1, 0x000080) +GUICtrlSetResizing(-1, $GUI_DOCKRIGHT+$GUI_DOCKTOP) +GUICtrlSetTip(-1, "Number of Bytes that have been read since start.") +$ButtonHelp = GUICtrlCreateButton("?", 728, 4, 33, 30) +GUICtrlSetFont(-1, 18, 800, 0, "Lucida Console") +GUICtrlSetResizing(-1, $GUI_DOCKLEFT+$GUI_DOCKTOP+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT) +GUICtrlSetTip(-1, "About Box with link to Homepage") +$ButtonDebugLevel3 = GUICtrlCreateButton("Restart Zabbix Agent with DebugLevel=3", 292, 4, 153, 30, $BS_MULTILINE) +GUICtrlSetFont(-1, 8, 400, 0, "Lucida Console") +GUICtrlSetResizing(-1, $GUI_DOCKLEFT+$GUI_DOCKTOP+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT) +GUICtrlSetTip(-1, "Change the DebugLevel of Zabbix Agent to 3 (Warnings) and restart the Agent. If this Button ist greyed Out you need to start znilTail.exe with Adminisrator-Rights. If no Zabbix Agent was found this Button will not shown.") +$ButtonDebugLevel4 = GUICtrlCreateButton("Restart Zabbix Agent with DebugLevel=4", 452, 4, 153, 30, $BS_MULTILINE) +GUICtrlSetFont(-1, 8, 400, 0, "Lucida Console") +GUICtrlSetResizing(-1, $GUI_DOCKLEFT+$GUI_DOCKTOP+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT) +GUICtrlSetTip(-1, "Change the DebugLevel of Zabbix Agent to 3 (Debugging) and restart the Agent. If this Button ist greyed Out you need to start znilTail.exe with Adminisrator-Rights. If no Zabbix Agent was found this Button will not shown.") +$ButtonRestartAgent = GUICtrlCreateButton("Restart Zabbix Agent", 610, 4, 113, 30, $BS_MULTILINE) +GUICtrlSetFont(-1, 8, 400, 0, "Lucida Console") +GUICtrlSetResizing(-1, $GUI_DOCKLEFT+$GUI_DOCKTOP+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT) +GUICtrlSetTip(-1, "Just Restart the Zabbix Agent (without changing DebugLevel)") +$LabelStatus = GUICtrlCreateLabel("LabelStatus", 0, 477, 990, 19, $WS_BORDER) +GUICtrlSetFont(-1, 12, 400, 0, "Lucida Console") +GUICtrlSetBkColor(-1, 0xC0C0C0) +GUICtrlSetResizing(-1, $GUI_DOCKLEFT+$GUI_DOCKBOTTOM+$GUI_DOCKHEIGHT) +GUISetState(@SW_SHOW) +#EndRegion ### END Koda GUI section ### + +#Region ------ StartUp ------------------------------ +GUIRegisterMsg($WM_SIZE, "WM_SIZE") +GUISetOnEvent($GUI_EVENT_RESIZED, "_GUI_HideShow", $Form_znilTail) +GUISetOnEvent($GUI_EVENT_MAXIMIZE, "_GUI_HideShow", $Form_znilTail) +GUISetOnEvent($GUI_EVENT_RESTORE, "_GUI_HideShow", $Form_znilTail) +GUISetOnEvent($GUI_EVENT_CLOSE, "_CLOSEznilTail", $Form_znilTail) +If GUICtrlSetOnEvent($ButtonOpen, "_ButtonOpen") = 0 Then MsgBox(0,"","Fehler _ButtonOpen") +If GUICtrlSetOnEvent($ButtonStart, "_ButtonStart") = 0 Then MsgBox(0,"","Fehler _ButtonStart") +If GUICtrlSetOnEvent($ButtonStop, "_ButtonStop") = 0 Then MsgBox(0,"","Fehler _ButtonStop") +If GUICtrlSetOnEvent($ButtonFontMinus, "_ButtonFontMinus") = 0 Then MsgBox(0,"","Fehler _ButtonFontMinus") +If GUICtrlSetOnEvent($ButtonFontPlus, "_ButtonFontPlus") = 0 Then MsgBox(0,"","Fehler _ButtonFontPlus") +If GUICtrlSetOnEvent($ButtonHelp, "_ButtonHelp") = 0 Then MsgBox(0,"","Fehler _ButtonHelp") +If GUICtrlSetOnEvent($ButtonDebugLevel3, "_ButtonDebugLevel3") = 0 Then MsgBox(0,"","Fehler _ButtonDebugLevel3") +If GUICtrlSetOnEvent($ButtonDebugLevel4, "_ButtonDebugLevel4") = 0 Then MsgBox(0,"","Fehler _ButtonDebugLevel4") +If GUICtrlSetOnEvent($ButtonRestartAgent, "_ButtonRestartAgent") = 0 Then MsgBox(0,"","Fehler _ButtonRestartAgent") +If GUICtrlSetOnEvent($CheckboxHighlight, "_CheckboxHighlight") = 0 Then MsgBox(0,"","Fehler _CheckbosHighlight") +If GUICtrlSetOnEvent($CheckboxHideText, "_CheckboxHideText") = 0 Then MsgBox(0,"","Fehler _CheckboxHideText") + +GUICtrlSetData($LabelStatus,"") + + +GUICtrlDelete($EditTailText) +$EditTailText = _TailBoxCreate($Form_znilTail,"",0, 38, 983, 377,"0xFFFFFF", True, False, BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL, $WS_CLIPSIBLINGS)) +_GUICtrlRichEdit_SetFont($EditTailText, $iFontsize, "Courier New") +_GUICtrlRichEdit_SetLimitOnText($EditTailText, $iRichEditTextLimit) +_WinAPI_SetWindowText($Form_znilTail, $sFormTitle) +GUICtrlSetData($LabelCounter, 0) +GUICtrlSetTip($ButtonDebugLevel3, "Change the DebugLevel of Zabbix Agent to 3 (Warnings) and restart the Agent." & @CRLF & _ + "If this Button ist greyed out you need to start znilTail.exe with Adminisrator-Rights.") +GUICtrlSetTip($ButtonDebugLevel4, "Change the DebugLevel of Zabbix Agent to 3 (Debugging) and restart the Agent." & @CRLF & _ + "If this Button ist greyed Out you need to start znilTail.exe with Adminisrator-Rights.") +;~ $data="[s]Hallo,[/s] [b][i]wie[/i] [u]gehts[/u]?[/b]"&@CRLF& _ +;~ "[c=#00FF00]Grün"&@CRLF&"![/c]"&@CRLF& _ +;~ "[c=#00FF00]Moinsen,[/c] schwarz"&@CRLF& _ +;~ "[c=#FF0000]Moinsen,[/c] schwarz"&@CRLF +;~ _ChatBoxAdd($EditTailText,$data) + + + + + +GUISetState(@SW_SHOW, $Form_znilTail) +$aWndPos = WinGetPos($Form_znilTail) +WinMove($Form_znilTail, $sFormTitle, (@DesktopWidth - $aWndPos[2]) / 2, (@DesktopHeight - $aWndPos[3]) / 2, $aWndPos[2], $aWndPos[3]) + +; Were we startet with Commandline Parameter? ######################################################################### +If $CmdLine[0] > 0 Then + $sTailFileName = $CmdLine[1] + If FileExists($sTailFileName) = 0 Then + MsgBox(262144,"znilTail: File not found!","znilTail.exe was startet with a File as Commandline Parameter:" & @CRLF & _ + @CRLF & $sTailFileName & @CRLF & @CRLF & "but the File did not exist!",10) + Else +;~ AdlibRegister("_TailFile", 250) +;~ GUICtrlSetState($ButtonStart, $GUI_DISABLE) +;~ GUICtrlSetState($ButtonStop, $GUI_ENABLE) +;~ GUICtrlSetState($ButtonOpen, $GUI_DISABLE) +;~ $sFormTitle = "znilTail: " & $sTailFileName +;~ _WinAPI_SetWindowText($Form_znilTail, $sFormTitle) + _ButtonStart() + EndIf +EndIf + +; Is Zabbix the Zabbix Agent installed on this Computer? If yes: Name of Service and Path+Filename of his Config-File? +$sRegSubKey = RegRead($aRegistryBaseServicePaths[0] & "Control", "CurrentUser") +If $sRegSubKey = "" Then + $sRegSubKey = RegRead($aRegistryBaseServicePaths[1] & "Control", "CurrentUser") + If $sRegSubKey = "" Then + $sRegSubKey = RegRead($aRegistryBaseServicePaths[2] & "Control", "CurrentUser") + If $sRegSubKey = "" Then + $iRightRegistryPath = 99 + Else + $iRightRegistryPath = 2 + EndIf + Else + $iRightRegistryPath = 1 + EndIf +Else + $iRightRegistryPath = 0 +EndIf +$i = 0 +$zabbixAgentName = "" +$zabbixAgentConfigFile = "" +While 1 + $i = $i + 1 + $sRegSubKey = RegEnumKey($aRegistryBaseServicePaths[$iRightRegistryPath] & "services", $i) + If @error <> 0 Then ExitLoop + If StringLeft($sRegSubKey,StringLen("Zabbix Agent")) = "Zabbix Agent" Then + $zabbixAgentName = RegRead($aRegistryBaseServicePaths[$iRightRegistryPath] & "services\" & $sRegSubKey, "DisplayName") + $zabbixAgentConfigFile = RegRead($aRegistryBaseServicePaths[$iRightRegistryPath] & "services\" & $sRegSubKey, "ImagePath") + ;"C:\Program Files\Zabbix\zabbix_agentd.exe" --config "c:\Program Files\Zabbix\zabbix_agentd.win.conf" -m + $zabbixAgentConfigFile = StringRegExpReplace($zabbixAgentConfigFile, '.*(?i)--config "', "") + $zabbixAgentConfigFile = StringRegExpReplace($zabbixAgentConfigFile, '".*', "") + ExitLoop + EndIf +WEnd + +If $zabbixAgentConfigFile <> "" And FileExists($zabbixAgentConfigFile) = 1 Then + $bShowZabbixAgentButtons = True +Else + $bShowZabbixAgentButtons = False +EndIf + +If IsAdmin() = 1 Then + $bAdminrights = True + ;MsgBox(0,"","Admin Rechte!") +Else + $bAdminrights = False + ;MsgBox(0,"","Du darfst nichts") +EndIf + +;MsgBox(0,"$zabbixAgentConfigFile",$zabbixAgentConfigFile) + +If StringLen($zabbixAgentConfigFile) > 0 And $bAdminrights = False Then + GUICtrlSetState($ButtonDebugLevel3, $GUI_DISABLE) + GUICtrlSetState($ButtonDebugLevel4, $GUI_DISABLE) +EndIf + +;~ If $bAdminrights = True Then +;~ MsgBox(0,"","Adminrechte!") +;~ Else +;~ MsgBox(0,"","Keine Rechte") +;~ EndIf + + +If StringLen($zabbixAgentConfigFile) > 0 Then + If IsAdmin() = 1 Then + $hzabbixAgentConfigFile = FileOpen($zabbixAgentConfigFile, 0) + While 1 + $stemp = FileReadLine($hzabbixAgentConfigFile) + If @error = -1 Then ExitLoop + If StringInStr($stemp,"DebugLevel") > 0 And StringInStr($stemp,"#") = 0 Then + $iCurrentDebugLevel = Int(StringRegExpReplace($stemp,"[.\s]*[^0-9]", "")) + ;MsgBox(0,"DebugLevel",$iCurrentDebugLevel) + ExitLoop + EndIf + WEnd + FileClose($hzabbixAgentConfigFile) + EndIf +EndIf + +;MsgBox(0,"$iCurrentDebugLevel",$iCurrentDebugLevel) + + +If $iCurrentDebugLevel = 3 Then + GUICtrlSetState($ButtonDebugLevel3, $GUI_DISABLE) + GUICtrlSetData($ButtonDebugLevel3, "Debug Level 3 is active") + GUICtrlSetState($ButtonDebugLevel4, $GUI_ENABLE) + GUICtrlSetData($ButtonDebugLevel4, "Restart Zabbix Agent with DebugLevel 4") +ElseIf $iCurrentDebugLevel = 4 Then + GUICtrlSetState($ButtonDebugLevel4, $GUI_DISABLE) + GUICtrlSetData($ButtonDebugLevel4, "Debug Level 4 is active") + GUICtrlSetState($ButtonDebugLevel3, $GUI_ENABLE) + GUICtrlSetData($ButtonDebugLevel3, "Restart Zabbix Agent with DebugLevel 3") +ElseIf $iCurrentDebugLevel >= 0 And $iCurrentDebugLevel < 3 Then + GUICtrlSetState($ButtonDebugLevel3, $GUI_ENABLE) + GUICtrlSetData($ButtonDebugLevel3, "Restart Zabbix Agent with DebugLevel 3") + GUICtrlSetState($ButtonDebugLevel4, $GUI_ENABLE) + GUICtrlSetData($ButtonDebugLevel4, "Restart Zabbix Agent with DebugLevel 4") +EndIf + + +If $zabbixAgentConfigFile = "" Then + GUICtrlSetTip($ButtonDebugLevel3, "Unavailable - no Zabbix Agent Service found on this Computer." & @CRLF & _ + "znilTail.exe has looked for Agent in the Registry but found nothing.") + GUICtrlSetData($ButtonDebugLevel3, "No installed Zabbix Agent found!") + GUICtrlSetTip($ButtonDebugLevel4, "Unavailable - no Zabbix Agent Service found on this Computer." & @CRLF & _ + "znilTail.exe has looked for Agent in the Registry but found nothing.") + GUICtrlSetData($ButtonDebugLevel4, "No installed Zabbix Agent found!") + GUICtrlSetTip($ButtonRestartAgent, "Unavailable - no Zabbix Agent Service found on this Computer." & @CRLF & _ + "znilTail.exe has looked for Agent in the Registry but found nothing.") + GUICtrlSetData($ButtonRestartAgent, "No Zabbix Agent found!") + GUICtrlSetState($ButtonDebugLevel3, $GUI_DISABLE) + GUICtrlSetState($ButtonDebugLevel4, $GUI_DISABLE) + GUICtrlSetState($ButtonRestartAgent, $GUI_DISABLE) +Else + $iCurrentDebugLevel = _GetDebugLevel() + If $iCurrentDebugLevel = 4 Then + GUICtrlSetState($ButtonDebugLevel4, $GUI_DISABLE) + GUICtrlSetData($ButtonDebugLevel4, "Debug Level 4 is active") + GUICtrlSetState($ButtonDebugLevel3, $GUI_ENABLE) + GUICtrlSetData($ButtonDebugLevel3, "Restart Zabbix Agent with DebugLevel 3") + EndIf +EndIf + +$hControl = ControlGetHandle($Form_znilTail, '', ControlGetFocus($Form_znilTail)) + + +#EndRegion --- StartUp ------------------------------ + + + +While 1 + +;~ Case $InputHighlightText +;~ If GUICtrlRead($InputHighlightText) = "Highlight Lines with this Text" Then +;~ GUICtrlSetData($InputHighlightText, "") +;~ GUICtrlSetData($CheckboxHighlight, $GUI_CHECKED) +;~ EndIf + Sleep(100) + + If ControlGetHandle($Form_znilTail, '', $InputHighlightText) = ControlGetHandle($Form_znilTail, '', ControlGetFocus($Form_znilTail)) Then + If GUICtrlRead($InputHighlightText) = "Highlight Lines with this Text" Then + GUICtrlSetData($InputHighlightText, "") + GUICtrlSetState($CheckboxHighlight, $GUI_CHECKED) + $bUseColorize = True + EndIf + EndIf + If ControlGetHandle($Form_znilTail, '', $InputHidetext) = ControlGetHandle($Form_znilTail, '', ControlGetFocus($Form_znilTail)) Then + If GUICtrlRead($InputHidetext) = "Hide Lines with this Text" Then + GUICtrlSetData($InputHidetext, "") + GUICtrlSetState($CheckboxHideText, $GUI_CHECKED) + $bHideText = True + EndIf + EndIf + + +WEnd + diff --git a/znilTail.au3 b/znilTail.au3 new file mode 100644 index 0000000..1e001e7 --- /dev/null +++ b/znilTail.au3 @@ -0,0 +1,770 @@ +#NoTrayIcon +#RequireAdmin +#Region ;**** Directives created by AutoIt3Wrapper_GUI **** +#AutoIt3Wrapper_Version=Beta +#AutoIt3Wrapper_Icon=Icon256-32.ico +#AutoIt3Wrapper_Res_Description=Simple Tail Programm as an Zabbix Tool +#AutoIt3Wrapper_Res_Fileversion=1.0.1.12 +#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y +#AutoIt3Wrapper_Res_LegalCopyright=2013 Bernhard Linz / Bernhard@znil.de +#AutoIt3Wrapper_Res_SaveSource=y +#AutoIt3Wrapper_Res_Language=1031 +#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** +Opt('MustDeclareVars', 1) +#Region ;************ Includes ************ + +#Include +#Include +#Include +;~ #include ;~~~ +;~ #include ;~~~ +;~ #include ;~~~ +#include "_ChatBox.au3" +#EndRegion ;************ Includes ************ +#Region ------ Dim Variables ------------------------------ +Global $Form_znilTail +Global $EditTailText +Dim $ButtonStart +Dim $ButtonStop +Dim $ButtonOpen +Global $CheckboxHighlight +Global $CheckboxHideText +Global $InputHighlightText +Global $InputHidetext +Dim $ButtonFontMinus +Dim $ButtonFontPlus +Global $iFontsize = 9 +Dim $nMsg +Dim $data +Global $bUseColorize = False +Global $bHideText = False +Global $TailFile = "" +Global $sFormTitle = "znilTail: No File selected" +Dim $aWndPos +Global $iTextLength = 0 +Global $LabelCounter +Global $iRichEditTextLimit = 2147483647 ; 2GB - 1 Byte +Dim $ButtonHelp +Dim $i +Dim $zabbixAgentName +Dim $zabbixAgentConfigFile +Dim $hzabbixAgentConfigFile +Dim $iCurrentDebugLevel = 99 +Dim $stemp +Dim $sRegSubKey +Global $bShowZabbixAgentButtons = False +Global $bAdminrights = False +Global $ButtonDebugLevel3 +Global $ButtonDebugLevel4 +Global $ButtonRestartAgent +Global $iTimer +Global $hControl +;Global $iRichEditTextLimit = 1048576 + +Dim $aRegistryBaseServicePaths[3] = ["HKLM\SYSTEM\CurrentControlSet\", _ + "HKLM64\SYSTEM\CurrentControlSet\", _ + "HKLM\SOFTWARE\Wow6432Node\SYSTEM\CurrentControlSet\"] +Dim $iRightRegistryPath + +#EndRegion --- Dim Variables ------------------------------ + +Func _TailBoxCreate($gui,$txt,$x,$y,$w,$h,$bgc,$readonly,$autodetecturl, $style) + Local $ret;RichEdit + $ret=_GUICtrlRichEdit_Create($gui,"",$x,$y,$w,$h,$style) + _GUICtrlRichEdit_AutoDetectURL($ret,$autodetecturl) + ;_GUICtrlRichEdit_SetLimitOnText($ret,-1) + _GUICtrlRichEdit_SetBkColor($ret,$bgc) + _GUICtrlRichEdit_SetReadOnly($ret,$readonly) + Return $ret +EndFunc + + +Func _znilTailAboutBox() + Local $AboutForm, $AboutGroupBoxFreeware, $AboutLabelFreeware1, $AboutLabelFreeware2,$AboutLabelFreeware3 + Local $AboutButtonOK, $AboutLabelWeblink, $AboutGroupboxCommandline, $AboutLabelCommandline + Local $AboutLabelAuthor, $AboutLabelVersion, $AboutLabelContact, $nMsg2 + Local $aWndPos +#Region ### START Koda GUI section ### Form=C:\_AutoIt\tail\znilTail-AboutBox.kxf +$AboutForm = GUICreate("About znilTail", 326, 244, 726, 446, BitOR($GUI_SS_DEFAULT_GUI,$DS_SETFOREGROUND), BitOR($WS_EX_TOPMOST,$WS_EX_WINDOWEDGE)) +GUISetFont(8, 400, 0, "Courier New") +$AboutGroupBoxFreeware = GUICtrlCreateGroup("", 8, 8, 305, 81, BitOR($GUI_SS_DEFAULT_GROUP,$BS_FLAT)) +$AboutLabelFreeware1 = GUICtrlCreateLabel("This Tool is FREEWARE!", 9, 16, 302, 35, BitOR($SS_CENTER,$SS_CENTERIMAGE)) +GUICtrlSetFont(-1, 16, 800, 0, "Courier New") +$AboutLabelFreeware2 = GUICtrlCreateLabel("Copy it, give it away,", 9, 48, 302, 18, $SS_CENTER) +GUICtrlSetFont(-1, 10, 400, 0, "Courier New") +$AboutLabelFreeware3 = GUICtrlCreateLabel("give it to others who need it!", 9, 64, 302, 20, $SS_CENTER) +GUICtrlSetFont(-1, 10, 400, 0, "Courier New") +GUICtrlCreateGroup("", -99, -99, 1, 1) +$AboutButtonOK = GUICtrlCreateButton("&OK", 238, 208, 75, 25, 0) +GUICtrlSetFont(-1, 12, 400, 0, "Courier New") +$AboutLabelWeblink = GUICtrlCreateLabel("http://znil.net", 9, 212, 222, 20) +GUICtrlSetFont(-1, 10, 400, 4, "Courier New") +GUICtrlSetColor(-1, 0x0000FF) +GUICtrlSetCursor (-1, 0) +$AboutGroupboxCommandline = GUICtrlCreateGroup(" Commandline Call: ", 8, 160, 305, 41, BitOR($GUI_SS_DEFAULT_GROUP,$BS_FLAT)) +$AboutLabelCommandline = GUICtrlCreateLabel("znilTail.exe [Path+Filename-to-Tail]", 12, 176, 299, 18) +GUICtrlSetFont(-1, 10, 800, 0, "Courier New") +GUICtrlCreateGroup("", -99, -99, 1, 1) +$AboutLabelAuthor = GUICtrlCreateLabel("2013/2014 by Bernhard Linz", 8, 96, 305, 18) +GUICtrlSetFont(-1, 10, 400, 0, "Courier New") +$AboutLabelVersion = GUICtrlCreateLabel("Version: ", 8, 116, 305, 18) +GUICtrlSetFont(-1, 10, 400, 0, "Courier New") +$AboutLabelContact = GUICtrlCreateLabel("Contact: Bernhard@znil.de", 8, 136, 305, 18) +GUICtrlSetFont(-1, 10, 400, 0, "Courier New") +GUICtrlSetCursor (-1, 0) +GUISetState(@SW_SHOW) +#EndRegion ### END Koda GUI section ### + GUICtrlSetData($AboutLabelVersion, "Version: " & FileGetVersion(@ScriptFullPath)) + $aWndPos = WinGetPos($AboutForm) + WinMove($AboutForm, "About znilTail", (@DesktopWidth - $aWndPos[2]) / 2, (@DesktopHeight - $aWndPos[3]) / 2, $aWndPos[2], $aWndPos[3]) + While 1 + $nMsg2 = GUIGetMsg() + Switch $nMsg2 + Case $GUI_EVENT_CLOSE, $AboutButtonOK + GUISetState(@SW_HIDE,$AboutForm) + GUIDelete($AboutForm) + Return + Case $AboutLabelContact + _INetMail("Bernhard@znil.de", "- znilTail.exe -", "") + Case $AboutLabelWeblink + ShellExecute ("http://znil.net") + EndSwitch + WEnd +EndFunc + +; ##################################################################################################################### + +Func _SetDebugLevelandRestartAgent($idebuglevel) + Local $aLinesInFile + Local $i + Local $bFoundLine = False + Local $hConfigFile + Local $oShell + _FileReadToArray($zabbixAgentConfigFile, $aLinesInFile) + For $i = 1 To $aLinesInFile[0] + If StringInStr($aLinesInFile[$i],"DebugLevel") > 0 And StringInStr($aLinesInFile[$i],"#") = 0 Then + If $bFoundLine = False Then + $aLinesInFile[$i] = "DebugLevel=" & $idebuglevel + $bFoundLine = True + Else + ;ok we found it more than one time, set the other ones to a comment + $aLinesInFile[$i] = "#" & $aLinesInFile[$i] + EndIf + EndIf + Next + $hConfigFile = FileOpen($zabbixAgentConfigFile, 2) + For $i = 1 To $aLinesInFile[0] + FileWriteLine($hConfigFile, $aLinesInFile[$i]) + Next + If $bFoundLine = False Then + ;ok, we did not found the value, so we add him as last Entry + FileWriteLine($hConfigFile, "DebugLevel=" & $idebuglevel) + EndIf + FileClose($hConfigFile) + + ; File is rewritten, so restart the servcie + $i = Run(@ComSpec & ' /c net stop "' & $zabbixAgentName & '"', "", @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD + $STDERR_CHILD) + $iTimer = TimerInit() + While ProcessExists("zabbix_agentd.exe") > 0 + Sleep(100) + If TimerDiff($iTimer) > 10000 Then + ExitLoop + EndIf + WEnd + ;Sleep(2000) + $i = Run(@ComSpec & ' /c net start "' & $zabbixAgentName & '"', "", @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD + $STDERR_CHILD) + +EndFunc ; ==>_SetDebugLevelandRestartAgent + +; ##################################################################################################################### + +Func _GetDebugLevel() + Local $aLinesInFile + Local $i + Local $bFoundLine = False + Local $hConfigFile + Local $oShell + Local $iReturnValue + + _FileReadToArray($zabbixAgentConfigFile, $aLinesInFile) + For $i = 1 To $aLinesInFile[0] + If StringInStr($aLinesInFile[$i],"DebugLevel") > 0 And StringInStr($aLinesInFile[$i],"#") = 0 Then + If $bFoundLine = False Then + $iReturnValue = StringReplace($aLinesInFile[$i],"DebugLevel=","") + $iReturnValue = StringReplace($aLinesInFile[$i]," ","") + $bFoundLine = True + EndIf + EndIf + Next + If $bFoundLine = False Then + $iReturnValue = 3 + EndIf + Return $iReturnValue +EndFunc ; ==>_SetDebugLevelandRestartAgent + +; ##################################################################################################################### + +Func _TailFile() + Local Static $TailPos = 0 + Local $nBytes = 1024 + Local $TailNew = "" + Local $sFile + Local $atemp + Local $sSearchStringHighlight + Local $sSearchStringHide + Local $i + Local $WhoHasFocus = ControlGetHandle($Form_znilTail, '', ControlGetFocus($Form_znilTail)) + + _GUICtrlRichEdit_PauseRedraw($EditTailText) + If $sFile Then + $TailPos = 0 + EndIf + Local $Handle = FileOpen($TailFile) + If $Handle = -1 Then Return + FileSetPos($Handle, 0, 2) + Local $Size = FileGetPos($Handle) + If $TailPos = 0 Then + If $Size > $nBytes Then + $TailPos = $Size - $nBytes + EndIf + ElseIf $Size < $TailPos Then + $TailPos = $Size + EndIf + If $Size > $TailPos Then + FileSetPos($Handle, $TailPos, 0) + $TailNew = FileRead($Handle) + $TailPos = FileGetPos($Handle) + EndIf + FileClose($Handle) + _WinAPI_SetFocus($WhoHasFocus) + If $TailNew Then + _Tail_Content(True, $TailNew) + ;_GUICtrlRichEdit_SetFont($EditTailText, $iFontsize, "Courier New") + ;GUICtrlSendToDummy($idDummy) + $iTextLength = $iTextLength + StringLen($TailNew) + If $bUseColorize = True Or $bHideText = True Then + $atemp = StringSplit($TailNew, @CRLF) + $sSearchStringHighlight = GUICtrlRead($InputHighlightText) + $sSearchStringHide = GUICtrlRead($InputHidetext) + ;ConsoleWrite($sSearchString & @CRLF) + $TailNew = "" + _WinAPI_SetFocus($WhoHasFocus) + For $i = 1 To $atemp[0] + If $bHideText = True Then + If StringInStr($atemp[$i], $sSearchStringHide) > 1 Then + $atemp[$i] = "" + EndIf + _WinAPI_SetFocus($WhoHasFocus) + EndIf + If StringInStr($atemp[$i], $sSearchStringHighlight) > 1 Then + ;$TailNew = $TailNew & "[b][c=#FF0000]" & $atemp[$i] & "[/b][/c]" & @CRLF + _ChatBoxAdd($EditTailText, "[b][c=#CC0000]" & $atemp[$i] & "[/b][/c]" & @CRLF) + ;_GUICtrlRichEdit_SetSel($EditTailText, _GUICtrlRichEdit_GetTextLength($EditTailText) - StringLen($atemp[$i]), -1) + ;_GUICtrlRichEdit_SetCharBkColor($EditTailText, 0x00FF00) + ;_GUICtrlRichEdit_SetCharBkColor($EditTailText, 0xFFFFFF) + Else + If $atemp[$i] <> @CRLF And $atemp[$i] <> "" Then + _ChatBoxAdd($EditTailText, "[c=#666666]" & $atemp[$i] & "[/c]" & @CRLF) + EndIf + EndIf + _WinAPI_SetFocus($WhoHasFocus) + Next + Else + _ChatBoxAdd($EditTailText, $TailNew) + _WinAPI_SetFocus($WhoHasFocus) + EndIf + _GUICtrlRichEdit_SetSel($EditTailText, 0, -1) ; go to end of text + _GUICtrlRichEdit_SetFont($EditTailText, $iFontsize, "Courier New") + _GUICtrlRichEdit_SetSel($EditTailText, -1, -1) ; go to end of text + ;ConsoleWrite(StringLen($TailNew) & @CRLF) + EndIf + _WinAPI_SetFocus($WhoHasFocus) + GUICtrlSetData($LabelCounter, StringRegExpReplace(_StringReverse(StringRegExpReplace(_StringReverse($iTextLength),"\d{3}","\0.")),"(? ($iRichEditTextLimit - 524288) Then + _GUICtrlRichEdit_SetText($EditTailText, StringRight(_GUICtrlRichEdit_GetText($EditTailText, False, 1200), 524288)) + EndIf + _GUICtrlRichEdit_ResumeRedraw($EditTailText) + ;_WinAPI_RedrawWindow($Form_znilTail) +EndFunc ;==>_TailFile + +; ##################################################################################################################### + +Func _Tail_Content($bSet = False, $sNew = "") + Local Static $Tail = "" + If $bSet Then $Tail = $sNew + Return $Tail +EndFunc + +; ##################################################################################################################### + +Func WM_SIZE($hWnd, $iMsg, $wParam, $lParam) + Local $aWndPos = WinGetPos($Form_znilTail) + Local $iWidth = _WinAPI_LoWord($lParam) + Local $iHeight = _WinAPI_HiWord($lParam) + If $iWidth < 500 Then + $iWidth = 500 + WinMove($Form_znilTail, $sFormTitle, $aWndPos[0], $aWndPos[1], $iWidth, $iHeight) + Else + EndIf + + If $iHeight < 300 Then + $iHeight = 300 + WinMove($Form_znilTail, $sFormTitle, $aWndPos[0], $aWndPos[1], $iWidth, $iHeight) + EndIf + _WinAPI_MoveWindow($EditTailText, 0, 38, $iWidth - 2, $iHeight - 102) + GUICtrlSetPos($CheckboxHighlight, 5, $iHeight - 61) + GUICtrlSetPos($InputHighlightText, 24, $iHeight - 59, $iWidth - 29) + GUICtrlSetPos($CheckboxHideText, 5, $iHeight - 32) + GUICtrlSetPos($InputHidetext, 24, $iHeight - 30, $iWidth - 29) + GUICtrlSetPos($ButtonOpen, $iWidth - 85, 4, 81, 30) + GUICtrlSetPos($LabelCounter, $iWidth - 217, 4, 123, 30) + GUICtrlSetPos($ButtonHelp, $iWidth - 257, 4, 33, 30) + Return 0 +EndFunc ;==>WM_SIZE + +; #FUNCTION# ==================================================================================================================== +; Name...........: _StringReverse +; Description ...: Reverses the contents of the specified string. +; Syntax.........: _StringReverse($s_String) +; Parameters ....: $s_String - String to reverse +; Return values .: Success - Returns reversed string +; Failure - Returns an empty string and sets @error = 1 +; |@Error - 0 = No error. +; |@Error - 1 = One of the parameters is invalid +; |@Error - 2 = Dll error +; Author ........: Jon +; Modified.......: SmOke_N (Re-written using msvcrt.dll for speed) +; Remarks .......: +; Related .......: +; Link ..........: +; Example .......: Yes +; =============================================================================================================================== +Func _StringReverse($s_String) + + Local $i_len = StringLen($s_String) + If $i_len < 1 Then Return SetError(1, 0, "") + + Local $t_chars = DllStructCreate("char[" & $i_len + 1 & "]") + DllStructSetData($t_chars, 1, $s_String) + + Local $a_rev = DllCall("msvcrt.dll", "ptr:cdecl", "_strrev", "struct*", $t_chars) + If @error Or $a_rev[0] = 0 Then Return SetError(2, 0, "") + + Return DllStructGetData($t_chars, 1) +EndFunc ;==>_StringReverse + +; #FUNCTION# ==================================================================================================================== +; Name...........: _FileReadToArray +; Description ...: Reads the specified file into an array. +; Syntax.........: _FileReadToArray($sFilePath, ByRef $aArray) +; Parameters ....: $sFilePath - Path and filename of the file to be read. +; $aArray - The array to store the contents of the file. +; Return values .: Success - Returns a 1 +; Failure - Returns a 0 +; @Error - 0 = No error. +; |1 = Error opening specified file +; |2 = Unable to Split the file +; Author ........: Jonathan Bennett , Valik - Support Windows Unix and Mac line separator +; Modified.......: Jpm - fixed empty line at the end, Gary Fixed file contains only 1 line. +; Remarks .......: $aArray[0] will contain the number of records read into the array. +; Related .......: _FileWriteFromArray +; Link ..........: +; Example .......: Yes +; =============================================================================================================================== +Func _FileReadToArray($sFilePath, ByRef $aArray) + Local $hFile = FileOpen($sFilePath, $FO_READ) + If $hFile = -1 Then Return SetError(1, 0, 0);; unable to open the file + ;; Read the file and remove any trailing white spaces + Local $aFile = FileRead($hFile, FileGetSize($sFilePath)) +;~ $aFile = StringStripWS($aFile, 2) + ; remove last line separator if any at the end of the file + If StringRight($aFile, 1) = @LF Then $aFile = StringTrimRight($aFile, 1) + If StringRight($aFile, 1) = @CR Then $aFile = StringTrimRight($aFile, 1) + FileClose($hFile) + If StringInStr($aFile, @LF) Then + $aArray = StringSplit(StringStripCR($aFile), @LF) + ElseIf StringInStr($aFile, @CR) Then ;; @LF does not exist so split on the @CR + $aArray = StringSplit($aFile, @CR) + Else ;; unable to split the file + If StringLen($aFile) Then + Dim $aArray[2] = [1, $aFile] + Else + Return SetError(2, 0, 0) + EndIf + EndIf + Return 1 +EndFunc ;==>_FileReadToArray + + + +#Region ### START Koda GUI section ### Form=C:\_AutoIt\tail\znilTAIL.kxf +$Form_znilTail = GUICreate("znilTail: zabbix_agentd.log", 989, 483, 488, 278, BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_TABSTOP)) +GUISetBkColor(0x000000) +$EditTailText = GUICtrlCreateEdit("", 0, 38, 983, 377, BitOR($GUI_SS_DEFAULT_EDIT,$WS_CLIPSIBLINGS)) +GUICtrlSetData(-1, "Edit1") +GUICtrlSetFont(-1, 10, 400, 0, "Courier New") +GUICtrlSetResizing(-1, $GUI_DOCKLEFT+$GUI_DOCKRIGHT+$GUI_DOCKTOP+$GUI_DOCKBOTTOM) +$ButtonOpen = GUICtrlCreateButton("Open File", 900, 4, 81, 30) +GUICtrlSetFont(-1, 8, 400, 0, "Courier New") +GUICtrlSetResizing(-1, $GUI_DOCKTOP+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT) +GUICtrlSetTip(-1, "Open another Textfile for tailing") +$ButtonStart = GUICtrlCreateButton("START", 2, 4, 81, 30) +GUICtrlSetFont(-1, 12, 800, 0, "Courier New") +GUICtrlSetColor(-1, 0x008000) +GUICtrlSetResizing(-1, $GUI_DOCKLEFT+$GUI_DOCKTOP+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT) +GUICtrlSetTip(-1, "START tailing the file.") +$ButtonStop = GUICtrlCreateButton("STOP", 88, 4, 81, 30) +GUICtrlSetFont(-1, 12, 800, 0, "Courier New") +GUICtrlSetColor(-1, 0xFF0000) +GUICtrlSetResizing(-1, $GUI_DOCKLEFT+$GUI_DOCKTOP+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT) +GUICtrlSetState(-1, $GUI_DISABLE) +GUICtrlSetTip(-1, "STOP tailing!") +$CheckboxHighlight = GUICtrlCreateCheckbox("", 5, 418, 17, 25) +GUICtrlSetResizing(-1, $GUI_DOCKAUTO+$GUI_DOCKLEFT+$GUI_DOCKBOTTOM+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT) +$InputHighlightText = GUICtrlCreateInput("Highlight Lines with this Text", 24, 420, 958, 24) +GUICtrlSetFont(-1, 9, 800, 0, "Courier New") +GUICtrlSetBkColor(-1, 0xC0DCC0) +GUICtrlSetResizing(-1, $GUI_DOCKLEFT+$GUI_DOCKBOTTOM+$GUI_DOCKHEIGHT) +$ButtonFontPlus = GUICtrlCreateButton("+", 192, 4, 33, 30) +GUICtrlSetFont(-1, 20, 800, 0, "Courier New") +GUICtrlSetResizing(-1, $GUI_DOCKLEFT+$GUI_DOCKTOP+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT) +GUICtrlSetTip(-1, "make Font bigger") +$ButtonFontMinus = GUICtrlCreateButton("-", 232, 4, 33, 30) +GUICtrlSetFont(-1, 20, 800, 0, "Courier New") +GUICtrlSetResizing(-1, $GUI_DOCKLEFT+$GUI_DOCKTOP+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT) +GUICtrlSetTip(-1, "make Font smaler") +$CheckboxHideText = GUICtrlCreateCheckbox("", 5, 447, 17, 25) +GUICtrlSetResizing(-1, $GUI_DOCKAUTO+$GUI_DOCKLEFT+$GUI_DOCKBOTTOM+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT) +$InputHidetext = GUICtrlCreateInput("Hide Lines with this Text", 24, 449, 958, 24) +GUICtrlSetFont(-1, 9, 800, 0, "Courier New") +GUICtrlSetColor(-1, 0xFFFF00) +GUICtrlSetBkColor(-1, 0xFF0000) +GUICtrlSetResizing(-1, $GUI_DOCKLEFT+$GUI_DOCKBOTTOM+$GUI_DOCKHEIGHT) +$LabelCounter = GUICtrlCreateLabel("LabelCounter", 768, 4, 123, 30, BitOR($SS_CENTER,$SS_CENTERIMAGE,$SS_SUNKEN)) +GUICtrlSetFont(-1, 10, 800, 0, "Courier New") +GUICtrlSetColor(-1, 0xFFFFFF) +GUICtrlSetBkColor(-1, 0x000080) +GUICtrlSetResizing(-1, $GUI_DOCKRIGHT+$GUI_DOCKTOP) +GUICtrlSetTip(-1, "Number of Bytes that have been read since start.") +$ButtonHelp = GUICtrlCreateButton("?", 728, 4, 33, 30) +GUICtrlSetFont(-1, 20, 800, 0, "Courier New") +GUICtrlSetResizing(-1, $GUI_DOCKLEFT+$GUI_DOCKTOP+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT) +GUICtrlSetTip(-1, "About Box with link to Homepage") +$ButtonDebugLevel3 = GUICtrlCreateButton("Restart Zabbix Agent with DebugLevel=3", 292, 4, 153, 30, $BS_MULTILINE) +GUICtrlSetFont(-1, 8, 400, 0, "Courier New") +GUICtrlSetResizing(-1, $GUI_DOCKLEFT+$GUI_DOCKTOP+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT) +GUICtrlSetTip(-1, "Change the DebugLevel of Zabbix Agent to 3 (Warnings) and restart the Agent. If this Button ist greyed Out you need to start znilTail.exe with Adminisrator-Rights. If no Zabbix Agent was found this Button will not shown.") +$ButtonDebugLevel4 = GUICtrlCreateButton("Restart Zabbix Agent with DebugLevel=4", 452, 4, 153, 30, $BS_MULTILINE) +GUICtrlSetFont(-1, 8, 400, 0, "Courier New") +GUICtrlSetResizing(-1, $GUI_DOCKLEFT+$GUI_DOCKTOP+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT) +GUICtrlSetTip(-1, "Change the DebugLevel of Zabbix Agent to 3 (Debugging) and restart the Agent. If this Button ist greyed Out you need to start znilTail.exe with Adminisrator-Rights. If no Zabbix Agent was found this Button will not shown.") +$ButtonRestartAgent = GUICtrlCreateButton("Restart Zabbix Agent", 610, 4, 113, 30, $BS_MULTILINE) +GUICtrlSetFont(-1, 8, 400, 0, "Courier New") +GUICtrlSetResizing(-1, $GUI_DOCKLEFT+$GUI_DOCKTOP+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT) +GUICtrlSetTip(-1, "Just Restart the Zabbix Agent (without changing DebugLevel)") +GUISetState(@SW_SHOW) +#EndRegion ### END Koda GUI section ### + + +#Region ------ StartUp ------------------------------ +GUIRegisterMsg($WM_SIZE, "WM_SIZE") +GUICtrlDelete($EditTailText) +$EditTailText = _TailBoxCreate($Form_znilTail,"",0, 38, 983, 377,"0xFFFFFF", True, False, BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL, $WS_CLIPSIBLINGS)) +_GUICtrlRichEdit_SetFont($EditTailText, $iFontsize, "Courier New") +_GUICtrlRichEdit_SetLimitOnText($EditTailText, $iRichEditTextLimit) +_WinAPI_SetWindowText($Form_znilTail, $sFormTitle) +GUICtrlSetData($LabelCounter, 0) +GUICtrlSetTip($ButtonDebugLevel3, "Change the DebugLevel of Zabbix Agent to 3 (Warnings) and restart the Agent." & @CRLF & _ + "If this Button ist greyed out you need to start znilTail.exe with Adminisrator-Rights.") +GUICtrlSetTip($ButtonDebugLevel4, "Change the DebugLevel of Zabbix Agent to 3 (Debugging) and restart the Agent." & @CRLF & _ + "If this Button ist greyed Out you need to start znilTail.exe with Adminisrator-Rights.") +;~ $data="[s]Hallo,[/s] [b][i]wie[/i] [u]gehts[/u]?[/b]"&@CRLF& _ +;~ "[c=#00FF00]Grün"&@CRLF&"![/c]"&@CRLF& _ +;~ "[c=#00FF00]Moinsen,[/c] schwarz"&@CRLF& _ +;~ "[c=#FF0000]Moinsen,[/c] schwarz"&@CRLF +;~ _ChatBoxAdd($EditTailText,$data) + +$aWndPos = WinGetPos($Form_znilTail) +WinMove($Form_znilTail, $sFormTitle, (@DesktopWidth - $aWndPos[2]) / 2, (@DesktopHeight - $aWndPos[3]) / 2, $aWndPos[2], $aWndPos[3]) + +; Were we startet with Commandline Parameter? ######################################################################### +If $CmdLine[0] > 0 Then + $TailFile = $CmdLine[1] + If FileExists($TailFile) = 0 Then + MsgBox(262144,"znilTail: File not found!","znilTail.exe was startet with a File as Commandline Parameter:" & @CRLF & _ + @CRLF & $TailFile & @CRLF & @CRLF & "but the File did not exist!",10) + Else + AdlibRegister("_TailFile", 1200) + GUICtrlSetState($ButtonStart, $GUI_DISABLE) + GUICtrlSetState($ButtonStop, $GUI_ENABLE) + GUICtrlSetState($ButtonOpen, $GUI_DISABLE) + $sFormTitle = "znilTail: " & $TailFile + _WinAPI_SetWindowText($Form_znilTail, $sFormTitle) + EndIf +EndIf + +; Is Zabbix the Zabbix Agent installed on this Computer? If yes: Name of Service and Path+Filename of his Config-File? +$sRegSubKey = RegRead($aRegistryBaseServicePaths[0] & "Control", "CurrentUser") +If $sRegSubKey = "" Then + $sRegSubKey = RegRead($aRegistryBaseServicePaths[1] & "Control", "CurrentUser") + If $sRegSubKey = "" Then + $sRegSubKey = RegRead($aRegistryBaseServicePaths[2] & "Control", "CurrentUser") + If $sRegSubKey = "" Then + $iRightRegistryPath = 99 + Else + $iRightRegistryPath = 2 + EndIf + Else + $iRightRegistryPath = 1 + EndIf +Else + $iRightRegistryPath = 0 +EndIf +$i = 0 +$zabbixAgentName = "" +$zabbixAgentConfigFile = "" +While 1 + $i = $i + 1 + $sRegSubKey = RegEnumKey($aRegistryBaseServicePaths[$iRightRegistryPath] & "services", $i) + If @error <> 0 Then ExitLoop + If StringLeft($sRegSubKey,StringLen("Zabbix Agent")) = "Zabbix Agent" Then + $zabbixAgentName = RegRead($aRegistryBaseServicePaths[$iRightRegistryPath] & "services\" & $sRegSubKey, "DisplayName") + $zabbixAgentConfigFile = RegRead($aRegistryBaseServicePaths[$iRightRegistryPath] & "services\" & $sRegSubKey, "ImagePath") + ;"C:\Program Files\Zabbix\zabbix_agentd.exe" --config "c:\Program Files\Zabbix\zabbix_agentd.win.conf" -m + $zabbixAgentConfigFile = StringRegExpReplace($zabbixAgentConfigFile, '.*(?i)--config "', "") + $zabbixAgentConfigFile = StringRegExpReplace($zabbixAgentConfigFile, '".*', "") + ExitLoop + EndIf +WEnd + +If $zabbixAgentConfigFile <> "" And FileExists($zabbixAgentConfigFile) = 1 Then + $bShowZabbixAgentButtons = True +Else + $bShowZabbixAgentButtons = False +EndIf + +If IsAdmin() = 1 Then + $bAdminrights = True + ;MsgBox(0,"","Admin Rechte!") +Else + $bAdminrights = False + ;MsgBox(0,"","Du darfst nichts") +EndIf + +;MsgBox(0,"$zabbixAgentConfigFile",$zabbixAgentConfigFile) + +If StringLen($zabbixAgentConfigFile) > 0 And $bAdminrights = False Then + GUICtrlSetState($ButtonDebugLevel3, $GUI_DISABLE) + GUICtrlSetState($ButtonDebugLevel4, $GUI_DISABLE) +EndIf + +;~ If $bAdminrights = True Then +;~ MsgBox(0,"","Adminrechte!") +;~ Else +;~ MsgBox(0,"","Keine Rechte") +;~ EndIf + + +If StringLen($zabbixAgentConfigFile) > 0 Then + If IsAdmin() = 1 Then + $hzabbixAgentConfigFile = FileOpen($zabbixAgentConfigFile, 0) + While 1 + $stemp = FileReadLine($hzabbixAgentConfigFile) + If @error = -1 Then ExitLoop + If StringInStr($stemp,"DebugLevel") > 0 And StringInStr($stemp,"#") = 0 Then + $iCurrentDebugLevel = Int(StringRegExpReplace($stemp,"[.\s]*[^0-9]", "")) + ;MsgBox(0,"DebugLevel",$iCurrentDebugLevel) + ExitLoop + EndIf + WEnd + FileClose($hzabbixAgentConfigFile) + EndIf +EndIf + +;MsgBox(0,"$iCurrentDebugLevel",$iCurrentDebugLevel) + + +If $iCurrentDebugLevel = 3 Then + GUICtrlSetState($ButtonDebugLevel3, $GUI_DISABLE) + GUICtrlSetData($ButtonDebugLevel3, "Debug Level 3 is active") + GUICtrlSetState($ButtonDebugLevel4, $GUI_ENABLE) + GUICtrlSetData($ButtonDebugLevel4, "Restart Zabbix Agent with DebugLevel 4") +ElseIf $iCurrentDebugLevel = 4 Then + GUICtrlSetState($ButtonDebugLevel4, $GUI_DISABLE) + GUICtrlSetData($ButtonDebugLevel4, "Debug Level 4 is active") + GUICtrlSetState($ButtonDebugLevel3, $GUI_ENABLE) + GUICtrlSetData($ButtonDebugLevel3, "Restart Zabbix Agent with DebugLevel 3") +ElseIf $iCurrentDebugLevel >= 0 And $iCurrentDebugLevel < 3 Then + GUICtrlSetState($ButtonDebugLevel3, $GUI_ENABLE) + GUICtrlSetData($ButtonDebugLevel3, "Restart Zabbix Agent with DebugLevel 3") + GUICtrlSetState($ButtonDebugLevel4, $GUI_ENABLE) + GUICtrlSetData($ButtonDebugLevel4, "Restart Zabbix Agent with DebugLevel 4") +EndIf + + +If $zabbixAgentConfigFile = "" Then + GUICtrlSetTip($ButtonDebugLevel3, "Unavailable - no Zabbix Agent Service found on this Computer." & @CRLF & _ + "znilTail.exe has looked for Agent in the Registry but found nothing.") + GUICtrlSetData($ButtonDebugLevel3, "No installed Zabbix Agent found!") + GUICtrlSetTip($ButtonDebugLevel4, "Unavailable - no Zabbix Agent Service found on this Computer." & @CRLF & _ + "znilTail.exe has looked for Agent in the Registry but found nothing.") + GUICtrlSetData($ButtonDebugLevel4, "No installed Zabbix Agent found!") + GUICtrlSetTip($ButtonRestartAgent, "Unavailable - no Zabbix Agent Service found on this Computer." & @CRLF & _ + "znilTail.exe has looked for Agent in the Registry but found nothing.") + GUICtrlSetData($ButtonRestartAgent, "No Zabbix Agent found!") + GUICtrlSetState($ButtonDebugLevel3, $GUI_DISABLE) + GUICtrlSetState($ButtonDebugLevel4, $GUI_DISABLE) + GUICtrlSetState($ButtonRestartAgent, $GUI_DISABLE) +Else + $iCurrentDebugLevel = _GetDebugLevel() + If $iCurrentDebugLevel = 4 Then + GUICtrlSetState($ButtonDebugLevel4, $GUI_DISABLE) + GUICtrlSetData($ButtonDebugLevel4, "Debug Level 4 is active") + GUICtrlSetState($ButtonDebugLevel3, $GUI_ENABLE) + GUICtrlSetData($ButtonDebugLevel3, "Restart Zabbix Agent with DebugLevel 3") + EndIf +EndIf + +$hControl = ControlGetHandle($Form_znilTail, '', ControlGetFocus($Form_znilTail)) + + +#EndRegion --- StartUp ------------------------------ + + + +While 1 + $nMsg = GUIGetMsg() + Switch $nMsg + Case $GUI_EVENT_CLOSE + _WinAPI_SetFocus($hControl) + _ChatBoxDestroy($EditTailText) + AdlibUnRegister("_TailFile") + GUIDelete($Form_znilTail) + Sleep(250) + Exit 0 + Case $ButtonOpen + $TailFile = FileOpenDialog("Open File for Tail", @ScriptDir, "Textfiles (*.*)", 3, "", $Form_znilTail) + If $TailFile = "" Or @error = 1 Then + $TailFile = "" + $sFormTitle = "znilTail: No File selected" + Else + $sFormTitle = "znilTail: " & $TailFile + EndIf + _WinAPI_SetWindowText($Form_znilTail, $sFormTitle) + _WinAPI_SetFocus($hControl) + + Case $ButtonStart + If $TailFile <> "" Then + AdlibRegister("_TailFile", 1200) + GUICtrlSetState($ButtonStart, $GUI_DISABLE) + GUICtrlSetState($ButtonStop, $GUI_ENABLE) + GUICtrlSetState($ButtonOpen, $GUI_DISABLE) + Else + MsgBox(262192,"znilTail: No file selected","You need to open a File first!",5) + EndIf + _WinAPI_SetFocus($hControl) + Case $ButtonStop + AdlibUnRegister("_TailFile") + GUICtrlSetState($ButtonStart, $GUI_ENABLE) + GUICtrlSetState($ButtonOpen, $GUI_ENABLE) + GUICtrlSetState($ButtonStop, $GUI_DISABLE) + _WinAPI_SetFocus($hControl) + Case $ButtonFontMinus + ;_GUICtrlRichEdit_ChangeFontSize($EditTailText, -1) + If $iFontsize > 6 Then + $iFontsize = $iFontsize - 1 + _GUICtrlRichEdit_SetFont($EditTailText, $iFontsize, "Courier New") + EndIf + _WinAPI_SetFocus($hControl) + + Case $ButtonFontPlus + ;_GUICtrlRichEdit_ChangeFontSize($EditTailText, 1) + $iFontsize = $iFontsize + 1 + _GUICtrlRichEdit_SetFont($EditTailText, $iFontsize, "Courier New") + _WinAPI_SetFocus($hControl) + + Case $ButtonHelp + _znilTailAboutBox() + _WinAPI_SetFocus($hControl) + + Case $ButtonDebugLevel3 + $iCurrentDebugLevel = 3 + _WinAPI_SetFocus($hControl) + GUICtrlSetState($ButtonDebugLevel3, $GUI_DISABLE) + GUICtrlSetData($ButtonDebugLevel3, "Debug Level 3 is active") + GUICtrlSetState($ButtonDebugLevel4, $GUI_ENABLE) + GUICtrlSetData($ButtonDebugLevel4, "Restart Zabbix Agent with DebugLevel 4") + _SetDebugLevelandRestartAgent($iCurrentDebugLevel) + + Case $ButtonDebugLevel4 + $iCurrentDebugLevel = 4 + _WinAPI_SetFocus($hControl) + GUICtrlSetState($ButtonDebugLevel4, $GUI_DISABLE) + GUICtrlSetData($ButtonDebugLevel4, "Debug Level 4 is active") + GUICtrlSetState($ButtonDebugLevel3, $GUI_ENABLE) + GUICtrlSetData($ButtonDebugLevel3, "Restart Zabbix Agent with DebugLevel 3") + _SetDebugLevelandRestartAgent($iCurrentDebugLevel) + + Case $ButtonRestartAgent + _WinAPI_SetFocus($hControl) + $i = Run(@ComSpec & ' /c net stop "' & $zabbixAgentName & '"', "", @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD + $STDERR_CHILD) + $iTimer = TimerInit() + While ProcessExists("zabbix_agentd.exe") > 0 + Sleep(100) + If TimerDiff($iTimer) > 10000 Then + ExitLoop + EndIf + WEnd + ;Sleep(2000) + $i = Run(@ComSpec & ' /c net start "' & $zabbixAgentName & '"', "", @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD + $STDERR_CHILD) + + Case $GUI_EVENT_RESIZED + _WinAPI_SetFocus($hControl) + GUISetState(@SW_HIDE,$Form_znilTail) ;Hide GUI + GUISetState(@SW_SHOW,$Form_znilTail) ;Show GUI + Case $GUI_EVENT_MAXIMIZE + _WinAPI_SetFocus($hControl) + GUISetState(@SW_HIDE,$Form_znilTail) ;Hide GUI + GUISetState(@SW_SHOW,$Form_znilTail) ;Show GUI + Case $GUI_EVENT_RESTORE + _WinAPI_SetFocus($hControl) + GUISetState(@SW_HIDE,$Form_znilTail) ;Hide GUI + GUISetState(@SW_SHOW,$Form_znilTail) ;Show GUI +;~ Case -7 +;~ GUISetState(@SW_HIDE,$Form_znilTail) ;Hide GUI +;~ GUISetState(@SW_SHOW,$Form_znilTail) ;Show GUI + + +;~ Case $InputHighlightText +;~ If GUICtrlRead($InputHighlightText) = "Highlight Lines with this Text" Then +;~ GUICtrlSetData($InputHighlightText, "") +;~ GUICtrlSetData($CheckboxHighlight, $GUI_CHECKED) +;~ EndIf + + EndSwitch + If ControlGetHandle($Form_znilTail, '', $InputHighlightText) = ControlGetHandle($Form_znilTail, '', ControlGetFocus($Form_znilTail)) Then + If GUICtrlRead($InputHighlightText) = "Highlight Lines with this Text" Then + GUICtrlSetData($InputHighlightText, "") + GUICtrlSetState($CheckboxHighlight, $GUI_CHECKED) + EndIf + EndIf + If ControlGetHandle($Form_znilTail, '', $InputHidetext) = ControlGetHandle($Form_znilTail, '', ControlGetFocus($Form_znilTail)) Then + If GUICtrlRead($InputHidetext) = "Hide Lines with this Text" Then + GUICtrlSetData($InputHidetext, "") + GUICtrlSetState($CheckboxHideText, $GUI_CHECKED) + EndIf + EndIf + If GUICtrlRead($CheckboxHighlight) = $GUI_CHECKED Then + $bUseColorize = True + Else + $bUseColorize = False + EndIf + If GUICtrlRead($CheckboxHideText) = $GUI_CHECKED Then + $bHideText = True + Else + $bHideText = False + EndIf + + +WEnd diff --git a/znilTail.exe b/znilTail.exe new file mode 100644 index 0000000..ac71fe9 Binary files /dev/null and b/znilTail.exe differ diff --git a/znilTail.zip b/znilTail.zip new file mode 100644 index 0000000..e8839c2 Binary files /dev/null and b/znilTail.zip differ