bir programmi end task yapma ıcın
Kod:
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 Sub Command1_Click() On Error GoTo erlevel Dim winHwnd As Long Dim RetVal As Long winHwnd = FindWindow(vbNullString, "programın task de kı adı") If winHwnd 0 Then RetVal = PostMessage(winHwnd, &H10, 0&, 0&) End If End Sub

__________________