دریافت شماره تماس ورودی با سرویس

[seyyedali 77]

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

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

 

یه چنتا کد پیدا کردم کار نکردن

 

یه کد بود که کار نکرد.کسی بلده یه نگاهی بهش بکنه

 

#Region  Service Attributes 
	#StartAtBoot: true
	
#End Region

Sub Process_Globals
   
   
   
   
End Sub
Sub globals
	Dim bc As BroadCastReceiver
   bc.Initialize("BroadcastReceiver")
   bc.addAction("android.intent.action.NEW_OUTGOING_CALL")
   bc.addAction(bc.SMS_RECEIVED)
   bc.SetPriority(2147483647)
   bc.registerReceiver("") 'here you can add the main action (intent)
End Sub

Sub Service_Create
   
   
   
End Sub

Sub BroadcastReceiver_OnReceive (Action As String,i As Object)
   Dim BCI As Intent
   BCI = i
   Dim number As String = BCI.GetExtra("android.intent.extra.PHONE_NUMBER")
   If number = "+98*****" Then
   	
       ToastMessageShow("halllllllllllllle",True)
   End If
End Sub

 

[seyyedali 77]

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

 

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

 

startsevice(name)

 

[hojjatborohan 56]

تماس ورودی ک خیلی راحته از کتابخانه ی phone استفاده کنید و تابع 

 

Phonestatechanged

[seyyedali 77]

در 28 دقیقه قبل، hojjatborohan گفته است :

تماس ورودی ک خیلی راحته از کتابخانه ی phone استفاده کنید و تابع 

 

Phonestatechanged

کسی که کار کرده میدونه

آسون نیست

[hojjatborohan 56]

خوب منکه الان بهتون توضیح دادم کتابخانه phone رو انتخاب کنید به صورت زیر عمل کنید.

 

#Region  Service Attributes 
	#StartAtBoot: true
	
#End Region

Sub Process_Globals
   Private pe1 As PhoneEvents
   Dim phid As PhoneId
End Sub


Sub Service_Create
   
   pe1.InitializeWithPhoneState("pe1", phid)
   
End Sub
Sub pe1_PhoneStateChanged (state As String, IncomingNumber As String, Intent As Intent)
toastmessageshow("تماس ورودی"&incomingNumber,false)
end sub
Sub BroadcastReceiver_OnReceive (Action As String,i As Object)
   Dim BCI As Intent
   BCI = i
   Dim number As String = BCI.GetExtra("android.intent.extra.PHONE_NUMBER")
   If number = "+98*****" Then
   	
       ToastMessageShow("halllllllllllllle",True)
   End If
End Sub

 

[seyyedali 77]

در 6 دقیقه قبل، hojjatborohan گفته است :

خوب منکه الان بهتون توضیح دادم کتابخانه phone رو انتخاب کنید به صورت زیر عمل کنید.

 

#Region  Service Attributes 
	#StartAtBoot: true
	
#End Region

Sub Process_Globals
   Private pe1 As PhoneEvents
   Dim phid As PhoneId
End Sub


Sub Service_Create
   
   pe1.InitializeWithPhoneState("pe1", phid)
   
End Sub
Sub pe1_PhoneStateChanged (state As String, IncomingNumber As String, Intent As Intent)
toastmessageshow("تماس ورودی"&incomingNumber,false)
end sub
Sub BroadcastReceiver_OnReceive (Action As String,i As Object)
   Dim BCI As Intent
   BCI = i
   Dim number As String = BCI.GetExtra("android.intent.extra.PHONE_NUMBER")
   If number = "+98*****" Then
   	
       ToastMessageShow("halllllllllllllle",True)
   End If
End Sub

 

اصلا کار نمی کنه

شماره وارد شده زنگ میزنه اما اصلا اتفاقی نمی افته

[hojjatborohan 56]

دسترسی یادتون نره

[seyyedali 77]

در 18 ساعت قبل، hojjatborohan گفته است :

دسترسی یادتون نره

چیا هست دسترسی هاش؟؟