Const MAX_PATH& = 260
Declare Function TerminateProcess Lib "kernel32" _ (ByVal ApphProcess As Long, ByVal uExitCode As Long) As Long Declare Function OpenProcess Lib "kernel32" _ (ByVal dwDesiredAccess As Long, _ ByVal blnheritHandle As Long, _ ByVal dwAppProcessId As Long) As Long Declare Function ProcessFirst Lib "kernel32" _ Alias "Process32First" (ByVal hSnapshot As Long, _ uProcess As PROCESSENTRY32) As Long Declare Function ProcessNext Lib "kernel32" _ Alias "Process32Next" (ByVal hSnapshot As Long, _ uProcess As PROCESSENTRY32) As Long Declare Function CreateToolhelpSnapshot Lib "kernel32" _ Alias "CreateToolhelp32Snapshot" _ (ByVal lFlags As Long, lProcessID As Long) As Long Declare Function CloseHandle Lib "kernel32" _ (ByVal hObject As Long) As Long Type PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntThreads As Long th32ParentProcessID As Long pcPriClassBase As Long dwFlags As Long szexeFile As String * MAX_PATH End Type 'This goes in a form... Private Sub Form_Load() KillApp ("none") End Sub Private Sub Form_Resize() List1.Width = Form1.Width - 400 List1.Height = Form1.Height - 1000 Text1.Width = Form1.Width - Command1.Width - 300 Command1.Left = Text1.Width + 150 End Sub Private Sub List1_Click() Text1.Text = List1.List(List1.ListIndex) End Sub Private Sub List1_dblClick() Text1.Text = List1.List(List1.ListIndex) KillApp (Text1.Text) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = "13" Then KillApp (Text1.Text) End If End Sub |