ProcessExists

[Jake_s]

Hi All, 

 

I am a begginer in auto it. I am trying to build simple gui that will show me if for example notepad.exe process is currently running on the system. I have built something like this, but when I execute it shows me message boxes, but I want the results to show in gui. If you can help me start with this.

 

Thanks

 

#include <MsgBoxConstants.au3>
#include <GUIConstantsEx.au3>

ActiveProcess()

Func ActiveProcess()
GUICreate("Act")
         ProcessExists("wuauclt.exe")

       If ProcessExists("wuauclt.exe") Then
 MsgBox($MB_SYSTEMMODAL, "", "Windows Upates are running")
     Else
 MsgBox($MB_SYSTEMMODAL, "", "Windows Updates are not running")
 EndIf
   ;Notepad

         ProcessExists("notepad.exe")

         If ProcessExists("notepad.exe") Then
MsgBox($MB_SYSTEMMODAL, "", "Notepad is running")
        Else
MsgBox($MB_SYSTEMMODAL, "", "Notepad is not running")
EndIf

 

 

[Andreik]

Hello and welcome to the forum. Here is a simple example:

$hMain = GUICreate('Notepad process')
$Label = GUICtrlCreateLabel('',10,10,380,380,0x201) ; BitOR(SS_CENTERIMAGE, SS_CENTER)
GUISetState(@SW_SHOW, $hMain)

Do
    $PID = ProcessExists('notepad.exe')
    If $PID Then
        GUICtrlSetData($Label, 'Process notepad.exe exists. (PID: ' & $PID & ')')
    Else
        GUICtrlSetData($Label, 'Process notepad.exe doesn''t exists')
    EndIf
    Sleep(10)
Until GUIGetMsg() = -3 ; GUI_EVENT_CLOSE

 

[JLogan3o13]

It looks like your ultimate goal is windows updates, where you may want a start and stop message. Something like this perhaps:

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

Local $sText = ""
Local $hGUI = GuiCreate("Act", 300, 300)
Local $hEdit = GUICtrlCreateEdit("", 10, 10, 280, 280, $ES_READONLY)

GUISetState(@SW_SHOW)

    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop
            Case Else
                If ProcessExists("notepad.exe") Then
                    GUICtrlSetData($hEdit, "Notepad launched at " & _Now())
                        While ProcessExists("notepad.exe")
                            Sleep(100)
                        WEnd

                        If Not (ProcessExists("notepad.exe")) Then
                            $sText = GUICtrlRead($hEdit)
                            GUICtrlSetData($hEdit, $sText & @CRLF & "Notepad closed at " & _Now())
                        EndIf
                EndIf
        EndSwitch
    WEnd

As you can see, with AutoIt there are many ways to skin the proverbial cat

[Jake_s]

Thank you all! It helps a lot, but I have another question. How do I build an ini file which will save this output to a file?

[JLogan3o13]

Can you explain this more? Why do you want to save whether a process is running to an ini file? How about an example of what the ini file would look like?

[Jake_s]

Yes, so when I run the script, I want these processeses to save to a file to keep a record of them, so whether running or not I would like to log the processes to a file when running the script. I dont know if that makes sense.

[JohnOne]

Click the below

IniWrite()

 

[Earthshine]

I use log4a.au3 for all my logging needs

[Jake_s]

Can anybody give me some hints on how to start? I am stuck.

[Earthshine]

post your script for help with it. use the code tags <> to have the code formatted and displayed properly in threads. 

Edited April 16, 2018 by Earthshine

[Subz]

Basic script based off JLogan3o13 script:

expandcollapse popup

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

Global $sIniFile = @ScriptDir & "\IniFile.ini"

_ProcessStartEndTime("Notepad.exe")

;~ Read the IniFile
ShellExecute($sIniFile)

Func _ProcessStartEndTime($_sProcess)
    Local $sDateTime, $sText = ""
    Local $hGUI = GuiCreate("Act", 300, 300)
    Local $hEdit = GUICtrlCreateEdit("", 10, 10, 280, 280, $ES_READONLY)

    GUISetState(@SW_SHOW)

    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop
            Case Else
                If ProcessExists($_sProcess) Then
                    $sDateTime = _Now()
                    IniWrite($sIniFile, $_sProcess, $sDateTime, "Start Time")
                    GUICtrlSetData($hEdit, "Notepad launched at " & $sDateTime)
                        While ProcessExists($_sProcess)
                            Sleep(100)
                        WEnd

                        If Not (ProcessExists($_sProcess)) Then
                            $sDateTime = _Now()
                            IniWrite($sIniFile, $_sProcess, $sDateTime, "End Time")
                            $sText = GUICtrlRead($hEdit)
                            GUICtrlSetData($hEdit, $sText & @CRLF & "Notepad closed at " & $sDateTime)
                        EndIf
                EndIf
        EndSwitch
    WEnd
EndFunc

 

[Jake_s]

Cheers guys for helping me out. I have managed to do that, but have another problem. I am saving the output to .txt file and everytime I run the script it overwrites the file, but I want it to write it into the same file, but underneath the last output, so I can compare them.
 

Global $sFilePath = "" & $pcname & ".txt"

Updates()


Func Updates()

    IniWrite($sFilePath, "Date:",@ComputerName, _Now())
    IniWrite($sFilePath, "Update:",         $arr[1][0], $arr[1][1] )
    IniWrite($sFilePath, "xxx:",            $arr[2][0], $arr[2][1])
    IniWrite($sFilePath, "xxx:",            $arr[3][0], $arr[3][1])
    IniWrite($sFilePath, "xxx:",            $arr[4][0], $arr[4][1])
    IniWrite($sFilePath, "xxx:",            $arr[5][0], $arr[5][1])
    IniWrite($sFilePath, "xxx:",            $arr[6][0], $arr[6][1])
    IniWrite($sFilePath, "xxx:",            $arr[7][0], $arr[7][1])
    IniWrite($sFilePath, "xxx:",            $arr[8][0], $arr[8][1])
    IniWrite($sFilePath, "xxx:",            $arr[9][0], $arr[9][1])
   
EndFunc

_FileWriteFromArray($sFilePath, $arr)

$From = $sFilePath
$To = "C:\xxx\xxx"

Runwait(@ComSpec & " /c " & "xcopy " & '"' & $From & '"' & ' "' & $To& '"' & " /Y ","",@SW_HIDE

 

Edited April 23, 2018 by Jake_s

[Earthshine]

never mind.

Edited April 23, 2018 by Earthshine

[Jake_s]

26 minutes ago, Earthshine said:

never mind.

I know. Probably something is wrong or everyhing..

[Earthshine]

Doesn't FileOpen open a file in append mode? do you need INI or a formatted log? 

if you just looked up log4a.au3 thread like i suggested you would have everything you need to dump it to log super easy. all nice and formatted with date/time stamps. but instead you asked for code the post after that one. sigh.

Edited April 23, 2018 by Earthshine

[BrewManNH]

Do you want to use an INI file? Then use the INI functions.

Do you want to write it directly from the array, then use _FileWriteFromArray correctly. From the help file:

Quote

If a string path is provided, the file will be overwritten and closed.
To use other write modes, like append or Unicode formats, open the file with FileOpen() first and pass the file handle instead.
If a file handle is passed, the file will still be open after writing.

 

[wisem2540]

I am unclear why you are using an INI.  I use INI to manage application configs.  If you want a log, I think I would try _FileWritelog

[Earthshine]

log4a is better though. more configurable too. you can have it log to the Editor console running from editor, and auto generate a hard log once compiled.

[wisem2540]

Just now, Earthshine said:

log4a is better though. more configurable too. you can have it log to the Editor console running from editor, and auto generate a hard log once compiled.

That may be.  My only real point is that INI probably should not be used in this case

[Earthshine]

really? I said that already in post 2 or 3 but the OP doesn't read it. I also repeated myself a few posts above yours. I guess I'm done with the "Gimme deh codez" posts like this, and the folks who make them ignored.

Edited April 23, 2018 by Earthshine