Kill task explorer

[au3scr]

How to kill task explorer.exe ?

$PID = ProcessExists("explorer.exe") ; Will return the PID or 0 if the process isn't found.
        If $PID Then ProcessClose($PID)

explorer srart again after few secounds, how i can kill it that way it dont start again?

for example when i kill explorer.exe at taskmannager , then it stay killed.

i would like if some one could say me how to make kill script thatway explorer.exe on run again.

i hope u can understand me.

thanks

[weaponx]

See here:

http://www.autoitscript.com/forum/index.ph...c=63935&hl=

[au3scr]

How i can do it with aout using that command-line program?

[James]

While ProcessExists("explorer.exe")
      Sleep(1000)
      ProcessClose("explorer.exe")
WEnd

[au3scr]

Explorer reastarts.

Explorer must be killed.

and if someone clould block combinations

ctrl alt delete

ctrl alt del

ctrl shift esc

Edit: I tried with HotKeySet ("^+{Esc}","n")

but it dont work.

EndEdit

I hope that some one can help me.

thanks

Here is my work:

expandcollapse popup

Opt("OnExitFunc", "endscript")
#include <GUIConstants.au3>


global $pass = FileReadLine(@ScriptDir & "\settings",1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("FluxBox", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP)
GUISetBkColor(0x3A6EA5)
$MenuItem0 = GUICtrlCreateMenu("Programs")
$MenuItem01 = GUICtrlCreateMenuItem("Firefox", $MenuItem0)
$MenuItem02 = GUICtrlCreateMenuItem("Notepad", $MenuItem0)
$MenuItem03 = GUICtrlCreateMenuItem("7-Zip", $MenuItem0)
$MenuItem02 = GUICtrlCreateMenuItem("", $MenuItem0)
$MenuItem112 = GUICtrlCreateMenu("Office",$MenuItem0)
$MenuItem11211 = GUICtrlCreateMenuItem("Open Office Writer", $MenuItem112)
$MenuItem11212 = GUICtrlCreateMenuItem("Open Office Math", $MenuItem112)
$MenuItem11213 = GUICtrlCreateMenuItem("Open Office Impress", $MenuItem112)
$MenuItem11214 = GUICtrlCreateMenuItem("Open Office Draw", $MenuItem112)
$MenuItem11215 = GUICtrlCreateMenuItem("Open Office Calc", $MenuItem112)
$MenuItem11216 = GUICtrlCreateMenuItem("Open Office Base", $MenuItem112)
$MenuItem11217 = GUICtrlCreateMenuItem("Notepad 2", $MenuItem112)
$MenuItem11218 = GUICtrlCreateMenuItem("Word", $MenuItem112)
$MenuItem11219 = GUICtrlCreateMenuItem("Excel", $MenuItem112)
$MenuItem1 = GUICtrlCreateMenu("Exit")
$MenuItem11 = GUICtrlCreateMenuItem("exit", $MenuItem1)
$MenuItem12 = GUICtrlCreateMenuItem("Shutdown", $MenuItem1)
$MenuItem13 = GUICtrlCreateMenuItem("Restart", $MenuItem1)
$MenuItem14 = GUICtrlCreateMenuItem("Log Off", $MenuItem1)
GUICtrlCreateLabel("<Filename cannot be showen> Loaded with following stting:",10,@DesktopHeight - 100, 350,15)
$l1 = GUICtrlCreateLabel("Always On Top: OFF",10,@DesktopHeight - 85, 150,15)
$l2 = GUICtrlCreateLabel("Disable Task Mannager: OFF",10,@DesktopHeight - 70, 200,15)
$l3 = GUICtrlCreateLabel("Kill Explorer.exe: OFF",10,@DesktopHeight - 55, 150,15)
GUICtrlCreateLabel("Require password on close: ON (Cannot be changed)",10,@DesktopHeight -40, 150,15)
top ()
noexp ()
nodm ()
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        case $MenuItem11
            endscript ()
        case $MenuItem01 
        $load = FileReadLine(@ScriptDir & "\settings",5)
        Run ($load)
        case $MenuItem02 
        $load = FileReadLine(@ScriptDir & "\settings",6)
        Run ($load)
        case $MenuItem03 
        $load = FileReadLine(@ScriptDir & "\settings",7)
        Run ($load)
        case $MenuItem11211 
        $load = FileReadLine(@ScriptDir & "\settings",8)
                Run ($load)
        case $MenuItem11212 
        $load = FileReadLine(@ScriptDir & "\settings",9)
                Run ($load)
        case $MenuItem11213 
        $load = FileReadLine(@ScriptDir & "\settings",10)
                Run ($load)
        case $MenuItem11214 
        $load = FileReadLine(@ScriptDir & "\settings",11)
                Run ($load)
        case $MenuItem11215 
        $load = FileReadLine(@ScriptDir & "\settings",12)
                Run ($load)
        case $MenuItem11216 
        $load = FileReadLine(@ScriptDir & "\settings",13)
                Run ($load)
        case $MenuItem11217 
        $load = FileReadLine(@ScriptDir & "\settings",14)
                Run ($load)
        case $MenuItem11218
        $load = FileReadLine(@ScriptDir & "\settings",15)
                Run ($load)
        case $MenuItem11219
        $load = FileReadLine(@ScriptDir & "\settings",15)
                Run ($load) 
            case $MenuItem12 
                Shutdown (1)
            case $MenuItem13
                Shutdown (2)                
            case $MenuItem14
                Shutdown (0)                
    EndSwitch
WEnd

Func endscript ()
$Password = InputBox("Enter Password", "You must enter password to close this window", "", "*")
If $Password = $pass Then
        run("explorer")
    Exit
Else
EndIf   
EndFunc 

func top ()
    $top = FileReadLine (@ScriptDir & "\settings",2)
    If $top = "Yes" Then
        GUICtrlSetData ($l1,"Always On Top: ON")
        WinSetOnTop("FluxBox","",1)
    If $top = "NO" Then
        GUICtrlSetData ($l1,"Always On Top: OFF")
;~  ElseIf
;~  GUICtrlSetData ($l1,"Always On Top: OFF")
    EndIf
    EndIf
EndFunc 

func noexp ()
    $noexp = FileReadLine (@ScriptDir & "\settings",3)
    If $noexp = "Yes" Then
        GUICtrlSetData ($l3,"Kill Explorer.exe: ON")
While ProcessExists("explorer.exe")
      Sleep(1000)
      ProcessClose("explorer.exe")
WEnd
    If $noexp = "No" Then
        GUICtrlSetData ($l3,"Kill Explorer.exe: OFF")
;~  ElseIf
;~  GUICtrlSetData ($l3,"Kill Explorer.exe: OFF")
EndIf
EndIf
EndFunc 

func nodm ()
    $noexp = FileReadLine (@ScriptDir & "\settings",4)
    If $noexp = "Yes" Then
        GUICtrlSetData ($l2,"Disable Task Mannager: ON")
        HotKeySet ("^+{Esc}","n")
        If $noexp = "no" Then
        GUICtrlSetData ($l2,"Disable Task Mannager: OFF")
;~  ElseIf
;~  GUICtrlSetData ($l2,"Disable Task Mannager: OFF")
EndIf
EndIf
EndFunc 

func n ()
    sleep(100)
    msgbox(1,"t","p")
EndFunc

here is Config

save it in to settings

and Dont use any file ext filename is just settings

toor
NO
YES
YES
C:\Program Files\Mozilla Firefox\firefox.exe
Notepad
C:\Program Files\7-Zip\7zFM.exe
OOOwriter
OOOmath
OOOimpress
OOOdraw
OOOcalc
OOObase
Notepad2
Word
Excel

Edited February 17, 2008 by au3scr

[maycontainnuts]

hi

try this:

$handle = _WinAPI_OpenProcess(0x1,0,$pid)
DllCall("kernel32.dll","int","TerminateProcess","int",$handle,"int",1)

grez