Program Sederhana Untuk Mendeteksi Running Aplikasi Menggunakan Visual basic

Halo reader,.. kali ini saya coba menulis kembali artikel ( lagi gak ada kerjaan soalnya.. hehe ).  saya coba  membahas tentang fungsi FindWindow pada Win32 API. fungsi FindWindow ini akan menerima handle dari suatu top level windows dimana class name atau window namenya sesuai dengan string yang ditentukan.sehingga kita dapat mendeteksi apakah suatu aplikasi tertentu sedang running atau tidak.

contoh pendeklarasian dalam visual basic sbb :

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

fungsi ini menggunakan dua parameter string lpClassName dan lpWindowName. lpClassName akan berisi string yang menyatakan class windows, Jika lpClassName bernilai NULL, ia menemukan setiap jendela (windows) yang judulnya sesuai dengan parameter lpWindowName.

penasaran? mari kita coba.. selanjutnya buatlah form seperti dibawah ini :

selanjutnya tambahkan kode berikut :

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

Private Sub Command1_Click()

    jendela_pengenal = FindWindow(Text1.Text, vbNullString)

    If jendela_pengenal <> 0& Then   

MsgBox "Pada desktop berjalan aplikasi " & Text1.Text & "  dengan" & vbCrLf & "Handle Window : " & jendela_pengenal & "."

    Else

        MsgBox "Tidak ada aplikasi " & Text1.Text & "  pada Desktop"

    End If

End Sub

Private Sub Command2_Click()

    Unload Me

End Sub

Private Sub Form_Load()

    Dim jendela_pengenal As Long

End Sub

selanjutnya coba jalankan Notepad.exe pada dekstop, kemudian jalankan form tersebut  (tekan F5 pada IDE Visual Basic).

Semoga Bermanfaat 

(edisugiarto.blogspot.com)

Related Posts by Categories