Our social:

Sabtu, 30 Juli 2011

Membuat Task manager sendiri

Task Manager merupakan tool kecil pemantau kinerja Windows. Berbagai aplikasi yang berjalan bisa dilihat dari tool ini. Apabila ada program yang error kita bisa menghentikan program tersebut secara manual lewat task manager dengan menekan tombol end task.Tapi apa jadinya jika pada saat kita coba menjalankan dengan task manager muncul pesan "Task manager has been disable by administrator" pasti repot kan??
Nah kali ini penulis mencoba membuat task manager sendiri,hehehe..bisa untuk mengakali ketika diwarnet lohh...upss...jadi ngajarin yang gak bener neh..sowry2 kita berbuat yang halal aja ya?
Berikut ini bentuk form nya

berikut script kodenya :

Option Explicit

Dim hWndTGT As Long

Private Sub cmdEndTsk_Click()
If hWndTGT = 0 Then Exit Sub

'Kirim pesan close pada handle window yang dipilih
SendMessage hWndTGT, &H112, &HF060, 0
End Sub

Private Sub cmdRefresh_Click()
Dim hWndx As Long
Dim lpStr As String * 255
Dim cnt As Integer
Dim lpClassName As String * 255

'bersihkan isi List1
List1.Clear

'cari nilai Handle Window Desktop
hWndx = FindWindowEx(0, 0, vbNullString, vbNullString)
Do
'dapatkan text dari nilai handle window
GetWindowText hWndx&, lpStr, 255

'dapatkan nama Class dari nilai handle window
GetClassName hWndx&, lpClassName$, 255

If chk1.Value And chk2.Value Then
GoTo IsiData
ElseIf chk1.Value Then
If IsWindowVisible(hWndx) Then
GoTo IsiData
End If
ElseIf chk2.Value Then
If Not IsWindowVisible(hWndx) Then
GoTo IsiData
End If
End If

Ulangi:
'cari nilai handle selanjutnya
hWndx = FindWindowEx(0, hWndx, vbNullString, vbNullString)
DoEvents
Loop While hWndx > 0 'lakukan perulangan hingga tidak ditemukan lagi
'window
Exit Sub
IsiData:
'catat jumlah data yang telah ada pada listBox
cnt = List1.ListCount
'isi ke list berupa nama window dan nama class nya
List1.AddItem Left$(lpStr, lstrlen(lpStr)) + " (" + _
Left$(lpClassName, lstrlen(lpClassName)) + ")"
'isikan nilai hWndx pada itemData
List1.ItemData(cnt) = hWndx
GoTo Ulangi
End Sub

Private Sub cmdToggle_Click()
'Bila window tampak maka
If IsWindowVisible(hWndTGT) Then
'Sembunyikan
ShowWindow hWndTGT, SW_HIDE
Else 'bila tersembunyi maka
'Tampilkan
ShowWindow hWndTGT, SW_SHOW
End If
End Sub

Private Sub Form_Load()

End Sub

Private Sub List1_Click()
'isikan hWndTGT dari nilai handle Window yang dipilih pada ListBox
hWndTGT = List1.ItemData(List1.ListIndex)
End Sub

Untuk modulenya penulis lampirkan bersama file yang bisa didownload disini
sumber