end task كردن تمامي برنامه هاي در حال اجرا

سلام دوستان
من مي خوام تمامي برنامه هاي باز يا در حال اجرا رو شناسائي كنم وبا اجراي برنامه خودم همه اونها رو ببندم
يا به قولي end task بكنم يا همون :20:taskkill
فقط مهم اينجاست كه كاربر نبايد بتونه برنامه هاي بسته شده رو دوباره باز كنه پس اگه ممكنه اين كار چكينگ دائم باشه

البته من قصد دارم با كليك بروي دكمه خروج برنامه ام دوباره task هاي بسته شده يا حداقل حدودي از آنها باز بشه وهمه چيز به حال سابق برگرده

مي خواستم بدونم آيا اين كار از طريق يك فايل bat امكان پذير است؟
در صورت امكان يك مورد براي من بسازيد :10:
با تشكر فراوان

الان دقيقا 30 تا كليك روي اين تاپيك شده ولي دريغ از يه جواب ساده !!

يعني سئوال من اينقدر سخته؟!!

بچه ها خواهش مي كنم يه نفر يه كمكي بكنه
ممنون ميشم

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

سلام.
این کد همه پروسه های غیر سیستمی رو میبنده.

کد:

---

Option Explicit

'EndProcess
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long
Private Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Type PROCESSENTRY32
    dwSize As Long
    cntUsage As Long
    th32ProcessID As Long
    th32DefaultHeapID As Long
    th32ModuleID As Long
    cntThreads As Long
    th32ParentProcessID As Long
    pcPriClassBase As Long
    dwFlags As Long
    szExeFile As String * 260
End Type
Private Const TH32CS_SNAPALL = &HF
Private Const PROCESS_ALL_ACCESS = &H1F0FFF
'EndProcess

Private Sub EndProcess()
Dim hSnapshot As Long, lngNextProcess As Long, lngProcessHandle As Long
Dim ProcessInfo As PROCESSENTRY32
    hSnapshot = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0)
    ProcessInfo.dwSize = Len(ProcessInfo)
    lngNextProcess = Process32First(hSnapshot, ProcessInfo)
    While lngNextProcess <> 0
        If ProcessInfo.th32ProcessID = GetCurrentProcessId Then ProcessInfo.th32ProcessID = 0
        lngProcessHandle = OpenProcess(PROCESS_ALL_ACCESS, 0&, ProcessInfo.th32ProcessID)
        TerminateProcess lngProcessHandle, 0&
        DoEvents
        lngNextProcess = Process32Next(hSnapshot, ProcessInfo)
    Wend
    CloseHandle (hSnapshot)
End Sub

---

ولی اگه برنامه ای به صورت سرویس ران شده باشه بسته نمیشه. باید سرویسش رو استاپ کنی. پس این روش خیلی مطمن نیست. کلا این روش اصولی نیست و میشه از روش های بهتری استفاده کرد.

پيمان جان ممنونم

تست مي كنم نتيجه رو اعلام مي كنم
باز هم ممنون براي پروسه هاي سيستمي هم هر كس اگه نظري داره ممنون ميشم كمكي بكنه

سلام.
برای بستن پروسه ها میتونی از دستورات داس هم استفاده کنی که میتونن پروسه های سیستمی رو هم ببندن. دستوراتی مثل tskill یا taskkill. ولی اگه بخوای با برنامه نویسی پروسه های سیستمی رو ببندی باید اسم سرویسش رو داشته باشی و استاپش کنی.

نقل قول:

---

.
برای بستن پروسه ها میتونی از دستورات داس هم استفاده کنی که میتونن پروسه های سیستمی رو هم ببندن. دستوراتی مثل tskill یا taskkill. .

---

اين دستور رو مي دونستم ولي فعلا به كارم نيومده
در رابطه با كد هاي بالا من نتونستم استفاده كنم فراموش نكنيد كه كد ها بايد در قالب bat يا يك فايل cmd جوابگو باشند

نقل قول:

---

ولی اگه بخوای با برنامه نویسی پروسه های سیستمی رو ببندی باید اسم سرویسش رو داشته باشی و استاپش کنی

---

مشكل من دقيقا همينجاست !!!
مي خوام اتوماتيك وار شناسائي بشند

نقل قول:

---

نوشته شده توسط mahramasrar2 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

اين دستور رو مي دونستم ولي فعلا به كارم نيومده
در رابطه با كد هاي بالا من نتونستم استفاده كنم فراموش نكنيد كه كد ها بايد در قالب bat يا يك فايل cmd جوابگو باشند



مشكل من دقيقا همينجاست !!!
مي خوام اتوماتيك وار شناسائي بشند

---

سلام.
فراموش نکن که ما داریم تو ویبی برنامه مینویسیم نه تو یه بچ فایل. شما میتونی کد ویبی رو کامپایل کنی و فایل Exe رو تو بچ فایلت اجرا کنی.
پروسه های سیستمی رو هم یه بار توضیح دادم. هم با دستورات داس میتونی ببندی. هم سرویسشون رو استاپ کنی که دومی کمی مشکله. روش اول خیلی راحت تره.

مرسي پيمان جان
من هم دارم به همين نتيجه مي رسم كه با vb يه چيزي واسش رديف كنم
البته يه كارهائي كردم ولي مي خواستم بدونم كسي فايل آماده نداره؟