امتیاز موضوع:
  • 10 رای - 2.4 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
فهمیدن قطع شدن مکالمه
#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) بزن ببین وقتی تلو قطع میکنی چه رویدادی میده
رو همون رویداد شرطتو بزار
 فروش نوت بوک asus  خریداری شده از کانادا زیر قیمت بازار مدل Asus RoG G752
قیمت :7 میلیون 400 هزار تومان
فروش فوری با فاکتور رسمی خرید شده از کانادا
شماره تماس با بنده: 09120642214

پاسخ
#4
با سپاس
بدست آوردم
جواب IDLE
پاسخ


پرش به انجمن:


کاربران در حال بازدید این موضوع: 1 مهمان
This forum uses Lukasz Tkacz MyBB addons.