حذف یک Processes

[هانی هاشمی]

سلام
من می خواستم با استفاده از دستورات Vb یک Processes رو خذف کنم
چه جوری می شه این کار رو کرد.

[Payman62]

سوالت نامفهمومه. پروسه از پروسس لیست مخفی بشه و به کارش ادامه بده یا end task بشه و به کل بسته بشه.
من همین 2 تا سوال رو دارم. لطفا به این دو سوال جواب بدید.

[هانی هاشمی]

من منظورم End Task بود

[joker]

هندل پروسس را بدست بیارید
و بعد با تابع PostMessage میتونید اون را ببندید

سورس زیر به دلفی هست ولی چون دو تابع بیشتر نیست تبدیلش مطمنا به وی بی راحته :)

HREG := FindWindow(nil,'Registry Monitor');
if hREG<>0 then PostMessage(hReg,WM_CLOSE,0,0);

[هانی هاشمی]

اگه با VB بنویسید و یه مثال بزنین بهتره ممنون

[H_SH_VB]

Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Sub Form_Load()
'KPD-Team 1999
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
'end this process
ExitProcess GetExitCodeProcess(GetCurrentProcess, 0)
End Sub


به این سایت برو
http://www.allapi.net
یه برنامه به نام API Guide رو بگیر
توابع API رو توضیح داده با مثال
خیلی میتونه کمکت کنه
سوالی که پرسیده بودی DLL چیه
این توابع داخل فایل های DLL قرار دارند
شما خودتم میتونی یه سری تابع بنویسی تو یه DLL بعدا استفاده کنی
موفق باشی
اگه فکر میکنی ارزش تشکر داره، بجاش واسه ظهور امام زمان 5 تا دعای فرح بخون
و اگه فکر میکنی که مسلمونی و شیعه
به نظرم ما شیعه ها باید لا اقل یه بار خطبه غدیر رو بخونبم
نه؟ چون پیامبر فرمودند که این پیام رو پدر به پسر تا روز قیامت برسونه، فکر کنم یه بارشو واقعا باید بخونیم

[هانی هاشمی]

دستتون درد نکنه
اون کاری که گفتینم انجام میدم
ممنون

[Payman62]

[QUOTE=H_SH_VB]
Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Sub Form_Load()
'KPD-Team 1999
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
'end this process
ExitProcess GetExitCodeProcess(GetCurrentProcess, 0)
End Sub

ح
[QUOTE]

من با ExitProcess کار کردم ولی پروسه برنامه خودمونو میبنده نه برنامه دیگه ای رو.
TerminateProcess در این زمینه جوابگو هست؟ یه کدی که %100 پروسه مورد نظرمونو end task کنه بذارید لطفا.

[H_SH_VB]

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

[Payman62]

بله میدونم. بنده هم PID پروسه های دیگرو میدم ولی به نظر میاد این api فقط برنامه های خودمونو میبنده. یه api که پروسه دیگریرو ببنده معرفی کنید.

[H_SH_VB]

عجیبه
باشه پیدا میکنم میزارم

[Payman62]

منتظرم. ممنون میشم سریعتر بذاری. کارم گیره. من بعضی api هایی که تو اسمشون processes بود رو چک کردم ولی جواب نگرفتم.

[هانی هاشمی]

من از یه راهی این کارو کردم البته کاری که کردم جالب نیست و از بترین راه است اما منو به مقصودم رسوند

ReturnValue = Shell("taskmgr.exe", 1)
For I = 1 To 4
SendKeys "{tab}"
Next
SendKeys "{RIGHT}"
SendKeys "e" + "x"
SendKeys "{tab}"
SendKeys "{tab}"
SendKeys Chr(32)
SendKeys "{enter}"
SendKeys "{ESC}"

[Payman62]

من از یه راهی این کارو کردم البته کاری که کردم جالب نیست و از بترین راه است اما منو به مقصودم رسوند
اگه تو taskmanager طرف تب رو نتورکینگ یا یوزر باشه چی؟ اگه پروسه ای به اسم ex.exe در حال اجرا باشه چی؟ البته خودتم گفتی روش خوبی نیست.
H_SH_VB چی شد پس ؟

[o0_Amin_0o]

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

[Payman62]

دستت درد نکنه عالی بود. با همون Terminate که حدسشو میزدم.

[arashforghani]

این روش فقط برنامه های Runing را می بنده برنامه های Not Responding چطور؟