بستن برنامه های در حال اجرا(رم ریلیز)

[mohammade79 127]

سلام بچه ها کل سایتو گشتم هم اینجا هم مرجع کدی نبود که بشه رم رو خالی کرد یعنی یه نفر نمیتونه چنین کدی بنویسه با این زبون ی ماهه دارم روش کار میکنم این کد برنامه های در حال اجرا رو بدرستی میگیره ولی کیل نمیکنه مشکل از کجاس؟

Sub Button2_Click
	
   Dim os As OperatingSystem
   os.Initialize("OS")
   Dim lstname,lstpid, lstnamepid, lstret As List
   lstname.Initialize
   lstpid.Initialize
   lstnamepid.Initialize
   lstret=os.RunningAppProcessInfo(lstname,lstpid,lstnamepid)
   Dim i  As Int
   For i = 0 To lstname.Size - 1
      Msgbox (lstname.Get(i),lstpid.Get(i))
      If lstname.Get(i) = "com.rovio.angrybirdsrio" Then
         os.killBackgroundProcesses(lstname.Get(i))
         os.killProcess(lstpid.Get(i))
         Msgbox ("Kill process: " & lstname.Get(i),lstpid.Get(i))
      End If
   Next
   os.killProcess(os.myPid)
End Sub

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

سلام...

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

http://answercenter.ir/topic/10605-%DA%A9%D8%AA%D8%A7%D8%A8%D8%AE%D8%A7%D9%86%D9%87-persian-process-%D8%A7%D8%B2-%D8%A8%DB%8C%D9%86-%D8%A8%D8%B1%D8%AF%D9%86-%D9%BE%D8%B1%D8%AF%D8%A7%D8%B2%D8%B4-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D9%87%D8%A7/

[mohammade79 127]

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

[shahan148 28]

 

سلام بچه ها کل سایتو گشتم هم اینجا هم مرجع کدی نبود که بشه رم رو خالی کرد یعنی یه نفر نمیتونه چنین کدی بنویسه با این زبون ی ماهه دارم روش کار میکنم این کد برنامه های در حال اجرا رو بدرستی میگیره ولی کیل نمیکنه مشکل از کجاس؟

Sub Button2_Click
	
   Dim os As OperatingSystem
   os.Initialize("OS")
   Dim lstname,lstpid, lstnamepid, lstret As List
   lstname.Initialize
   lstpid.Initialize
   lstnamepid.Initialize
   lstret=os.RunningAppProcessInfo(lstname,lstpid,lstnamepid)
   Dim i  As Int
   For i = 0 To lstname.Size - 1
      Msgbox (lstname.Get(i),lstpid.Get(i))
      If lstname.Get(i) = "com.rovio.angrybirdsrio" Then
         os.killBackgroundProcesses(lstname.Get(i))
         os.killProcess(lstpid.Get(i))
         Msgbox ("Kill process: " & lstname.Get(i),lstpid.Get(i))
      End If
   Next
   os.killProcess(os.myPid)
End Sub

 

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

 

اول یک حلقه و یک  لیست درست کن برنامه ها را بگیر و بعد بریز تو یه متغییر و یکی یکی چک می کنه و kill می کنه من خودم اینجوری دارم استفاده می کنم