10-27-2014، 12:46 PM
10-28-2014، 06:50 PM
من با دستور زیر میفهمم که گوشی زنگ خورده ولی نمیدانم چطور بفهمم مکالمه قطع شده و پایان یافته
کد:
Sub Process_Globals
Dim TimerService As Timer
Dim PE As PhoneEvents
Dim AC As AnswerCall
Dim PhoneId As PhoneId
Dim Counter As Int
Counter = 0
Dim Check1 ,Makan As Int
End Sub
Sub Service_Create
TimerService.Initialize("TimerService",1000)
PE.InitializeWithPhoneState("PE",PhoneId)
AC.Initialize("AnswerCall")
End Sub
Sub Service_Start (StartingIntent As Intent)
Check1 = File.ReadString(File.DirInternal, "chek1.txt")
Makan = File.ReadString(File.DirInternal, "makan.txt")
Counter = Counter + 1
If Counter = Makan Then
Counter = 0
If Check1 = 1 Then
TimerService.Enabled = False
End If
End If
End Sub
Sub Service_Destroy
End Sub
Sub TimerService_Tick
StartServiceAt("", DateTime.Now, True)
End Sub
Sub PE_PhoneStateChanged (State As String, IncomingNumber As String, Intent As Intent)
If AC.isRinging = True Then
TimerService.Enabled = True
End If
End Sub10-28-2014، 07:01 PM
درود
والا خودم تست نکردم اما باید با phone eventsبشه
PhoneEvents allows you to handle all kinds of system events.
کل رویداد ها با این چک میشه
Sub PE_PhoneStateChanged (State As String, IncomingNumber As String, Intent1 As Intent)
Dim P As Phone
If State = "RINGING" Then
P.SetRingerMode(P.RINGER_SILENT)
End If
End Sub
یه دونه msgbox (state) بزن ببین وقتی تلو قطع میکنی چه رویدادی میده
رو همون رویداد شرطتو بزار
والا خودم تست نکردم اما باید با phone eventsبشه
PhoneEvents allows you to handle all kinds of system events.
کل رویداد ها با این چک میشه
Sub PE_PhoneStateChanged (State As String, IncomingNumber As String, Intent1 As Intent)
Dim P As Phone
If State = "RINGING" Then
P.SetRingerMode(P.RINGER_SILENT)
End If
End Sub
یه دونه msgbox (state) بزن ببین وقتی تلو قطع میکنی چه رویدادی میده
رو همون رویداد شرطتو بزار
10-30-2014، 08:40 AM
با تشکر
بدست آوردم
جواب IDLE
بدست آوردم
جواب IDLE