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