بستن برنامه

[www.pc3enter.tk]

سلام دوستان با این کد می توانید یک برنامه را ببندید

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

Private Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const WM_QUIT As Long = &H12





 

Private Sub Command1_Click()

    Dim handle As Long

    handle = FindWindow("notepad", vbNullString)

    If handle Then

        PostMessage handle, WM_QUIT, 0&, 0&

    End If

End Sub





Private Sub Form_Load()

    Shell "notepad", vbNormalFocus

End Sub