vbÈçºÎ·¢ËÍÏûÏ¢¹Ø±ÕÆäËû½ø³Ì

±ÈÈçÓиöa.exe ¹¤³ÌÃû³ÆºÍ±êÌâÊÇ "ccc"

ÎÒÏëÔÚb.exeÀï¹Ø±Õa.exeÓ¦¸ÃÔõô×ö£¿

---

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

Private Const WM_CLOSE = &H10

Private Sub cmdCloseApp_Click()
Dim CloseIt As Long
CloseIt = FindWindow(vbNullString, "ccc")
PostMessage CloseIt, WM_CLOSE, CLng(0), CLng(0)
End Sub

---

2Â¥µÄ´úÂë²âÊÔûÎÊÌâ

µ«ÊÇÎÒÔÚa.exeÀïÓÐÕâÑùµÄ´úÂë

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 0 Then
    If MsgBox("ÄúÈ·¶¨Âð", vbOKCancel) Then
    Unload Me
    Else
    Cancel = True
    End If
End If
End Sub

ÕâÑùPostMessage ºó³öÀ´µÄÊǶԻ°¿ò£¬ÎÒ²»Ï£ÍûËû³öÏÖ¶Ô»°¿ò£¬Ï£ÍûËûÖ±½Ó¹Ø±Õ ÓÐʲô°ì·¨Âð£¿

---

VB code:
Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindo