Spanish borrar mensajes de texto

jluisruelas

Member
Licensed User
Longtime User
amigos, se puede borrar los mensajes(mediante codigo) una vez que se reciben
de ante mano gracias
 

bgsoft

Well-Known Member
Licensed User
Longtime User
Hola

Lo podrias hacer asi:

B4X:
Dim mensajes As SmsMessages
Dim list1 As List
Dim aa, Id As String
Dim sta, sto As Int

List1=mensajes.GetAll()
If List1.Size=0 Then Return

For i = List1.Size-1 To 0 Step -1
  DoEvents
  aa=List1.Get(i)
  sta=aa.IndexOf("Id=")+3
  sto=aa.IndexOf(", ThreadId=")
  Id=aa.SubString2(sta,sto)
  mensajes.deletesms(Id)
Next

Ten en cuenta que a partir de Android 4.4 no se puede borrar por código, hay que hacerlo desde la aplicación por defecto del movil.

Saludos
 
Top