جلوگیری از باز شدن یک برنامه

[Alireza.Ghafari 2,104]

با سلام دوستان عزیز امیدوارم حالتون خوب باشه...

یه سوال داشتم.

میشه کاری کرد که مثلا اگر کاربر فلان نرم افزار رو باز کرد به جای اون نرم افزار نرم افزار ما باز بشه ؟؟

آقای خداییش کسی میدونه بگه خیلی واجبه !

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

چیزی که شما میخوایید مشابه فقل نرم افزاریه دیگه.

خب شما کارتون رو باید توی سرویس انجام بدید.

توی سرویس پکیج نیم ها رو مقایسه کنید همین.

[Alireza.Ghafari 2,104]

چیزی که شما میخوایید مشابه فقل نرم افزاریه دیگه.

خب شما کارتون رو باید توی سرویس انجام بدید.

توی سرویس پکیج نیم ها رو مقایسه کنید همین.

داداش من زیاد با سرویس کار نکردم اگه لطف کنی یه مثال بزنی ممنونت میشم

[پژمان نیکروان 6,055]

قبلا به این فکر کرده بودم *herher*

چیزای مورد نیاز: یک سرویس(که همیشه اجرا بمونه) ، گرفتن لیست برنامه های در حال اجرا ، اجرای برنامه خودمون ، بستن برنامه های دیگه(یعنی اگه طرف نخواست رمز رو بزنه اون برنامه بسته بشه)

من کداشو بهت میدم خودت سعی کن اگه نتونستی کمکت میکنم.

برای ساخت برنامه قفل . اول که باید لیست برنامه هارو بگیری ، یعنی میتونی یه تایمر بذاری که چک کنه مثلا اگه فلان برنامه باز شد:

که این کد رو آقا مجید گذاشته بود که کتابخونشو خودم ندارم متاسفانه:

Dim L As List
l.Initialize
Dim o As OperatingSystem
l =  o.getRunningTasks(1)

یه چیز دیگه هم خودم بلد بودم یادم رفت . ولی اگه پیداش کردم میگم بهت *hendoone*

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

 Dim p As PackageManager
   Dim i As Intent
   i = p.GetApplicationIntent("package Name")
   If i.IsInitialized = True Then
   StartActivity(i)
   End If

و یا میتونی از خود سرویس بنویسی startactivity(main) تا برنامت باز شه.

و بستن برنامه دیگه:

Dim s As ActivityManager
s.KillBackgroundProcesses("نام پکیج")

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

[Alireza.Ghafari 2,104]

ممنون پژمان جان از پاسخگویی خوبت

فکر کنم شما اشتباه متوجه شدید ! بنده قصد ساخت نرم افزار قفل ندارم فقط میخوام بدونم چطور میشه اگر مثلا برنامه X با این پکیج : com.x.y باز شد اون بسته بشه و بجای اون برنامه Y با پکیج com.y.y باز بشه ! ممنون

[پژمان نیکروان 6,055]

خواهش میکنم. من دیگه یه دفعه برنامه قفل به ذهنم خورد ببخشید *give_heart*

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

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

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

بنده آموزششو میسازم و قرار میدم.

[Alireza.Ghafari 2,104]

بنده آموزششو میسازم و قرار میدم.

آقا مجید لطف می کنید

فقط داداش کی آموزش رو میزارید ؟

رایگان ؟

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

سلام

متاسفانه بیسیک توی این مورد که ( Kill Process ) ظاهرا نمیشه به درستی انجام داد.بیشتر برنامه هارو نمیشه بستشون.

و اون بعضی ها هم یا به روش Shell و یا به روش KillProcess توسط کتابخانه OSLibrary که باید Pid بدی بهش تا اون برنامه رو ببنده.

خیلی باهاش ور رفتم با سرویس بدون سرویس و فعلا جوابی نگرفتم ازش.

باید یه راهی داشته باشه.سعی میکنم راهی پیدا کنم واسش.

[Alireza.Ghafari 2,104]

سلام

متاسفانه بیسیک توی این مورد که ( Kill Process ) ظاهرا نمیشه به درستی انجام داد.بیشتر برنامه هارو نمیشه بستشون.

و اون بعضی ها هم یا به روش Shell و یا به روش KillProcess توسط کتابخانه OSLibrary که باید Pid بدی بهش تا اون برنامه رو ببنده.

خیلی باهاش ور رفتم با سرویس بدون سرویس و فعلا جوابی نگرفتم ازش.

باید یه راهی داشته باشه.سعی میکنم راهی پیدا کنم واسش.

آقا مجید قبلش یه تشکر ویژه دارم که وقتتون رو در اختیار کاربران قرار میدید.

عزیز نمیشه بدون Kill Process این کار رو انجام داد ؟

یعنی مثلا برنامه لاین باز شد برنامه من باز بشه و اون بسته نشه ؟

باز هم تشکر

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

بدون Kill Process میشه اکتیویتی خودتون رو بیارید بالا.

بنده راهنماییتون میکنم ولی سورس نمیتونم بدم چون سورس برنامه در حال ساخته منو آقای قبادیه.

خب راهنمایی میکنم.شما میتونید با کتابخونه OSLibrary و یا کتابخانه Phone به وسیله PackageManager اینکارو انجام بدید.

و یا با کتابخونه ActivityManager هم میتنونید انجام بدید.

نکته : باید توی سرویس استفاده کنید چون قراره شما اکتویتی رو استارت کنید و از تایمر هم استفاده کنید توی سرویس.تنها سختی که داره مدیریت تایمره همین.

[shahan148 28]

سلام دوستان

با این کد برنامه های در حال اجرا را می گیرید و ....

Sub Service_Create

Tim.Initialize("tim",200)
Tim.Enabled=True

End Sub
Sub tim_tick
Dim l As List
l.Initialize
l.Clear
Dim am As ActivityManager
Dim tasks() As RunningTaskInfo = am.GetRunningTasks
Dim appname(10) As String
Dim i As Int
For Each task As RunningTaskInfo In tasks
l.Add( task.GetApplicationName)
i=i+1
Next
'For j=1 To l.Size-1
'ListView1.AddSingleLine(l.Get(j))
'Next
For i=0 To l.Size-1
If l.Get(i)= "Gallery"  Then
اینجا می تونی دستور بدی 
End If
Next

End Sub

[shahan148 28]

به عنوان مثال زمانی برنامه Gallery باز بشه می تونی دستور بدی مثلا ببنده یا مسیج بده یا هر کاری دیکه