Fragen von Cherry

Luoo

[FONT="Century Gothic"][COLOR="DarkGreen"][SIZE="2"]

Meine erste Frage ist wie kille ich ein process?

MFG Cherry

[/SIZE][/COLOR][/FONT]

Synaptic

So also ich zeig dir jetzt an einem Beispiel mit einem Button.

Als erstes fügst du deiner Form einen Button hinzu und fügst den Code hier ein:

PHP

Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim p As Process = Process.GetProcessesByName("ICQ")(0)
        p.CloseMainWindow()
        Threading.Thread.Sleep(500)
        If Process.GetProcessesByName("ICQ").Length > 0 Then
            p.Kill()
        End If


    End Sub
End Class

Alles anzeigen

ICQ ist der Prozess! Du musst es bisschen abwiegen manchmal reicht der name aber öfters musst du zbsp "ICQ.exe" einfügen.

Wenn du nun den Debug Modus startest und den Button drückst sollte der Prozess gekillt werden.

MFG

Luoo

[FONT="Century Gothic"][COLOR="DarkGreen"][SIZE="2"]Wenn das aber so ein Hackshield werden slll ohne Button?[/SIZE][/COLOR][/FONT]

Synaptic

Dann verfrachtest du das ganze in den Load bereich ;)

MFG

Luoo

[FONT="Century Gothic"][COLOR="DarkGreen"][SIZE="2"]Wnn ich mehrer porcesse killen will?[/SIZE][/COLOR][/FONT]

Mono

Den Code wiederholen xD

\\EDit
Was das ein GameGuard werden soll empfehle ich dir den ganzen Code in eine Schleife zu packen sonst kann man ja nach dem Start des GG einfach CE wieder öffnen ^^

\\EDit2
Wofür den "Threading.Thread.Sleep(500)" ?
Ich hab es immer ohne Sleep gemacht klappt wunderbar

Luoo

[FONT="Century Gothic"][COLOR="DarkGreen"][SIZE="2"]Dann kommt ein error

Code

Public Class BeachGuard
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim p As Process = Process.GetProcessesByName("Cheat Engine")(0)
        p.CloseMainWindow()
        Threading.Thread.Sleep(500)
        If Process.GetProcessesByName("Cheat Engine").Length > 0 Then
            p.Kill()
        End If
        Dim [COLOR="DarkRed"]p [/COLOR]As Process = Process.GetProcessesByName("Cheat Engine")(0)
        p.CloseMainWindow()
        Threading.Thread.Sleep(500)
        If Process.GetProcessesByName("Cheat Engine").Length > 0 Then
            p.Kill()
        End If
    End Sub
End Class

Alles anzeigen

Fehler 1 Die lokale Variable "p" ist bereits im aktuellen Block deklariert. C:\Users\Philipp\Documents\Visual Studio 2008\Projects\Beach Guard v0.1.vb 9 13 BeachGuard v0.1[/SIZE][/COLOR][/FONT]

Kann man auch so eien schleife machen das er überüprüft ob Cheat Engine an und es sofort killt ?

Synaptic

Ja du musst verschiedene buchstaben verwenden xD

Zbsp: A = Automaton
Ce = CheatEngine

Usw.

MFG

Luoo

[FONT="Century Gothic"][COLOR="DarkGreen"][SIZE="2"]bekomm diesen error wenn cheat engigen nicht offen ist und danach killt er nicht mehr also killt nicht filezilla

[/SIZE][/COLOR][/FONT]

Mono

Code

Public Class Form1


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
        Timer1.Interval = 5000
    End Sub


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim local As Process() = Process.GetProcesses
        Dim i As Integer
        For i = 0 To local.Length - 1
            If Strings.UCase(local(i).ProcessName) = Strings.UCase("Cheat Engine") Then
                local(i).Kill()
            End If
        Next


        Dim locall As Process() = Process.GetProcesses
        Dim ii As Integer
        For ii = 0 To local.Length - 1
            If Strings.UCase(local(ii).ProcessName) = Strings.UCase("was anderes") Then
                locall(ii).Kill()
            End If
        Next


    End Sub
End Class

Alles anzeigen

Luoo

[FONT="Century Gothic"][COLOR="DarkGreen"][SIZE="2"]

Code

Public Class BeachGuard


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
        Timer1.Interval = 1000
    End Sub


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim local As Process() = Process.GetProcesses
        Dim CE As Integer
        For CE = 0 To local.Length - 1
            If Strings.UCase(local(CE).ProcessName) = Strings.UCase("Cheat Engine") Then
                local(CE).Kill()
            End If
        Next


        Dim locall As Process() = Process.GetProcesses
        Dim PA As Integer
        For PA = 0 To local.Length - 1
            If Strings.UCase(local(PA).ProcessName) = Strings.UCase("PacketEditor by yannickMAMA") Then
                locall(PA).Kill()
            End If
        Next


        Dim localll As Process() = Process.GetProcesses
        Dim PA2 As Integer
        For PA2 = 0 To local.Length - 1
            If Strings.UCase(local(PA2).ProcessName) = Strings.UCase("PacketEditor by yannickMAMA V1.2") Then
                locall(PA2).Kill()
            End If
        Next


        Dim locallll As Process() = Process.GetProcesses
        Dim PA3 As Integer
        For PA3 = 0 To local.Length - 1
            If Strings.UCase(local(PA3).ProcessName) = Strings.UCase("PacketEditor by yannickMAMA V1.3") Then
                locall(PA3).Kill()
            End If
        Next


        Dim localllll As Process() = Process.GetProcesses
        Dim A As Integer
        For A = 0 To local.Length - 1
            If Strings.UCase(local(A).ProcessName) = Strings.UCase("FlyFF Automaton") Then
                locall(A).Kill()
            End If
        Next


        Dim locallllll As Process() = Process.GetProcesses
        Dim A1 As Integer
        For A1 = 0 To local.Length - 1
            If Strings.UCase(local(A1).ProcessName) = Strings.UCase("Automaton") Then
                locall(A1).Kill()
            End If
        Next


        Dim locallllllll As Process() = Process.GetProcesses
        Dim F As Integer
        For F = 0 To local.Length - 1
            If Strings.UCase(local(F).ProcessName) = Strings.UCase("ftool") Then
                locall(F).Kill()
            End If
        Next


        Dim localllllllll As Process() = Process.GetProcesses
        Dim F1 As Integer
        For F1 = 0 To local.Length - 1
            If Strings.UCase(local(F1).ProcessName) = Strings.UCase("ftool_Buffer") Then
                locall(F1).Kill()
            End If
        Next


        Dim locallllllllll As Process() = Process.GetProcesses
        Dim F2 As Integer
        For F2 = 0 To local.Length - 1
            If Strings.UCase(local(F2).ProcessName) = Strings.UCase("ftool_buffer") Then
                locall(F2).Kill()
            End If
        Next


        Dim localllllllllll As Process() = Process.GetProcesses
        Dim F3 As Integer
        For F3 = 0 To local.Length - 1
            If Strings.UCase(local(F3).ProcessName) = Strings.UCase("ftool_spammer1") Then
                locall(F3).Kill()
            End If
        Next


        Dim locallllllllllll As Process() = Process.GetProcesses
        Dim F4 As Integer
        For F4 = 0 To local.Length - 1
            If Strings.UCase(local(F4).ProcessName) = Strings.UCase("ftool_spammer2") Then
                locall(F4).Kill()
            End If
        Next


        Dim localllllllllllll As Process() = Process.GetProcesses
        Dim F6 As Integer
        For F6 = 0 To local.Length - 1
            If Strings.UCase(local(F6).ProcessName) = Strings.UCase("ftool_spammer3") Then
                locall(F6).Kill()
            End If
        Next


        Dim locallllllllllllll As Process() = Process.GetProcesses
        Dim F5 As Integer
        For F5 = 0 To local.Length - 1
            If Strings.UCase(local(F5).ProcessName) = Strings.UCase("ftool_spammer4") Then
                locall(F5).Kill()
            End If
        Next


        Dim localllllllllllllll As Process() = Process.GetProcesses
        Dim PA1 As Integer
        For PA = 0 To local.Length - 1
            If Strings.UCase(local(PA1).ProcessName) = Strings.UCase("PaketEditor by yannickMAMA") Then
                locall(PA1).Kill()
            End If
        Next


        Dim locallllllllllllllll As Process() = Process.GetProcesses
        Dim PA21 As Integer
        For PA21 = 0 To local.Length - 1
            If Strings.UCase(local(PA21).ProcessName) = Strings.UCase("PaketEditor by yannickMAMA V1.2") Then
                locall(PA21).Kill()
            End If
        Next


        Dim localllllllllllllllll As Process() = Process.GetProcesses
        Dim PA31 As Integer
        For PA31 = 0 To local.Length - 1
            If Strings.UCase(local(PA31).ProcessName) = Strings.UCase("PaketEditor by yannickMAMA V1.3") Then
                locall(PA31).Kill()
            End If
        Next


        Dim locallllllllllllllllll As Process() = Process.GetProcesses
        Dim PA311 As Integer
        For PA311 = 0 To local.Length - 1
            If Strings.UCase(local(PA311).ProcessName) = Strings.UCase("Form1") Then
                locall(PA311).Kill()
            End If
        Next




[COLOR="Red"]        Dim c() As Process = Process.GetProcessesByName("Beach Guard v1.1")
        Select Case c.Length
            Case 0 : Label1.Text = "Prozess nicht gefunden"
            Case Else : Label1.Text = "Prozess gefunden"
        End Select[/COLOR]
    End Sub


End Class

Alles anzeigen

Aber wenn man den Guard schließt passiert nichts[/SIZE][/COLOR][/FONT]

Mono

Grade habe ich dir den Code gegeben und du hast wieder keine Ahnung was du damit anfangen sollst.

Ps. der Code steht da nicht richtig, der muss ins Form Closing Event, aber was mach ich mir die Mühe, du weißt es nichts damit anzufangen.
Ich rate dir lies dir das gründlich durch!

lg

Fuyo

@ Cherry es ist doch so simpel.
Befolge den Rat von Mono und du wirst um einiges schlauer sein ;)

Code

Public Class Form1


    'So wenn du es jetzt nicht verstehst ja dann ...
    '1x Label (Label1)
    '1x Timer
    '1x Textbox 


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start() ' Beim Start von Form1 , startet Timer1
        Timer1.Interval = 5000 ' Beim Start von Form1 wird das Interval vom Timer1 auf 5000 gesetzt
    End Sub


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim local As Process() = Process.GetProcesses 'prozess ;)
        Dim i As Integer ' variable o.ô
        For i = 0 To local.Length - 1
            If Strings.UCase(local(i).ProcessName) = Strings.UCase(TextBox1.Text) Then 'Textbox1 steht für den Prozessnamen...
                local(i).Kill() 'killt prozess
            End If
        Next


        'so und nächstes mal erstmal lernen ;)
    End Sub
End Class

Alles anzeigen

ichbinniemand

ich hasse das wenn leute versuchen was versuchen was sie sowiso noch nicht packen
ist es so schwer so kannst du die if abfrage mit or immer erweitern

Zitat

Module Module1
Dim thread As New Threading.Thread(AddressOf sala)
Sub Main()
thread.Start()
End Sub
Sub sala()
While 1
For Each P As Process In Process.GetProcesses
If Strings.UCase(P.ToString) = Strings.UCase("System.Diagnostigs.Process(name1)") Or Strings.UCase(P.ToString) = Strings.UCase("System.Diagnostigs.Process(name2)") Then
P.Close()
End If
Next
thread.Sleep(100)
End While
End Sub
End Module

Alles anzeigen

*electriZer*

[FONT="Century Gothic"][COLOR="DeepSkyBlue"][SIZE="2"]Mensch Cherry, dir wird hier alles auf einem Silbertablett vor die Nase gehalten und du probierst immer noch alles selber und fragst dann noch was falsch ist obwohl 10 Leute dir die ganze Zeit sagen was da falsch ist >.<[/SIZE][/COLOR][/FONT]

Fragen von Cherry

Jetzt mitmachen!

SCHNELLZUGRIFF

HILFE & COMMUNITY

RECHTLICHES