Private Sub
cmdEnd_Click()
End End Sub
Private Sub cmdGetProcs_Click()
Dim res As Long
Dim hSnap As Long
Dim Pes32 As PROCESSENTRY32
Dim sProcInfo As String

hSnap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
If hSnap = -1 Then
MsgBox "Oj!, inga bilder tillåtna!", vbApplicationModal, "Varning"
End
End If

Pes32.dwSize = LenB(Pes32)
res = Process32First(hSnap, Pes32)
If res <> 1 Then
MsgBox "Process32 First problem"
End
End If

lstProcs.Clear

Do While res = 1
sProcInfo = Hex(Pes32.th32ProcessID) & Chr$(9) & _
Pes32.pcPriClassBase & Chr$(9) & Pes32.szExeFile

'// Jag har inte kommit på hur man ser om det
' är 16/32 bitar- någon som vet?.

lstProcs.AddItem sProcInfo
lstProcs.ItemData(lstProcs.NewIndex) = Pes32.th32
ProcessID res = Process32Next(hSnap, Pes32) Loop

res = CloseHandle(hSnap)
If res <> 1 Then
MsgBox "Snapshot handle stängdes inte korrekt!", vbApplicationModal
End
End If

End Sub

Private Sub cmdHelp_Click()
MsgBox "Ingen hjälp finns tillgänglig!"
End Sub

Private Sub cmdTerminate_Click()
Dim res As Long
Dim hProc As Long
Dim pid As Long

If MsgBox("Ta bort varenda byte " & _ "av denna process från minnet?", _
vbYesNo) = vbYes Then
' inte snällt, använd endast de mest envisa processerna
pid = CLng(lstProcs.ItemData(lstProcs.ListIndex))

hProc = OpenProcess(PROCESS_TERMINATE, 1, pid)
res = TerminateProcess(hProc, 0)
If res = 0 Then
MsgBox "Problem, processen terminerades ej"
Else
MsgBox "Processen terminerad"
End If
End If
End Sub

Private Sub Form_Load()
cmdGetProcs_Click
End Sub