Membuat Task Manager Dengan Vb6

dari pada ane suntuk lebih baik ane share tutorial :D bener gak bro :p
nah pada masalah ini kita akan membuat taks manager dengan vb6 emang bisa ya bro ???? :p ya jelas bisa lah nama nya juga program selalu bisa :p
oke deh sekarang kita langsung aja ya lagi males ngetik ane =))
alat dan bahan :

• 1 buah form 
• 5 comand button
• 1 listbox
• 1 timer

sekarang atur masing masing sesuai selera anda ya :D =))
lihat bagian ini :

Caption	name
Properties	cmdProperties
Ignore Safe List	cmdIgnoreSL
Move To Safe List	cmdMoveSL
Terminate	cmdTerminate
View Safe List	cmdViewSL

pada bagian timer & listbox bagian name  lihat di sini

Caption	name
timer1	tmrlist
listbox1	lstProcesses

sekarang masukan source code nya di bagian form

' visit me www.visual-basicku.blogspot.com
' free download software & source code visual basic
' add my facebook http://facebook.com/bang.hambran

Option Explicit
Const MAX_PATH& = 260
Const SNAPPROCESS As Long = 2&
Const SEE_MASK_INVOKEIDLIST = &HC
Const SEE_MASK_NOCLOSEPROCESS = &H40
Const SEE_MASK_FLAG_NO_UI = &H400
Const STANDARD_RIGHTS_REQUIRED As Long = &HF0000
Const PROCESS_TERMINATE As Long = (&H1)
Const GWL_WNDPROC = (-4)
Const PM_REMOVE = &H1
Const MOD_ALT = &H1
Const MOD_CONTROL = &H2
Const MOD_SHIFT = &H4
Const WM_HOTKEY = &H312
Private Declare Function ShellExecuteEX Lib "shell32.dll" Alias "ShellExecuteEx" (SEI As SHELLEXECUTEINFO) As Long
Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY) As Long
Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY) As Long
Private Declare Function CreateToolHelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, lProcessID As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32.dll" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function GetAsyncKeyState Lib "user32.dll" () As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal MSG As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
Private Declare Function UnregisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As MSG, ByVal hWnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long
Private Declare Function WaitMessage Lib "user32" () As Long
Private Type PROCESSENTRY
    Size As Long
    Usage As Long
    ProcessID As Long
    DefaultHeapID As Long
    ModuleID As Long
    Threads As Long
    ParentProcessID As Long
    PriClassBase As Long
    Flags As Long
    ExeFile As String * MAX_PATH
End Type
Private Type SHELLEXECUTEINFO
    Size As Long
    Mask As Long
    hWnd As Long
    Verb As String
    File As String
    Parameters As String
    Directory  As String
    Show  As Long
    InstApp As Long
    IDList  As Long
    Class  As String
    KeyClass As Long
    HotKey As Long
    Icon As Long
    Process  As Long
End Type
Private Type POINTAPI
    X As Long
    Y As Long
End Type
Private Type MSG
    hWnd As Long
    Message As Long
    wParam As Long
    lParam As Long
    Time As Long
    Pt As POINTAPI
End Type
Dim strstr As String
Dim SafeList() As String
Dim SLEnabled As Boolean
Dim Processing As Boolean

Private Sub cmdExit_Click()
End
End Sub
' visit me www.visual-basicku.blogspot.com
' free download software & source code visual basic
' add my facebook http://facebook.com/bang.hambran

Private Sub cmdIgnoreSL_Click()
If cmdIgnoreSL.Caption = "&Ignore Safe List" Then
    cmdIgnoreSL.Caption = "&Hide Safe List"
Else
    cmdIgnoreSL.Caption = "&Ignore Safe List"
End If
SLEnabled = Not SLEnabled
GetList
End Sub
' visit me www.visual-basicku.blogspot.com
' free download software & source code visual basic
' add my facebook http://facebook.com/bang.hambran

Private Sub cmdMoveSL_Click()
If Len(lstProcesses.Text) = 0 Then Exit Sub
ReDim Preserve SafeList(UBound(SafeList) + 1)
SafeList(UBound(SafeList)) = lstProcesses.Text
GetList
If lstProcesses.ListCount Then lstProcesses.ListIndex = 0
End Sub
' visit me www.visual-basicku.blogspot.com
' free download software & source code visual basic
' add my facebook http://facebook.com/bang.hambran

Private Sub cmdTerminate_Click()
Dim Process As PROCESSENTRY
Dim ProcessFound As Long
Dim Snapshot As Long
Dim ExeName As String
Dim AppCount As Integer
Dim NLoc As Integer
Dim CurrFile As String
Dim Count As Integer
Dim PrevProcessID As Long
Process.Size = Len(Process)
Snapshot = CreateToolHelpSnapshot(SNAPPROCESS, 0&)
ProcessFound = ProcessFirst(Snapshot, Process)
CurrFile = lstProcesses.Text
lstProcesses.Clear
Do While ProcessFound
    NLoc = InStr(1, Process.ExeFile, Chr(0))
    ExeName = LCase$(Left$(Process.ExeFile, NLoc - 1))
    ProcessFound = ProcessNext(Snapshot, Process)
    If ExeName = CurrFile Then
        KillProcess PrevProcessID
        GetList
        Exit Sub
    End If
    PrevProcessID = Process.ProcessID
Loop
If lstProcesses.ListCount Then lstProcesses.ListIndex = 0
End Sub
' visit me www.visual-basicku.blogspot.com
' free download software & source code visual basic
' add my facebook http://facebook.com/bang.hambran

Private Sub cmdViewSL_Click()
Dim Count As Integer
Dim SL As String
For Count = 0 To UBound(SafeList)
    If Len(SL) Then
        SL = SL & vbNewLine & SafeList(Count)
    Else
        SL = SafeList(Count)
    End If
Next Count
MsgBox SL
End Sub
' visit me www.visual-basicku.blogspot.com
' free download software & source code visual basic
' add my facebook http://facebook.com/bang.hambran

Private Sub Form_Load()
Dim SL As String
Dim Count As Integer, Index As Integer
Open App.Path & "/SAFELIST.dat" For Binary As #1
    SL = String(LOF(1), vbNullChar)
    Get #1, , SL
Close #1
For Count = 1 To Len(SL)
    If Mid$(SL, Count, 2) = vbNewLine Then Index = Index + 1
Next Count
ReDim SafeList(Index)
For Count = 0 To Index - 1
    SafeList(Count) = Left$(SL, InStr(1, SL, vbNewLine) - 1)
    SL = Right$(SL, Len(SL) - Len(SafeList(Count)) - 2)
Next Count
SafeList(Count) = SL
SLEnabled = True
GetList
Processing = True
RegisterHotKey Me.hWnd, &HBFFF&, MOD_CONTROL Or MOD_ALT, vbKeyP
Me.Show
ProcessMessages
End Sub
' visit me www.visual-basicku.blogspot.com
' free download software & source code visual basic
' add my facebook http://facebook.com/bang.hambran

Private Sub GetList()
Dim Process As PROCESSENTRY
Dim ProcessFound As Long
Dim Snapshot As Long
Dim ExeName As String
Dim AppCount As Integer
Dim NLoc As Integer
Dim CurrFile As String
Dim Count As Integer
Process.Size = Len(Process)
Snapshot = CreateToolHelpSnapshot(SNAPPROCESS, 0&)
ProcessFound = ProcessFirst(Snapshot, Process)
CurrFile = lstProcesses.Text
lstProcesses.Clear
Do While ProcessFound
    NLoc = InStr(1, Process.ExeFile, Chr(0))
    ExeName = LCase$(Left$(Process.ExeFile, NLoc - 1))
    ProcessFound = ProcessNext(Snapshot, Process)
    If SLEnabled Then
        For Count = 0 To UBound(SafeList)
            If SafeList(Count) = ExeName Then GoTo SkipDisp
        Next Count
    End If
    lstProcesses.AddItem ExeName
SkipDisp:
Loop
For Count = 0 To lstProcesses.ListCount - 1
    If lstProcesses.List(Count) = CurrFile Then lstProcesses.ListIndex = Count
Next Count
End Sub
' visit me www.visual-basicku.blogspot.com
' free download software & source code visual basic
' add my facebook http://facebook.com/bang.hambran
Sub ShowFileProperties(File As String)
    Dim SEI As SHELLEXECUTEINFO
    With SEI
        .Size = Len(SEI)
        .Mask = SEE_MASK_NOCLOSEPROCESS Or SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI
        .Verb = "Properties"
        .File = File
    End With
    ShellExecuteEX SEI
End Sub
' visit me www.visual-basicku.blogspot.com
' free download software & source code visual basic
' add my facebook http://facebook.com/bang.hambran

Private Sub cmdProperties_Click()
If Len(lstProcesses.Text) Then ShowFileProperties lstProcesses.Text
End Sub
' visit me www.visual-basicku.blogspot.com
' free download software & source code visual basic
' add my facebook http://facebook.com/bang.hambran

Private Sub Form_Terminate()
Processing = False
UnregisterHotKey Me.hWnd, &HBFFF&
End Sub
' visit me www.visual-basicku.blogspot.com
' free download software & source code visual basic
' add my facebook http://facebook.com/bang.hambran
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
' visit me www.visual-basicku.blogspot.com
' free download software & source code visual basic
' add my facebook http://facebook.com/bang.hambran
Private Sub tmrGetList_Timer()
GetList
End Sub
' visit me www.visual-basicku.blogspot.com
' free download software & source code visual basic
' add my facebook http://facebook.com/bang.hambran
Private Function KillProcess(ByVal ProcessID As Long) As Boolean
Dim Process As Long
Const RIGHTS_FLAGS = STANDARD_RIGHTS_REQUIRED Or PROCESS_TERMINATE
Process = OpenProcess(RIGHTS_FLAGS, 0&, ProcessID)
If Process Then
    If TerminateProcess(Process, 0&) Then
        KillProcess = True
    End If
    Call CloseHandle(Process)
End If
End Function
Private Sub ProcessMessages()
Dim Message As MSG
Do While Processing
    WaitMessage
    If PeekMessage(Message, Me.hWnd, WM_HOTKEY, WM_HOTKEY, PM_REMOVE) Then
        Me.Visible = True
    End If
    DoEvents
Loop
End Sub
' visit me www.visual-basicku.blogspot.com
' free download software & source code visual basic
' add my facebook http://facebook.com/bang.hambran

dan sekarang coba di jalan kan lihat hasil nya
ini contoh program ane :

bagi yang mau download source code nya :

https://www.dropbox.com/s/d3dpfr5va15kigx/taksmanager-visualbasicku.rar

 semoga bermanfaat ^_^ untuk mendapatkan tutorial terbaru bisa follow Saya :)