دسترسی به پیامک ها

[Farzad Musavi 576]

با سلام و خسته نباشید دو تا سوال داشتم

میخواستم بدونم این برنامه هایی که از اس ام اس ها بکاپ میگیرن چطور این کارو میکنن سرچ کردم فک کنم کتابخونه phone این کارو میکنه اما نمیونم چطوری؟

سوال بعدیم هم تقریبا مشابه قبلیه میخام شماره مخاطبین رو تو یه لیست فراخوانی کنم

ممنون

[مصطفی حقیقی 176]

این برای گرفتن sms ها

Sub Message(Body As String)
   Dim SmsMessages1 As SmsMessages
   Dim List1 As List
   List1 = SmsMessages1.GetAll
For i = 0 To List1.Size - 1
	Dim Sms As Sms
	Sms = List1.Get(i)
    If Sms.Body = Body Then
	    Dim id As String = Sms.id
		Dim addr As String = Sms.Address
		Dim bd As String = Sms.Body
		'hamin to ta akhar
	End If
Next
End Sub

اما contact

Sub cont
   Dim co As Contacts
Dim list1 As List
list1 = co.GetAll
For i = 0 To list1.Size -1
    Dim conc As Contact
	conc = list1.Get(i)
	Dim dn As String = conc.DisplayName
	Dim num As String = conc.PhoneNumber
	'ela akhar
Next
End Sub

[Farzad Musavi 576]

ممنون از پاسخ مفیدتون

اما مخاطبین جیمیل رو میاره من مخاطبین گوشی رو میخام

[مصطفی حقیقی 176]

بنده تست می کنم که contact گوشی رو می گیره*vibre*