اريد كود لاغلاق برنامج

أخي الكريم أرجو منك إستخدام خاصية البحث قبل طرح السؤال إبحث عن الذي تريدة فهو موجود في المنتدى.

اخي الكريم saad

والله بحثت بالمنتدي بس وكتبت " كود اغلاق برنامج " و "اغلاق برنامج" و "انهاء برنامج "

وماظهر لى !!

اسف اخوي والله اسف ازعجناكم بس .. مانى لاقي

ملاحظه : انا عاوز انى اغلقه او انهي عمليته ولكن لا امسحه

برب ومنتظر رد اذا فيه الموضوع او الكود :( ياريت بسرعة نرجوكم

سامحونا ..

شباب فيه ناس كتير دخلت وماحد ادانى اجابة :(

ياوحوش وينكم :( ؟

ما احد أداك شيء لأنك تقول يا وحوش ما أدري مدح او ذم !!!

اخي المبرمج احمد

انا ليس اقصد ده

انا اقصد مثلا دلوقتي فيه مثلا

برنامج MSN Messenger شغال عندى على جهازي !! وحالتى اونلاين وعادي

بدي الان اول ما اضغط ع زر يتقفل البرنامج

وليس انى اكون مشغله من البرنامج نفسه بكود مثلا shell واغلقه من البرنامج ايضا !!

الزميل العزيز

أنت تحتاج لبرنامج أو كود يقوم باغلاق برنامج يعمل على الويندوز يعنى على سبيل المثال لو فيه برنامج مثل الأنتى فيروس أو مكافح الفيروسات يعمل الآن أنت تحتاج لبرنامج أو كود يوضع فى زر أمر يقوم باغلاق البرنامج عند الضغط عليه ، مثلما يحدث فى نافذة END Process

لو أن ما ذكرته هو ما تقصده فأنا عندى سورس كود vb6 يسوى ها الموضوع جيدا و سأبحث عنه و أرفقه لك

و نحن فى الخدمه ,................ تقبل تحياتى

تفضل أخي هذا موضوع في المنتدى سيفيدك:-

إضغط هنا

وهذا أيضا موضوع في موقع all api عن إنهاء المعالجة بإستخدام دوال API:-

إضغط هنا

إذا احتجت أي شي إسأل.

اهلا اخوانى ..

تسلمووووو بجد شباب رائع

D.EXPERINSE تسلم فهمتني

اخوي SAAD تسلم عالموضوع بس المشكلة

ان هذا بيعطيك قائمه فيها البرامج الى شغاله وانت تختار واحد وتقفله

انا بدي زر اول ما اضغط عليه يغلق برنامج انا محدده بالسورس كود

وجاري البحث عن مواضيع اكثر ...

بهذه الدالة يمكنك اغلاق أي برنامج عن طريق اسم الملف وذلك باستخدام دوال API ، يمكنك التعديل عليها حسب احتياجك :

Private Declare Function Process32First Lib "kernel32.dll" (ByVal hSnapshot As Long, ByRef lppe As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "kernel32.dll" (ByVal hSnapshot As Long, ByRef lppe As PROCESSENTRY32) As Long
Private Declare Function CreateToolhelp32Snapshot Lib "kernel32.dll" (ByVal dwflags As Long, ByVal th32ProcessID As Long) As Long
Private Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long
Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32.dll" (ByVal hProcess As Long, ByVal uExitCode 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 * 300
End Type

Private Const TH32CS_SNAPPROCESS As Long = &H2
Private Const PROCESS_TERMINATE As Long = (&H1)

Private Sub CloseProg(aProg As String)
	Dim Snapshot As Long
	Dim PrcEntry As PROCESSENTRY32
	Dim WasFound As Long
	Dim FileName As String

	PrcEntry.dwSize = Len(PrcEntry)

	Snapshot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
	WasFound = Process32First(Snapshot, PrcEntry)

	Do Until WasFound <> 1
		FileName = Left(PrcEntry.szexeFile, InStr(PrcEntry.szexeFile, vbNullChar) - 1)

		If InStr(FileName, ".") And LCase(aProg) = LCase(FileName) Then
					Dim Prog As Long

					Prog = OpenProcess(PROCESS_TERMINATE, 0, CLng(PrcEntry.th32ProcessID))

					If Prog Then
						TerminateProcess Prog, 0
						CloseHandle Prog
						MsgBox "تم إغلاق البرنامج بنجاح"
					Else
						MsgBox "لم يتم التمكن من اغلاق البرنامج ... تأكد من أن البرنامج يعمل"
					End If
		End If

		WasFound = Process32Next(Snapshot, PrcEntry)
	Loop

	CloseHandle Snapshot
End Sub

فمثلا إذا أردت إغلاق برنامج المسنجر قم بكتابة التالي :

CloseProg "msnmsgr.exe"