Jump to content

Recommended Posts

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

 

 

Link to comment
Share on other sites

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

 

When the words fail... music speaks.

Link to comment
Share on other sites

  • Moderators

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

"Profanity is the last vestige of the feeble mind. For the man who cannot express himself forcibly through intellect must do so through shock and awe" - Spencer W. Kimball

How to get your question answered on this forum!

Link to comment
Share on other sites

  • Moderators

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?

"Profanity is the last vestige of the feeble mind. For the man who cannot express himself forcibly through intellect must do so through shock and awe" - Spencer W. Kimball

How to get your question answered on this forum!

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

Basic script based off JLogan3o13 script:

#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

 

Link to comment
Share on other sites

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 by Jake_s
Link to comment
Share on other sites

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 by Earthshine

My resources are limited. You must ask the right questions

 

Link to comment
Share on other sites

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.

 

If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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 by Earthshine

My resources are limited. You must ask the right questions

 

Link to comment
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
 Share

×
×
  • Create New...