گرفتن برنامه های در حال اجرا

[مجید آرتا 5,874]

به نام خدا

سلام

امیدوارم که حالتون خوب و خوش باشه

کدی که بنده قرار واسه شما دوستان به اشتراک بزارم مربوط میشه به گرفتن برنامه های در حال اجرا و انجام عمل مورد نظر.

مثلا یکی از دوستان گفته بود که وقتی برنامه اپارات در حال اجرا بود بیاد برنامه ما یکاری رو انجام بده.

خب یک تابع نوشتیم تا اینکارو به راحتی انجام بدید.

Sub getRunningApp(sPackageName As String) As String
Dim o As OperatingSystem
   Dim tasks As List = o.getRecentTasks(10, 0)
   For Each task As Object In tasks
      Dim r As Reflector
      r.Target = task
      Dim bi As Object = r.GetField("baseIntent")
      If bi <> Null Then
         r.Target = bi
         r.Target = r.RunMethod("getComponent")
         If r.RunMethod("getPackageName") = sPackageName Then
             Dim Status As String
             Status = "Successful"
             Return Status
          Else
          Return "Null"
          End If
      End If
   Next
End Sub

این تابع میاد برنامه های در حال اجرا ( ما محدود به 10 تا کردیم) رو میگیره و اینجا یک دستور IF  قرار دادیم و گفتیم اگه پکیج نیم برنامه های در حال اجرا پکیج مورد نظر ما بود بیا کلمه Success  رو Return  کن و در غیر اینصورت Null

 

مثال از طرز استفادش :

Dim CheckExistRunApp As String = getRunningApp("com.aparat")
If CheckExistRunApp = "Successful" Then
 StartActvity(Test)
End If

امیدوارم که دوستان عزیز نمونشو بنویسن و اینجا قرار بدن.بنده وقت نکردم واسش نمونه توی بیسیک بنویسم.

امیدوارم که موفق باشید.

[reza salimi 6]

ممنون بابت آموزشتون

میشه تمام برنامه های در حال اجرا رو در لیست ویو نمایش داد با این سرس 

کمک کنید