Dim package As String
package = "my.app.here"
Dim sb As StringBuilder
sb.Initialize
Phone.Shell("ps", Null, sb, Null)
Dim m As Matcher
m = Regex.Matcher2("^[^ ]*\s+(\d+) .*" & package, Regex.MULTILINE, sb.ToString)
If m.Find Then
Log("Package found: " & package)
Phone.Shell("kill", Array As String(m.Group(1)), Null, Null)
End If