مشکل در سرویس

[amin69 64]

سلام دوستان

بنده یک سرویس ساختم تو سرویس گفتم وقتی به خطی اس ام اس اومد اس ام اس اونو به منم ارسالکنه (یعنی خط دومم اس ام اس اومد میخوام به خط اول بفرسته برنامه اونو ) حالا اینکارو کردم ولی تند تند میفرسته . من میخوام بعد یک اس ام اس دیگه نفرسته تا اس ام اس بعدی که اومد دوباره یکی از اون بفرسته به نظرتون چیکار کنم

#Region  Service Attributes 
	#StartAtBoot: False
	#ExcludeFromLibrary: 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 newone As SmsInterceptor
	Dim oldone As PhoneSms
End Sub

Sub Service_Create
	newone.Initialize("sms")
End Sub

Sub Service_Start (StartingIntent As Intent)
	StartServiceAt("",DateTime.Now + 0.1*DateTime.TicksPerMinute,False)
End Sub

'Return true to allow the OS default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
	Return True
End Sub

Sub Service_Destroy

End Sub

Sub sms_MessageReceived (From As String, Body As String) As Boolean
		ToastMessageShow("پیامک دریافت شد",False)
		oldone.Send2("+989146673078","from:    "&From& "sms:   " &Body,False,False)
End Sub

اینم از صفحه اس ام اس ها

همونطور که میبیند یک اس ام اس به خط دو اومده بعد به خط یک هم اومده ولی هی تکرار میشه

 

 

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

[پژمان نیکروان 6,055]

سلام

میتونید شرط بذارید اگر متن جدید بود ارسال کنه وگرنه نفرسته...

اینطوری شاید حل بشه:

#Region  Service Attributes 
	#StartAtBoot: False
	#ExcludeFromLibrary: 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 newone As SmsInterceptor
	Dim oldone As PhoneSms
	Dim text As String
End Sub

Sub Service_Create
	newone.Initialize("sms")
End Sub

Sub Service_Start (StartingIntent As Intent)
	StartServiceAt("",DateTime.Now + 0.1*DateTime.TicksPerMinute,False)
End Sub

'Return true to allow the OS default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
	Return True
End Sub

Sub Service_Destroy

End Sub

Sub sms_MessageReceived (From As String, Body As String) As Boolean
	If Body<>text Then
		ToastMessageShow("پیامک دریافت شد",False)
		oldone.Send2("+989146673078","from:    "&From& "sms:   " &Body,False,False)
	
	text=Body
	End If
End Sub

 

[amin69 64]

UP

[amin69 64]

در 6 ساعت قبل، پژمان نیکروان گفته است :

سلام

میتونید شرط بذارید اگر متن جدید بود ارسال کنه وگرنه نفرسته...

اینطوری شاید حل بشه:

#Region  Service Attributes 
	#StartAtBoot: False
	#ExcludeFromLibrary: 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 newone As SmsInterceptor
	Dim oldone As PhoneSms
	Dim text As String
End Sub

Sub Service_Create
	newone.Initialize("sms")
End Sub

Sub Service_Start (StartingIntent As Intent)
	StartServiceAt("",DateTime.Now + 0.1*DateTime.TicksPerMinute,False)
End Sub

'Return true to allow the OS default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
	Return True
End Sub

Sub Service_Destroy

End Sub

Sub sms_MessageReceived (From As String, Body As String) As Boolean
	If Body<>text Then
		ToastMessageShow("پیامک دریافت شد",False)
		oldone.Send2("+989146673078","from:    "&From& "sms:   " &Body,False,False)
	
	text=Body
	End If
End Sub

متاسفانه حل نشد . بازم ممنون

up

[amin69 64]

لطفا مشکل منو حل کنید . نیاز دارم

[مهدی ایزدی 9,203]

درود

بعد از : 

oldone.Send2("+989146673078","from:    "&From& "sms:   " &Body,False,False)

بیایید یک return true بزارید ببینید مشکل حل میشه ؟