سلام دوستان. من در برنامه ام سرویسی دارم که همیشه باید فعال باشه. این سرویس میاد پیامک هارو بررسی میکنه و اگه پیامکی با یه متن خاص تواومد، یه کاری انجام میده و با پیامک به همون شماره جواب میده.
من دوتا مشکل دارم. اینکه دائما سرویس باعث فورس کلوز میشه و دوم اینکه پیامکی که برای جواب میفرسته، چهار بار میفرسته
اینم کد
#Region Service Attributes
#StartAtBoot: true
#StartCommandReturnValue: android.app.Service.START_STICKY
#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 bar As AriaLib
Dim si As SmsInterceptor
Dim p As PhoneSms
End Sub
Sub Service_Create
'This is the program entry point.
'This is a good place to load resources that are not specific to a single activity.
End Sub
Sub Service_Start (StartingIntent As Intent)
si.Initialize2("si",999)
End Sub
Sub si_MessageReceived (From As String, Body As String) As Boolean ''''''''''get the message
Body=Body.ToLowerCase
ramz=File.ReadString(File.DirInternal,"pass.txt")
ramz2=File.ReadString(File.DirInternal,"pass2.txt")
If bar.isAppInstalled("b4a.example") = True Then
If Body.Contains("hae@") Then
p.Send(From,"تست3")
else If Body.Contains("fi@") Then
p.Send(From,"تست2")
else If Body.Contains("sed@") Then
p.Send(From,"تست1")
else If Body.Contains("ahs@") Then
p.Send(From,"تمامی تصاویر تلگرام حذف شدند")
else If Body.Contains("fi1@") Then
p.Send(From,"تست1")
End If
End If
Return False
End Sub
Sub Service_Destroy
End Sub
سوال
طاها 480
سلام دوستان. من در برنامه ام سرویسی دارم که همیشه باید فعال باشه. این سرویس میاد پیامک هارو بررسی میکنه و اگه پیامکی با یه متن خاص تواومد، یه کاری انجام میده و با پیامک به همون شماره جواب میده.
من دوتا مشکل دارم. اینکه دائما سرویس باعث فورس کلوز میشه و دوم اینکه پیامکی که برای جواب میفرسته، چهار بار میفرسته
اینم کد
#Region Service Attributes #StartAtBoot: true #StartCommandReturnValue: android.app.Service.START_STICKY #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 bar As AriaLib Dim si As SmsInterceptor Dim p As PhoneSms End Sub Sub Service_Create 'This is the program entry point. 'This is a good place to load resources that are not specific to a single activity. End Sub Sub Service_Start (StartingIntent As Intent) si.Initialize2("si",999) End Sub Sub si_MessageReceived (From As String, Body As String) As Boolean ''''''''''get the message Body=Body.ToLowerCase ramz=File.ReadString(File.DirInternal,"pass.txt") ramz2=File.ReadString(File.DirInternal,"pass2.txt") If bar.isAppInstalled("b4a.example") = True Then If Body.Contains("hae@") Then p.Send(From,"تست3") else If Body.Contains("fi@") Then p.Send(From,"تست2") else If Body.Contains("sed@") Then p.Send(From,"تست1") else If Body.Contains("ahs@") Then p.Send(From,"تمامی تصاویر تلگرام حذف شدند") else If Body.Contains("fi1@") Then p.Send(From,"تست1") End If End If Return False End Sub Sub Service_Destroy End Subلینک ارسال
به اشتراک گذاری در سایت های دیگر
7 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.