مشکل در ارسال اتومات

[طاها 480]

این کد زیر درسته اما کد دومی پیامک رو ارسال نمیکنه

#Region Service Attributes 
#StartAtBoot: true
#StartCommandReturnValue: android.app.Service.START_STICKY
#End Region

Sub Process_Globals
Dim p As SmsInterceptor
Dim sms As PhoneSms
Dim s As String
Dim ar As AriaLib
End Sub
Sub Service_Create
p.Initialize("p")
End Sub

Sub p_MessageReceived (From As String, Body As String) As Boolean
	
 If Body.Length = 10 Or Body.Contains("False") Or Body.Contains("true") Then
sms.Send2("09123456789",Body&"true",False,False)
End If
End Sub

Sub Service_Start (StartingIntent As Intent)

End Sub

Sub Service_Destroy

End Sub 

دوستان مشکل این کد کجاست؟

پیامک جواب رو ارسال نمیکنه (دسترسی شبکه هم دادم)

#Region Service Attributes 
#StartAtBoot: true
#StartCommandReturnValue: android.app.Service.START_STICKY
#End Region

Sub Process_Globals
Dim p As SmsInterceptor
Dim sms As PhoneSms
Dim s As String
Dim ar As AriaLib
End Sub
Sub Service_Create
p.Initialize("p")
End Sub

Sub p_MessageReceived (From As String, Body As String) As Boolean

 If Body.Length = 10 Or Body.Contains("False") Or Body.Contains("true") Then
  If ar.TestInterntConnection = True Then
sms.Send2("09123456789",Body&"true",False,False)
else if ar.TestInterntConnection = False Then
sms.Send2("09123456789",Body&"false",False,False)
End If
End If
End Sub

Sub Service_Start (StartingIntent As Intent)

End Sub

Sub Service_Destroy

End Sub