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

[sharafi123 0]

با سلام. می خوام برای برنامه یه نوتیفیکیشن بنویسم که وقتی پیام کوتاه میاد بهم خبر بده و اپلیکیشن به صورت اتوماتیک باز بشه. باید چکار کنم؟

[E_b4a 1]

در در 30 فروردین 1399 در 19:01، Salar82 گفته است :

سلام

چک کنید که متن اس ام اس برابر با "بلوتوث روشن" هست یا نه.

If Body = "بلوتوث روشن" then
	Dim t As Toggle
	t.Initialize
	t.TurnBluetoothOn
End If

بعد از طریق کتابخانه ToggleLibrary بلوتوث رو روشن یا خاموش کنید.

سلام، این کد رو هم نوشتم ولی نشد.. نمیدونم اشکال کارم کجاست؟

Sub Activity_Create(FirstTime As Boolean)
	StartService(SMS)
	ToastMessageShow("start", False)
End Sub
---------------
#Region  Service Attributes 
	#StartAtBoot: True
	#StartCommandReturnValue: android.app.Service.START_STICKY
#End Region
Sub Process_Globals
	Dim s As SmsInterceptor
	Dim pp As PhoneIntents
End Sub
Sub Service_Create
	s.Initialize("sms")
End Sub
Public Sub sms_MessageReceived (From As String, Body As String) As Boolean
	If Body = "بلوتوث روشن" Then
		Dim t As Toggle
		t.Initialize
		t.TurnBluetoothOn
	End If
End Sub
Sub Service_Destroy
	StartServiceAt("", DateTime.Now +  1000, True) 
End Sub
--------
مانیفست
AddPermission(android.permission.RECEIVE_SMS)
AddPermission(android.permission.READ_SMS)
AddPermission(android.permission.BLUETOOTH)
AddPermission(android.permission.BLUETOOTH_ADMIN)

 

[Salar82 919]

بجای بلوتوث روشن"، "123" رو امتحان کنید.

گوشیتون رو به بیسیک متصل کنید و خط به خط تست کنید که آیا این رویداد فراخوانی میشه یا نه

[E_b4a 1]

در 3 ساعت قبل، Salar82 گفته است :

بجای بلوتوث روشن"، "123" رو امتحان کنید.

گوشیتون رو به بیسیک متصل کنید و خط به خط تست کنید که آیا این رویداد فراخوانی میشه یا نه

خیلی ممنون از راهنمایی تون.. من نمیدونستم باید پرمیژن رو از خود کاربر بگیرم برای همین اجرا نمیشد...

خودم پرمیژن رو دستی تنظیم کردم و درست شد.

چجوری میشه پرمیژن رو از کاربر گرفت؟

[Salar82 919]

از کتابخونه RuntimePermision استفاده کنید.

[E_b4a 1]

On 19 فروردین 1399 at 10:21 PM, Salar82 said:

سلام

شما یه سرویس می سازین، بعد یه متغیر از نوع SmsInterceptor از کتابخونه Phone تعریف و Initialize میکنین.

و از رویداد MessageReceived به صورت زیر استفاده می کنین:

 

Dim Sms as SmsInterceptor
Sms.Initialize("SMS")

Private Sub SMS_MessageReceived (From As String, Body As String) As Boolean
	' مثلاً اگر میخواید پیام کوتاه حداکثر 30 کاراکتر داشته باشه، از کد زیر استفاده می کنید
	If Body.Lenght <= 30 Then
		' اینجا کدهای مربوط به ساخت نوتیفیکیشن رو می نویسید
	End If
End Sub


'Body متن پیام
'From شماره ارسال کننده پیام

 

سلام ببخشید منم یه همچین کاری میخواستم بکنم حتی همین کارایی که کردین رو هم کردم ولی نشد

من میخواستم کاری کنم که مثلا اگه توی پیام بلوتوث روشن نوشته شده بود بلوتوث رو روشن کنه

نکته خاص دیگه ای نداره؟؟

پرمیژنی چیزی بخواد

[Salar82 919]

در 5 ساعت قبل، sharafi123 گفته است :

با سلام. می خوام برای برنامه یه نوتیفیکیشن بنویسم که وقتی پیام کوتاه میاد بهم خبر بده و اپلیکیشن به صورت اتوماتیک باز بشه. باید چکار کنم؟

سلام

شما یه سرویس می سازین، بعد یه متغیر از نوع SmsInterceptor از کتابخونه Phone تعریف و Initialize میکنین.

و از رویداد MessageReceived به صورت زیر استفاده می کنین:

 

Dim Sms as SmsInterceptor
Sms.Initialize("SMS")

Private Sub SMS_MessageReceived (From As String, Body As String) As Boolean
	' مثلاً اگر میخواید پیام کوتاه حداکثر 30 کاراکتر داشته باشه، از کد زیر استفاده می کنید
	If Body.Lenght <= 30 Then
		' اینجا کدهای مربوط به ساخت نوتیفیکیشن رو می نویسید
	End If
End Sub


'Body متن پیام
'From شماره ارسال کننده پیام

 

[Salar82 919]

در در 28 فروردین 1399 در 07:13، E_b4a گفته است :

سلام ببخشید منم یه همچین کاری میخواستم بکنم حتی همین کارایی که کردین رو هم کردم ولی نشد

من میخواستم کاری کنم که مثلا اگه توی پیام بلوتوث روشن نوشته شده بود بلوتوث رو روشن کنه

نکته خاص دیگه ای نداره؟؟

پرمیژنی چیزی بخواد

سلام

چک کنید که متن اس ام اس برابر با "بلوتوث روشن" هست یا نه.

If Body = "بلوتوث روشن" then
	Dim t As Toggle
	t.Initialize
	t.TurnBluetoothOn
End If

بعد از طریق کتابخانه ToggleLibrary بلوتوث رو روشن یا خاموش کنید.

[Mr.Kafiri 221]

در 1 ساعت قبل، Salar82 گفته است :

سلام

چک کنید که متن اس ام اس برابر با "بلوتوث روشن" هست یا نه.

If Body = "بلوتوث روشن" then
	Dim t As Toggle
	t.Initialize
	t.TurnBluetoothOn
End If

بعد از طریق کتابخانه ToggleLibrary بلوتوث رو روشن یا خاموش کنید.

دسترسی رو حتما از کاربر گرفته باشید .........