Spanish borrar mensajes de texto

[jluisruelas]

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

 

[bgsoft]

Hola

Lo podrias hacer asi:

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

 

[jluisruelas]

Ok amigo lo voy a probar y postró resultados