Taskmanager per Listview Suspend, Resume

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Zysor.

    Hallo Zysor,

    meinst du Suspend, Resume aus VB6 ?

    Wenn ja - dann muss ich dich enttäuschen.

    Obwohl 'Resume' und 'On Error Resume Next' noch vorhanden sind,
    sollten diese Befehle nicht mehr verwendet werden.
    (Sie sind veraltet)


    Gruss

    mikeb69

    Ich habe mal einen Code dafür gefunden, kannst ja mal ausprobieren (du brauchst glaube ich gar nicht alles was in dem Code ist, musst mal schauen was du daraus löschen kannst):

    VB.NET-Quellcode

    1. Public Enum ThreadAccess As Integer
    2. SUSPEND_RESUME = &H2
    3. End Enum
    5. <DllImport("Kernel32.dll")> _
    6. Private Shared Function SuspendThread(ByVal hThread As IntPtr) As Int32
    7. End Function
    8. Public Function Thread_Suspend(ByVal ThreadHandle As IntPtr) As Integer
    9. Return SuspendThread(ThreadHandle)
    10. End Function
    11. <DllImport("kernel32.dll")> _
    12. Private Shared Function ResumeThread(ByVal hThread As IntPtr) As Integer
    13. End Function
    14. Public Function Thread_Resume(ByVal ThreadHandle As IntPtr) As Integer
    15. Return ResumeThread(ThreadHandle)
    16. End Function
    17. <DllImport("kernel32.dll")> _
    18. Private Shared Function OpenThread(ByVal dwDesiredAccess As ThreadAccess, ByVal bInheritHandle As Boolean, ByVal dwThreadId As Integer) As IntPtr
    19. End Function
    20. Public Function Thread_GetHandle(ByVal ThreadID As Integer) As IntPtr
    21. Return OpenThread(ThreadAccess.SUSPEND_RESUME, False, ThreadID)
    22. End Function
    23. Public Function Thread_GetHandle(ByVal ThreadID As Integer, ByVal DesiredAccess As ThreadAccess) As IntPtr
    24. Return OpenThread(DesiredAccess, False, ThreadID)
    25. End Function
    26. <DllImport("kernel32.dll", SetLastError:=True)> _
    27. Private Shared Function CloseHandle(ByVal hHandle As IntPtr) As Boolean
    28. End Function
    29. Public Function Handle_Close(ByVal OpenedHandle As IntPtr) As Boolean
    30. Return CloseHandle(OpenedHandle)
    31. End Function
    33. 'Freeze
    34. For Each thread As ProcessThread In Process.GetProcessesByName("firefox")(0).Threads
    35. Thread_Suspend(Thread_GetHandle(thread.Id))
    36. Next
    38. 'Unfreeze
    39. For Each thread As ProcessThread In Process.GetProcessesByName("firefox")(0).Threads
    40. Thread_Resume(Thread_GetHandle(thread.Id))
    41. Next

    Quellcode

    1. 'Freeze
    2. For Each thread As ProcessThread In Process.GetProcessesByName("firefox")(0).Threads
    3. Thread_Suspend(Thread_GetHandle(thread.Id))
    4. Next
    5. 'Unfreeze
    6. For Each thread As ProcessThread In Process.GetProcessesByName("firefox")(0).Threads
    7. Thread_Resume(Thread_GetHandle(thread.Id))
    8. Next


    kenn ich schon und funktioniert auch, aber nur wenn man den Prozessnamen als String angibt :P

    ich brüchte jetzt aber das er suspendet, was ich ausgewählt habe im Listview, weil ich dort ja alle prozesse aufgelistet habe^^

Facebook
Telefonspende