در این سورس کد ما بوسیله کتابخانه phone متن اس ام اس رو دریافت میکنم .

#Region  Project Attributes 
	#ApplicationLabel: B4A Example
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals


   Dim t As Timer
   Dim SmsMessages1 As SmsMessages


	Dim SmsList As String
	
End Sub

Sub Globals
	
End Sub

Sub Activity_Create(FirstTime As Boolean)
	

		Activity.LoadLayout("Layout1")

	
	t.Initialize("t",1000)
	t.Enabled=True
	

End Sub


Sub t_Tick
	Sms_

	End Sub



Sub salam_Finish(Success As Boolean)
	
End Sub







Sub Salam_Sended(Success As Boolean)
	
End Sub




Sub Sms_
		Dim List1 As List
		List1 = SmsMessages1.GetAllSince(DateTime.Add(DateTime.Now, -7, -7, -7))
		For i = 0 To List1.Size - 1
		Dim Sms As Sms
		Sms = List1.Get(i)
		Log(Sms.Body)
		 SmsList=Sms.Body&CRLF&SmsList

	Next
End Sub


Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub Button1_Click
	
End Sub