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

ارسال‌ها: 36
تاریخ عضویت: Aug 2013
اعتبار: 2
.وضعیت من: هیچکدام
ارسال: #1
فهمیدن قطع شدن مکالمه
با درود
با چه دستوری و چگونه میتوان فهمید مکالمه قطع شده است
لطفا با کد نویسی توضیح دهید
با سپاس
10-27-2014، 12:46 PM
وب‌سایت ارسال‌ها پاسخ
seyedsharifi آفلاین
کاربر تازه وارد
*

ارسال‌ها: 36
تاریخ عضویت: Aug 2013
اعتبار: 2
.وضعیت من: هیچکدام
ارسال: #2
RE: فهمیدن قطع شدن مکالمه
من با دستور زیر میفهمم که گوشی زنگ خورده ولی نمیدانم چطور بفهمم مکالمه قطع شده و پایان یافته

کد:
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
10-28-2014، 06:50 PM
وب‌سایت ارسال‌ها پاسخ
Amin_Mansouri آفلاین
مدیر کل سایت
*

ارسال‌ها: 4,842
تاریخ عضویت: Apr 2011
اعتبار: 158
.وضعیت من: Artistic
ارسال: #3
RE: فهمیدن قطع شدن مکالمه
درود
والا خودم تست نکردم اما باید با 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
10-28-2014، 07:01 PM
وب‌سایت ارسال‌ها پاسخ
seyedsharifi آفلاین
کاربر تازه وارد
*

ارسال‌ها: 36
تاریخ عضویت: Aug 2013
اعتبار: 2
.وضعیت من: هیچکدام
ارسال: #4
RE: فهمیدن قطع شدن مکالمه
با سپاس
بدست آوردم
جواب IDLE
10-30-2014، 08:40 AM
وب‌سایت ارسال‌ها پاسخ


پرش به انجمن:


کاربران در حال بازدید این موضوع: 1 مهمان

تماس با ما | ParsiCoders (Persian Team) For Programming ,Security,Cracking,Network,Pars Civilization,Medical,Science,Entertaining | بازگشت به بالا | | حالت آرشیو | پیوند سایتی RSS
This forum uses Lukasz Tkacz MyBB addons.