Welcome to بیسیک فور ایکس

Register now to gain access to all of our features. Once registered and logged in, you will be able to contribute to this site by submitting your own content or replying to existing content. You'll be able to customize your profile, receive reputation points as a reward for submitting content, while also communicating with other members via your own private inbox, plus much more! This message will be removed once you have signed in.

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

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

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

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

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

کتابخانه 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
              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
    • توسط H@mid.RS
      برای گرفتن درصد باتری ابتدا کتابخونه ی Phone رو فعال کنید
      Sub Globals
          Dim basic4x As PhoneEvents
      End Sub

      Sub Activity_Create(FirstTime As Boolean)
          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