微信安卓辅助-判断应用是否在屏幕前台

//app_packeg–应用包名

Function FindAppIsRunning(app_packeg)

    Dim app_packeg_list      

    //判断应用是否在前台

    If Sys.AppIsFront(app_packeg) = True Then  

        //        TracePrint "应用包名在前台"

    Else 

        //        TracePrint "应用包名不在前台"

        app_packeg_list = GetRunningApp()

        //判断应用是否运行，若没有运行，则直接运行该应用

        For Each each_app_packeg In app_packeg_list       

            If each_app_packeg = app_packeg Then                                         

                Exit For            

            End If

        Next

        RunApp app_packeg

    End If         

End Function