نوتیفکشن دریافت پیامک

[alimaha 12]

سلام.

من یه برنامه نوشتم که با دریافت پیامک از یک شماره خاص دستوراتی را اجرا می کنه مثلا با دریافت کد 151 از شماره خاص نوتیفکشنی را نشان می دهد که متنی را نوشته است اما مشکلی که دارم نرم افزار به خوبی اجرا نمی گردد و زمانی که از آن ارج می شوم دیگر جواب نمی دهد

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	Dim sms As PhoneSms
Dim t1 As Int
Dim t2 As Int
Dim t3 As Int
Dim t4 As Int
Dim ts As Int
	Dim ms As String
	Dim numbsms As String
	Private sansor As Button
	Private shir As Button
	Private pump As Button
	Private numb As EditText
	
	Private okk As Button
	Private backk As Button
	Private Label1 As Label
	Private Label2 As Label
	Private reportl As Label
    Dim	pm As String
	
	'Dim SmsGetter As SmsInterceptor
	Dim s As SmsInterceptor
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("rep2")

'SmsGetter.Initialize("SmsGetter")
s.Initialize("s")
sendnumber.ASP.Initialize("asp")

'StartService(smse)
's.Initialize("s")
pm=sendnumber.ASP.GetString("numbersss","شماره سیم کارت وارد نشده است")
End Sub

Sub s_MessageReceived (From As String, Body As String) As Boolean
	
	numbsms=sendnumber.ASP.GetString("numbersss","شماره سیم کارت وارد نشده است")
	
  If From=numbsms Then
  	
 If Body="61005" Then
 	reportl.Text="پمپ آب روشن است"
'reportl.Text="پمپ آب روشن است"

Else If Body="60005" Then
 	reportl.Text="پمپ آب خاموش است"
'reportl.Text="پمپ آب خاموش است"

و در قسمت servise 

 #Region  Service Attributes 
	#StartAtBoot: true
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
	Dim sis As SmsInterceptor
	Dim pm As String  
	Dim numbsms As String
	Dim Notification1 As Notification
End Sub
Sub Service_Create


Notification1.Initialize
	'Notification1.Icon = "icon"
'	Notification1.Light = False
	'Notification1.OnGoingEvent = False
	'Notification1.Vibrate = True
'	Notification1.SetInfo("اطلاعات ","لطفا به برنامه نظر دهید1",Main)
'	Notification1.Notify(1)



sis.Initialize("s")
	
End Sub

Sub Service_Start (StartingIntent As Intent)
	
	'Notification1.SetInfo("نظر دهی","لطفا به برنامه نظر دهید",Main)
'	Notification1.Notify(1)
StartServiceAt("",DateTime.Now + 0.1*DateTime.TicksPerMinute,False)
'StartService("چتر سبز باربد")
End Sub

Sub sis_MessageReceived (From As String, Body As String) As Boolean
	
	numbsms=sendnumber.ASP.GetString("numbersss","شماره سیم کارت وارد نشده است")
	
	If From=numbsms Then
 If Body="61005" Then
 	ToastMessageShow("پمپ آب روشن است",True)
	
	Notification1.Initialize
	Notification1.Icon = "icon"
	Notification1.Light = False
	Notification1.OnGoingEvent = True
	Notification1.Vibrate = True
	
	Notification1.SetInfo("اطلاعات","پمپ آب روشن است",Main)
	Notification1.Notify(1)
'reportl.Text="پمپ آب روشن است"

Else If Body="60005" Then
 	ToastMessageShow("پمپ آب خاموش است",True)
	Notification1.SetInfo("اطلاعات","پمپ آب خاموش است",Main)
	Notification1.Notify(1)
'reportl.Text="پمپ آب خاموش است"

Else
	
	

End If
Else
	
End If
End Sub  


Sub Service_Destroy
Notification1.Cancel(1)


End Sub

ممنون می شم اگر دوستان راهنمایی بفرمایند باید چه کار کنم؟

[محمدرضا شاهپیری 5,579]

این رو به سرویس اضافه کنید تا وقتی بسته شد دوباره اجراشه اتوماتیک

#StartCommandReturnValue: android.app.Service.START_STICKY

 

[alimaha 12]

برنامه موقعی پیام می یاد کلا stop work می شه

احتمالا مشکل از کلاس دریافت پیام هست می شه لطف کنید و کد های بالا رو یه چک کنید