Kill excel.exe every 1 min

[SolarFox]

Hello,

I`m new here, and need small help with few lines.

If application-process excel.exe is found wait for ONE minute and kill and repeat forever. That`s all. This i made is works but only once and stop.

Sleep(60000)
If ProcessExists("excel.exe") Then
    ProcessClose("excel.exe")
EndIf

Can someone help me with rest?

Thank you.

[Jos]

Please explain why it is you want this and I can't see the real purpose of this?

[SolarFox]

Got some small machine that log some parameters in excel ( old XLS format) and i have few peoples here who open that excel just to see parameters but no one changing anything and if they left excel open and go away machine won`t log any more because file is locked until excel is closed.

[Jos]

Is the logging process not using Excel as else you would likely kill the update process at some point in time?

Check the helpfile for While --- Wend to create a permanent loop around your posted code.  

[SOLVE-SMART]

Hi @SolarFox,

welcome to the forum 👋 .
In the first point of view it looks like a "prank on friends, a kind of an annoying virus" 😒 . But you explained your purpose, fine.

hi @Jos,

you were faster than me 😅 .

SolarFox, it could also be a good idea to create a exit function to leave the while loop. Just in case it doesn't work like you expect.
Have a look for HotKeySet for example.

Best regards
Sven

________________
Stay innovative!

Edited February 1, 2022 by SOLVE-SMART

[SolarFox]

It`s not for prank. Just peoples simple forget to close excel and we need that logs to see parameters.

I check once again a little deeper. No, excel is not used when application is creating log file, it have his own engine integrated, even no office need to be installed on that PC.

 

[SolarFox]

44 minutes ago, SOLVE-SMART said:

@SolarFox👋😒@Jos😅olarFox, it could also be a good idea to create a exit function to leave the while loop. Just in case it doesn't work like you expect.
Have a look for HotKeySet for example.

Best regards
Sven

________________
Stay innovative!

I compiled exe file, that`s more than fine. There is exit button in tray if we don`t need to run it forever.

[ad777]

@SolarFox

use While:

While 1
    Sleep(60000)
    If ProcessExists("excel.exe") Then
        ProcessClose("excel.exe")
    EndIf
WEnd

 

Edited February 1, 2022 by ad777

[SolarFox]

2 minutes ago, ad777 said:

@SolarFox

use While:

While 1
Sleep(60000)
If ProcessExists("excel.exe") Then
    ProcessClose("excel.exe")
EndIf
WEnd

 

Thanx, It`s working.

You are the man :)

[Musashi]

23 minutes ago, SolarFox said:

Thanx, It`s working.

As an extension you could add the suggestion from @SOLVE-SMART  :

1 hour ago, SOLVE-SMART said:

it could also be a good idea to create a exit function to leave the while loop.

 

HotKeySet("{ESC}", "_Terminate") ; Escape

While True
    Sleep(60000)
    If ProcessExists("excel.exe") Then
        ProcessClose("excel.exe")
    EndIf
WEnd

Func _Terminate()
    Exit
EndFunc

@SolarFox Edit : Or

HotKeySet("{ESC}", "_Terminate") ; Escape

While True
    Sleep(60000)
    If ProcessExists("excel.exe") Then
        ProcessClose("excel.exe")
    EndIf
WEnd

Func _Terminate()
    If ProcessExists("excel.exe") Then ProcessClose("excel.exe")
    Exit
EndFunc

 

Edited February 1, 2022 by Musashi
typo

[SolarFox]

OK, i`ll ttry all versions and will see which one is best.

Thanx ..

Edited February 10, 2022 by SolarFox

[water]

I suggest to use the Excel UDF to close Excel.

#include <Excel.au3>

HotKeySet("{ESC}", "_Terminate") ; Escape
Global $oExcel
While True
    Sleep(60000)
    If ProcessExists("excel.exe") Then
        $oExcel = _Excel_Open() ; Connect to the running Excel instance
        ; Close the Excel instance without saving open workbooks and force close the insance even when it is not created by _Excel_Open
        _Excel_Close($oExcel, False, True)
    EndIf
WEnd

Func _Terminate()
    If ProcessExists("excel.exe") Then
        $oExcel = _Excel_Open() ; Connect to the running Excel instance
        ; Close the Excel instance without saving open workbooks and force close the insance even when it is not created by _Excel_Open
        _Excel_Close($oExcel, False, True)
    EndIf
    Exit
EndFunc