فهمیدن قطع شدن مکالمه - نسخه قابل چاپ

کد:
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