[ تمت الإجابة ]اغلاق جميع البرمج المفتوحة فى Task Manager

????????????????????????????

Public Sub TerminateAll()
	On Error Resume Next

	Dim OBJ1Temp As Object
	Dim OBJ2Temp As Object

	Set OBJ1Temp = GetObject("Winmgmts:")
	Set OBJ2Temp = OBJ1Temp.execquery("SELECT * FROM Win32_Process WHERE Name <> 'VB6.exe' AND Name <> '" & App.EXEName & ".exe' ")

	For Each x In OBJ2Temp
		If isAbort Then GoTo Last

		x.Terminate
		DoEvents
	Next

Last:
	Set OBJ2Temp = Nothing
	Set OBJ1Temp = Nothing
End Sub

رائع يا أخ تحدي، ولكن أرجو القليل من الشرح لهذا الكود

جزاك الله خيراً

Abboodd كتب:

رائع يا أخ تحدي، ولكن أرجو القليل من الشرح لهذا الكود

جزاك الله خيراً

If isAbort Then GoTo Last

جزاك الله خيراً أخي.

هل من مصادر على الإنترنت على هذه الطريقة للمزيد من المعلومات؟ :)

هذا مصدر واحد على السريع

http://www.eggheadcafe.com/tutorials/aspne...ndows-mana.aspx

mrx_ta7ady كتب:

لا يحضرني الآن إلا تنفيذ ما تقول بإستخدام الـ WMI

Public Sub TerminateAll()
	On Error Resume Next

	Dim OBJ1Temp As Object
	Dim OBJ2Temp As Object

	Set OBJ1Temp = GetObject("Winmgmts:")
	Set OBJ2Temp = OBJ1Temp.execquery("SELECT * FROM Win32_Process WHERE Name <> 'VB6.exe' AND Name <> '" & App.EXEName & ".exe' ")

	For Each x In OBJ2Temp
		If isAbort Then GoTo Last

		x.Terminate
		DoEvents
	Next

Last:
	Set OBJ2Temp = Nothing
	Set OBJ1Temp = Nothing
End Sub

السندبااد كتب:

أسأل الله لك ولوالديك الفردوس الأعلى

فكرة رائعة ومميزة

ok the code is sooo good

but i want to know names of all process are running

& want to end specified process like notepad what can i do to do that

with my respect