VB6: Lập trình tiện ích như "Task Manager"

Trong khi lập trình các ứng dụng, một số bạn sẽ gặp phải yêu cầu kiểm tra
hệ thống và liệt kê tất cả ứng dụng đang chạy (như tiện ích "Task Manager")
và trong một số trường hợp còn cần đến cách thức để "kill" các ứng dụng
đó. Bài viết sẽ trình bày cách hiện thực các yêu cầu này bằng VB6.
Một chương trình được kích hoạt từ 1 tập tin (file) khả thi *.exe nằm ở vị trí
xác định trên đĩa cứng. Khi chương trình chạy, nó trở thành tiến trình (process) trong máy, mỗi
process sẽ được nhận dạng bằng 1 tên nhận dạng (ID) ở dạng số nguyên. Một file khả thi có thể
được kích hoạt chạy nhiều lần để trở thành nhiều process khác nhau. Do đó, để nhận dạng
process, HĐH dùng định danh riêng (ID) của process. Tuy nhiên, người dùng thường nhận dạng
process bằng tên file khả thi của chương trình (nên dùng đường dẫn tuyệt đố
i của file khả thi để
tránh nhầm lẫn giữa các file chương trình nằm ở các thư mục khác nhau nhưng có cùng tên file).
Nếu đang lập trình trên HĐH tương thích với WinNT (NT, 2000, XP, Vista...), bạn có thể dùng
thư viện quản lý process có tên là PSAPI của Microsoft để duyệt các process đang chạy (thông
qua các hàm EnumProcesses, EnumProcessModule, OpenProcess, GetModuleFileNameEx...) và
xóa process theo yêu cầu. Sau đây là qui trình điển hình để viết 1 ứng dụng VB đơn giản giải
quyết các yêu cầu của bạn:
1.
Chạy VB 6.0, tạo project loại "Standard EXE". Sau khi Form trống hiển thị, hãy thiết kế Form
có dạng sau:
Trong đó button "List Process" có tên là btnList, button "Kill
Process" có tên là btnKill, textbox nhập ID có tên là
txtProcessID, listbox để chứa danh sách các process có tên là
lbProcesses.

2.
Nhấn đúp chuột vào button ListProcess để tạo thủ tục xử lý sự kiện click chuột trên button này
rồi viết code như sau:
'code cho Form ứng dụng

lbProcesses.Clear
'tạo array chứa ID của các process
cb = 8
cbNeeded = 96
Do While cb <= cbNeeded
cb = cb * 2
ReDim ProcessIDs(cb / 4) As Long
lRet = EnumProcesses(ProcessIDs(1), cb, cbNeeded)
Loop
NumElements = cbNeeded / 4
For i = 1 To NumElements
'lấy handle của Process thứ i
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, 0,
ProcessIDs(i))
'kiểm tra handle
If hProcess <> 0 Then
'lấy danh sách các module handles thuộc process
lRet=EnumProcessModules(hProcess, Modules(1), 200, cbNeeded2)
'nếu có, lấy tên file khả thi tương ứng
If lRet <> 0 Then
ModuleName = Space(MAX_PATH)
nSize = 500
lRet = GetModuleFileNameExA(hProcess, Modules(1), ModuleName, nSize)
'hiển thị thông tin lên listbox
lbProcesses.AddItem Format(ProcessIDs(i), "000000") & ": " & Left(ModuleName, lRet)
End If
End If
'Close the handle to the process
lRet = CloseHandle(hProcess)
Next

th32ModuleID As Long
' Associated exe
cntThreads As Long
th32ParentProcessID As Long
' This process's parent process
pcPriClassBase As Long
' Base priority of process threads
dwFlags As Long
szExeFile As String * 260 ' MAX_PATH
End Type
Public Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
'1 = Windows 95, 2 = Windows NT
szCSDVersion As String * 128
End Type
Public Const PROCESS_QUERY_INFORMATION = 1024
Public Const PROCESS_VM_READ = 16
Public Const PROCESS_TERMINATE = 1
Public Const MAX_PATH = 260
Public Const STANDARD_RIGHTS_REQUIRED = &HF0000
Public Const SYNCHRONIZE = &H100000
Public Const PROCESS_ALL_ACCESS = &H1F0FFF
Public Const TH32CS_SNAPPROCESS = &H2&
Public Const hNull = 0
4.
Chọn menu Run.Start để chạy thử ứng dụng, nhấn button List Process để xem danh sách các