kostenloser Webspace werbefrei: lima-city

in: prozesse beenden

geschrieben von jackhard

Private Declare Function CloseHandle Lib \"kernel32\" (ByVal _
   hObject As Long) As Long

Private Declare Function OpenProcess Lib \"kernel32\" (ByVal _
   dwDesiredAccess As Long, ByVal bInheritHandle As _
   Long, ByVal dwProcessId As Long) As Long

Private Declare Function TerminateProcess Lib \"kernel32\" (ByVal _
   hProcess As Long, ByVal uExitCode As Long) As Long

Const PROCESS_TERMINATE = &H1

Public lTaskID as Long

Private Sub cmdTerminate_Click()
   Dim hTask As Long
   Dim lResult As Long
   hTask = OpenProcess(PROCESS_TERMINATE, 0&, lTaskID)
   lResult = TerminateProcess(hTask, 1&)
   lResult = CloseHandle(hTask)
End Sub

in: Spiele Mit VisualBasic?

geschrieben von jackhard