Tips Visual Basic: Menutup Program Lain Berdasarkan Judul Jendelanya (Caption)

           
Ini adalah sebuah tips yang cukup unik, dimana kita akan membuat program dalam visual basic untuk menutup program/aplikasi lain yang sedang berjalan dengan menggunakan judul di jendelanya (caption).

Okey .. kita langsung saja ke prakteknya. Buatlah sebuah project baru menggunakan standard EXE. Tambahkan kontrol TextBox (Text1) dan CommandButton (Command1). Untuk listing kodenya, silahkan tulis kode berikut ini:

Private Declare Function FindWindow Lib "user32" Alias _
    "FindWindowA" (ByVal lpClassName As Any, _
    ByVal lpWindowName As Any) 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_QUIT = &H12

Private Sub Command1_Click()
    tutup_program_lain (Text1.Text)
End Sub

Private Sub tutup_program_lain(sJudul As String)
    Dim iH As Long, iR As Long
  
    iH = FindWindow(0&, sJudul)
    If iH = 0 Then
        MsgBox "Judul Aplikasi Tidak Ditemukan!"
        Exit Sub
    End If
    iR = PostMessage(iH, WM_QUIT, 0&, 0&)
End Sub

Selanjutnya, jalankan program tersebut. Jangan lupa untuk menjalankan program lain yang akan jadi target, misalnya program Notepad. Perhatikan judul (caption) dari program Notepad, biasanya tertulis: Untitled - Notepad. Tulis judul tersebut di dalam textbox pada program buatan kita tadi, lalu klik tombol Command1. Ini akan menutup program Notepad tersebut. That's all.
Semoga tips vb ini membuat anda semakin senang pada visual basic.