Membuat TaskManager dengan VB6

Hallo agan !
gue bakal bagi ilmu membuat TaskManager dengan VB6.
bikinnya agak sedikit sulit, tapi semoga mudah dimengerti.

Bahannya :
- Visual Basic 6
- SC taskmanager ( bagi yang belum ngerti : IDWS )

penampakannya

buat yang penting penting ya gan ! yaitu :
- 3 command button ( name : 1. cmdRefresh | 2. cmdEndTsk | 3. cmdToggle )
- 2 checkbox ( name : 1. chk1 | 2. chk2 )
- 1 List box ( name : 1. List1 )
- 1 Module

pertamax, yaitu script di modulenya :

Option Explicit

Public Const SW_HIDE = 0

Public Const SW_SHOW = 5

Public Declare Function FindWindowEx Lib "user32" _

Alias "FindWindowExA" _

( _

ByVal hWnd1 As Long, _

ByVal hWnd2 As Long, _

ByVal lpsz1 As String, _

ByVal lpsz2 As String _

) As Long

Public Declare Function GetWindowText Lib "user32" _

Alias "GetWindowTextA" _

( _

ByVal hwnd As Long, _

ByVal lpString As String, _

ByVal cch As Long _

) As Long

Public Declare Function lstrlen Lib "kernel32" _

Alias "lstrlenA" _

( _

ByVal lpString As String _

) As Long

Public Declare Function GetClassName Lib "user32" _

Alias "GetClassNameA" _

( _

ByVal hwnd As Long, _

ByVal lpClassName As String, _

ByVal nMaxCount As Long _

) As Long

Public Declare Function SendMessage Lib "user32" _

Alias "SendMessageA" _

( _

ByVal hwnd As Long, _

ByVal wMsg As Long, _

ByVal wParam As Long, _

lParam As Any _

) As Long

Public Declare Function IsWindowVisible Lib "user32" _

( _

ByVal hwnd As Long _

) As Long

Public Declare Function ShowWindow Lib "user32" _

( _

ByVal hwnd As Long, _

ByVal nCmdShow As Long _

) As Long

lalu ini script di Formnya :

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 List1_Click()

'isikan hWndTGT dari nilai handle Window yang dipilih pada ListBox

hWndTGT = List1.ItemData(List1.ListIndex)

End Sub

kalo agan ada yang mau nannya soal project ini, bisa chat aja disamping gan >>