Sub Process_Globals
Dim broadcast As BroadCastReceiver
End Sub
Sub Service_Create
broadcast.Initialize("BroadcastReceiver")
End Sub
Sub Service_Start (StartingIntent As Intent)
broadcast.addAction("android.intent.action.NEW_OUTGOING_CALL")
broadcast.SetPriority(2147483647)
broadcast.registerReceiver("")
End Sub
Sub BroadcastReceiver_OnReceive (Action As String,i As Object)
Dim i2 As Intent
i2 = i
Dim X = i2.ExtrasToString
Dim Z = X.IndexOf("NUMBER=")
Dim y
y = X.SubString2(Z+7,Z+24)
y= y.Replace(" ","")
y= y.Replace(",","")
y= y.Replace("a","")
y= y.Replace("n","")
y= y.Replace("d","")
y= y.Replace("r","")
y= y.Replace("o","")
y= y.Replace("i","")
y= y.Replace("d","")
y= y.Replace(".","")
ToastMessageShow(y,False)
End Sub