Alle Geöffneten Programme in textbox zeigen

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von iEi.

    Alle Geöffneten Programme in textbox zeigen

    Kann mir jemand helfen? Ich brauche einen Code, mit dem ich alle geöffneten Prozesse oder alle aktiven tasks in einer textbox anzeigen kann. Ich google jetzt schon Seite drei Tagen und habe immer noch nichts gefunden -.- :( ...

    Kein Problem ;)

    VB.NET-Quellcode

    1. For Each prcs In Process.GetAllProcesses() 'Alle Prozesse durchlaufen
    2. TextBox1.Text & = prcs.ProcessName & "; " 'Den Processnamen in die TextBox schreiben & dann ein "; "
    3. Next
    Grüße,
    Lukas

    Fragen über Themen im Forum per Konversation werden gelöscht und die Absender blockiert...

    @Lenfinalt:: So was:

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    2. For Each pr In Process.GetProcesses
    3. If Not String.IsNullOrEmpty(pr.MainWindowTitle) Then
    4. Me.ListBox1.Items.Add(pr.MainWindowTitle)
    5. End If
    6. Next
    7. End Sub
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ich weiss das Thema ist erledigt aber:

    Ich habe noch einen Code womit man alle Prozesse in einer ListView auflisten und auch beenden kann.(Also ein Task-Manager)Weil ich glaub dein Projekt geht so in diese Richtung(kann aber auch falsch liegen).

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim CTD As Integer
    3. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    4. Timer1.Enabled = True
    5. With ListView1
    6. .View = View.Details
    7. .Sorting = SortOrder.Ascending
    8. .FullRowSelect = True
    10. .Columns.Add("Prozesse", 100, HorizontalAlignment.Left)
    11. .Columns.Add("Dateiname des Prozesses", 250, HorizontalAlignment.Left)
    12. .Columns.Add("PID", 50, HorizontalAlignment.Right)
    14. End With
    15. End Sub
    17. Private Function Check()
    18. ListView1.Items.Clear()
    19. Timer2.Enabled = True
    20. Dim oItem As ListViewItem
    21. With ListView1
    22. For Each oProcess As Process In Process.GetProcesses
    24. oItem = .Items.Add(oProcess.ProcessName)
    25. Try
    26. oItem.SubItems.Add(oProcess.MainModule.FileName)
    28. Catch
    29. oItem.SubItems.Add("")
    31. End Try
    32. oItem.SubItems.Add(oProcess.Id)
    34. Next
    35. End With
    36. CTD = 10
    38. End Function
    40. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    41. With ListView1
    44. If .SelectedItems.Count > 0 Then
    45. If MsgBox("Den ausgewählten Prozess wirklich beenden ???", MsgBoxStyle.Question Or MsgBoxStyle.YesNo) Then
    46. Dim oProcess As Process = Process.GetProcessById(Val(.SelectedItems(0).SubItems(2).Text))
    48. Try
    49. oProcess.Kill()
    50. Catch ex As Exception
    51. Beep()
    52. MsgBox("Der Prozess konnte aufgrund eines Fehlers nicht beendet werden.Entweder liegt ein Anwendungsfehler vor oder der Zugriff wurde Ihnen verweigert.", MsgBoxStyle.Critical)
    55. End Try
    56. Check()
    58. End If
    59. End If
    65. End With
    66. End Sub
    67. End Class