Guten Abend,
ich mache gerade eine Software womit ich sinnfreie Prozesse "ausfindig" machen will.
Mit diesen Code bekomme ich schon einmal alle laufenden Prozesse in einer Listbox aufgelistet wo ich mit 2 Buttons einmal Prozesse abrufen kann und mit dem anderen die Prozesse "killen" kann.
Kurzes funktionsbeispiel: Es geht hierbei um eine SOftware die bei jedem start seinen Namen ändert der Name beinhaltet immer 12 Zeichen die "random" sind wie z.B.: 2s4an99j4na4 wie kann ich das gestalten das solche Merkwürdige Prozesse dedected werden? (AntiCheat Software wird hier gemacht!)
MfG,
ich mache gerade eine Software womit ich sinnfreie Prozesse "ausfindig" machen will.
Quellcode
- Public Class Form1
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- With ListView1
- ' ListView-Control "einstellen"
- .View = View.Details
- .Sorting = SortOrder.Ascending
- .FullRowSelect = True
- ' Spalten erstellen
- .Columns.Add("Prozess", 100, HorizontalAlignment.Left)
- .Columns.Add("Dateiname", 250, HorizontalAlignment.Left)
- .Columns.Add("pid", 50, HorizontalAlignment.Right)
- End With
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Dim oItem As ListViewItem
- With ListView1
- ' ListView-Inhalt löschen
- .Items.Clear()
- ' alle Prozesse durchlaufen
- For Each oProcess As Process In Process.GetProcesses
- ' Prozess-Infos ermitteln und im ListView anzeigen
- oItem = .Items.Add(oProcess.ProcessName)
- Try
- oItem.SubItems.Add(oProcess.MainModule.FileName)
- Catch
- oItem.SubItems.Add("")
- End Try
- oItem.SubItems.Add(oProcess.Id.ToString)
- Next
- End With
- End Sub
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- With ListView1
- If .SelectedItems.Count > 0 Then
- If MsgBox("Aktuellen Prozess wirklich beenden?",
- MsgBoxStyle.Question Or MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
- ' Prozess-Objekt anhand Prozess-ID erstellen
- Dim oProccess As Process = Process.GetProcessById(
- Val(.SelectedItems(0).SubItems(2).Text))
- Try
- ' Prozess beenden/zerstören
- oProccess.Kill()
- Catch ex As Exception
- ' Fehlermeldung...
- MsgBox("Fehler beim Beenden des Prozess." & vbCrLf & ex.Message.ToString)
- End Try
- End If
- End If
- End With
- End Sub
Mit diesen Code bekomme ich schon einmal alle laufenden Prozesse in einer Listbox aufgelistet wo ich mit 2 Buttons einmal Prozesse abrufen kann und mit dem anderen die Prozesse "killen" kann.
Kurzes funktionsbeispiel: Es geht hierbei um eine SOftware die bei jedem start seinen Namen ändert der Name beinhaltet immer 12 Zeichen die "random" sind wie z.B.: 2s4an99j4na4 wie kann ich das gestalten das solche Merkwürdige Prozesse dedected werden? (AntiCheat Software wird hier gemacht!)
MfG,
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Mikebazz“ ()