How to stop extra .exes to run

[davidtan]

I have a code I want to stop all kinds of extra setup to run on my PC mean when someone else try to run any software on my PC my script check the current running process & if see it as an extra process coming in my pc it immediately stop that setup which is trying to make roots in my PC

#NoTrayIcon
#include <Array.au3>
HotKeySet("{ESC}", "_Close") ; For testing purpose

; Program initialization
Global $aAllowedProcs = ProcessList()

While 1
    Local $aCurrProcs = ProcessList()
    
    For $i = 1 To $aCurrProcs[0][0]
        If _ArraySearch($aAllowedProcs, $aCurrProcs[$i][1], 0, 0, 0, 0, 0, 1) = -1 Then ProcessClose($aCurrProc[$i][1])
    Next
    Sleep(100)
WEnd

Func _Close()
    ConsoleWrite("Closing..." & @CRLF)
    Exit
EndFunc

[bo8ster]

So do u need help with anything then or is this more an example script?

[davidtan]

I nee d help mate. As there is one problem in this script that for example if I try to open clc.exe which is used for calculator it even do not allowed it to open either while I just want when any external software or application try to run on my PC then it check all the current running process & if see something extra then immediately kick out the process out of my pc & does not allowed unwanted process to add in my PC

[jvanegmond]

Hi,

I get this error:

>"C:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Users\Jos\Desktop\Dump 4 Nov\lolwuthacks.au3"

C:\Users\Jos\Desktop\Dump 4 Nov\lolwuthacks.au3 (12) : ==> Variable used without being declared.:

If _ArraySearch($aAllowedProcs, $aCurrProcs[$i][1], 0, 0, 0, 0, 0, 1) = -1 Then ProcessClose($aCurrProc[$i][1])

If _ArraySearch($aAllowedProcs, $aCurrProcs[$i][1], 0, 0, 0, 0, 0, 1) = -1 Then ProcessClose(^ ERROR

>Exit code: 1 Time: 4.334

$aCurrProc is undefined. You wanted to use $aCurrProcs.

[KaFu]

#NoTrayIcon
HotKeySet("{ESC}", "_Exit") ; For testing purpose

; Program initialization
Global $aAllowedProcs = ProcessList()

While 1
    Local $aCurrProcs = ProcessList()

    For $i = 1 To $aCurrProcs[0][0]
        $bAllowedProcess = False
        For $y = 1 to $aAllowedProcs[0][0]
            if $aCurrProcs[$i][0] = $aAllowedProcs[$y][0] then ; compare Name of process or PIDs? [0] might allow to run processes with faked name, [1] might kill legitimate new instances of processes allowed...
                $bAllowedProcess = True
                ExitLoop
            EndIf
        Next
        if $bAllowedProcess = False then _Close($aCurrProcs[$i][0])

    Next
    Sleep(100)
WEnd

Func _Close($sProcess)
    ConsoleWrite("Closing " & $sProcess & "..." & @CRLF)
    Return
EndFunc

Func _Exit()
    Exit
EndFunc

[davidtan]

Kafu code does not work mate it do not stop new process to enter for example after running ur code I install "Choper XP" a DVD Cutter but it allowed it to install in system & enable its process to run

[jvanegmond]

Kafu code does not work mate it do not stop new process to enter for example after running ur code I install "Choper XP" a DVD Cutter but it allowed it to install in system & enable its process to run

Modify the _Close function to actually call ProcessClose.

Or use your own script: And do as I told you.