LaMiy schrieb:
@Vultrax
"Funktioniert leider immer noch nicht" reicht nicht. Da muss du Code zeigen.
VB.NET-Quellcode
- Option Strict On
- Public Class Form1
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- For Each p As Process In Process.GetProcesses
- Try 'Try wegen Zugriffsverweigerung
- MessageBox.Show(p.MainModule.FileName)
- Catch ex As Exception
- End Try
- Next
- End Sub
- End Class
Ich habe das jetzt umgeschrieben und alles in einer Textbox wiedergeben:
VB.NET-Quellcode
- Option Strict On
- Public Class Form1
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- hashlist.Add("23521433") 'TeamSpeak
- ListProcesses()
- For Each p As Process In Process.GetProcesses
- Try 'Try wegen Zugriffsverweigerung
- Me.TextBox1.Text &= (CStr(p.MainModule.FileName & " " & p.GetHashCode.ToString)) & vbNewLine
- Catch ex As Exception
- End Try
- Next
- End Sub
- Dim hashlist As New List(Of String)
- Public Sub ListProcesses()
- For Each p As Process In Process.GetProcesses
- If hashlist.Contains(p.ProcessName.GetHashCode.ToString()) Then
- p.Kill()
- MessageBox.Show(p.ProcessName & " wurde geschlossen")
- Exit For 'Normal nicht nötig, war wegen chrome aber sinnvoll
- End If
- Next
- End Sub
- End Class
Richtig so?
"Denken ist die schwerste Arbeit, die es gibt. Das ist wahrscheinlich auch der Grund, warum sich so wenig Leute damit beschäftigen." - Henry Ford