Android Question Intercept Running App

Dim OS As OperatingSystem : OS.Initialize("OS")
Dim ProcessName, PIDs, NamePIDs, RunningApps As List
ProcessName.Initialize : PIDs.Initialize : NamePIDs.Initialize : RunningApps.Initialize
RunningApps = OS.RunningServiceInfo(500, ProcessName, PIDs, NamePIDs)

        For i = 0 To ProcessName.Size - 1
        Dim cerca As String = ProcessName.Get(i)
                'Here part name package that you want know if run
                If cerca.Contains("venice") Then
                    Dim nome_pacchetto As String = ProcessName.Get(i)
                    If Starter.primo_tempo = False Then
                        ToastMessageShow("Found Running App", False)
                    End If
                Else
'.............

                       
                   
                End If
   
        Next

End Sub

...On Lollipop and higher you'd use UsageStats to determine if an app is running:

UsageStatsManager usageStatsManager =(UsageStatsManager)getSystemService(USAGE_STATS_SERVICE);Calendar cal =Calendar.getInstance();
cal.add(Calendar.YEAR,-1);long start = cal.getTimeInMillis();longend=System.currentTimeMillis();List<UsageStats> queryUsageStats = usageStatsManager.queryUsageStats(UsageStatsManager.INTERVAL_DAILY, start,end);for(UsageStats stats : queryUsageStats){Log.e("TAG","Usage stats for: "+ stats.getPackageName());}

requires:

<uses-permissionandroid:name="android.permission.PACKAGE_USAGE_STATS"/>

Click to expand...

....
RunningApps = OS.RunningServiceInfo(500, ProcessName, PIDs, NamePIDs)
....

** Service (starter) Create **
** Service (starter) Start **
** Activity (main) Create, isFirst = true **
~w:1004,main,52
** Activity (main) Resume **
** Service (service_intercetta) Create **
** Service (service_intercetta) Start **
com.android.bluetooth : 7441
com.dropbox.android : 30829
com.google.android.gms : 5875
com.samsung.ucs.agent.boot : 5960
com.samsung.android.widgetapp.briefing : 5632
com.android.phone : 5830
com.google.android.music:main : 0
kill.applock : 648
com.microsoft.skydrive : 17542
com.sec.android.inputmethod : 30812
com.samsung.overmob.mygalaxy : 30594
com.microsoft.skydrive : 17542
com.android.systemui : 5275
com.android.bluetooth : 7441
com.microsoft.skydrive : 17542
......

Click to expand...

RunningApps = OS.RunningAppProcessInfo(ProcessName, PIDs, NamePIDs)

com.mytest : 4425

Click to expand...

...
OS.RunningAppProcess
....

android.app.ActivityManager$RunningAppProcessInfo@a9fc4cd

Click to expand...

Rusty said:

MarcoRome,
Did you ever figure this out? I need the same capability.
Rusty

Click to expand...