[已解决]排除系统进程将其关闭

qq1244521

Dim $Process=0
Local $list = ProcessList() 

For $i = 1 To $list[0][0]
        
                If $list[$i][0] =  "[System Process]"  Then ;对比进程是否一样
                        $Process=1
                EndIf
                If $list[$i][0] =  "System"  Then ;对比进程是否一样
                        $Process=1
                EndIf
                If $list[$i][0] =  "smss.exe"  Then ;对比进程是否一样
                        $Process=1
                EndIf
                If $list[$i][0] =  "csrss.exe"  Then ;对比进程是否一样
                        $Process=1
                EndIf
                If $list[$i][0] =  "winlogon.exe"  Then ;对比进程是否一样
                        $Process=1
                EndIf
                If $list[$i][0] =  "services.exe"  Then ;对比进程是否一样
                        $Process=1
                EndIf
                If $list[$i][0] =  "lsass.exe"  Then ;对比进程是否一样
                        $Process=1
                EndIf
                If $list[$i][0] =  "svchost.exe"  Then ;对比进程是否一样
                        $Process=1
                EndIf
                If $list[$i][0] =  "explorer.exe"  Then ;对比进程是否一样
                        $Process=1
                EndIf
                If $list[$i][0] =  "internat.exe"  Then ;对比进程是否一样
                        $Process=1
                EndIf
                
                If $Process=0  Then
                        ProcessExists( $list[$i][0] ) ;结束进程
                        MsgBox(0, "", $list[$i][0])
                        $Process=0
                
                EndIf                
Next

我弄了个 关闭不是WINXP系统进程 运行后没有反映 帮忙看看是哪块有问题

veket_linux

缺一句 $Process=0

什么位置 自己思考

user3000

回复 1# qq1244521
你的代码应该把 $Process = 0  放在循环里的首行.
但可以考虑另一种判断方法,让代码更简洁点, 我曾经这么试过的:

Local $Pid_Sys = "[System Process]|System|smss.exe|csrss.exe|" &  _
                  "winlogon.exe|services.exe|lsass.exe|svchost.exe|explorer.exe|internat.exe|"
Local $list = ProcessList()
If @error Then
        MsgBox(16, 'err', 'fail to get process list!')
        Exit
Else
        For $i = 1 To $list[0][0]
                If StringInStr($Pid_Sys, $list[$i][0] & '|') Then ContinueLoop
                ProcessClose($list[$i][0]) ;结束进程
                If @error Then
                        MsgBox(16, $list[$i][0], '关闭进程失败,错误码: ' & @error)
                Else
                        MsgBox(64, $list[$i][0], '已成功关闭此进程.')
                EndIf
        Next
EndIf

qq1244521

2# 3#  谢谢了 我去研究下

qq1244521

3楼 正解 代码比我的简洁多了

h20040606

谢谢3楼的代码，非常不错