هل تريد إغلاق أى برنامج يعمل على الجهاز .

هذا كود بسيط لغلق أى برنامج يعمل على الجهاز .

قد يستفاد منه فى حالة تعارض برنامجك مع برنامج آخر .

اكتب التالي في موديل Module

Declare Function FindWindow Lib "user32" Alias _
	  "FindWindowA" (ByVal lpClassName As String, _
	  ByVal lpWindowName As String) As Long
Declare Function PostMessage Lib "user32" Alias _
	  "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
	  ByVal wParam As Long, lParam As Any) As Long

Public Const WM_CLOSE = &H10

اكتب التالي في المكان الذي تريد مع تحديد اسم البرنامج ولنفرض Notepad

Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, "Notepad")
Debug.Print winHwnd

If winHwnd <> 0 Then
	  RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
	  If RetVal = 0 Then
			MsgBox "خطأ في عملية ارسال الرسالة"
	  End If
Else
	  MsgBox "الدفتر مفتوح"
End If