Jump to content

Recommended Posts

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

 

 

Share this post


Link to post
Share on other sites
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

 


When the words fail... music speaks

Share this post


Link to post
Share on other sites
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


√-1 2^3 ∑ π, and it was delicious!

Share this post


Link to post
Share on other sites
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?

Share this post


Link to post
Share on other sites
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?


√-1 2^3 ∑ π, and it was delicious!

Share this post


Link to post
Share on other sites
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.

Share this post


Link to post
Share on other sites
Earthshine

I use log4a.au3 for all my logging needs


My resources are limited. You must ask the right questions

 

Share this post


Link to post
Share on other sites
Jake_s

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

Share this post


Link to post
Share on other sites
Earthshine
Posted (edited)

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

Edited by Earthshine

My resources are limited. You must ask the right questions

 

Share this post


Link to post
Share on other sites
Subz

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

 

Share this post


Link to post
Share on other sites
Jake_s
Posted (edited)

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

Share this post


Link to post
Share on other sites
Earthshine
Posted (edited)

never mind.

Edited by Earthshine

My resources are limited. You must ask the right questions

 

Share this post


Link to post
Share on other sites
Jake_s
26 minutes ago, Earthshine said:

never mind.

I know. Probably something is wrong or everyhing..

Share this post


Link to post
Share on other sites
Earthshine
Posted (edited)

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

 

Share this post


Link to post
Share on other sites
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.

 

  • Like 1

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

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites
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.


My resources are limited. You must ask the right questions

 

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites
Earthshine
Posted (edited)

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

 

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

    • Pricehacker
      By Pricehacker
      Title pretty much says it all. Im wondering what button the "primary mouse button" is, and while im here i would also like to know what the "secondary mouse button" is. I´m guessing its the left and right mouse buttons but i could not confirm this.
      Thank you!
    • WoodGrain
      By WoodGrain
      Hi guys,
      I'm learning about GUI's, I'm trying the below code, the idea being if I press the letter "e" while I have the GUI open I want the label color to change to green (I'm using a UDF for label colors). But every time I press "e" on my keyboard I just get a "ding" sound from my speakers and nothing changes with the label.
      I've looked at using something like "While GUIGetMsg() <> $GUI_EVENT_CLOSE" as I've seen it in other code instead of "While 1", but I don't think it's relevant.
      #include <GUIConstantsEx.au3>; for GUI... #include <GUIRichLabel.au3>; UDF for rich text label fonts #include <Misc.au3>; for _IsPressed $myLetter = "e" $hGUI = GUICreate("test", 700, 60) $lbl2 = _GUICtrlRichLabel_Create($hGUI, '<font color="purple">' & $myLetter & '</font>', 10, 10); , 260, 25 GUISetState(@SW_SHOW) Local $hDLL = DllOpen("user32.dll") While 1 if _IsPressed(Hex($myLetter), $hDLL) Then While _IsPressed(Hex($myLetter), $hDLL) Sleep(250) WEnd _GUICtrlRichLabel_SetData($lbl2, '<font color="green">' & $myLetter & '</font>') Sleep(2000) DllClose($hDLL) Exit EndIf Sleep(50) WEnd DllClose($hDLL) I am using an array of letters that I'm wanting to do this for, but as I can't get it to work I've stripped it down to the simplest code I can think of to try and get this working first. Appreciate any help.
      Thanks!
    • nacerbaaziz
      By nacerbaaziz
      hi dears, i have an question please if you can help me.
      i maked an program to do some functions
      and this program works with the global hot keys
      i added an option to the users to change the hot keys
      when i searched about how to do that i found this UDF
      GUIHotkey.au3
      http://www.autoitscript.com/forum/index.php?showtopic=107965
      but the problem here that this UDF cant be detect the win key.
      can you help me to add it, or if there are any others UDFSS wich do that work please give me some.
      i hope that my question is clear for you.
      thanks in advance
    • Silas
      By Silas
      Hello everyone,
      I have a radio button ($Radio1), which I want to disable as soon as another one get's checked (Radio5). (The system fails if the radio button i'm troubling with also gets checked).
      I know how to disable him:
      If GUICtrlRead($Radio1)=1 And Not BitAND(GUICtrlGetState($Radio5), $GUI_DISABLE) Then GUICtrlSetState($Radio5, 128) But if i try to enable $Radio5 again, after $Radio1 isn't checked anymore, it fails:
      If GUICtrlRead($Radio1)=Not 1 And Not BitAND(GUICtrlGetState($Radio5), $GUI_ENABLE) Then GUICtrlSetState($Radio5, 64)  
      Anyone knows why?
    • Bllee
      By Bllee
      every time i press "delete button" delete a line, but i can't add new line with info. the id line write normally but i can't change or add new info
      obs: looking at the "includes" one realizes that already tried of everything that knew
      my code
      #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <GUIListBox.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <GUIConstantsEx.au3> #include <GuiImageList.au3> #include <GuiListView.au3> #include <GUIConstantsEx.au3> #include <GuiListView.au3> #include <MsgBoxConstants.au3> #include <WinAPI.au3> #include <StringConstants.au3> #include <Array.au3> #include <GuiListBox.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 612, 480, 192, 154) $MenuItem1 = GUICtrlCreateMenu("&Arquivo") $MenuItem2 = GUICtrlCreateMenuItem("Salvar Ctrl+S", $MenuItem1, $SS_CENTER) $MenuItem4 = GUICtrlCreateMenuItem("Carregar Ctrl+O", $MenuItem1, $SS_CENTER) $MenuItem3 = GUICtrlCreateMenuItem("Salvar Como Shitft+Ctrl+S", $MenuItem1, $SS_CENTER) $Group1 = GUICtrlCreateGroup("", 21, 8, 569, 97, $SS_CENTER) $Input1 = GUICtrlCreateInput("ID COR", 122, 32, 97, 21, $SS_CENTER) $Input2 = GUICtrlCreateInput("REGIÃO", 138, 64, 249, 21, $SS_CENTER) $Input3 = GUICtrlCreateInput("Label", 264, 30, 121, 21, $SS_CENTER) $Label1 = GUICtrlCreateLabel("Label", 232, 32, 30, 17, $SS_CENTER) $Button1 = GUICtrlCreateButton("Capturar Cor", 42, 30, 75, 25, $SS_CENTER) $Button2 = GUICtrlCreateButton("Capturar Região", 42, 62, 91, 25, $SS_CENTER) $Button3 = GUICtrlCreateButton("ADD", 442, 24, 113, 33) $Button5 = GUICtrlCreateButton("Delet", 442, 64, 113, 33) $Group2 = GUICtrlCreateGroup("Editar ID selecionado", 8, 384, 601, 57, $SS_CENTER) $Input7 = GUICtrlCreateInput("ID", 10, 402, 40,21, $SS_CENTER) $Input4 = GUICtrlCreateInput("COR", 51, 402, 121, 21, $SS_CENTER) $Input5 = GUICtrlCreateInput("REGIÃO", 173, 402, 249, 21, $SS_CENTER) $Input6 = GUICtrlCreateInput("LABEL", 423, 402, 121, 21, $SS_CENTER) $Button4 = GUICtrlCreateButton("\/", 544, 400, 30, 25, $SS_CENTER) $Button6 = GUICtrlCreateButton("/\", 574, 400, 30, 25, $SS_CENTER) ; Add column Global $id = Int(0) $List1 = GUICtrlCreateListView("",5, 120, 601, 253, $SS_CENTER) _GUICtrlListView_AddColumn($List1, "ID",40) _GUICtrlListView_AddColumn($List1, "COR",100) _GUICtrlListView_AddColumn($List1, "COORDENADA",305) _GUICtrlListView_AddColumn($List1, "LABEL",150) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $MenuItem2 MsgBox($MB_SYSTEMMODAL, "ctrl + s", "Nothing Here",1) Case $MenuItem3 MsgBox($MB_SYSTEMMODAL, "shift+ctrl s", "Nothing Here",1) Case $MenuItem4 MsgBox($MB_SYSTEMMODAL, "ctrl + o", "Nothing Here",1) Case $Button1 MsgBox($MB_SYSTEMMODAL, "Capturar cor", "Aperte espaço para capturar a cor") GUICtrlSetData($Input1,MouseColor()) Case $Button2 MsgBox($MB_SYSTEMMODAL, "capturar região", "Aperte espaço para capturar a posição inicial") local $mouse = MouseGetPos() $x_init = $mouse[0] $y_init = $mouse[1] MsgBox($MB_SYSTEMMODAL, "capturar região", "Aperte espaço para capturar a posição final") local $mouse = MouseGetPos() $x_end = $mouse[0] $y_end = $mouse[1] GUICtrlSetData($Input2,$x_init&','&$y_init&' ; '&$x_end&','&$y_end) Case $Button3 _GUICtrlListView_AddItem($List1, $id, 1) ; id _GUICtrlListView_AddSubItem($List1, $id, GUICtrlRead($Input1), 1, 1) ;cor _GUICtrlListView_AddSubItem($List1, $id, GUICtrlRead($Input2), 2, 1) ;coordenada _GUICtrlListView_AddSubItem($List1, $id, GUICtrlRead($Input3), 3, 1) ;label $id= $id + 1 Case $Button4 $Item = _GUICtrlListView_GetSelectedIndices($List1) $Sid = _GUICtrlListView_GetItem($List1, Number($Item),0) $Scor = _GUICtrlListView_GetItem($List1, Number($Item),1) $Scord = _GUICtrlListView_GetItem($List1, Number($Item),2) $Slabel = _GUICtrlListView_GetItem($List1, Number($Item),3) ; get info GUICtrlSetData($Input7,$Sid[3]) GUICtrlSetData($Input4,$Scor[3]) GUICtrlSetData($Input5,$Scord[3]) GUICtrlSetData($Input6,$Slabel[3]) Case $Button5 _GUICtrlListView_DeleteItemsSelected($List1) Case $Button6 ; give back inf if GUICtrlRead($Input7) <> "ID" Then _GUICtrlListView_SetItem($List1, GUICtrlRead($Input4), GUICtrlRead($Input7),1) ;cor _GUICtrlListView_SetItem($List1, GUICtrlRead($Input5), GUICtrlRead($Input7),2) ;coordenada _GUICtrlListView_SetItem($List1, GUICtrlRead($Input6), GUICtrlRead($Input7),3) ;coordenada EndIf EndSwitch WEnd Func MouseColor() local $mouse = MouseGetPos() Return Hex(PixelGetColor($mouse[0],$mouse[1]), 6) EndFunc  
×