How to write a program like Taskmanager ??

[ILoveQM]

I asked this qustion because i wanna write a progam to Crack an intenet cafe program...lol...so i mustnt pay...he..he..any know where there is a progam like Taskmanager, we can entask any program by using it ?
Thank u !!!

[KayJay]

One sure shot wayy
.
.
.
.

.
.

.
.

.
.
.

..

.
.

.
.
.
.

.
..

.
.
.
.

.
.
.
.
.
.

..
.
.
.

..

.
.
.

..

.
.
.
.
.
.
.

..

.

.
.
.
.

.
.

.

.
.
.

SEARCH these boards. The question has been asked a number of times and answered as well.

[Hack]

'in a module
 
Public Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) 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 Const MAX_LEN = 260
 
Public Function EnumWinProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
    Dim lRet As Long
    Dim strBuffer As String
    
    If IsWindowVisible(hwnd) Then
        strBuffer = Space(MAX_LEN)
        lRet = GetWindowText(hwnd, strBuffer, Len(strBuffer))
        If lRet Then
            frmProcesses.List1.AddItem Left(strBuffer & "  " & hwnd, lRet)
        End If
    End If
    
    EnumWinProc = 1
End Function
 
'on a form with a ListBox (mine is called frmProcesses)
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) 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 Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
 
Private Type NOTIFYICONDATA
    cbSize As Long
    hwnd As Long
    uId As Long
    uFlags As Long
    ucallbackMessage As Long
    hIcon As Long
    szTip As String * 64
End Type
 
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const WM_MOUSEMOVE = &H200
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_RBUTTONDBLCLK = &H206
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205
 
Private Const WM_CLOSE = &H10
Private Const WM_QUIT = &H12
 
Private SysTray As NOTIFYICONDATA
 
Private Sub StartInSysTray()
    SysTray.cbSize = Len(SysTray)
    SysTray.hwnd = Picture1.hwnd
    SysTray.uId = 1&
    SysTray.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
    SysTray.ucallbackMessage = WM_MOUSEMOVE
    SysTray.hIcon = Me.Icon
    SysTray.szTip = "&My Task Manager" & Chr$(0)
    Shell_NotifyIcon NIM_ADD, SysTray
    Me.Hide
    App.TaskVisible = False
End Sub
 
Private Sub LoadProcesses()
Call EnumWindows(AddressOf EnumWinProc, 0)
End Sub
 
Private Sub Form_Load()
LoadProcesses
StartInSysTray
End Sub
 
Private Sub List1_DblClick()
Dim CloseIt As Long
CloseIt = FindWindow(vbNullString, List1.List(List1.ListIndex))
PostMessage CloseIt, WM_CLOSE, CLng(0), CLng(0)
List1.Clear
LoadProcesses
End Sub