3 ارسال در این موضوع قرار دارد

برای اجرای برنامه دیگری از برنامه ی خودتان از کد زیر استفاده کنید : :yes1:



Dim i As Intent
Dim pm As PackageManager
i = pm.GetApplicationIntent("نام پکیج")
If i.IsInitialized Then
StartActivity(i)
End If
hocein، ♋Amir♋ و salmana پسندیده اند

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

کتابخانه pakage manager رو می شه بدید ؟   :dash1:   :dash1:

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

کتابخانه pakage manager رو می شه بدید ؟   :dash1:   :dash1:

 

کتابخانه phone رو تیک بزن ردیف میشه

نیاز به کتابخانه دیگه ای نداره

Sina پسند دیده است

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

  • مطالب مشابه

    • توسط H@mid.RS
      این سورس رو الان نوشتم

      کارش اینه که شما مثلا رفتید توی واتس اپ یه پیام یا یه کاری انجام بده

       

      شما به راحتی با این برنامه می تونید قفل برای برنامه های دیگه بنویسید

       

      در پناه حق

      app mange.zip
    • توسط H@mid.RS
      اول کتابخونه ی Phone رو فعال کنید .
       
      Dim Calls As Lis
      Dim CallLog1 As CallLog
      Calls = CallLog1.GetAll(10) ' gereftenae liste 10 tamase akhir
      For i = 0 To Calls.Size - 1 ' vase har iteme gerefte shode az list
          Dim c As CallItem ' in vase gereftane item
          c = Calls.Get(i) ' item
          Dim callType, name As String ' 2 ta string vase noe tamas va esm tarif mikonim
          Select c.CallType ' mikhamym bedunim ke in tamasemun az che noe has
              Case c.TYPE_INCOMING ' age be man zang zade bud
                  callType="Incoming"
              Case c.TYPE_MISSED ' age tamase az das rtafte bud
                  callType = "Missed"
              Case c.TYPE_OUTGOING ' age man zangide budam
                  callType = "Outgoing"
          End Select
          name = c.CachedName ' namesham midim
          If name = "" Then name = "N/A" End If
          Log("Number=" & c.Number & ", Name=" & name _
              & ", Type=" & callType & ", Date=" & DateTime.Date(c.Date)) ' natie be surate Log
      Next
    • توسط H@mid.RS
      برای گرفتن درصد باتری ابتدا کتابخونه ی Phone رو فعال کنید
       
       
      Sub Globals
          Dim basic4x As PhoneEvents
      End Sub

      Sub Activity_Create(FirstTime As Boolean)
          Activity.LoadLayout("mojtaba")
          basic4x.Initialize("basic4x") ' Aval Esme Eventesho Midim
      End Sub

      ' Evente avaz shodane meqdae battry :
      Sub basic4x_BatteryChanged (Level As Int, Scale As Int, Plugged As Boolean, Intent As Intent)
          ToastMeesageShow("BatteryChanged: Level = " & Level & ", Scale = " & Scale & ", Plugged = " & Plugged, True) ' meqdaro neshunesh midim dg khkhkhkhk :D
      End Sub