حتما تا به حال برنامه ای نظیر این ندیده اید.
این برنامه ، برنامه مورد نظر را بلافاصله بعد از اجرا می بندد.
شما فقط باید نام برنامه را وارد کنید. که من این برنامه بدبخت رو Windows Task Manager گذاشته ام.
ساخت برنامه را شروع می کنیم.
1)در ابتدا یک Textbox ، یک CommandButton و یک Timer به فرم اضافه کنید.
2)سپس کد زیر را وارد فرم خود کنید:
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 Command1_Click()
Timer1.Interval = 100
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Me.Caption = "حسن ايرانشاهي"
Timer1.Enabled = False
Text1 = "windows task manager"
End Sub
Private Sub Timer1_Timer()
Dim wnd As Long
wnd = FindWindow(vbNullString, Text1)
If wnd <> 0 Then
PostMessage wnd, WM_CLOSE, 0&, 0&
End If
End Sub