Jak zablokować ponowne uruchamiane explorer.exe po zabiciu procesu

[gutalos]

Witam, mam problem z tym kodem:

Sub ProcesKILL(process_name)  
    Set objWMIService = GetObject("winmgmts:"& "{impersonationLevel=impersonate}!\\.\root\cimv2")  
    Set colProcessList = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = '" & process_name & "'")  

        For Each objProcess in colProcessList  
            objProcess.Terminate()  
        Next     
End Sub  

ProcesKILL("explorer.exe")

To ma za zadanie killowac explorer.exe . Robi to, ale praktycznei od razu explorer wlacza sie ponownie. Jakies pomysly?

[Ozzzj]

Sub ProcesKILL(process_name)  
    Set objWMIService = GetObject("winmgmts:"& "{impersonationLevel=impersonate}!\\.\root\cimv2")  
    Set colProcessList = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = '" & process_name & "'")  

        For Each objProcess in colProcessList  
             ProcesKILL("explorer.exe")
            objProcess.Terminate()  
        Next     
End Sub  

Co to wgl za język? :P

[matixd3]

Sub ProcesKILL(process_name)  
    Set objWMIService = GetObject("winmgmts:"& "{impersonationLevel=impersonate}!\\.\root\cimv2")  
    Set colProcessList = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = '" & process_name & "'")  

        For Each objProcess in colProcessList  
             ProcesKILL("explorer.exe")
            objProcess.Terminate()  
        Next     
End Sub  

Co to wgl za język? :P

Wydaje mi sie ze to vb.net bo & laczy tam stringi

[Jakub]

@gutalos

Na pewno możesz uzyskać to poprzez zmianę w rejestrze wartości klucza AutoRestartShell na 0. Samo ubicie procesu nic Ci nie da, bo Windows broni się przed czymś takim i ma zaimplementowane uruchamianie explorer'a w wypadku kiedy wykryje, że jest ubity (a dokładniej, że go nie ma) :P.

 

P.S. tak, to jest VB

[BremLOL]

Możesz zrobić pętlę do while albo for i cały czas zabijać ten sam proces.