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 !!!
Printable View
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 !!!
One sure shot wayy
.
.
.
.
.
.
.
.
.
.
.
..
.
.
.
.
.
.
.
..
.
.
.
.
.
.
.
.
.
.
..
.
.
.
..
.
.
.
..
.
.
.
.
.
.
.
..
.
.
.
.
.
.
.
.
.
.
.
SEARCH these boards. The question has been asked a number of times and answered as well. ;)
VB Code:
'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