按键精灵手机版_清理进程函数封装

Function KillAppZX
    dim a,b,xt,x
    a=GetRunningApp()//获取全部正在运行包名
    For Each x In a//For Each 每行内容 In 读取结果
        TracePrint x //打印正在运行的包名
        If x = "com.tencent.mobileqq" or x = "com.cyjh.mobileanjian" Then //排除不要被关闭的进程
            TracePrint "排除"
        Else

            xt = 0 //预定系统
            b = Split(x, ".")//预定系统分割包名
            For Each y In b
                If y = "system" Then //分割有内容为指定内容
                    xt = 1 //预定系统参数就为1
                End If

            Next
            
            If xt = 0 Then 
                TracePrint "不是系统软件"
                KillApp x
            End If
        End If
    Next

End Function