• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 11 رای - 2.55 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: فهمیدن قطع شدن مکالمه
حالت موضوعی
#1
با سلام
با چه دستوری و چگونه میتوان فهمید مکالمه قطع شده است
لطفا با کد نویسی توضیح دهید
با تشکر
 
پاسخ
#2
من با دستور زیر میفهمم که گوشی زنگ خورده ولی نمیدانم چطور بفهمم مکالمه قطع شده و پایان یافته

کد:
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 Sub
 
پاسخ
#3
درود
والا خودم تست نکردم اما باید با 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) بزن ببین وقتی تلو قطع میکنی چه رویدادی میده
رو همون رویداد شرطتو بزار
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
#4
با تشکر
بدست آوردم
جواب IDLE
 
پاسخ
  


پرش به انجمن:


Browsing: 2 مهمان