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

[Ma_mitavanim]

به نام خدا
سلام دوستان دنبال کدی هستم که بتونم به وسیله اون برنامه ها در حال اجرا رو از بین ببرم (CLOSE)بجز برنامه های اصلی ویندوز ممنون می شم کمک کنید

[Saman_12]

سلام.
من نفهمیدم همشون رو یا فقط یکی رو؟؟

[mahdi1373]

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

[Saman_12]

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

دوست عزیز فکر می کنم بد نبود یک نمونه هم می گذاشتید.!
این یک نمونه :

Shell("Taskkill /F /IM *.*")

[Ma_mitavanim]

سلام.
من نفهمیدم همشون رو یا فقط یکی رو؟؟

همه برنامه های در حال اجرا بجز برنامه های ویندوز
--------------------

دوست عزیز فکر می کنم بد نبود یک نمونه هم می گذاشتید.!
این یک نمونه :

Shell("Taskkill /F /IM *.*")

خیلی ممنون ولی جواب نداد

[Saman_12]

همه برنامه های در حال اجرا بجز برنامه های ویندوز
--------------------


خیلی ممنون ولی جواب نداد

این جواب میده :


Dim AllProc() As Process = Process.GetProcesses

For Each Proce As Process In AllProc

Shell("Taskkill /F /IM " & Chr(34) & Proce.ProcessName & ".*" & Chr(34))
Shell("Taskkill /F /PID " & Proce.Id)
Next

[Ma_mitavanim]

این جواب میده :


Dim AllProc() As Process = Process.GetProcesses

For Each Proce As Process In AllProc

Shell("Taskkill /F /IM " & Chr(34) & Proce.ProcessName & ".*" & Chr(34))
Shell("Taskkill /F /PID " & Proce.Id)
Next

ممنون دوست عزیز ولی وقتی از این کد استفاداه کردم سیستم هنگ کرد ویندوزم سون هست

[mahdi1373]

Private Declare Function CreateToolhelp32Snapshot Lib "kernel32.dll" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long
Private Declare Function Process32First Lib "kernel32.dll" (ByVal hSnapshot As Long, Uprocess As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "kernel32.dll" (ByVal hSnapshot As Long, Uprocess As PROCESSENTRY32) As Long
Private Declare Function CloseHandle Lib "kernel32.dll" (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_SNAPPROCESS = &H2



Private Sub kill()


Dim hSnapshot As Long
Dim Info As PROCESSENTRY32
Dim s As Long
Dim exeName As String

hSnapshot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)

Info.dwSize = Len(Info)

s = Process32First(hSnapshot, Info)
While s <> 0
exeName = Left(Info.szExeFile, InStr(Info.szExeFile, Chr(0)) - 1)
If (Right(exeName, 4) = ".exe") Then
Shell ("tskill" & " " & Mid(exeName, 1, Len(exeName) - 4))
End If
Info.dwSize = Len(Info)
s = Process32Next(hSnapshot, Info)
Wend
CloseHandle hSnapshot
End SubOK?