كيف استطيع غلق برنامج مفتوح على XP

خيييييير

هو الموضوع ده صعب قوى كدة

لا يا جماعة ، شدوا حيلكوا شوية معاية

ربنا يوافقوا

في قسم الجنرال
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_CLOSE = &H10

dim h as long
في تايمر وضع الانترفال المناسبة 
private timer1-timer()
h=GetActiveWindow()
if h=me.hwnd then
exit sub
else
PostMessage h, WM_CLOSE, 0&, 0&
end if

شكرا اخى الكريم

ولكننى جربت الكود ولم يعمل ، فهل من الممكن ان تقوم بكتابة البرنامج وارفاقه فى الموضوع ؟

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

اخي هذا الكود بعد التعديل اتمنى ان يعمل معك

Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_CLOSE = &H10

dim h as long
في تايمر وضع الانترفال المناسبة 
Private Sub Timer1_Timer()
h=GetActiveWindow()
if h<>me.hwnd then

PostMessage h, WM_CLOSE, 0&, 0&
end if

انا اسف اخى العزيز

ولكنه لم يعمل ايضاً

ولا ادرى ما العيب وكيف الحل

شكرا اخى العزيز على المساعدة

داله Getactivewindow من دوال API ترجع مقبض النافذة النشطه حاليا

ماذا اذا كان البرنامج غير مرئى (اذن يجب عليك ان تستخدم Process ID لأنهاء عمل البرنامج المراد)