mmoalem

monitor the code executed

20 posts in this topic

Hi there - quite a beginner to codding so please bare with me...

i am writing an autoit code that will be running 24/7 executing various tasks every 10-20 minutes. it suppose to run on unattended server but i would like to occasionally remote log in and do stuff on the server without disturbing the autoit script (while the autoit script is in Sleep count). to achieve this I will need to know at what point in the commands run it is  and how long roughly until the next command (I use Sleep in between commands)...

 so, is there a way to create a monitor that shows me the last command executed and how long of the Sleep is left (like in a small window or in the windows task bar)?

failing that any idea how can I utilize the FileWriteLog function to keep updating an always open text file ?

 

thanks in advance

michel

Share this post


Link to post
Share on other sites



You can implement _FileWriteLog into your script.  So you can reading/analysing the log and saw what script done.

Share this post


Link to post
Share on other sites

hi and thanks for the answer... what I really would have liked is a countdown clock of a kind that will tell me how long I have before the next command/end of Sleep... but maybe its not possible within autoit...:(

so if I understand correctly I can use   _FileWriteLog  to write to an open text file (opened in notepad for example so I can read it whenever I log in)... any idea how i get it to write to the file log.txt the command about to be executed - lets says Sleep (5000) followed by the time? and than I guess I will need to save the txt file...

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

You can use AdlibRegister to execut a func while maom script is sleeping or doing something else.

Edited by AutoBert

Share this post


Link to post
Share on other sites

Could create a small GUI with some debug info on there. I find consoles are always useful. There's also a debugging option in the AutoItSetOption parameters.

; -- Created with ISN Form Studio 2 for ISN AutoIt Studio -- ;
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiButton.au3>
#include <EditConstants.au3>
#include <Date.au3>

AutoItSetOption("TrayMenuMode", 3)
AutoItSetOption("TrayIconDebug", 3)

Global $hMain = GUICreate("Example", 400, 300, -1, -1, BitOR($WS_SIZEBOX, $WS_MAXIMIZEBOX, $WS_MINIMIZEBOX))
Global $edtDebug = GUICtrlCreateEdit("Initiated @ " & _NowDate() & " : " & _NowTime(5) & @CRLF, 10, 10, 380, 225, BitOR($ES_WANTRETURN, $WS_VSCROLL, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL), -1)
Global $lblCurrentTimer = GUICtrlCreateLabel("Current Timer", 14, 250, 100, 20, -1, -1)
Global $lblTimer = GUICtrlCreateLabel(0, 114, 250, 100, 20, -1, -1)
Global $tidShowHide = TrayCreateItem("Show Debugger")
Global $tidExit = TrayCreateItem("Exit")

Global $iTimer = TimerInit()

GUICtrlSetFont($edtDebug, 10, 400, 0, "Consolas")
GUICtrlSetColor($edtDebug, "0xE1E1E1")
GUICtrlSetBkColor($edtDebug, "0x1E1E1E")
GUICtrlSetResizing($edtDebug, 102)
GUICtrlSetFont($lblCurrentTimer, 10, 400, 0, "Segoe UI")
GUICtrlSetBkColor($lblCurrentTimer, "-2")
GUICtrlSetResizing($lblCurrentTimer, 66)
GUICtrlSetFont($lblTimer, 10, 400, 0, "Segoe UI")
GUICtrlSetBkColor($lblTimer, "-2")
GUICtrlSetResizing($lblTimer, 66)

While (True)
    Switch (TrayGetMsg())
        Case $tidShowHide
            If (TrayItemGetText($tidShowHide) = "Show Debugger") Then
                Debug("Showing debugger" & @CRLF)
                GUISetState(@SW_SHOW, $hMain)
                TrayItemSetText($tidShowHide, "Hide Debugger")
            Else
                Debug("Hiding debugger" & @CRLF)
                GUISetState(@SW_HIDE, $hMain)
                TrayItemSetText($tidShowHide, "Show Debugger")
            EndIf
        Case $tidExit
            GUIDelete($hMain)
            Exit 0
    EndSwitch
    Switch (GUIGetMsg())
        Case $GUI_EVENT_CLOSE
            GUIDelete($hMain)
            Exit 0
        Case Else
            GUICtrlSetData($lblTimer, Round(TimerDiff($iTimer) / 1000, 2))
            If (TimerDiff($iTimer) > 30000) Then
                Debug("Timer reached max timeout, resetting" & @CRLF)
                $iTimer = TimerInit()
            EndIf
    EndSwitch
WEnd

Func Debug($sMsg)
    $sMsg = "[" & _NowDate() & "] [" & _NowTime(5) & "] " & $sMsg
    GUICtrlSetData($edtDebug, GUICtrlRead($edtDebug) & $sMsg)
EndFunc   ;==>Debug

Func FileWriteToLog(Const $sMsg)
    Local $hLogFile = FileOpen(@ScriptDir & "\My log file.log")
    If ($hLogFile) Then
        FileWrite($hLogFile, $sMsg)
        Return FileClose($hLogFile)
    EndIf
EndFunc   ;==>FileWriteToLog

 

Share this post


Link to post
Share on other sites
2 hours ago, mmoalem said:

hi and thanks for the answer... what I really would have liked is a countdown clock of a kind that will tell me how long I have before the next command/end of Sleep... but maybe its not possible within autoit...:(

so if I understand correctly I can use   _FileWriteLog  to write to an open text file (opened in notepad for example so I can read it whenever I log in)... any idea how i get it to write to the file log.txt the command about to be executed - lets says Sleep (5000) followed by the time? and than I guess I will need to save the txt file...

Anything is possible with autoit.  Just depends on how much time and determination you have. 

Share this post


Link to post
Share on other sites

#8 ·  Posted (edited)

Unfortunately not everything is possible. Native classes and multithreading :( lol

Also, change

GUICtrlSetData($lblTimer, Round(TimerDiff($iTimer) / 1000, 2))

To

GUICtrlSetData($lblTimer, 30 - Round(TimerDiff($iTimer) / 1000, 2))

And there's your countdown timer.

Edited by InunoTaishou

Share this post


Link to post
Share on other sites

Hi @mmoalem
Is also helpful for you that you know that there is different ways to make this script run on background and you still can interact with the System without interrupting the script even if the script is doing his task.

For example if your entire script use @SW_HIDE flag on anything the script execute or run and also only use ControlSend or ControlClick then you should not be worry to connect to the remote system running the script even if the script is doing his tasks.

Kind Regards
Alien.

Share this post


Link to post
Share on other sites

... If you just need to monitor the sleep() countdown between tasks, then  you could use this _VisualSleep() function instead of the normal Sleep()

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

_VisualSleep(90000) ; wait one minute and a half

Func _VisualSleep($iDelay, $bAllowEscape = False)
    Local $hMonitor = GUICreate("Sleeping", 200, 30, -1, -1, -1, BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST))
    Local $idProgressbar = GUICtrlCreateProgress(0, 0, 200, 30)
    GUISetState(@SW_SHOW)
    Local $iTimeElapsed, $iTimeLeft, $iPercentage, $iRefreshTime, $sHHMMSS
    Local $iTimer = TimerInit()
    Do
        Switch GUIGetMsg() ; this also save from cpu overload
            Case $GUI_EVENT_CLOSE
                If $bAllowEscape Then ; if True, reset of counter is allowed
                    ExitLoop
                EndIf
        EndSwitch
        $iTimeElapsed = TimerDiff($iTimer)
        If $iRefreshTime - $iTimeElapsed < 0 Then ; limits refresh rate to 1 second
            $iRefreshTime = $iTimeElapsed + 1000
            $iTimeLeft = ($iDelay - $iTimeElapsed) / 1000 ; in seconds
            $iPercentage = Int(100 / $iDelay * $iTimeElapsed)
            GUICtrlSetData($idProgressbar, 100 - $iPercentage) ; progressbar go backwards
            $sHHMMSS = StringFormat("%02d:%02d:%02d", Floor($iTimeLeft / 3600), Mod(Floor($iTimeLeft / 60), 60), Mod($iTimeLeft, 60))
            WinSetTitle($hMonitor, "", $sHHMMSS) ; show countdown on window title
        EndIf
    Until $iTimeElapsed >= $iDelay
    GUIDelete($hMonitor)
EndFunc   ;==>_VisualSleep

p.s. also, have a look to the ProgressOn() and related functions


small minds discuss people average minds discuss events great minds discuss ideas.... and use AutoIt....

Share this post


Link to post
Share on other sites

Or something much simpler...

Func _Sleep($MS)
    $Timer = TimerInit()
    While 1
        $Diff = TimerDiff($Timer)
        If $Diff >= $MS Then
            ToolTip("")
            Return
        EndIf
        ToolTip(Int(($MS - $Diff) / 1000)) ; put this somewhere static
        Sleep(1000)
    WEnd
EndFunc

 


AutoIt Absolute Beginners    Require a serial    Pause Script    Video Tutorials by Morthawt   ipify 

Monkey's are, like, natures humans.

Share this post


Link to post
Share on other sites

WOW! woke up this morning to this huge list of suggestions! thank U all...

have to admit - most of these looks way to complicated in my early stage of learnng this languege but will spend some time studying them and see if i can make one of the work for me...

Thank U once more for all the help

Share this post


Link to post
Share on other sites

another suggestion is simply have a separate exe that is the timer to handle the multi-task. I would suggest a system tray icon that changed color depending on the amount of time left. Go from green to yellow to red and have it so you can do a mouse over to check the time. 

Share this post


Link to post
Share on other sites

OK so managed to both understand and implement what seemed to me the simplest solution from JohnOne

15 hours ago, JohnOne said:

Or something much simpler...

Func _Sleep($MS)
    $Timer = TimerInit()
    While 1
        $Diff = TimerDiff($Timer)
        If $Diff >= $MS Then
            ToolTip("")
            Return
        EndIf
        ToolTip(Int(($MS - $Diff) / 1000)) ; put this somewhere static
        Sleep(1000)
    WEnd
EndFunc

 

Now might be a simple question but can I display the time in hours:minutes:seconds? at the moment it seems to show countdown in seconds only...

 

Share this post


Link to post
Share on other sites

thanks JohnOne, very kind of you to help so much...

I will look at adopting your solution from the other thread but if I may, i have another problem to solve... I would like to log every command after it is executed... I have thousand lines of code so impractical to write a FileWriteLog command after each line... is there a way to use a function at the head of the script to achieve this?

I need this because In case windows crash I need to know at what point the script been interrupted...

Share this post


Link to post
Share on other sites

thanks again - I knew about it but couldn't find the option in Tools until I realised now that there is a compact version and an extended version of Scite...

anyway - it does exactly what I need except for the output need to be to a file rather than console as if the server crashed I would lose the console records (I think???)...

 

also, I'm not clear how ConsoleWrite works once compiled and run independently from Scite

Share this post


Link to post
Share on other sites

#19 ·  Posted (edited)

this would be a simple way to log stuff happening

 

;somthing happened
_LogEvent("something happened")

func _LogEvent($event)
$file=fileopen("log.txt",1)
if $file=-1 then
msgbox("","","file failed to open")
endif

filewriteline($file,_Now() & $event)
fileclose($file)
endfunc

untested

Edited by markyrocks

Share this post


Link to post
Share on other sites
1 hour ago, mmoalem said:

thanks again - I knew about it but couldn't find the option in Tools until I realised now that there is a compact version and an extended version of Scite...

anyway - it does exactly what I need except for the output need to be to a file rather than console as if the server crashed I would lose the console records (I think???)...

 

also, I'm not clear how ConsoleWrite works once compiled and run independently from Scite

Well you user a Regex or a stringreplace on your script to Change ConsoleWrite( to _YourFunction(


AutoIt Absolute Beginners    Require a serial    Pause Script    Video Tutorials by Morthawt   ipify 

Monkey's are, like, natures humans.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now

  • Similar Content

    • Vivaed
      By Vivaed
      I have another AutoIT script making a Log file 

      Sample of Log file:
      2016/08/22 12:44:18 > Process: [RUNNING] [ACTIVE] 2016/08/22 12:48:35 > Process: [WAS NOT RUNNING] 2016/08/22 13:40:00 > Process: [FAILED] 2016/08/22 14:01:10 > Process: [WAS NOT RUNNING] I am looping through the Log file for  the word "FAILED"
      I then want to get all lines that have "FAILED" and get their TIME
       
      My Current code to get this far:
      If FileExists($fileLog) Then $contents = FileRead($fileLog) If @error Then MsgBox(0, 'File Error', $fileLog & ' could not be read.') Else For $i = 1 To _FileCountLines($fileLog) $result = StringInStr($contents,$search) If $result >= 1 Then $filteredLine = FileReadLine($fileLog,$i) If StringInStr($filteredLine,$search) Then ConsoleWrite($filteredLine & @CRLF) ; this gets me the results I want sans the time parse EndIf Else ConsoleWrite( $search & " not found!" & @CRLF) EndIf Next EndIf EndIf For this part:
      If StringInStr($filteredLine,$search) Then ConsoleWrite($filteredLine & @CRLF) ; this gets me the results I want sans the time parse EndIf OUTPUT: 2016/08/22 13:40:00 > Process: [FAILED] I dont understand how I read the time in that output?
       
      I have tried _DateTimeFormat - Dont think this applies 
      Tried _DateDiff - I dont have a the date yet so this doesnt work
       
      Would love if someone could tell me if I am thinking is the wrong direction and possibly lead me down the correct path to light side of the force  

       
    • stoyan
      By stoyan
      Multi-monitor aware window centring function. Can handle various work area setups as outlined below:

      Those are the variants I've tested.
      #include <Math.au3> #include <WinAPI.au3> #include <WinAPIConstants.au3> #include <WinAPIGdi.au3> #include <WinAPISys.au3> #include <WindowsConstants.au3> Func activeWindowCenter() Const $window = WinGetHandle('[ACTIVE]') Const $monitorInfo = _WinAPI_GetMonitorInfo(_WinAPI_MonitorFromWindow($window)) Const $area[] = [DllStructGetData($monitorInfo[1], 1), DllStructGetData($monitorInfo[1], 3), DllStructGetData($monitorInfo[1], 2), DllStructGetData($monitorInfo[1], 4)] Const $size = WinGetPos($window) If @error Then Return EndIf If BitAND(_WinAPI_GetWindowLong($window, $GWL_STYLE), $WS_MAXIMIZE) Then Return EndIf Const $areaWidth = _Max($area[0], $area[1]) - _Min($area[0], $area[1]) Const $windowOffsetX = ($areaWidth - $size[2]) / 2 Const $x = _Min($area[0], $area[1]) + $windowOffsetX Const $areaHeight = _Max($area[2], $area[3]) - _Min($area[2], $area[3]) Const $windowOffsetY = ($areaHeight - $size[3]) / 2 Const $y = _Min($area[2], $area[3]) + $windowOffsetY WinMove($window, '', $x, $y, $size[2], $size[3], 2) EndFunc Here's simple usage:
      ; include the definition HotKeySet('#o', 'activeWindowCenter') While 1 Sleep(1000) WEnd  
    • draien
      By draien
      Hi
      I was searching for a while now and didn't find anything regarding this:
      Is there a function that returns the "number" of the monitor where the mouse is currently on screen? The same number that appears when you open windows-resolution and click on "identify" (or something). I want to trigger an event when the number changes. I wrote something that recognizes leaving the main monitor. But I couldn't get any further than that (maybe with _WinAPI_EnumDisplayMonitors/Devices/Settings ?) and I wouldn't catch an event, if someone has 3 monitors (aligned 1--2--3 with 1 being main monitor) and changes from 2 to 3. 
      Here is my code:
      The GUI was just for testing. Maybe you can give me some hints :)?
       
    • Fade91
      By Fade91
      Hello, first time poster here
      I am working on a project that has to parse a log file in real time. The thing is I know it's hard for Autoit to attach itself to log files when they're already in use by other programs, at least in my experience.
      I was taking a look at this thread because the log file is quite large and I think Autoit might be a little slow on it's own.

      The thing is I don't know how to use this properly to extract all data out of a log file or is there a native way to do this using Autoit.
      Basically , I just need a log parser that is able to read from a log that is 'already opened' and 'being written to'
       
      Thanks!
    • rsmedude
      By rsmedude
      Hello everyone,
      I have been a member for a while but relatively new to posting to the message boards. I am also still relatively new to using AutoIt. I am working on a script that will help keep a program running on one of my file servers.
      Here is what I have accomplished so far looking at different threads on the site already.
      1. A check performed every 60 seconds to see if the application is running. (ultimately to be changed to something like once an hour)
      2. Write a log file that shows either the check was performed with no issue or the application had to be restarted.
      Both of those are working fine and I have to say that ever since I started using this script the program has not crashed!
      My next phase is to figure out how to make the script check and trim the log file. I am obviously not trying to make a log file that becomes bloated and chews up a large amount of hard drive space. The main purpose of the log file is so that I know if the application has been restarted. I am thinking have the script trim the file every 30 day maybe. Another words delete everything in the log file 30 days prior to the current day. So if someone can help me out here as I am not a scripting genius. Unfortunately I only know enough to be dangerous if you will.
      I also have another part of this script I want to write but first I want to get the log file working just the way I want. I am attaching a sample of what I have working so far.
      Thank you for any and all help folks.
      Respectfully,
      James
       
      #include <File.au3> While 1 ;Start Loop If ProcessExists("atcsmon.exe") Then ;~ Open the logfile in write mode. Local $hFile = FileOpen(@ScriptDir & "\ATCS_AutoIt.log", 1) _FileWriteLog($hFile, "ATCS check was completed and found running by the AutoIt3 Script") ; Write to the logfile passing the filehandle returned by FileOpen. FileClose($hFile) ; Close the filehandle to release the file. Else ;If Process does not exist Run("C:\atcs_monitor\atcsmon.exe", "", @SW_SHOWMINIMIZED) ;~ Open the logfile in write mode. Local $hFile = FileOpen(@ScriptDir & "\ATCS_AutoIt.log", 1) _FileWriteLog($hFile, "*ALERT* *ALERT* *ALERT* ATCS was restarted by the AutoIt3 Script") ; Write to the logfile passing the filehandle returned by FileOpen. FileClose($hFile) ; Close the filehandle to release the file. EndIf Sleep(60000) ;sleep 60 seconds WEnd ;Close Loop