ممكن طريق فتح وغلق برنامج معين .EXE

السلام عليكم

حسن أخي ممكن

أولا عليك أن تعرف مسار البرنامج إذا عرفته فهذا جيد وكافي لفتحه

يمكنك استعمال دالة صغيرة وهي Shell

مثال

Shell "Notepad"

هذا سيفتح notepad

مثال

Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE"

وهذا سيفتح interent explorer

آمل أننا انتهينا من فتح برنامج معين

أما بخصوص غلقه فأنت لا تحتاج إلى مساره بقدر ما تحتاج إلى لا أعرف كيف أقولها المهم تحتاج الى Handle "مقبض"

الحصول على المقبض تحتاج الى دالة API صغيرة وسهلة

وهي

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

حسن ما هذا الكلام الطويل اعلم هذا

lpClassName

من أجلWINDOW CLASS

lpWindowName

من أجل WINDOW CAPTION

كيف تستعملها

هكذا

إذا كنت تعرف كلاس النافذة مرره الى lpClassName وإذا كنت تعرف عنوانها فمرره الى lpWindowName

ولنقل أنك فتحت NOTEPAD اذا ستجد HANDLE بهذه الطريقة

Dim Handle As Long
Handle = FindWindow(vbNullString, "[Untitled] - win32pad")

لاحظ تلك فتحت الكبيرة جدا لانه يجب على البرنامج أن يكون مفتوحا حتى تحصل على handle

أو ستحصل على 0

المهم لماذا أريد الحصول علىwindow handle

لانك بالحصول على مقبض النافذة تستطبع أن تفعل ما تشاء

ما علينا

لاغلاقه نرسل الرسالة SC_CLOSE بواسطة الدالة SendMessage

والباقي في المثال المرفق آمل أن يفيدك

سلام

Open_Close.rar

طيب انا عارف ازي اشغل برنامج بس المشكلة في الاغلاق ازي اغير الحاسبة في الكود بس ياريت تشرح

اني اشكرك من كل قلبي وجزاك الله خيرأ

السلام عليكم

اقتباس

طيب انا عارف ازي اشغل برنامج بس المشكلة في الاغلاق ازي اغير الحاسبة في الكود بس ياريت تشرح

اقتباس

اني اشكرك من كل قلبي وجزاك الله خيرأ

لست أدري ماذا تقصد بالردين

المهم هل يعني أنك استطعت تغيير الحاسبة

على أي هناك مثال ل notepad في نفس المثال كل الذي عليك

هو أن تحذف علامة commant ''''

اي مساعدة في الخدمة

سلام