رفتن به مطلب

مصطفی حقیقی

کاربر رو به رشد
  • تعداد ارسال ها

    181
  • تاریخ عضویت

  • آخرین بازدید

  • روز های برد

    5

پست ها ارسال شده توسط مصطفی حقیقی

  1. این برای گرفتن 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
  2. سلام داداش

    برای ارسال sms باید یک permission به manifest خودت اضافه کنی

    شما یه Dim ps As PhoneSms به اول کد ارسالت اضافه کن حل میشه

    یعنی اینجوری

    Sub SendLargeSms(Destination As String, Message As String)
    Dim ps As PhoneSms
     Dim r As Reflector
     r.Target = r.RunStaticMethod("android.telephony.SmsManager", "getDefault", Null, Null)
     Dim parts As Object
     parts = r.RunMethod2("divideMessage", Message, "java.lang.String")
     r.RunMethod4("sendMultipartTextMessage", _
     Array As Object(Destination, Null, parts, Null, Null), _
     Array As String("java.lang.String", "java.lang.String", _
     "java.util.ArrayList", "java.util.ArrayList", "java.util.ArrayList"))
    
    End Sub  
  3. نگاه کن دوست عزیز

    شما میتونی از خاصیت CallSubDelayed2 یا 1 یا 3 استفاده کنی

    به این شکل

    	CallSubDelayed2(main,"changeText","EHEM")
    

    main همون نام اکتیویتی ماست

    changeText هم نام sub ماست که قراره تو اکتیویتی txt شما قرار بگیره و تغییرات رو ایجاد کنه

    EHEM هم همون تغییر مورد نظر ماست

    اگه با توضیح من به جایی نرسیدی میتونی از لینک زیر استفاده کنی

    http://answercenter.ir/showthread.php?90-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D8%A7%D8%B3%D8%AA%D9%81%D8%A7%D8%AF%D9%87-%D8%A7%D8%B2-2-%D8%A7%DA%A9%D8%AA%DB%8C%D9%88%DB%8C%D8%AA%DB%8C

×
×
  • اضافه کردن...